integerObject.e

OPT MODULE, OSVERSION=37

  MODULE 'reaction/reaction_macros',
        'window','classes/window',
        'gadgets/layout','layout',
        'reaction/reaction_lib',
        'button','gadgets/button',
        'images/bevel',
        'string',
        'gadgets/integer','integer',
        'gadgets/chooser','chooser',
        'gadgets/checkbox','checkbox',
        'gadgets/slider',
        'images/label','label',
        'amigalib/boopsi',
        'libraries/gadtools',
        'intuition/intuition',
        'intuition/imageclass',
        'intuition/icclass',
        'intuition/gadgetclass'

  MODULE '*reactionObject','*reactionForm','*sourceGen','*validator','*stringlist'

EXPORT ENUM INTGAD_IDENT, INTGAD_NAME,INTGAD_HINT, INTGAD_MAXCHARS, INTGAD_VALUE,INTGAD_MINVISIBLE,
      INTGAD_MINIMUM, INTGAD_MAXIMUM,
      INTGAD_DISABLED, INTGAD_TABCYCLE, INTGAD_ARROWS, INTGAD_LINKTOSLIDER,
      INTGAD_OK, INTGAD_CHILD, INTGAD_CANCEL
      

CONST NUM_INT_GADS=INTGAD_CANCEL+1

EXPORT OBJECT integerObject OF reactionObject
  maxChars:CHAR
  value:LONG
  minVisible:INT
  minimum:LONG
  maximum:LONG
  disabled:CHAR
  tabCycle:CHAR
  arrows:CHAR
  linkToSlider:INT
ENDOBJECT

OBJECT integerSettingsForm OF reactionForm
PRIVATE
  integerObject:PTR TO integerObject
  labels1:PTR TO LONG

ENDOBJECT

