Opened by Gast at 2007-11-23 12:08
User since
2007-06-09
575 Artikel
HausmeisterIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2007-06-09
575 Artikel
HausmeisterIn
bei mir funktioniert folgendes script:
zwar baut sich der minimierte button für's fenster immer neu auf, aber das prinzip funktioniert.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!usr/perl/bin
use strict;
use warnings;
use Tk;
use Tk::Photo;
my $mw = MainWindow-> new ();
my $icon = "icon1.bmp";
$mw-> iconimage($mw-> Photo (-file => $icon));
$mw-> repeat (1000, sub {if ($icon eq "icon2.bmp"){$icon = "icon1.bmp";}else{$icon = "icon2.bmp";} $mw-> Icon (-image => $mw-> Photo (-file => $icon));});
$mw-> iconify;
MainLoop ();
zwar baut sich der minimierte button für's fenster immer neu auf, aber das prinzip funktioniert.
Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind