home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / EasyGUI / testchange.e < prev    next >
Text File  |  1997-02-11  |  872b  |  33 lines
  1. -> testchange.e - show use of changegui() and BUTTON data field
  2. MODULE 'tools/easygui'
  3.  
  4. DEF gui:PTR TO LONG, titles:PTR TO LONG
  5.  
  6. PROC main()
  7.   DEF top
  8.   top:=[COLS,
  9.          [SPACEH],
  10.          -> Use generic action function, with BUTTON data 0, 1 or 2.
  11.          [BUTTON,{change},'GUI _A',0,"a"],
  12.          [SPACEH],
  13.          [BUTTON,{change},'GUI _B',1,"b"],
  14.          [SPACEH],
  15.          [BUTTON,{change},'GUI _C',2,"c"],
  16.          [SPACEH]
  17.        ]
  18.   titles:=['GUI A','GUI B','GUI C']
  19.   gui:=[
  20.          [ROWS,top,[SPACE],[SLIDE,{ignore},'Colors:',FALSE,1,8,3,5,'']],
  21.          [ROWS,top,[SPACE],[CHECK,{ignore},'Ignore case',TRUE,FALSE]],
  22.          [ROWS,top,[SPACE],[PALETTE,{ignore},'Palette:',3,5,2,0]]
  23.        ]
  24.   easyguiA('Change Test', gui[])
  25. ENDPROC
  26.  
  27. PROC ignore(info,x) IS EMPTY
  28.  
  29. PROC change(index,gh)
  30.   changegui(gh,gui[index])
  31.   changetitle(gh,titles[index])
  32. ENDPROC
  33.