PROC create() OF integerSettingsForm
  DEF gads:PTR TO LONG
  
  NEW gads[NUM_INT_GADS]
  self.gadgetList:=gads
  NEW gads[NUM_INT_GADS]
  self.gadgetActions:=gads
  
  self.windowObj:=WindowObject,
    WA_TITLE, 'Integer Attribute Setting',
    WA_LEFT, 0,
    WA_TOP, 0,
    WA_HEIGHT, 80,
    WA_WIDTH, 150,
    WA_MINWIDTH, 150,
    WA_MAXWIDTH, 8192,
    WA_MINHEIGHT, 80,
    WA_MAXHEIGHT, 8192,
    WA_ACTIVATE, TRUE,
    WINDOW_POSITION, WPOS_CENTERSCREEN,
    WA_PUBSCREEN, 0,
    ->WA_CustomScreen, gScreen,
    ->WINDOW_AppPort, gApp_port,
    WA_CLOSEGADGET, TRUE,
    WA_DEPTHGADGET, TRUE,
    WA_SIZEGADGET, TRUE,
    WA_DRAGBAR, TRUE,
    WA_NOCAREREFRESH, TRUE,
    WA_IDCMP,IDCMP_GADGETDOWN OR  IDCMP_GADGETUP OR  IDCMP_CLOSEWINDOW OR 0,

    WINDOW_PARENTGROUP, VLayoutObject,
    LAYOUT_SPACEOUTER, TRUE,
    LAYOUT_DEFERLAYOUT, TRUE,

      LAYOUT_ADDCHILD, LayoutObject,
        LAYOUT_ORIENTATION, LAYOUT_ORIENT_HORIZ,
        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_IDENT ]:=StringObject,
          GA_ID, INTGAD_IDENT,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          STRINGA_MAXCHARS, 80,
        StringEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'Identifier',
        LabelEnd,
        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_HINT ]:=ButtonObject,
          GA_ID, INTGAD_HINT,
          GA_TEXT, 'Hint',
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
        ButtonEnd,          
        
      LayoutEnd,

      LAYOUT_ADDCHILD, LayoutObject,
        LAYOUT_ORIENTATION, LAYOUT_ORIENT_HORIZ,

        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_NAME ]:=StringObject,
          GA_ID, INTGAD_NAME,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          STRINGA_MAXCHARS, 80,
        StringEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, '_Label',
        LabelEnd,
        
        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_MAXCHARS ]:=IntegerObject,
          GA_ID, INTGAD_MAXCHARS,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          INTEGER_MAXCHARS, 10,
          INTEGER_MINIMUM, 0,
          INTEGER_MAXIMUM, 99,
        IntegerEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'MaxCha_rs',
        LabelEnd,
      LayoutEnd,

      LAYOUT_ADDCHILD, LayoutObject,
        LAYOUT_ORIENTATION, LAYOUT_ORIENT_HORIZ,

        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_VALUE ]:=IntegerObject,
          GA_ID, INTGAD_VALUE,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          /*INTEGER_MAXCHARS, 2,
          INTEGER_MINIMUM, 0,
          INTEGER_MAXIMUM, 99,*/
        IntegerEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'Integer _Value',
        LabelEnd,
        
        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_MINVISIBLE ]:=IntegerObject,
          GA_ID, INTGAD_MINVISIBLE,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          INTEGER_MAXCHARS, 3,
          INTEGER_MINIMUM, 0,
          INTEGER_MAXIMUM,256,
        IntegerEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'MinVisible',
        LabelEnd,
      LayoutEnd,

      LAYOUT_ADDCHILD, LayoutObject,
        LAYOUT_ORIENTATION, LAYOUT_ORIENT_HORIZ,

        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_MINIMUM ]:=IntegerObject,
          GA_ID, INTGAD_MINIMUM,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          /*INTEGER_MAXCHARS, 4,
          INTEGER_MINIMUM, 0,
          INTEGER_MAXIMUM, 8192,*/
        IntegerEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'Minimum',
        LabelEnd,
        
        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_MAXIMUM ]:=IntegerObject,
          GA_ID, INTGAD_MAXIMUM,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          /*INTEGER_MAXCHARS, 4,
          INTEGER_MINIMUM, 0,
          INTEGER_MAXIMUM, 8192,*/
        IntegerEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'Maximuim',
        LabelEnd,
      LayoutEnd,

      LAYOUT_ADDCHILD, LayoutObject,
        LAYOUT_ORIENTATION, LAYOUT_ORIENT_HORIZ,
        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_DISABLED ]:=CheckBoxObject,
          GA_ID, INTGAD_DISABLED,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          GA_TEXT, '_Disabled',
          CHECKBOX_TEXTPLACE, PLACETEXT_LEFT,
        CheckBoxEnd,

        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_TABCYCLE ]:=CheckBoxObject,
          GA_ID, INTGAD_TABCYCLE,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          GA_TEXT, '_TabCycle',
          CHECKBOX_TEXTPLACE, PLACETEXT_LEFT,
        CheckBoxEnd,

        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_ARROWS ]:=CheckBoxObject,
          GA_ID, INTGAD_ARROWS,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          GA_TEXT, '_Arrows',
          CHECKBOX_TEXTPLACE, PLACETEXT_LEFT,
        CheckBoxEnd,

        LAYOUT_ADDCHILD, self.gadgetList[ INTGAD_LINKTOSLIDER ]:=ChooserObject,
          GA_ID, INTGAD_LINKTOSLIDER,
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
          CHOOSER_POPUP, TRUE,
          CHOOSER_MAXLABELS, 32,
          CHOOSER_ACTIVE, 0,
          CHOOSER_WIDTH, -1,          
          CHOOSER_LABELS, self.labels1,
        ChooserEnd,
        CHILD_LABEL, LabelObject,
          LABEL_TEXT, 'Link to slider',
        LabelEnd,
      LayoutEnd,

      LAYOUT_ADDCHILD, LayoutObject,
        LAYOUT_ORIENTATION, LAYOUT_ORIENT_HORIZ,
        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_OK ]:=ButtonObject,
          GA_ID, INTGAD_OK,
          GA_TEXT, '_OK',
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
        ButtonEnd,

        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_CHILD ]:=ButtonObject,
          GA_ID, INTGAD_CHILD,
          GA_TEXT, 'C_hild',
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
        ButtonEnd,

        LAYOUT_ADDCHILD,  self.gadgetList[ INTGAD_CANCEL ]:=ButtonObject,
          GA_ID, INTGAD_CANCEL,
          GA_TEXT, '_Cancel',
          GA_RELVERIFY, TRUE,
          GA_TABCYCLE, TRUE,
        ButtonEnd,
      LayoutEnd,
    LayoutEnd,
  WindowEnd

  self.gadgetActions[INTGAD_CHILD]:={editChildSettings}
  self.gadgetActions[INTGAD_HINT]:={editHint}  
  self.gadgetActions[INTGAD_CANCEL]:=MR_CANCEL
  self.gadgetActions[INTGAD_OK]:=MR_OK
ENDPROC

PROC editChildSettings(nself,gadget,id,code) OF integerSettingsForm
  self:=nself
  self.setBusy()
  self.integerObject.editChildSettings()
  self.clearBusy()
ENDPROC

PROC end() OF integerSettingsForm
  freeChooserLabels( self.labels1 )
  END self.gadgetList[NUM_INT_GADS]
  END self.gadgetActions[NUM_INT_GADS]
  DisposeObject(self.windowObj)
ENDPROC

EXPORT PROC canClose(modalRes) OF integerSettingsForm
  DEF res
  IF modalRes=MR_CANCEL THEN RETURN TRUE
  
  IF checkIdent(self,self.integerObject,INTGAD_IDENT)=FALSE
    RETURN FALSE
  ENDIF
