Opened by Mako at 2007-12-06 13:11
User since
2007-10-05
31 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-10-05
31 Artikel
BenutzerIn
Ich hab das jetzt mal mit einer sub probiert, aber das geht immer noch nicht. Is versth nur nicht warum es nicht funktioniert. Beim ersten mal erstellt er den Menubar noch richtig, aber beim ändern generiert er den Menubar nicht mehr. Warum?
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
my $mw = MainWindow->new(-title=>"Test");
my $toplevel = $mw->toplevel;
my $n = 'Neu';
my $o = 'Öffnen..';
my $s = 'Speichern';
my $sp = 'Speichern unter...';
my $b = 'Beenden';
our $menubar;
Menu($n,$o,$s,$sp,$b);
sub Menu{
my $n = shift;
my $o = shift;
my $s = shift;
my $sp = shift;
my $b = shift;
$menubar = $toplevel->Menu(-type => 'menubar');
$toplevel->configure(-menu => $menubar);
my $datei = $menubar->cascade(-label => '~Datei',
-tearoff => 0);
$datei->command(-label => "$n", -command => \&neu);
$datei->command(-label => "$o", -command => \&open);
$datei->command(-label => "$s", -command => \&speichern);
$datei->command(-label => "$sp", -command => \&speichernunter);
$datei->separator();
$datei->command(-label => "$b", -command => [$mw=>'destroy']);
}
$mw->Button(-text=>'clear',-command => sub {&chance} )->pack;
MainLoop;
sub chance {
$menubar->destroy;
my $n = 'new';
my $o = 'open';
my $s = 'save';
my $sp = 'save as';
my $b = 'close';
Menu($n,$o,$s,$sp,$b);
}