Untermü für Menü (Graphische Oberflächen)

[thread]4886[/thread]

Untermü für Menü

Froschpopo

2005-04-01 20:57

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

hab nen Datei-Menü gebaut:

Code: (dl )

my $datei = $menubar->cascade(-label => '~Datei',
                              -tearoff => 0);
$datei->command(
    -label => 'Beenden',
    -background=> 'white',
    -command => # untermenü aufrufen
);

jetzt will ich ein Untermenü zu dem "beenden" Menü machen. wie gehts?

pktm

2005-04-01 21:10

User since
2003-08-07
2921 Artikel
BenutzerIn

Guckst du hier: http://wiki.perl-community.de/bin....rMenues
(habe ich per Google gefunden :-D )

http://www.intergastro-service.de (mein erstes CMS :) )

coax

2005-04-01 21:13

User since
2003-08-11
457 Artikel
BenutzerIn
[default_avatar]

[quote=Froschpopo,01.04.2005, 18:57]hab nen Datei-Menü gebaut:
jetzt will ich ein Untermenü zu dem "beenden" Menü machen. wie gehts?[/quote]
statt $datei->command brauchst du wieder ein cascade.

PS: Schau dir mal das Tk-Demo widget.pl an, das beantwortet so einige Fragen von selbst. (Unter Win32 glaube mit perl widget.pl).

PS2: Ich Idi hatte ueberhaupt nicht mehr an die pTk Sektion im Wiki gedacht. Asche auf mein Haupt.\n\n

,,Das perlt aber heute wieder...'' -- Dittsche

Froschpopo

2005-04-01 21:35

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

ihr habt mich falsch verstanden, ich will ein untermenü im untermenü !
Also quasi so:

Code: (dl )

$datei->command(
    -label => 'Status',
    -background=> 'white',
    -command => $menubar->cascade(-label => 'Online);
);

leider funzt das nicht

Froschpopo

2005-04-01 21:45

User since
2003-08-15
2653 Artikel
BenutzerIn
[default_avatar]

doch jetzt hab ichs gecheckt :)

Crian

2005-04-04 19:13

User since
2003-08-04
5866 Artikel
ModeratorIn

Ich glaub es würde sich für Dich lohnen, Mastering Perl/Tk zu erwerben.

s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View all threads created 2005-04-01 20:57.