/*

  $VER: IconGad Demo V1.00 - By Fabio Rotondo (fsoft@intercom.it)

  This source is Public Domain

  Part of EasyPLUGINs distribution.

*/

MODULE 'EasyPLUGINs/IconGad', 
       'tools/EasyGUI', 'tools/exceptions'

PROC main() HANDLE
  DEF ig=NIL:PTR TO icongad_plugin

  NEW ig.init('ram:disk')

  easyguiA('Test',
            [ROWS,
              [SBUTTON, 1, 'test'],
              [SPACEV],
              [COLS,
                [SPACEH],
                [PLUGIN, {ignore}, ig],
                [SPACEH]
              ]
            ]
          )
EXCEPT DO
  report_exception()
  END ig
ENDPROC

PROC ignore() IS EMPTY