Terry,
> Err... You've lost me... and I'm wide awake 8).
> Terry
The monster hack actually works, it's just that
I wanted to find a way to patch existing code
in a couple of lines rather than copying so much
into the script. We only need to add one line
of code to the engage function.
I got a bit stumped on it this morning... :)
Anton.
> > And this monster of a hack is what I end up with:
> >
> > do-it?: no
> > view layout [
> > button "L" 16x16 [print "hello" do-it?: yes]
> > rate 1 feel [
> > redraw: func [face act pos /local state][
> > face/edge/effect: pick [ibevel bevel] face/state
> > if face/texts [face/text: face/texts/1]
> > all [face/state face/texts face/text: any [face/texts/2
> > face/texts/1]]
> > state: either not face/state [face/blinker] [true]
> > if face/colors [face/color: pick face/colors not state]
> > if face/effects [face/effect: pick face/effects not state]
> > ]
> > detect: none
> > over: func [face action event][
> > if all [face/font face/font/colors] [
> > face/font/color: pick face/font/colors not action
> > show face
> > face/font/color: first face/font/colors
> > ]
> > ]
> > engage: func [face action event][
> > switch action [
> > time [
> > print if do-it? ["show"] ; <-- this is our addition
> > if not face/state [face/blinker: not face/blinker]
> > ]
> > down [face/state: on]
> > alt-down [face/state: on]
> > up [if face/state [do-face face none] face/state: off]
> > alt-up [if face/state [do-face-alt face none]
> face/state:
> > off]
> > over [face/state: on]
> > away [face/state: off]
> > ]
> > cue face action
> > show face
> > ]
> > cue: none
> > blink: none
> > ]
> > ]
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
