Opened by Crian at 2005-01-19 00:17
User since
2003-08-04
5866 Artikel
ModeratorIn
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
5866 Artikel
ModeratorIn
Ich hab meine Gui-Funktionen (des GED) in eine eigene Klasse verlagert. Nun wird beim erstellend es Menüs das Hilfemenü nicht mehr rechtsbündig abgetrennt.
Ich vermute, dass es daran liegt, dass ich irgendwie nicht das richtige "seperator" aufegrufen bekomme.
Hier ist der entsprechende Ausschnitt aus der Funktion:
Es gibt keine Warnung, keine Fehlermeldung, nichts... die auskommentierten Varianten verhalten sich genauso: wirkungslos aber ohne Meldungen, mit Ausnahme der cascade-Variante, die schlicht ein leeres Untermenü mit dem Namen '-' aufmacht.
Gibt es da irgendeinen Trick, wie ich das Hilfemenü wieder an den rechten Rand bekomme?
Ich vermute, dass es daran liegt, dass ich irgendwie nicht das richtige "seperator" aufegrufen bekomme.
Hier ist der entsprechende Ausschnitt aus der Funktion:
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
#--------------------------------------------------------------------------
# Menü:
#--------------------------------------------------------------------------
my $mf = $mw->Frame(#-relief => 'ridge',
-borderwidth => 2,
);#&´&´
# Menu-Bar:
$::Konfig{menu} = $mf->Menu(
-type => 'menubar',
-font => $::Konfig{menufont},
);
$mw->configure(-menu => $::Konfig{menu});
# Einträge in der Menu-Bar:
$::Konfig{menu}->cascade(
-label => 'Datei',
-underline => 0,
-font => $::Konfig{menufont},
);
$::Konfig{menu}->cascade(
-label => 'Bearbeiten',
-underline => 0,
-font => $::Konfig{menufont},
);
$::Konfig{menu}->cascade(
-label => 'Ansicht',
-underline => 0,
-font => $::Konfig{menufont},
);
$::Konfig{menu}->cascade(
-label => 'Manipulationen',
-underline => 0,
-font => $::Konfig{menufont},
);
$::Konfig{menu}->cascade(
-label => 'Interna',
-underline => 0,
-font => $::Konfig{menufont},
);
$::Konfig{menu}->separator(); # Rest rechtsbündig
#$::Konfig{menu}->Tk::Menu::separator(); # Rest rechtsbündig
#($::Konfig{menu})->separator(); # Rest rechtsbündig
#$::Konfig{menu}->cascade(-label => '-');
$::Konfig{menu}->cascade(
-label => 'Hilfe',
-underline => 0,
-font => $::Konfig{menufont},
);
Es gibt keine Warnung, keine Fehlermeldung, nichts... die auskommentierten Varianten verhalten sich genauso: wirkungslos aber ohne Meldungen, mit Ausnahme der cascade-Variante, die schlicht ein leeres Untermenü mit dem Namen '-' aufmacht.
Gibt es da irgendeinen Trick, wie ich das Hilfemenü wieder an den rechten Rand bekomme?
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
use strict; use warnings; Link zu meiner Perlseite