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

[REBOL] RebGUI enhancement request - active labels

From: btiffin:rogers at: 19-Mar-2007 12:58

Hi, The apps I've been writing use RebGUI 0.4.0. A major design philosophy I use is labelled fields. Clicking on the label pops up a requestor (usually using text-list filled from (sometimes large) databases) that fills in the field with selected choice. The use can click the label for a popup or enter data directly in the field. I needed the visual cue that the label is 'hot' so I modified label to this (perhaps inefficient, perhaps broken)... label: make text [ font: make default-font [style: 'bold] feel: make default-feel [ engage: func [face action event] [ switch action [ down [face/feel/over face false 0x0 face/action face] away [face/feel/over face false 0x0] ] ] over: func [face act pos] [ if (get in face 'action) [ either act [face/font/color: gold show face] [face/font/color: black show face] ] ] ] ] If there is an action block with the label, change to gold on a hover. This is a mod of old widget code from 0.4.0 Is it possible to get this feature built into the 'real' RebGUI? If a label has a click action, to highlight it some how? Thanks in advance, and I'm more than willing to hear a short response of "No". By the way, the last %tour.r I pulled out of svn doesn't segfault on Debian/GNU Linux - etch RC1 anymore. btiffin