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

[REBOL] Building a GUI Forms Designer

From: james::mustard::co::nz at: 28-Oct-2001 2:49

Hi there, currently I am in the process of building a GUI Forms Designer and all is progressing nicely with the exception of a few objects that either don't create properly with make-face, or once created refuse to respond to feel/engage events. Below is a portion of the code which activates depending on the object the user wishes to create: make-this: func ['obj] [ append work-form/pane v: make-face obj v/offset: 200x200 ;current generic spawn point if none? v/color [v/color: white] v/feel: make v/feel [ engage: func [face action event][ if action = 'down [ start: event/offset remove find face/parent-face/pane face append face/parent-face/pane face ] if find [over away] action [ face/offset: face/offset + event/offset - start show face ]]] show v show work-form ] Calling format is: make-this <object type> This creates an object with origin 200x200 in the current work-form (a subface of the main window pane) and enables drag and z-order events for the object. Objects that create properly and are fully interactive: Field, Area, Button, Image, Choice, Toggle, Check, Radio, Box, Progress, Slider, Arrow, LED Creates, but no engage events: Text-List. Doesn't create with make-face: Label, Text, Anim, Icon, List, Rotary, List, Panel Not tested: all other objects. Any suggections for working with the text-list events and suggestions on more detailed help on make-face would be appreciated :)