Thread [Tk] -textvariable an subroutine binden (16 answers)
Opened by styx-cc at 2017-07-25 12:08

styx-cc
 2017-07-25 14:08
#187019 #187019
User since
2006-05-20
532 articles
BenutzerIn

user image
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.

View full thread [Tk] -textvariable an subroutine binden