Win32::GUI, Tk und Tray - #106439 (Graphische Oberflächen)

theresa

2008-02-27 22:01

User since
2007-07-17
90 Artikel
BenutzerIn
[default_avatar]

Hallo,
habe folgendes Problem. Brauche dass mein Fenster sich in Tray minimieren lässt. Dafür habe ich einige Beispiele im Internet gefunden, in denen immer ein Mainwindow von win32 nötig ist. Also z.B.

Code: (dl )

my $main = Win32::GUI::Window->new(
        -name => 'Main',
        -text => 'Perl',
        -width => 200,
        -height => 200
    );

Und danach der Kode für den Tray, was auch funktioniert...

For a long time...
machte ich eine etwas umfangreiche GUI, die auf einem ganz normalen mainwindow von tk basiert.

Jetzt will ich dass dieses Fenster sich in Tray minimieren lässt. Der Kode, den ich gefunden hab,

Code: (dl )

  my $icon = new Win32::GUI::Icon("c:\\vpntest\\hawLittle.ico");
    my $ni = $main->AddNotifyIcon(
        -name => "NI",
        -icon => $icon,
        -tip => "Hello"
    );

läuft nur mit einem win32 Fenster. Kann mir jemand sagen, wie es am Einfachsten ist, mein altes Fenster, so unverändert wie möglich, ins Tray zu kriegen... danke.