home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / e / EasyGUI_v33b2.lha / Src / EasyGUI / password_test.e < prev    next >
Text File  |  1997-02-10  |  862b  |  42 lines
  1. MODULE 'tools/exceptions',
  2.        'tools/easygui',
  3.        'plugins/password'
  4.  
  5. DEF default
  6.  
  7. PROC main() HANDLE
  8.   DEF p=NIL:PTR TO password, s[20]:STRING
  9.   default:='My Password!'
  10.   StrCopy(s,default)
  11.   NEW p.password(s,'Password:',TRUE,10)
  12.   easyguiA('GadTools in EasyGUI!',
  13.     [ROWS,
  14.       [TEXT,'Password test...',NIL,TRUE,1],
  15.       [PLUGIN,{passaction},p,TRUE],
  16.       [COLS,
  17.         [BUTTON,{show},'Show',p],
  18.         [BUTTON,{reset},'Reset',p],
  19.         [BUTTON,{toggle_enabled},'Toggle Enabled',p]
  20.       ]
  21.     ])
  22. EXCEPT DO
  23.   END p
  24.   report_exception()
  25. ENDPROC
  26.  
  27. PROC passaction(i,p:PTR TO password)
  28.   PrintF('Action: "\s"\n',p.estr)
  29. ENDPROC
  30.  
  31. PROC show(p:PTR TO password,i)
  32.   PrintF('Show: "\s"\n', p.estr)
  33. ENDPROC
  34.  
  35. PROC reset(p:PTR TO password,i)
  36.   p.setpass(default)
  37. ENDPROC
  38.  
  39. PROC toggle_enabled(p:PTR TO password,i)
  40.   p.setdisabled(p.disabled=FALSE)
  41. ENDPROC
  42.