Help for this page

Select Code to Download

Select or download this

$mw->Button(
  -text => 'func',
...
  -text => 'embed',
  -command =>  sub { my $p1 = $jcb->getSelectedIndex(); printf("e: \$p
+1 = >>$p1<<\n"); } 
)->pack;