Hi Anton
So are you saying replace the entire engage function with this one?
Terry
----- Original Message -----
From: "Anton" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, May 09, 2001 9:51 PM
Subject: [REBOL] Re(2): IRSee.r now with ENCRYPTED white board. - monster
hack
> 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.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
