home *** CD-ROM | disk | FTP | other *** search
/ Megahits 4 / MegaHits_Vol.4.iso / mui / dev / gui / gencodee_14.lha / GenCodeE / V1.4 / E / click / Click.e < prev    next >
Encoding:
Text File  |  1994-04-23  |  1.3 KB  |  49 lines
  1. OPT OSVERSION=37
  2.  
  3.     /* EPP modules */
  4. PMODULE 'Click_defs', 'Click_procs'
  5.  
  6.     /* Error handling */
  7. ENUM NO_LIBRARY, MUI_APPLICATION_FAILURE
  8. RAISE   NO_LIBRARY              IF OpenLibrary()=NIL,
  9.         MUI_APPLICATION_FAILURE IF Mui_NewObjectA()=NIL
  10.  
  11.     /* Global variables */
  12. DEF click : PTR TO obj_app
  13.  
  14.     /* Main procedure */
  15. PROC main() HANDLE
  16.  
  17.     DEF signal, result_DoMethod, running = TRUE
  18.  
  19.     muimasterbase := OpenLibrary('muimaster.library', 0)
  20.     click := create_app()
  21.  
  22.     /* Notify : close gadget => end of application */
  23.     doMethod( click.wi_try, [ MUIM_Notify, MUIA_Window_CloseRequest, MUI_TRUE, click.app,
  24.                             2, MUIM_Application_ReturnID, MUIV_Application_ReturnID_Quit ] )
  25.  
  26.     /* Open the window */
  27.     set( click.wi_try, MUIA_Window_Open , MUI_TRUE )
  28.  
  29.     WHILE running
  30.         result_DoMethod := doMethod( click.app, [ MUIM_Application_Input, {signal} ] )
  31.         SELECT result_DoMethod
  32.             CASE MUIV_Application_ReturnID_Quit
  33.                 running := FALSE
  34.         ENDSELECT
  35.         IF (running AND signal) THEN Wait( signal )
  36.     ENDWHILE
  37.  
  38.     dispose_app( click )
  39.     CloseLibrary( muimasterbase )
  40.  
  41. EXCEPT
  42.     SELECT exception
  43.         CASE NO_LIBRARY
  44.         CASE MUI_APPLICATION_FAILURE
  45.     ENDSELECT
  46.  
  47.     IF muimasterbase THEN CloseLibrary(muimasterbase)
  48. ENDPROC
  49.