ORIGIN '../guienv'; LIB_DEF 'guienvutilsdialogfld' '../../lib'; BODY 'private/dialogfieldbody'; INCLUDE '../figureitems'; INCLUDE '../fields'; -- WindowLib: Attributes -- DialogField: EditText (# Selection: (# start,end: @Integer; enter (# enter (start,end) do ... #) exit (# do ... exit (start,end) #) #); Length: (# theLength: @Integer; do ...; exit theLength #); MaxChar: (# maxCh: @Integer; enter (# enter maxCh do ...#) exit (# do ... exit maxCh #) #); EventHandler::<(# beforeChange: event (# position,length: @integer; allow:@boolean; enter (position,length) do true -> allow; INNER; exit allow #); onBeforeChange:< beforeChange (# do ...; #); onKeyDown::< (# do ...; #); onEnableTarget::< (# do ...; #); #); Open::< (# do ... #); <<SLOT DialogFieldLib: Attributes>>; Private: @...; #); NumberField: DialogField (# IntegerContents: (# int: @Integer; enter (# enter int do ... #) exit (# do ... exit int #) #); EventHandler::< (# onBeforeChange::< (# do ...; #); #); #); AlphaNumField: DialogField (# EventHandler::< (# onBeforeChange::< (# do ...; #); #); #); LabeledCanvas: Canvas (# Label: @StaticText(# #); Sep: @Separator(# #); Open::< (# do ... #); <<SLOT LabeledCanvasLib: Attributes>>; #)
21.9 Dialogfield Interface | © 1994-2004 Mjølner Informatics |
[Modified: Thursday February 22nd 2001 at 16:33]
|