home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 106 / EnigmaAmiga106CD.iso / www / afc / afc-dir / stringnode_examples.lha / Examples / EasyGUI_Example.e < prev    next >
Text File  |  1997-09-09  |  835b  |  41 lines
  1. /*
  2. ** StringNode Example-6
  3. **
  4. ** A more complex example using ListView AND EasyGUI!
  5. **
  6. ** add(), addr(), methods.
  7. **
  8. ** (C)Copyright 1995 Fabio Rotondo
  9. **
  10. ** e-mail: fosft@intercom.it
  11. */
  12. OPT OSVERSION = 37
  13. OPT LARGE
  14.  
  15. MODULE 'afc/StringNode',   -> Our MAGIC MODULE
  16.        'afc/explain_exception',
  17.        'tools/easygui'
  18.  
  19.  
  20. PROC main()  HANDLE
  21.   DEF n:PTR TO stringnode      -> This is our OBJECT instance
  22.  
  23.   NEW n.stringnode()           -> OBJECT initialization
  24.  
  25.   n.add('Zorro')              -> Here we add some items...
  26.   n.add('Batman')
  27.   n.add('Superman')
  28.   n.add('Gold Drake')
  29.   n.add('Mandrake')
  30.   n.add('MOMMY')
  31.  
  32.   easyguiA('StringNode Demo!',
  33.     [LISTV, 1, 'Items:', 5,5, n.addr(), TRUE, 0, 0])   -> the addr() method!
  34.  
  35. EXCEPT DO
  36.   explain_exception()
  37.   END n                       -> Remember ALWAYS TO end an OBJECT
  38. ENDPROC
  39.  
  40.  
  41.