1#-------------------------------------------------------------------------------------------------------------- 2# Show about box 3#-------------------------------------------------------------------------------------------------------------- 4 5use strict; 6use warnings; 7 8sub show_about 9{ 10my $help_text = join("", &readf($main::about)); 11 12 my $row = 1; 13 my $top = $main::mw -> Toplevel(); 14 $top -> title('About'); 15 16 my $image = $main::mw->Photo 17 ( 18 -format=>'jpeg', 19 -file=>$main::mempic 20 ); 21 22 $top->Label 23 ( 24 -image =>$image 25 ) 26 -> grid 27 ( 28 -row=>2, 29 -column=>1 30 ); 31 32 my $txt = $top -> Scrolled 33 ( 34 'ROText', 35 -scrollbars=>'osoe', 36 -wrap=>"word", 37 -font=>$main::dialog_font, 38 -width=>60, 39 -height=>18 40 ) 41 -> grid 42 ( 43 -row=>2, 44 -column=>2 45 ); 46 $txt->menu(undef); 47 $txt -> insert 48 ( 49 'end', 50 $help_text 51 ); 52 53 $top -> Button 54 ( 55 -text=>"Close", 56 -activebackground=>'cyan', 57 -command => sub 58 { 59 destroy $top; 60 } 61 ) 62 -> grid 63 ( 64 -row => 4, 65 -column => 1, 66 -columnspan => 2 67 ); 68 69 $top->update(); 70 $top->resizable(0,0); 71} 72 731;