Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re^9: Insert checkbutton into MListbox

by ghosh123 (Monk)
on Feb 09, 2012 at 09:17 UTC ( #952677=note: print w/replies, xml ) Need Help??

in reply to Re^8: Insert checkbutton into MListbox
in thread Insert checkbutton into MListbox

Hello, I am running into a small problem. In the end of your script if I print the %is_selected hash,I can get which all items are selected/deselected. Problem is when I am embedding your code in my module. Supoose I have a module( which has a method InitDialog(). I am invoking InitDialog from some script by a object. Now this how I am embedding your code in Here I am using Notebook because I need this textWidget-chkbtn-upDwn structure for different display style.

package test; sub new { ## something } sub InitDialog { #something something my $book = $frame->Notebook->pack ; foreach my $type qw(pageone pagetwo pagethree) { $page = $book->add("$type",-label => $type); $text = $page->Scrolled('Text',-scrollbars => 'e', + -width => ($item_width+15), -background => '#efefe +f' )->pack; $text->tagConfigure('item', %attr_item); &build($text); } while(my ($k,$v) = each(%is_selected)) { print "$k -> $v \n"; } } sub build { # your same build subrtn # only difference is the passed $text argument is held # in a variable. The rest is same # And $text is passed to move as well } sub move { ## Same code &build($text); }

Now when in sub OnInitDialog I am printing the has key-value, I am not getting any value for the has keys. It is empty. What is going wrong ??? Please help.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://952677]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (9)
As of 2017-05-24 16:12 GMT
Find Nodes?
    Voting Booth?