home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / EasyGUI / gradient_test.e < prev    next >
Text File  |  1997-02-10  |  921b  |  41 lines
  1. MODULE 'tools/EasyGUI', 'tools/exceptions',
  2.        'plugins/gradient'
  3.  
  4. DEF disabled=FALSE, pens1, pens2
  5.  
  6. PROC main() HANDLE
  7.   DEF g=NIL:PTR TO gradient
  8.   pens1:=[2,0,1,-1]:INT
  9.   pens2:=[1,0,2,-1]:INT
  10.   NEW g.gradient(FALSE,$4444,6,pens1)
  11.   easyguiA('BOOPSI in EasyGUI!',
  12.     [ROWS,
  13.       [TEXT,'GradientSlider test...',NIL,TRUE,15],
  14.       [PLUGIN,{gradaction},g],
  15.       [COLS,
  16.         [BUTTON,{reset},'Reset',g],
  17.         [BUTTON,{swap_pens},'Swap Pens',g],
  18.         [BUTTON,{toggle_enabled},'Toggle Enabled',g]
  19.       ]
  20.     ])
  21. EXCEPT DO
  22.   report_exception()
  23. ENDPROC
  24.  
  25. PROC gradaction(i,g:PTR TO gradient)
  26.   WriteF('gradient value = \z$\h[4]\n', g.curval)
  27. ENDPROC
  28.  
  29. PROC reset(g:PTR TO gradient,i)
  30.   g.setcurval($4444)
  31.   g.setpens(pens1)
  32. ENDPROC
  33.  
  34. PROC swap_pens(g:PTR TO gradient,i)
  35.   g.setpens(IF g.pens=pens1 THEN pens2 ELSE pens1)
  36. ENDPROC
  37.  
  38. PROC toggle_enabled(g:PTR TO gradient,i)
  39.   g.setdisabled(g.disabled=FALSE)
  40. ENDPROC
  41.