Tk: Programm im Programm - #151637 (Graphische Oberflächen)

Kean

2011-08-17 15:16

User since
2004-08-18
463 Artikel
BenutzerIn

user image

Da ich was Module angeht noch ziemlich grün hinter den Ohren bin würde mir ein Beispielcode für das Modul (gerade was die Übergabe des MainWindow angeht) viel weiter helfen.

Ich habe das so gelöst bei meinem letzten Versuch:
Datei Fotocut.pm

Code (perl): (dl )

package Fotocut;

use strict;
use warnings;
use Tk;
use Tk::Canvas;
use Image::Magick;
use Win32::FileOp;
use Win32::GUI();
use Win32::Capture;
use MIME::Base64;
use Tk::Balloon;
use Tk::JPEG;
use Tk::PNG;

my ($mw, $canvas);

sub new
{
$mw = MainWindow->new();
...
MainLoop;
}

sub SelectFile
{
...
}

1;