[REBOL] Newbie stuck again...
From: kpeters::mvinc::net at: 9-Oct-2003 21:52
Hi list ~
first of all thanks to everyone who helped last time. As you can see below, I have been
tinkering there with one of the three snippets offered and while the original snippey
worked, it does not work in my context - it starts printing messages after I quit...
Any ideas?
Thanks again,
Kai
REBOL []
do-scan?: no
; --------------------------------------------------------------------------------
do_services: does [
do-scan?: yes
print "performing services"
]
; --------------------------------------------------------------------------------
do_cancel: does [
do-scan?: no
print "services canceled"
]
; --------------------------------------------------------------------------------
main_window: layout [
toggle_start: toggle 60 "Start" "Stop" mint #"^s"
[
face/color: pick reduce [ sienna mint ] face/data
show face
do-scan?: pick reduce [ no yes ] face/data
]
]
; --------------------------------------------------------------------------------
main_window/feel: make main_window/feel [
detect: func[face event] [
if event/type = 'close [ do-scan?: no quit ]
event
]
]
; --------------------------------------------------------------------------------
unview/all
view center-face main_window
forever [
wait 5
either do-scan? [ do_services ] [ do_cancel ]
]