home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 113 / EnigmaAmiga113CD.iso / software / sviluppo / easygui_os12 / examples / easygui / password_test_os12.e < prev    next >
Encoding:
Text File  |  2000-06-06  |  1.0 KB  |  53 lines
  1. OPT PREPROCESS
  2.  
  3. -> RST: Added conditional EASY_OS12 support
  4. #define EASY_OS12
  5.  
  6. #ifdef EASY_OS12
  7.   MODULE 'tools/easygui_os12', 'plugins/password_os12'
  8. #endif
  9. #ifndef EASY_OS12
  10.   OPT OSVERSION=37
  11.   MODULE 'tools/easygui', 'plugins/password'
  12. #endif
  13.  
  14. MODULE 'tools/exceptions'
  15.  
  16. DEF default
  17.  
  18. PROC main() HANDLE
  19.   DEF p=NIL:PTR TO password, s[20]:STRING
  20.   default:='My Password!'
  21.   StrCopy(s,default)
  22.   NEW p.password(s,'Password:',TRUE,10)
  23.   easyguiA('GadTools in EasyGUI!',
  24.     [ROWS,
  25.       [TEXT,'Password test...',NIL,TRUE,1],
  26.       [PLUGIN,{passaction},p,TRUE],
  27.       [COLS,
  28.         [BUTTON,{show},'Show',p],
  29.         [BUTTON,{reset},'Reset',p],
  30.         [BUTTON,{toggle_enabled},'Toggle Enabled',p]
  31.       ]
  32.     ])
  33. EXCEPT DO
  34.   END p
  35.   report_exception()
  36. ENDPROC
  37.  
  38. PROC passaction(i,p:PTR TO password)
  39.   WriteF('Action: "\s"\n',p.estr)
  40. ENDPROC
  41.  
  42. PROC show(p:PTR TO password,i)
  43.   WriteF('Show: "\s"\n', p.estr)
  44. ENDPROC
  45.  
  46. PROC reset(p:PTR TO password,i)
  47.   p.setpass(default)
  48. ENDPROC
  49.  
  50. PROC toggle_enabled(p:PTR TO password,i)
  51.   p.setdisabled(p.disabled=FALSE)
  52. ENDPROC
  53.