Thread Menu->configure() (8 answers)
Opened by Froschpopo at 2005-04-15 10:46

Froschpopo
 2005-04-15 10:46
#43571 #43571
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
Hi,

ich hab ein Menu:
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
my $menu = $config{MainWindow}->Menu
(-menuitems => [
[Cascade => "~Datei", -tearoff => 0, -menuitems =>
[

[Button => "Anmelden als Froschpopo",

-command => sub { } ],

[Cascade => "Mein Status",

-tearoff => 0,

-menuitems =>

[

[Button => "~Online",

-command => sub { } ],

[Button => "~Beschäftigt",

-command => sub { } ],

[Button => "~Bin gleich zurück",

-command => sub { } ],

[Button => "~Abwesend",

-command => sub { } ],

[Button => "~Mittagspause",

-command => sub { } ],

[Button => "~Als Offline anzeigen",

-command => sub { exit } ]

]

],

[Button => "~Wechseln zu",

-command => sub { } ],

"-",

[Button => "~Beenden",

-command => sub { exit } ]
]
],
[Cascade => "~Kontakte",
-tearoff => 0,
-menuitems =>
[

[Button => "Kontakt hinzufügen",

-command => sub { AddUser() }],

[Button => "Kontakt suchen",

-command => sub { SearchUser() }],

[Button => "Gruppen verwalten",

-command => sub { EditGroups() }]
]
],
[Cascade => "~Extras",
-tearoff => 0,
-menuitems =>
[

[Button => "Profil bearbeiten",

-command => sub {

GotoUrl("http://flirtwelt.net/index.html?ID=options") }],

[Button => "Fotoalbum bearbeiten",

-command => sub {

GotoUrl("http://flirtwelt.net/index.html?ID=files") }],

"-",

[Button => "Optionen",

-command => sub { &Options }]
]
],
[Cascade => "~?",
-tearoff => 0,
-menuitems =>
[

[Button => "Online-Hilfe",

-command => sub { GotoUrl("http://flirtwelt.net/index.html?ID=files") }],

[Button => "Info",

-command => sub { SearchUser() }],

[Button => "Hilfethemen",

-command => sub { EditGroups() }]
]
]
]
);

gibts da auch ne Möglichkeit wie bei vielen anderen Widgets mit configure() einzelne Elemente zu updaten?
Weil sonst müsste ich das gesamte Menü jedesmal neu erstellen und die Arbeit würde ich mir gerne ersparen.

View full thread Menu->configure()