ENDPROC TRUE

PROC editHint(nself,gadget,id,code) OF integerSettingsForm
  self:=nself
  self.setBusy()
  self.integerObject.editHint()
  self.clearBusy()
  self.updateHint(INTGAD_HINT, self.integerObject.hintText)
ENDPROC

PROC editSettings(comp:PTR TO integerObject) OF integerSettingsForm
  DEF res
  DEF slidergads2:PTR TO LONG
  DEF i,selslider
  DEF gad:PTR TO reactionObject
  DEF slidergads:PTR TO stdlist
    
  NEW slidergads.stdlist(10)
  comp.parent.findObjectsByType(slidergads,TYPE_SLIDER)
  
  slidergads2:=List(slidergads.count()+2)
  ListAddItem(slidergads2,'None')
  selslider:=0
  FOR i:=0 TO slidergads.count()-1
    gad:=slidergads.item(i)
    IF gad.id=comp.linkToSlider THEN selslider:=(i+1)
    ListAddItem(slidergads2,gad.ident)
  ENDFOR
  ListAddItem(slidergads2,0)
  freeChooserLabels(self.labels1)
  self.labels1:=chooserLabelsA(slidergads2)
  SetGadgetAttrsA(self.gadgetList[ INTGAD_LINKTOSLIDER ],0,0,[CHOOSER_LABELS,self.labels1,0]) 
  DisposeLink(slidergads2)
  
  self.integerObject:=comp

  self.updateHint(INTGAD_HINT, comp.hintText)
  SetGadgetAttrsA(self.gadgetList[ INTGAD_IDENT ],0,0,[STRINGA_TEXTVAL,comp.ident,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_NAME ],0,0,[STRINGA_TEXTVAL,comp.name,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_MAXCHARS ],0,0,[INTEGER_NUMBER,comp.maxChars,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_VALUE ],0,0,[INTEGER_NUMBER,comp.value,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_MINVISIBLE ],0,0,[INTEGER_NUMBER,comp.minVisible,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_MINIMUM ],0,0,[INTEGER_NUMBER,comp.minimum,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_MAXIMUM ],0,0,[INTEGER_NUMBER,comp.maximum,0])
  SetGadgetAttrsA(self.gadgetList[ INTGAD_DISABLED ],0,0,[CHECKBOX_CHECKED,comp.disabled,0]) 
  SetGadgetAttrsA(self.gadgetList[ INTGAD_TABCYCLE ],0,0,[CHECKBOX_CHECKED,comp.tabCycle,0]) 
  SetGadgetAttrsA(self.gadgetList[ INTGAD_ARROWS ],0,0,[CHECKBOX_CHECKED,comp.arrows,0]) 
  SetGadgetAttrsA(self.gadgetList[ INTGAD_LINKTOSLIDER ],0,0,[CHOOSER_SELECTED,selslider,0]) 

  res:=self.showModal()
  IF res=MR_OK
    AstrCopy(comp.ident,Gets(self.gadgetList[ INTGAD_IDENT ],STRINGA_TEXTVAL))
    AstrCopy(comp.name,Gets(self.gadgetList[ INTGAD_NAME ],STRINGA_TEXTVAL))
    comp.maxChars:=Gets(self.gadgetList[ INTGAD_MAXCHARS ],INTEGER_NUMBER)
    comp.value:=Gets(self.gadgetList[ INTGAD_VALUE ],INTEGER_NUMBER)
    comp.minVisible:=Gets(self.gadgetList[ INTGAD_MINVISIBLE ],INTEGER_NUMBER)
    comp.minimum:=Gets(self.gadgetList[ INTGAD_MINIMUM ],INTEGER_NUMBER)
    comp.maximum:=Gets(self.gadgetList[ INTGAD_MAXIMUM ],INTEGER_NUMBER)
    comp.disabled:=Gets(self.gadgetList[ INTGAD_DISABLED ],CHECKBOX_CHECKED)
    comp.tabCycle:=Gets(self.gadgetList[ INTGAD_TABCYCLE ],CHECKBOX_CHECKED)
    comp.arrows:=Gets(self.gadgetList[ INTGAD_ARROWS ],CHECKBOX_CHECKED)

    selslider:=Gets(self.gadgetList[ INTGAD_LINKTOSLIDER ],CHOOSER_SELECTED)

    comp.linkToSlider:=0
    FOR i:=0 TO slidergads.count()-1
      gad:=slidergads.item(i)
      selslider--
      IF selslider=0 THEN comp.linkToSlider:=gad.id
    ENDFOR
  ENDIF
  END slidergads
ENDPROC res=MR_OK

