Opened by Gast at 2006-06-10 00:08
[quote=renee,13.06.2006, 17:21]--icon ist nur zum Ändern des .exe-Icons, nicht für die Tk-Anwendung...
Ob es funktioniert kannst Du ja einfach ausprobieren...[/quote]
Es will irgendwie trodzdem nicht gehen,da habe ich einen eigenen erstellt:
Aber dieser will leider auch nicht wirklich so gehen,deswegen habe ich mich für Ihren Weg entschieden,nur ist er auch nicht gerade der einfachste,sorry.
-> Was muss ich denn eigentlich im Editor für einen Befehl eingeben,damit das mit dem mini Icon geht?
Auch die Seite hat mir einiges geholfen,dennoch glaube ich eher,dass Sie das besser erklären können.
Gruß Adlerr
Ob es funktioniert kannst Du ja einfach ausprobieren...[/quote]
Es will irgendwie trodzdem nicht gehen,da habe ich einen eigenen erstellt:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#########
# TEST #
#########
use strict;
use warnings;
use Tk;
my $mw = MainWindow->new(-background=> '#EFEFEF', -width=> '700', -height=> '500');
my $titel = $mw->title('CW Testprogramm');
my $txt = $mw->Label(-text=> 'Dieses Programm wurde von Daniel & Christopher entwickelt.',-background=> '#EFEFEF')->pack(-anchor=> 'se');
my $pixel = <<'END';
static char *test[]= {
"32 32 11 1",
". c #8F8F8F", #Dunkelgrau
"a c #00A0FF", #Hellblau
"b c #009F00", #Grün
"c c #FF0000", #Rot
"d c #000000", #Schwarz
"e c #FF7F00", #Orange
"# c None", #None
"#####################",
"#######ccccccccc####### ",
"#######ccccccccc####### ",
"#####ccccccccccccc##### ",
"####################### "};
End
my $bmp = $mw->Pixmap(-data=>$pixel);
my $ff = $mw->Icon(-image=> $bmp);
MainLoop();
Aber dieser will leider auch nicht wirklich so gehen,deswegen habe ich mich für Ihren Weg entschieden,nur ist er auch nicht gerade der einfachste,sorry.
-> Was muss ich denn eigentlich im Editor für einen Befehl eingeben,damit das mit dem mini Icon geht?
Auch die Seite hat mir einiges geholfen,dennoch glaube ich eher,dass Sie das besser erklären können.
Gruß Adlerr