[ALLY] Hacked
From: tbrownell::yahoo::com at: 19-Apr-2001 1:45
I hacked together a simple gauge... but with obvious coding, um, shortcomings :)
Trying to figure out how to load the images from the index.r file?
the url is http://216.232.249.87/view/index.r
Images finally make it to the folder, but the window is REALLY TOO LONG??
Anyway, here it is.. (don't laugh too hard) PS Would be nice to rotate a graphic incrementally
... oh well, maybe one day.
TBrownell
REBOL [title: "LFReD - Gauge"]
view layout [
backdrop white
load-thru http://216.232.249.87/view/images/1.gif
load-thru http://216.232.249.87/view/images/2.gif
load-thru http://216.232.249.87/view/images/3.gif
load-thru http://216.232.249.87/view/images/4.gif
load-thru http://216.232.249.87/view/images/5.gif
load-thru http://216.232.249.87/view/images/6.gif
load-thru http://216.232.249.87/view/images/7.gif
load-thru http://216.232.249.87/view/images/8.gif
load-thru http://216.232.249.87/view/images/0.gif
load-thru http://216.232.249.87/view/images/dial.gif
at 0x0
b: image %images/1.gif effect [key 255.255.255]
at 0x0
c: image %images/2.gif effect [key 255.255.255]
at 0x0
d: image %images/3.gif effect [key 255.255.255]
at 0x0
e: image %images/4.gif effect [key 255.255.255]
at 0x0
f: image %images/5.gif effect [key 255.255.255]
at 0x0
g: image %images/6.gif effect [key 255.255.255]
at 0x0
h: image %images/7.gif effect [key 255.255.255]
at 0x0
i: image %images/8.gif effect [key 255.255.255]
at 0x0
a: image %images/0.gif effect [key 255.255.255]
at 0x0
x: image %images/dial.gif effect [key 255.255.255]
across
button 30x30 "0" [hide [b c d e f g h i] show a] return
button 30x30 "1" [hide [a c d e f g h i] show b]
button 30x30 "2" [hide [b a d e f g h i] show c]
button 30x30 "3" [hide [b c a e f g h i] show d]
button 30x30 "4" [hide [b c d a f g h i] show e] return
button 30x30 "5" [hide [b c d e a g h i] show f]
button 30x30 "6" [hide [b c d e f a h i] show g]
button 30x30 "7" [hide [b c d e f g a i] show h]
button 30x30 "8" [hide [b c d e f g h a] show i]
]