Label grösse aktualisieren (Graphische Oberflächen)

master

2005-10-05 13:16

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Mein Label hat eine Grösse von 10x10.. Nach einem Klick soll es vergrössert werden... aber nix passiert!

Code: (dl )

1
2

    $Label20->configure(-height => 200, -width=>200);
    $Label20->update;

Kann mir ev. jemand weiterhelfen?\n\n

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

renee

2005-10-05 14:17

User since
2003-08-04
14371 Artikel
ModeratorIn

Du hast wahrscheinlich kein packPropagate(0) verwendet ?!?

So klappt es:

Code: (dl )

use Tk;

my $mw = tkinit;
my $label = $mw->Label(-text => 'Ok', 
       -relief => 'sunken', 
       -width => 30, 
       -height => 30)->pack();
$mw->Button(-text => 'resize', -command => [\&res,$label])->pack();
$label->packPropagate(0);

MainLoop;

sub res{
  my ($label) = @_;
  $label->configure(-height => 40, -width => 40);
}

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/

master

2005-10-05 15:14

User since
2003-10-20
610 Artikel
BenutzerIn
[default_avatar]

Code: (dl )

$Label1->place( -height => 21, -width => 141);

Ist die Lösung... *freu*\n\n

$i='re5tsFam ^l\rep';$i=~s/[^a-z| ]//g;$\= reverse "\U!$i";print;

renee

2005-10-05 15:42

User since
2003-08-04
14371 Artikel
ModeratorIn

Aber dran denken: Verschiedene Geometrie-Manager nicht mischen... Oder sehr genau wissen was man tut...

OTRS-Erweiterungen (http://feature-addons.de/)
Frankfurt Perlmongers (http://frankfurt.pm/)
--

Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
Perl-Entwicklung: http://perl-services.de/