31 lines
1018 B
Plaintext
Executable File
31 lines
1018 B
Plaintext
Executable File
#!yab
|
|
|
|
window open 100,100 to 600,600, "Main", "IconWorld"
|
|
|
|
systempath$ = "/boot/system/apps/Mail"
|
|
|
|
draw text 70,30, "bitmap get \"BMP_icon\", \"path\", \"" + systempath$ +"\"", "Main"
|
|
bitmap get "BMP_icon", "path", systempath$
|
|
draw bitmap 10, 10, "BMP_icon", "alpha", "Main"
|
|
bitmap remove "BMP_icon"
|
|
|
|
draw text 70,70, "bitmap get \"BMP_icon\", \"mime16\", \"application/x-vnd.Be-MAIL\"", "Main"
|
|
bitmap get "BMP_icon", "mime16", "application/x-vnd.Be-MAIL"
|
|
draw bitmap 10, 60, "BMP_icon", "alpha", "Main"
|
|
bitmap remove "BMP_icon"
|
|
|
|
draw text 70,110, "bitmap get \"BMP_icon\", \"mime32\", \"application/x-vnd.Be-MAIL\"", "Main"
|
|
bitmap get "BMP_icon", "mime32", "application/x-vnd.Be-MAIL"
|
|
draw bitmap 10, 90, "BMP_icon", "alpha", "Main"
|
|
bitmap remove "BMP_icon"
|
|
|
|
draw text 70,150, "bitmap get 32, \"BMP_icon\", \"" + systempath$ + "\"", "Main"
|
|
bitmap get 32, "BMP_icon", systempath$
|
|
draw bitmap 10, 130, "BMP_icon", "alpha", "Main"
|
|
bitmap remove "BMP_icon"
|
|
|
|
while(not instr(message$, "Quit"))
|
|
wend
|
|
|
|
window close "Main"
|