Alle Labels neu generieren (Graphische Oberflächen)

[thread]17518[/thread]

Alle Labels neu generieren

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+10 replies

DrMaex

2012-06-26 19:03

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 )

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)

+8 replies

pktm

2012-06-26 23:22

User since
2003-08-07
2921 Artikel
BenutzerIn

Hi DrMaex,

ich spekuliere mal ein bisschen. Mit update geht das glaube ich nicht, weil das nur die Anzeige aktualisiert - also das Widget wird gemalt. Damit der Text auch jedes Mal gemalt wird, muss er entweder per configure hinterlegt oder anders in das Widget eingefügt werden. Bei Label gibt es z.B. die Möglichkeit eine textvariable anzulegen. Dann ändert sich der Inhalt immer, wenn die Variable sich ändert.

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

+7 replies

DrMaex

2012-06-27 13:13

User since
2012-06-26
4 Artikel
BenutzerIn
[default_avatar]

Vielen Dank, dann werde ich wohl in den sauren Apfel beissen müssen und den weg über "configure" gehen.

+6 replies

GUIfreund

2012-06-27 15:54

User since
2011-08-08
559 Artikel
BenutzerIn
[default_avatar]

2012-06-27T11:13:09 DrMaex
Vielen Dank, dann werde ich wohl in den sauren Apfel beissen müssen und den weg über "configure" gehen.

Eben nicht. Wie pktm schon schrieb, brauchst du nur den neuen Text in der Variable abzulegen, die in der Option -textvariable angegeben ist. Das geht nicht nur bei Label, sondern auch bei Button, Checkbutton, Radiobutton, Entry usw.

Gruß
GUIfreund

+4 replies

pktm

2012-06-27 20:26

User since
2003-08-07
2921 Artikel
BenutzerIn

Hi? Geht das wirklich, also hast du das schon mal gemacht?
Irgendwie stehe ich da auf dem Schlauch. Ich dachte auch, dass es nicht geht.

Hier mein Ansatz:

Code: (dl )

#!perl

use strict;
use warnings;
use utf8;
use Tk;

my $map = {
    'de' => {
        btn_click_me => 'Klick mich',
    },
    'en' => {
        btn_click_me => 'Cleck me',
    }
};

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

my @menulanguages       =("de","en");

my $menubar             = $mw->Menu(-relief => 'flat');
$mw->configure(-menu => $menubar);

my $menu_lang           = $menubar->cascade(-label => $lang);
$menu_lang->radiobutton(-label=> $_, -variable => \$lang, -value => $_, -command => \&update_window) for @menulanguages;

my $mybutton = $mw->Button(
    -textvariable => \$map->{$lang}->{btn_click_me},
)->pack();



$mw->MainLoop();



sub update_window {
    $mw->update();
} # /update_window

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

+3 replies
GUIfreund

2012-06-28 15:02
User since
2011-08-08
559 Artikel
BenutzerIn
So kann das nicht gehen. Deine Textvariable ist der Skalar $map->{'de'}->{btn_click_me}. Der ändert nie seinen Wert. Aber du warst schon nahe dran. Hier die Änderungen zu deinem Kode:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12

........ my $lang = 'de'; # default-Sprache my $btntext; update_window(); # Texte in default-Sprache ........ my $mybutton = $mw->Button( -textvariable => \$btntext, )->pack(); ........ sub update_window { # Texte in gewählter Sprache $btntext = $map->{$lang}->{btn_click_me}; } # /update_window
Gruß
GUIfreund
- +2 replies
- pktm
  
  2012-06-28 23:54
  
  User since
  2003-08-07
  2921 Artikel
  BenutzerIn
  
  Ah ok. Aber dann braucht man eine lexikalische Variable pro lokalisiertem Text. Ein Hash wäre mir natürlich lieber :=
  
  Merci :)
  http://www.intergastro-service.de (mein erstes CMS :) )
  - GUIfreund
    
    2012-07-01 15:58
    User since
    2011-08-08
    559 Artikel
    BenutzerIn
    
    2012-06-28T21:54:59 pktm
    Ah ok. Aber dann braucht man eine lexikalische Variable pro lokalisiertem Text. Ein Hash wäre mir natürlich lieber
    
    Mir ist nicht ganz klar, wie dieser Hash aussehen sollte. Meintest du die deutschen Texte als Keys? Dann könntest du die Elemente deines deutschen Arrays als Textvariable benutzen. Ich hatte eher an eine Variable pro lokalisiertem Widget gedacht. Wird wohl am Ende ziemlich auf dasselbe herauslaufen. Ich hab's mal auf Hash erweitert, sieht jetzt so aus:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
    
    ........ my $lang = 'de'; # default-Sprache my %widgetinfo; my @allwidgets; ........ my $mybutton; my $btntxt = $map->{$lang}->{btn_click_me}; $mybutton = $mw->Button( -textvariable => \$btntxt, )->pack(); $widgetinfo{$mybutton} = [\$btntxt, 'btn_click_me']; push @allwidgets, $mybutton; ........ sub update_window { foreach my $mybutton (@allwidgets) { my ($txtvar_ref, $txtname) = @{$widgetinfo{$mybutton}}; $$txtvar_ref = $map->{$lang}->{$txtname}; } } # /update_window
    
    Den anonymen Array habe ich nur eingeführt, um die Verwendung von cget() in sub update_window zu vermeiden.
    Gruß
    GUIfreund

DrMaex

2012-06-27 20:28

User since
2012-06-26
4 Artikel
BenutzerIn
[default_avatar]

Ähm ja stimmt natürlich, "Textvariable" ist einfacher als "configure", werde es jetzt so machen und im Callback einfach die Variable aktualisieren.

Code (perl): (dl )

use strict;
use warnings;
use Tk;

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

#menubar
my $menubar             = $mw->Menu(-relief => 'flat');
$mw->configure(-menu => $menubar);
my @menulanguages       =("sprache","language");
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 $buttonlabel         = $buttonlanguages[$lang];
my $mybutton            = $mw->Button(-textvariable=>\$buttonlabel)->pack();

Tk::MainLoop();


sub update_mw
{
        $menu_lang->configure(-label => "$menulanguages[$lang]");
        $buttonlabel    = $buttonlanguages[$lang];
}

danke fürs "mit der Nase stupsen" :)

GUIfreund

2012-06-28 17:48

User since
2011-08-08
559 Artikel
BenutzerIn

Ein anderer Ansatz wäre, die Sprachauswahl nur beim Start zuzulassen. Dann könnte man die Texte aus einer sprachspezifischen Datei einlesen (bei nur wenigen Texten ev. aus einem sprachspezifischen Modul) und dann erst die GUI erzeugen, gleich mit der richtigen Sprache. Ich weiß nicht, ob es für die Verwaltung der Sprachdateien fertige Perlmodule gibt.
Gruß
GUIfreund

View all threads created 2012-06-26 19:03.