Thread TK: radiobutton im Menü auf "ausgewählt/select" setzen (4 answers)
Opened by frankes at 2008-08-26 04:21

frankes
 2008-08-26 15:41
#113999 #113999
User since
2005-04-02
140 Artikel
BenutzerIn

user image
Hallo reene

$Menulang war auf dem Radiobutton Wert. Funktionierte bei mir dennoch nicht.

Inzwischen habe ich eine Lösung über die Menu - Methode.

Also ein separates Menü mit einen normalen Button Element aufgerufen.

Hier kann man dann mit widget->invoke(x) das Menü Element auswählen.


Code (perl): (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

...

        ### Language Menu


        $popuplang = $Btline->Menu(
                        '-tearoff'                              => 0,
                        '-background'                   => 'white',
                        '-foreground'                   => 'black',
                        '-activebackground'             => 'green',
                        '-activeforeground'             => 'black',
                        '-disabledforeground'          => 'gray'
                );


        if (grep { $_ eq 'default'} keys %{$Conflang} ) {



                $popuplang->add(
                                                        'radiobutton',
                                                        '-command'      => \&setlang,
                                                        '-label'                => 'default',
                                                        '-value'                => '',
                                                        '-variable'             => $Menulang,
                                                );
        }

        $popuplang->invoke(0) unless $Menulang;


        foreach $l (sort {$a cmp $b} keys %{$Conflang}) {
                next if $l eq 'default';

                $popuplang->add('radiobutton',
                                                '-command'      => \&setlang,
                                                '-label'        => $l,
                                                '-value'        => $l,
                                                '-variable'     => $Menulang
                                        );
    }


        $button3 = $Btline->Button(
                        '-command'              => \&poplang,
                        '-text'                 => "language",
                        '-padx'                 => 3,
                        '-relief'                       => 'groove',
                        '-borderwidth'          => 2
                )
                        ->pack(
                                        '-side'         => 'left',
                                        '-anchor'               => 'nw' 
                                );

}


#################### poplang ####################
# Language menu
sub poplang {
        $popuplang->Popup('-popover' => $button3, '-popanchor' => 'nw');
}

...



Dennoch wäre ich daran interessiert, wie man ein Element in einem mit dem Menubutton Objekt generierten Menü ansprechen kann, um dieses aus- bzw. abzuwählen.



Danke Reene

View full thread TK: radiobutton im Menü auf "ausgewählt/select" setzen