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

[REBOL] Re: [VID][edge] How do I remove 'bevel from edge?

From: g:santilli:tiscalinet:it at: 13-Feb-2004 10:29

Hi Ashley, On Friday, February 13, 2004, 7:17:06 AM, you wrote: AT> even though "edge/effect" is set to 'none. So the question is, how can I AT> set edge/effect to 'none? Look at the REDRAW feel: redraw: func [face act pos /local state][ if all [face/texts face/texts/2] [ face/text: either face/state [face/texts/2] [face/texts/1] ] either face/images [ face/image: either face/state [face/images/2] [face/images/1] if all [face/colors face/effect find face/effect 'colorize] [ change next find face/effect 'colorize pick face/colors not face/state ] ] [ if face/edge [face/edge/effect: pick [ibevel bevel] face/state] 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] ] ] The line: if face/edge [face/edge/effect: pick [ibevel bevel] face/state] is the culprit. Regards, Gabriele. -- Gabriele Santilli <[g--santilli--tiscalinet--it]> -- REBOL Programmer Amiga Group Italia sez. L'Aquila --- SOON: