Well, its all fixed now :) Amazing how you miss the small things sometimes
:)
Here is the method I implemented:
box with [block-engage: false] feel [
engage: func [f a e][
if not f/block-engage [
f/block-engage: true
if a = 'down [f/effect: [gradient 1x0 150.150.150
128.255.128] show f wait 0]
if a = 'up [f/effect: [gradient 1x0 150.150.150
196.196.196] show f wait 0]
f/block-engage: false
]
]
]
For a link to the now working code go here:
www.mustard.co.nz/rebol/fixed-main.r
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
