Thread Tk - Klick auf Canvas erkennen (2 answers)
Opened by Thomas at 2011-07-11 18:52

Gast Thomas
 2011-07-11 18:52
#150302 #150302
Hallo,
ich erstelle in meinen Script eine Ansammlung von Kreisen wenn ich auf deinen Kreis klicke soll sich die Farbe des Kreises ändern.

Wie erkenne ich diesen Klick?
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $scale_faktor = 1.5;

my $window = MainWindow->new();


my $c1 = $window->Canvas(-width  => 958 * $scale_faktor,
                         -height => 150 * $scale_faktor,
                        )
                  ->pack();

...
my $oval = $c1->createOval($x1, $y1, $x2, $y2, -fill => 'gray');
...


danke
Last edited: 2011-07-11 19:12:32 +0200 (CEST)

View full thread Tk - Klick auf Canvas erkennen