my $header_msg = "Get what from MemCache?" ; ******** BEGIN DialogBox ******** my $dialog = $top -> DialogBox ( -title => ' ', -buttons => [] ); my $lb = $dialog -> ListBox3( -text => $header_msg, ) -> pack(-side => 'top' ); $lb -> insert( 'end' , @cache_list ); $dialog -> Button ( -text => "Abort" , -bg => 'red' , -command => sub { ( $dialog -> destroy() ) if Tk::Exists( $dialog ) ; } )-> pack ( -side => 'bottom' , -fill => 'x' ); $lb -> bind ( '' , sub { my $mychoice = $lb -> get( 'active'); print "\$mychoice = : $mychoice\n\n "; } ); ******** SHOW 'DialogBox ******** $top = $dialog -> Show(); # $lb -> bind('' , \&get_choice); $lb -> bind ( '' , sub {