EXPORT PROC createPreviewObject(scr) OF integerObject
  self.previewObject:=IntegerObject,
      GA_ID, self.id,
      GA_RELVERIFY, TRUE,
      GA_TABCYCLE, self.tabCycle,
      GA_DISABLED, self.disabled,
      INTEGER_ARROWS, self.arrows,
      INTEGER_MAXCHARS, self.maxChars,
      INTEGER_NUMBER, self.value,
      INTEGER_MINIMUM, self.minimum,
      INTEGER_MAXIMUM, self.maximum,
    IntegerEnd
  IF self.previewObject=0 THEN self.previewObject:=self.createErrorObject(scr)

  self.makePreviewChildAttrs(self.name)
ENDPROC

EXPORT PROC updatePreviewObject() OF integerObject
  DEF map,maptarget:PTR TO reactionObject

  IF self.linkToSlider
    map:=[INTEGER_MINIMUM, SLIDER_MIN,
      INTEGER_MAXIMUM, SLIDER_MAX,
      INTEGER_NUMBER, SLIDER_LEVEL,
      TAG_DONE]
      maptarget:=self.parent.findReactionObject(self.linkToSlider)
  ELSE
    map:=0
    maptarget:=0
  ENDIF
  IF map THEN SetGadgetAttrsA(self.previewObject,0,0,[ICA_MAP,map,TAG_DONE])
  IF maptarget THEN SetGadgetAttrsA(self.previewObject,0,0,[ICA_TARGET,maptarget.previewObject,TAG_DONE])

ENDPROC

EXPORT PROC create(parent) OF integerObject
  self.type:=TYPE_INTEGER
  SUPER self.create(parent)
  self.maxChars:=10
  self.value:=0
  self.minVisible:=0
  self.minimum:=0
  self.maximum:=8192
  self.disabled:=0
  self.tabCycle:=TRUE
  self.arrows:=TRUE
  self.linkToSlider:=0

  self.libsused:=[TYPE_INTEGER,TYPE_LABEL]
ENDPROC

EXPORT PROC editSettings() OF integerObject
  DEF editForm:PTR TO integerSettingsForm
  DEF res
  
  NEW editForm.create()
  res:=editForm.editSettings(self)
  END editForm
ENDPROC res


#define makeProp(a,b) 'a',{self.a},b

EXPORT PROC serialiseData() OF integerObject IS
[
  makeProp(maxChars,FIELDTYPE_CHAR),
  makeProp(value,FIELDTYPE_LONG),
  makeProp(minVisible,FIELDTYPE_INT),
  makeProp(minimum,FIELDTYPE_LONG),
  makeProp(maximum,FIELDTYPE_LONG),
  makeProp(disabled,FIELDTYPE_CHAR),
  makeProp(tabCycle,FIELDTYPE_CHAR),
  makeProp(arrows,FIELDTYPE_CHAR),
  makeProp(linkToSlider,FIELDTYPE_INT)
]

EXPORT PROC getTypeName() OF integerObject
  RETURN 'Integer'
ENDPROC

EXPORT PROC genCodeProperties(srcGen:PTR TO srcGen) OF integerObject
  srcGen.componentProperty('GA_RelVerify','TRUE',FALSE)
  srcGen.componentProperty('GA_TabCycle',IF self.tabCycle THEN 'TRUE' ELSE 'FALSE',FALSE)
  IF self.disabled THEN srcGen.componentProperty('GA_Disabled','TRUE',FALSE)

  IF self.maxChars<>10 THEN srcGen.componentPropertyInt('INTEGER_MaxChars',self.maxChars)
  srcGen.componentPropertyInt('INTEGER_Minimum',self.minimum)
  srcGen.componentPropertyInt('INTEGER_Maximum',self.maximum)
  IF self.arrows=FALSE THEN srcGen.componentProperty('INTEGER_Arrows','FALSE',FALSE)
  IF self.minVisible<>0 THEN srcGen.componentPropertyInt('INTEGER_MinVisible',self.minVisible)
  IF self.value<>0 THEN srcGen.componentPropertyInt('INTEGER_Number',self.value)
ENDPROC

EXPORT PROC genCodeChildProperties(srcGen:PTR TO srcGen) OF integerObject
  srcGen.componentAddChildLabel(self.name)
  SUPER self.genCodeChildProperties(srcGen)
ENDPROC

EXPORT PROC genCodeMaps(header, srcGen:PTR TO srcGen) OF integerObject
  DEF maptarget
  IF self.linkToSlider
    maptarget:=self.parent.findReactionObject(self.linkToSlider)
  ELSE
    maptarget:=0
  ENDIF
  IF maptarget
    srcGen.setIcaMap(header, 'INTEGER_Minimum, SLIDER_Min, INTEGER_Maximum, SLIDER_Max, INTEGER_Number, SLIDER_Level',self,maptarget)
  ENDIF
ENDPROC

EXPORT PROC createIntegerObject(parent)
  DEF integer:PTR TO integerObject
  
  NEW integer.create(parent)
ENDPROC integer