[Tk] -textvariable an subroutine binden (solved) (Graphische Oberflächen)

[thread]20334[/thread]

[Tk] -textvariable an subroutine binden [solved]

Tags: perl5 GUI Tk Similar Threads

Readers: 13

Articles: hide open all | hide show old branches

+17 replies
styx-cc

2017-07-25 12:08
User since
2006-05-20
532 articles
BenutzerIn
Hallo Community!
Folgender Code:
Code (perl): (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

#!/usr/bin/perl -w use strict; use Tk; my $counter = 0; my $test = new Test(); my $mw = tkinit(); my $button1 = $mw->Button(-textvariable => \$counter)->pack(); my $button2 = $mw->Button(-textvariable => \$test->{'counter'} )->pack(); $mw->repeat(100 => sub { fetch_data($test) }); MainLoop; sub fetch_data { my $obj = shift; $counter++; $obj->counter( $obj->counter()+1 ); } package Test; sub new { bless {counter => 0}, shift; } sub counter { $_[1] ? $_[0]->{'counter'} = $_[1] : $_[0]->{'counter'}; } 1;
Funktioniert wie gedacht - beide Buttons zählen synchron hoch.
Jetzt habe ich allerdings Objekte mit vielen verschiedenen Werten und möchte vermeiden, via "-textvariable => \$test->{'counter'}" direkt auf die Instanzvariablen zuzugreifen, lieber würde ich getter und setter verwenden, z.B. "-textvariable => \$test->counter()" (2. Button bleibt bei 0 stehen).

Mir fällt aber keine Möglichkeit ein.
Habt Ihr eine Idee?

Lieben gruß
Pörl.
- +15 replies
- rosti
  
  2017-07-25 12:43
  
  User since
  2011-03-19
  2764 articles
  BenutzerIn
  
  Mach Deine Buttons zu Instanzen Deiner eigenen Klasse und aggregiere die Button-Instanz als Eigenschaft: http://rolfrost.de/aggregation.html
  
  Damit sind die auch voneinander entkoppelt.
  - +14 replies
  - styx-cc
    
    2017-07-25 13:09
    
    User since
    2006-05-20
    532 articles
    BenutzerIn
    
    Beim besten Willen, ich kann aus Deiner Antwort und Deinem Link keinen Code für meinen Anwendungsfall abstrahieren.
    
    Wie mache ich die Tk-Buttons zu Instanzen meiner Klasse?
    Und wie aggregiere ich anschließend diese Instanzen als Eigenschaften (von was?) und warum?
    
    Lieben Gruß
    Pörl.
    - +13 replies
    - rosti
      
      2017-07-25 13:26
      
      User since
      2011-03-19
      2764 articles
      BenutzerIn
      
      Dann erzähle doch mal ein bischn mehr über Deine
      Quote
      Objekte mit vielen verschiedenen Werten
      das sind Instanzen welcher Klasse?
      - +12 replies
      - styx-cc
        
        2017-07-25 13:37
        
        User since
        2006-05-20
        532 articles
        BenutzerIn
        
        Der Klasse "Test".
        In obigem Code geht es um das Datum "$test->{'counter'}".
        Ich möchte dieses Datum nicht direkt via Instanzvariable manipulieren, sondern über seine getter/setter.
        Das Problem dabei, -textvariable erwartet eine Referenz auf ein SCALAR.
        Pörl.
        
        +11 replies
        
        rosti
        
        2017-07-25 13:50
        
        User since
        2011-03-19
        2764 articles
        BenutzerIn
        
        Dann lass doch die getter-Methode eine Referenz zurückgeben und gut isses. Oder Du erzeugst die Referenz nach der Rückgabe. Oder der getter gibt beides, also eine Referenz und den Wert selbst zurück.
        
        MfG
        
        +10 replies
        
        styx-cc
        
        2017-07-25 14:08
        
        User since
        2006-05-20
        532 articles
        BenutzerIn
        
        Kannst du mir das bitte anhand von 2-3 Zeilen Codeveränderung verdeutlichen?
        Folgendes habe ich probiert und es funktioniert nicht (der zweite Button bekommt den HexWert der scalaren Referenz als Deziamlzahl zugewiesen und zählt nicht hoch):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
        
        #!/usr/bin/perl -w use strict; use Tk; my $counter = 0; my $test = new Test(); my $mw = tkinit(); print $test->counter(); my $button1 = $mw->Button(-textvariable => \$counter)->pack(); my $button2 = $mw->Button(-textvariable => $test->counter() )->pack(); $mw->repeat(100 => sub { fetch_data($test) }); MainLoop; sub fetch_data { my $obj = shift; $counter++; $obj->counter( $obj->counter()+1 ); } package Test; sub new { bless {counter => 0}, shift; } sub counter { $_[1] ? $_[0]->{'counter'} = $_[1] : \$_[0]->{'counter'}; } 1;
        
        Vielen Dank!
        Pörl.
        
        +9 replies
        
        rosti
        
        2017-07-25 15:40
        
        User since
        2011-03-19
        2764 articles
        BenutzerIn
        
        Hallo,
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11
        
        # instanz erstellen my $m = bless{counter => 99}; # gibt referenz zurück sub counter{ my $self = shift; \$self->{counter}; } # dereferenzieren print ${$m->counter};
        
        MfG
        
        +8 replies
        
        styx-cc
        
        2017-07-25 15:44
        
        User since
        2006-05-20
        532 articles
        BenutzerIn
        
        Dein Code tut was mein Code tut und das klappt bezogen auf meinen Anwendungsfall nicht (s.o.).
        
        Gruß
        Pörl.
        
        +7 replies
        
        rosti
        
        2017-07-25 15:51
        
        User since
        2011-03-19
        2764 articles
        BenutzerIn
        
        Also was ist denn jetzt Dein Problem? Die Referenzierung wars dann wohl doch nicht? Deine Sub counter ist übrigens absolut unleserlich, ein
        
        Code (perl): (dl )
        
        1 2 3
        
        sub counter{ my $self = shift; }
        
        ist das Mindeste was da stehen sollte. Bitte sei so gut und beschreibe mit verständlichen Worten was die Methode counter machen soll. MfG
        
        PS: Was machen tkinit() und repeat() bei Dir? In meiner Tk Doku kann ich das nicht finden.
        Last edited: 2017-07-25 16:22:38 +0200 (CEST)
        
        +6 replies
        
        styx-cc
        
        2017-07-25 16:59
        
        User since
        2006-05-20
        532 articles
        BenutzerIn
        
        counter = getter/setter in einem, realisiert via ternärem Operator.
        Das ist so leserlich, wie es in etwa von u.a. Randal L. Schwartz in Einführung in Perl-Objekte, Referenzen & Module empfohlen wird - shiften kostet Resourcen.
        
        Dann wechsel mal die Tk-Doku :-)
        http://www.perltk.de/tk_widgets/timer.html - repeat()
        tktinit() eine Abkürzung für MainWindow->new();
        Pörl.
        
        +3 replies
        
        rosti
        
        2017-07-25 17:20
        
        User since
        2011-03-19
        2764 articles
        BenutzerIn
        
        Mit Leserlichkeit meinte ich nicht den ternären Operator sondern die Extraction der Instanz mit shift.
        
        Deine Callbackfunktion bekommt ja auch die Instanz übergeben und siehe da, da verwendest Du shift. Genauso wie Du shift in Deiner Callbackfunktion verwendest, verwende shift bitte auch in allen anderen Methoden Deiner Klasse. Üblich ist auch der extrahierten Instanz den Namen $self zu geben.
        
        Und noch ein Tipp: Vermeide globale Variablen. Entweder deklariere $counter mit state innerhalb der Callbackfunktion oder nutze die Eigenschaft {counter} Deiner Instanz. Letzeres ist empfohlen, also weg mit $counter.
        
        +2 replies
        
        styx-cc
        
        2017-07-25 17:31
        
        User since
        2006-05-20
        532 articles
        BenutzerIn
        
        Hast du was zur Problemstellung beizutragen oder nicht?
        Pörl.
        
        rosti
        
        2017-07-25 17:40
        
        User since
        2011-03-19
        2764 articles
        BenutzerIn
        
        2017-07-25T15:31:36 styx-cc
        Hast du was zur Problemstellung beizutragen oder nicht?
        
        So rotzfrech ist mir hier noch keiner gekommen! Unverschämtheit!
        
        Es ist meine Zeit die ich für Dich opfere! Dich so dann zu äußern ist echt übel, wie wärs denn mit danke, darüber solltest Du mal nachdenken!
        Last edited: 2017-07-27 11:58:46 +0200 (CEST)
        
        +2 replies
        
        Linuxer
        
        2017-07-25 17:45
        
        User since
        2006-01-27
        3803 articles
        HausmeisterIn
        
        Der Einsatz des ternären Operators an dieser Stelle ist schon etwas krude.
        
        Allgemein heisst es; bitte kein $foo == 3 ? $bar = x : $bar = y;.
        Das sollte besser als $bar = $foo == 3 ? x : y; geschrieben werden.
        
        Und hier bei Deinem Code ist es ja noch verworrener:
        
        $_[1] ? $_[0]->{'counter'} = $_[1] : \$_[0]->{'counter'};
        
        Wenn das zweite Argument WAHR ist, dann wird der Wert als Counter übernommen und der neue Wert zurück gegeben; Wenn der Wert nicht wahr ist, dann wird eine Referenz auf den alten Wert zurück gegeben.... Ja, wie jetzt? Solchen Misch-Masch würde ich vermeiden.
        
        Code-Optimierungen schön und gut, aber es sollte lesbar und verständlich bleiben. Auch nach 3 Monaten Abstinenz von diesem Code.
        
        Ich würde den Setter anders schreiben und zwar so (basierend auf Deinem Code):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
        
        #!/usr/bin/perl use strict; use warnings; use Tk; package Test; sub new { my $class = shift; my $self = { counter => 0, }; bless $self, ref($class)||$class; return $self; } sub add_to_counter { my ( $self, $value, ) = @_; $self->{counter} += $value if $value; return \$self->{counter}; } package main; my $counter = 0; my $test = Test->new(); my $mw = tkinit(); my $button1 = $mw->Button(-textvariable => \$counter)->pack(); my $button2 = $mw->Button(-textvariable => $test->add_to_counter() )->pack(); $mw->repeat(100 => sub { fetch_data($test) }); MainLoop; sub fetch_data { my $obj = shift; $counter++; $obj->add_to_counter( 1 ); } 1;
        
        Und das tolle daran, man braucht auch keinen ternären Operator ;-)
        
        Im produktiven Code würde ich wahrscheinlich sogar eine eigene Methode implementieren, die nur die Referenz zurückliefert und diese bei -textvariable => $object->get_ref() verwenden und die Referenz komplett aus dem Setter entfernen.
        
        Und weil's nur eine kleine Modifikation ist:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57
        
        #!/usr/bin/perl use strict; use warnings; use Tk; package Test; sub new { my $class = shift; my $self = { counter => 0, }; bless $self, ref($class)||$class; return $self; } sub get_counter_ref { my ( $self, ) = @_; return \$self->{counter}; } sub add_to_counter { my ( $self, $value, ) = @_; $self->{counter} += $value if $value; return $self->{counter}; } package main; my $counter = 0; my $test = Test->new(); my $mw = tkinit(); my $button1 = $mw->Button(-textvariable => \$counter)->pack(); my $button2 = $mw->Button(-textvariable => $test->get_counter_ref() )->pack(); $mw->repeat(100 => sub { fetch_data($test) }); MainLoop; sub fetch_data { my $obj = shift; $counter++; $obj->add_to_counter( 1 ); } 1;
        
        Last edited: 2017-07-25 17:48:46 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        styx-cc
        
        2017-07-25 17:58
        
        User since
        2006-05-20
        532 articles
        BenutzerIn
        
        Super gut, vielen, vielen Dank - klappt auf Anhieb.
        
        Ich hatte den tenären Operator (fand den cool ;-) zwischenzeitlich auch ausgebaut und verschiedene Varianten ausprobiert - aber manchmal ist einfach der Wurm drin.
        
        Ich suche jetzt meinen Fehler noch mal mit funktionierendem Beispiel.
        Pörl.
- styx-cc
  
  2017-07-25 17:39
  
  User since
  2006-05-20
  532 articles
  BenutzerIn
  
  Vllt. mag sich ja jmd. ein paar Minuten ans Bein binden.
  
  Hier wird das so ähnlich gehandhabt (nach __END__):
  sub labelPack
  und
  sub labelVariable
  
  https://github.com/eserte/perl-tk/blob/4ad55edc5be...
  
  Ich verstehe nur nicht, warum er meine Referenzen nicht annimmt, wenn sie aus einer Funktion kommen...
  
  Gruß
  Pörl.

View all threads created 2017-07-25 12:08.