Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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