home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 107
/
af107sub.adf
/
gui4cli.LZX
/
Gui4Cli
/
Tools
/
Icon.gc
< prev
next >
Wrap
Text File
|
2003-12-15
|
533b
|
34 lines
G4C - Shows given icon
WinBig -1 -1 200 100 IconView
WinType 01000001
WinBackground SOLID 3 0
BOX 0 0 0 0 out button
xOnLoad icon
guiopen icon.gc $icon
xOnReload icon
delay 20
extract icon file name
setwintitle icon.gc '$name '
ChangeIcon icon.gc 1 -1 -1 \"$icon\"
xOnOpen icon
extract icon file name
setwintitle icon.gc '$name '
ChangeIcon icon.gc 1 -1 -1 \"$icon\"
xOnClose
guiquit icon.gc
xOnRMB
guiquit icon.gc
xOnInactive
guiquit icon.gc
xIcon 10 10 "guis:gui4cli"
GadID 1