Thread Tk: Canvas übergeben (2 answers)
Opened by Kean at 2011-05-20 19:47

Kean
 2011-05-20 19:47
#148942 #148942
User since
2004-08-18
463 Artikel
BenutzerIn

user image
Ich habe ein Perl/Tk Script in welchem in einer Subroutine ein Canvas erzeigt wird. Danach wird eine neue Subroutine gestartet, welche auch das Canvas nutzen soll.
Wie kann ich das anstellen?

Ich habe schon versucht das Canvas zu übergeben, leider erfolglos.

Hier ein kleines Quick and Dirty Beispiel:

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

use strict;
use Tk-Canvas;

my $mw = MainWindow->new();

start();

MainLoop;

sub start
{
my $canvas = $mw->canvas()->pack();

write($canvas);
}

sub write
{
my $canvas = $_[0];

$canvas->createText(...);
}


Das Script funktioniert natürlich nicht und soll nur kurz zeigen was ich mir vorstelle. So wie ich in dem Beispiel das Canvas übergebe funktioniert es leider nicht.

modedit Editiert von GwenDragon: Titel um GUI erweitert
Last edited: 2011-05-20 20:02:50 +0200 (CEST)

View full thread Tk: Canvas übergeben