tk: Feste Breite für Frames, in denen Buttons sind (Graphische Oberflächen)

[thread]4845[/thread]

tk: Feste Breite für Frames, in denen Buttons sind

Leser: 3

mättu

2004-12-27 16:08

User since
2004-12-12
30 Artikel
BenutzerIn
[default_avatar]

Hallo Freunde

Mein nuestes tk-Problem: Ich brauche etwa 4-5 kleine Fenster nebeneinander
(wahrscheinlich frames), in denen je 2 kleine buttons stecken.
Der eine Button soll das Fensterchen grösser machen, der andere kleiner, aber sie werden immer auf die Grösse der Buttons angepasst.
Habe paar Std. verbraten mit lesen der perl::tk-Manpages und dem tk-Buch. Wahrscheinlich ist es wieder mal ganz einfach und ich habs nicht gefunden..
Könnt ihr mir helfen?
Hier mein Code, der immer nur "Mini-Fenster" macht..

Code: (dl )

#!/usr/bin/perl
use Tk;
my $mw = MainWindow->new;
$frame=$mw->Frame()->pack;
foreach $i (0..4)
    {
      $kleiner[$i]=$frame->Frame(-width=>"5", -borderwidth => 5, -relief => ridge)->pack(-side=>left);
      $knopf1= $kleiner[$i]->Button(-text =>1, -command => [\&breite_anpassen, 1, $i])->pack(-side=>left);
      $knopf1= $kleiner[$i]->Button(-text =>2, -command => [\&breite_anpassen, 0, $i])->pack(-side=>left);
}

MainLoop;

sub breite_anpassen
{
  my ($a, $j) = @_;
  if ($a ==1)
  {
    $kleiner[$j]->configure(-width => 20);
  }
  else
  {
    $kleiner[$j]->configure(-width => 5);
  }
}