Schrift
Wiki:Tipp zum Debugging: use Data::Dumper; local $Data::Dumper::Useqq = 1; print Dumper \@var;
Start · Board · Anwendungen/Programme/Skripte in Perl · Graphische Oberflächen
[thread]4889[/thread]

Datei-Menü ins Toplevel



<< >> 2 Einträge, 1 Seite
Froschpopo
 2005-04-01 23:51
#43059 #43059
User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]
Hi,
wenn ich in mein Toplevel-Fenster  nen Datei-Menü machen will, dann passiert nichts. Stattdessen erscheint das Dateimenü im MainWindow! Ist das ein Scriptfehler oder gibts tatsächlich keine Möglichkeit in den Toplevels nen eigenes Dateimenü zu machen.

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
my $menu = $config{MainWindow}->Menu
    (-menuitems =>
        [
            [Cascade => "~Datei", -menuitems =>
               
 [
               
     [Button => "~Anmelden als Froschpopo", -command => sub { } ],
               
     [Cascade => "~Mein Status", -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 { } ]
               
         ]
               
     ],
               
     [Button => "~Wechseln zu", -command => sub { } ],
               
     [Button => "~Beenden", -command => sub { exit } ]

               
 ]
            ],
            [Cascade => "~Kontakte", -menuitems =>
               
 [
               
     [Button => "Kontakt hinzufügen", -command => sub { AddUser() }],
               
     [Button => "Kontakt suchen", -command => sub { SearchUser() }],
               
     [Button => "Gruppen verwalten", -command => sub { EditGroups() }]
               
 ]
            ],
            [Cascade => "~Extras", -menuitems =>
               
 [
               
     [Button => "Fotoalbum bearbeiten", -command => sub { GotoUrl("http://.../index.html?ID=files") }],
               
     [Button => "Immer im Vordergrund", -command => sub { SearchUser() }],
               
     [Button => "Optionen", -command => sub { EditGroups() }]
               
 ]
            ],
            [Cascade => "~?", -menuitems =>
               
 [
               
     [Button => "Online-Hilfe", -command => sub { GotoUrl("http://....net/index.html?ID=files") }],
               
     [Button => "Info", -command => sub { SearchUser() }],
               
     [Button => "Hilfethemen", -command => sub { EditGroups() }]
               
 ]
            ]
        ]
);
$config{MainWindow}->configure(-menu => $menu);

sub StartChat {
    my $popup = $config{MainWindow}->Toplevel(-title => "sdsa");
    $popup->geometry($config{PrivatChatWidth}.'x'.$config{PrivatChatHeight});
}

wenn ich jetzt nen Menü in die StartChat() einbaue, dann nimmt es den Platz von dem im MainWindow ein. Warum?\n\n

<!--EDIT|Froschpopo|1135751484-->
Thorium
 2005-04-02 01:55
#43060 #43060
User since
2003-08-04
232 Artikel
BenutzerIn
[Homepage] [default_avatar]
Weil du Menü dem MainWindow hinzuconfigurierst...
Du musst das Menü also erst in StartChat mit

$popup->configure(-menu => $menu) anbinden.

... wär aber sicherlich auch in perldoc -m Tk::Menu gestanden, oder? ;)

EDIT: Oder die Menuoption direkt beim erstellen des TopLevels angeben:

my $popup = $config{MainWindow}->Toplevel(-title => "sdsa", -menu => $menu);\n\n

<!--EDIT|Thorium|1112392986-->
Per|li|nist der; -en, -en <zu ↑...ist>: a) Anhänger, Vertreter der radikalen Perlinisten die Perl als die einzig wahre Sprache ansehen; b) Mitglied einer perlinistischen Community.
<< >> 2 Einträge, 1 Seite



View all threads created 2005-04-01 23:51.