Thread Alle Labels neu generieren (9 answers)
Opened by DrMaex at 2012-06-26 19:03

DrMaex
 2012-06-26 19:03
#159395 #159395
User since
2012-06-26
4 Artikel
BenutzerIn
[default_avatar]
Hallo, ich experementiere gerade mit Perl/Tk und würde gern ein Spachenmenü erzeugen. Welches mir alle meine Controls in eine andere Sprache umbenennt/neu erzeugt.

Beispielcode:

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

use strict;
use warnings;
use Tk;

my $lang = 0;
my $mw                  = Tk::MainWindow->new(-title=>"language support");
$mw->geometry("100x100");

my @menulanguages       =("sprache","language");

#menubar
my $menubar             = $mw->Menu(-relief => 'flat');
$mw->configure(-menu => $menubar);
my $menu_lang           = $menubar->cascade(-label => "$menulanguages[$lang]");
my $german_radio_menu   = $menu_lang->radiobutton(-label=>"deutsch", -variable=>\$lang, -value=>0, -command=>\&update_mw);
my $english_radio_menu  = $menu_lang->radiobutton(-label=>"english", -variable=>\$lang, -value=>1, -command=>\&update_mw);

#button

my @buttonlanguages       =("Klick mich","Click me");
my $mybutton          = $mw->Button(-text=>"$buttonlanguages[$lang]")->pack();

Tk::MainLoop();



sub update_mw
{
    $mw->update();
    # $menu_lang->configure(-label=>"$menulanguages[$lang]");
# $mybutton->configure(-text=>"$buttonlanguages[$lang]");
}


um mit Tipparbeit zu ersparen wollte ich gern die "-configure" Sachen vermeiden ( denn es werden noch etliche Labes dazu kommen ) und stattdessen ein
Code (perl): (dl )
$mw->update()

benutzen, doch leider funktioniert es nicht so. ich habe diesen Thread gefunden aber da wird leider auf die "-configure" Funktionalität verwiesen
Menubar ändern

Übersehe ich Etwas oder ist es einfach nicht möglich sowas mit $mw->update() bewerkstelligen?


Vielen Dank

Max
Last edited: 2012-06-26 19:29:46 +0200 (CEST)

View full thread Alle Labels neu generieren