[Tk::DynaTabFrame] Binding auf Widget aus Modul (gelöst) (Graphische Oberflächen)

[thread]17197[/thread]

[Tk::DynaTabFrame] Binding auf Widget aus Modul [gelöst]

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 13

Articles: hide open all | hide show old branches

+9 replies
Kean

2012-02-27 09:22

User since
2004-08-18
463 Artikel
BenutzerIn

Ich nutze in einer Anwendung das Modul Tk::DynaTabFrame, welches Frames und Buttons erzeugt um eine Alternative zu Tk-Notebook zu realisieren.

Gibt es eine Möglichkeit diesen durch das Modul erzeugten Buttons ein Binding für einen Rechtsklick zuzuweisen?

Oder muss dies im Modul selbst realisiert werden?
- +7 replies
- GUIfreund
  
  2012-02-27 12:25
  
  User since
  2011-08-08
  559 Artikel
  BenutzerIn
  
  2012-02-27T08:22:58 Kean
  Ich nutze in einer Anwendung das Modul Tk::DynaTabFrame, welches Frames und Buttons erzeugt um eine Alternative zu Tk-Notebook zu realisieren.
  
  Gibt es eine Möglichkeit diesen durch das Modul erzeugten Buttons ein Binding für einen Rechtsklick zuzuweisen?
  
  Mal schnell aus der Doku kopiert:
  Quote
  Additional cget() -options
  [.............]
  -tabs
  Returns a hashref of the tab Button widgets, keyed by the associated caption.
  
  Da kannst du die Referenz zu deinem Button herausfischen, um die Bindung zuzuweisen. (Nicht getestet).
  Gruß
  GUIfreund
  - +6 replies
  - Kean
    
    2012-02-27 14:37
    User since
    2004-08-18
    463 Artikel
    BenutzerIn
    
    Danke für den Tipp. Ich hab das mal gestestet und es werden nicht die Buttons sondern der ganze Frame in dem sich der Button befindet zurück gegeben.
    
    Ich habe das ganze so gelöst:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12
    
    my $tabs = $dtf->cget(-tabs); while (my ($name, $hash) = each %$tabs) { my @objekte = $hash->children; foreach (@objekte) { if ($_->class eq 'Button') { $_->bind('<ButtonRelease-3>', sub{ ... }); } } }
    - +5 replies
    - GUIfreund
      
      2012-02-27 16:30
      
      User since
      2011-08-08
      559 Artikel
      BenutzerIn
      
      So ähnlich hätte ich es auch gemacht. Nur hätte ich erst mit grep die Buttons herausgefiltert (gibt weniger Verschachtelungen).
      
      Falls Tk::DynaTabFrame in Perl geschrieben ist, könntest du mal im Kode nachsehen, ob den Buttons mit Advertise Namen gegeben wurden. Wenn ja, solltest du (nach meinem Verständnis) mit dem im Abschnitt "Mega-Widget Instance Variables" von "Mastering Perl/Tk" gezeigten Trick direkt auf die Buttons zugreifen können.
      Gruß
      GUIfreund
      - +4 replies
      - pq
        
        2012-02-27 16:34
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        2012-02-27T15:30:58 GUIfreund
        So ähnlich hätte ich es auch gemacht. Nur hätte ich erst mit grep die Buttons herausgefiltert (gibt weniger Verschachtelungen).
        
        hm, aber ein zusätzliches grep ist eigentlich unnötig. ich löse sowas gerne mit next:
        
        Code (perl): (dl )
        
        1 2
        
        next unless $_->class eq 'Button'; # weiter
        
        so kann man auch verschachtelungen vermeiden.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        GUIfreund
        
        2012-02-27 18:42
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-02-27T15:34:44 pq
        2012-02-27T15:30:58 GUIfreund
        So ähnlich hätte ich es auch gemacht. Nur hätte ich erst mit grep die Buttons herausgefiltert (gibt weniger Verschachtelungen).
        
        hm, aber ein zusätzliches grep ist eigentlich unnötig. ich löse sowas gerne mit next:
        
        Code (perl): (dl )
        
        1 2
        
        next unless $_->class eq 'Button'; # weiter
        
        so kann man auch verschachtelungen vermeiden.
        
        TIMTOWTDI.
        Gruß
        GUIfreund
        
        +2 replies
        
        pq
        
        2012-02-27 18:44
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        jo, aber ein grep wäre mir hier auch einfach unnöte ressourcenverschwendung =)
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        GUIfreund
        
        2012-02-28 16:24
        
        User since
        2011-08-08
        559 Artikel
        BenutzerIn
        
        2012-02-27T17:44:35 pq
        jo, aber ein grep wäre mir hier auch einfach unnöte ressourcenverschwendung =)
        
        Wenn das next if direkt am Anfang der Loop stände, nehme ich lieber grep. Das empfinde ich als klarer. Ich glaube schon, dass grep recht effizient implementiert ist. Im Core ist es sowieso.
        Gruß
        GUIfreund
- pq
  
  2012-02-29 18:52
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  Verschoben von Fragen zu Perl-Modulen nach Graphische Oberflächen
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-02-27 09:22.