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;