Tk: Widgets löschen (Graphische Oberflächen)

[thread]15788[/thread]

Tk: Widgets löschen

Tags: Tk Similar Threads

Readers: 18

Articles: hide open all | hide show old branches

+5 replies
Kean

2011-01-03 11:42

User since
2004-08-18
464 articles
BenutzerIn

Ich habe einen Frame in welchem ich verschiedene Label und Photo Widgets habe. Gibt es eine Möglichkeit diese Widgets alle auf einmal zu löschen?

Bisher mache ich dies einzeln mit Destroy, habe aber nun den Fall, dass für verschiedene Fälle eine unterschiedliche Anzahl Widgets benötigt wird. Deshalb müsste ich alle auf einmal löschen.

Wenn das löschen aller Widgets nicht geht, gibt es vielleicht eine Möglichkeit alle Widgets abzufragen, in ein Array zu schreiben und dann mit einer foreach Schleife zu löschen?

//modedit GwenDragon: Titel ergänzt
Last edited: 2011-01-03 12:43:30 +0100 (CET)
- +4 replies
- lichtkind
  
  2011-01-03 11:44
  
  User since
  2004-03-22
  5717 articles
  ModeratorIn + EditorIn
  
  Sprichst von Tk, Wx oder welchem Toolkit?
  
  aber davon unabhängig, da in perl der array aus normalen skalaren besteht, spricht nichts dagegen etwas das man in einem skalar speichern kann in einer listenzelle zu speichern.
  mein zeug:
  
  Es beginnt immer mit einer Entscheidung.
  - +3 replies
  - Kean
    
    2011-01-03 12:22
    
    User since
    2004-08-18
    464 articles
    BenutzerIn
    
    Oh sorry ich spreche von Tk.
    Und ich glaube ich habe bereits eine Lösung gefunden.
    
    Mit $widget->children; sollte man ein Array mit Referenzen zu den Widgets bekommen. Bin gerade am testen :-)
    - +2 replies
    - Kean
      
      2011-01-04 11:26
      
      User since
      2004-08-18
      464 articles
      BenutzerIn
      
      So ich habe nun die Lösung. Das ganze sieht wie folgt aus:
      
      Code (perl): (dl )
      
      1 2 3 4
      
      foreach ($widget->children) { $_->destroy(); }
      - lichtkind
        
        2011-01-04 16:53
        
        User since
        2004-03-22
        5717 articles
        ModeratorIn + EditorIn
        
        oder auch:
        
        Code (perl): (dl )
        
        $_->destroy() for @{$widget->children};
        
        :)
        mein zeug:
        
        Es beginnt immer mit einer Entscheidung.

View all threads created 2011-01-03 11:42.