Tk Fenster per update vergrössern? Effekt (Graphische Oberflächen)

[thread]14740[/thread]

Tk Fenster per update vergrössern? Effekt

Leser: 21

Articles: hide open all | hide show old branches

+6 replies
Gast Andy

2010-02-28 03:22
Guten Tag.
Ich habe eine Frage bzl. der Fenstergröße in Tk.

Ich würde gerne einen "Öffnungs" Effekt realisieren, glaube aber das dies nicht funktionieren wird :( .

Meine Idee:
Ich erstelle ein Fenster mit den Beispielmaßen 400x100.
Danach kommt ein sehr kleiner sleep und die Fenstermaße werden erhöht.
Dies könnte dann in einer Schleife ausgeführt werden, bis die gewünschte Größe erreicht ist.

So hatte ich es ersteinmal versucht.
Code (perl): (dl )

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

#!/usr/bin/perl use strict; use Tk; $|++; my $mw = MainWindow->new(-title=>'Tk Test'); $mw->configure(-width=>400, -height=>100); sleep(1); $mw->configure(-width=>800, -height=>100); MainLoop;
Doch wie schon vermutet funktioniert es nicht.
Hoffnung ist auch kaum vorhanden, da ich denke das es am MainLoop liegt.
Dann muss ich halt drauf verzichten :(

Aber vielleicht kann man ja das Fenster anzeigen lassen, per destroy auflösen, neues fenster erstellen usw. ...

Liebe Grüße Andy
- Kalle
  
  2010-02-28 08:03
  User since
  2007-03-18
  48 Artikel
  BenutzerIn
  Guten Morgen Andy,
  
  ein
  
  Code (perl): (dl )
  
  $mw->update;
  
  zwischen configure und sleep sollte das Problem beheben.
  
  Gruß
  
  Kalle
- +4 replies
- #Kein Kommentar
  
  2010-02-28 14:07
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  @kalle: mit der update-funktion funktioniert es bei mir auch nicht.
  man sollte lieber ein after oder eine repeat-funktion benutzen:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
  
  #!/usr/bin/perl use strict; use Tk; my $height = 100; my $width = 400; my $mw = MainWindow->new(-title=>'Tk Test'); $mw->configure(-width=>$width, -height=>$height); $mw->repeat(50, sub{ $width += 5; $height += 5; $mw->configure(-width=>$width, -height=>$height); }); MainLoop;
  
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - Gast Andy
    
    2010-02-28 14:29
    
    Vielen Dank, genau sowas meinte ich .
    
    lg
  - +2 replies
  - Kalle
    
    2010-02-28 18:23
    User since
    2007-03-18
    48 Artikel
    BenutzerIn
    
    hmm geht nicht ? Aber dafür ist update doch da.
    Bei mir geht das. Vielleicht magst du folgendes Beispiel nochmal probieren ?
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
    
    #!/usr/bin/perl use strict; use warnings; use Tk; my $mw = MainWindow->new(-title=>'Tk Test'); for (my $w=0;$w<=800;$w=$w+8) { $mw->configure(-width=>$w, -height=>$w/4); $mw->update; #$mw->DoOneEvent; #$mw->idletasks; } MainLoop;
    
    Mit repeat würd ich in diesem Fall nicht arbeiten. Zumindest nicht, solange das Programm nicht gleichzeitig auch noch andere Sachen erledigen muss.
    So ein repeat hat schon seine Vorteile, da hast du recht, aber genau dort würde ich dann $widget->update aufrufen oder mit DoOneEvent oder idletasks der MainLoop etwas Gelegenheit verschaffen die widgets upzudaten, wenn Perl ansonsten mit langwierigen anderen subs die GUI blockieren würde.
    - #Kein Kommentar
      
      2010-02-28 18:59
      
      User since
      2007-06-09
      575 Artikel
      HausmeisterIn
      
      da hast du recht, bei der lösung mit repeat könnte das fenster beim öffnen stocken oder durch einen anderen codeblock unterbrochen werden.
      
      dein beispiel funktioniert bei mir jetzt auch.
      Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

View all threads created 2010-02-28 03:22.