home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easygui / testchange_os12.e < prev    next >
Encoding:
Text File  |  2000-06-05  |  1.0 KB  |  45 lines
  1. -> testchange.e - show use of changegui() and BUTTON data field
  2.  
  3. OPT PREPROCESS
  4.  
  5. -> RST: Added conditional EASY_OS12 support
  6. #define EASY_OS12
  7.  
  8. #ifdef EASY_OS12
  9.   MODULE 'tools/easygui_os12'
  10. #endif
  11. #ifndef EASY_OS12
  12.   OPT OSVERSION=37
  13.   MODULE 'tools/easygui'
  14. #endif
  15.  
  16. DEF gui:PTR TO LONG, titles:PTR TO LONG
  17.  
  18. PROC main()
  19.   DEF top
  20.   top:=[COLS,
  21.          [SPACEH],
  22.          -> Use generic action function, with BUTTON data 0, 1 or 2.
  23.          [BUTTON,{change},'GUI _A',0,"a"],
  24.          [SPACEH],
  25.          [BUTTON,{change},'GUI _B',1,"b"],
  26.          [SPACEH],
  27.          [BUTTON,{change},'GUI _C',2,"c"],
  28.          [SPACEH]
  29.        ]
  30.   titles:=['GUI A','GUI B','GUI C']
  31.   gui:=[
  32.          [ROWS,top,[SPACE],[SLIDE,{ignore},'Colors:',FALSE,1,8,3,5,'']],
  33.          [ROWS,top,[SPACE],[CHECK,{ignore},'Ignore case',TRUE,FALSE]],
  34.          [ROWS,top,[SPACE],[PALETTE,{ignore},'Palette:',3,5,2,0]]
  35.        ]
  36.   easyguiA('Change Test', gui[])
  37. ENDPROC
  38.  
  39. PROC ignore(info,x) IS EMPTY
  40.  
  41. PROC change(index,gh)
  42.   changegui(gh,gui[index])
  43.   changetitle(gh,titles[index])
  44. ENDPROC
  45.