21.9 Dialogfield Interface

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>>;
  #)