[REBOL] Re: Aplication crashes - not sure why
From: james:mustard at: 14-Apr-2002 23:09
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