Tk: Canvas übergeben (Graphische Oberflächen)

[thread]16330[/thread]

Tk: Canvas übergeben

Tags: perl5 GUI Tk Ähnliche Threads

Leser: 12

Articles: hide open all | hide show old branches

+3 replies
Kean

2011-05-20 19:47
User since
2004-08-18
463 Artikel
BenutzerIn
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)
- Kean
  
  2011-05-20 20:21
  
  User since
  2004-08-18
  463 Artikel
  BenutzerIn
  
  Ist es vielleicht möglich eine Referenz auf das Canvas an die subroutine zu übergeben?
- Dubu
  
  2011-05-20 23:57
  User since
  2003-08-04
  2145 Artikel
  ModeratorIn + EditorIn
  Dass es nicht funktioniert hat nichts mit der Parameterübergabe zu tun.
  
  Es fehlt use Tk;
  Es muss use Tk::Canvas heißen, nicht use Tk-Canvas;
  Es muss $mw->Canvas()->pack() heißen, nicht $mw->canvas()->pack();
  write() ist eine eingebaute Funktion von perl. Nimm besser einen anderen Namen.
  Die Parameter von createText fehlen. ;-)

View all threads created 2011-05-20 19:47.