Help for this page

Select Code to Download


  1. or download this
        my $drop = $hlist->DropSite(
        -droptypes    => [qw(Local)],
        -dropcommand  => sub { perform_drop($label, @_) }, # New!
        -entercommand => sub { hover_over_drop($label, @_) }, # New!
  2. or download this
    sub hover_over_drop {
    my ($label_obj, $b_entry, $x_pos) = @_;
...
        print $label_obj->cget(-text) . "\n";
    }
}
  3. or download this
    Test3 
Test3 
...
Test1 
Test2 
Test3