Re^9: 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(test.pm) which has a method InitDialog(). I am invoking InitDialog from some script by a test.pm object. Now this how I am embedding your code in test.pm. 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);
}
[download]

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.

Comment on Re^9: Insert checkbutton into MListbox Download Code


No such thing as a small change
	PerlMonks