home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / CA.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  1.3 KB  |  50 lines
  1. /* Coloradjust example */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  7.     if AddLibrary("rexxsupport.library","rxmui.library")~=0 then exit
  8.  
  9. call createApp
  10. call handleApp
  11.  
  12. /***********************************************************************/
  13. HandleApp: procedure
  14.     ctrl_c=2**12
  15.     do forever
  16.         call NewHandle("app","h",ctrl_c)
  17.         if and(h.signals,ctrl_c)>0 then exit
  18.         select
  19.             when h.event="QUIT" then exit
  20.             otherwise interpret h.event
  21.         end
  22.     end
  23.     /* never reached */
  24. /***********************************************************************/
  25. createApp: procedure
  26.     app.Title="Coloradjust"
  27.     app.Version="$VER: Coloradjust 1.1 (25.1.2002)"
  28.     app.Copyright="©2002, alfie"
  29.     app.Author="alfie"
  30.     app.Description="Coloradjust example"
  31.     app.Base="RXMUIEXAMPLE"
  32.     app.SubWindow="WIN"
  33.      win.ID="cadj"
  34.      win.Title="Coloradjust Example"
  35.      win.Contents="MGROUP"
  36.       mgroup.0="ca"
  37.        ca.class="coloradjust"
  38.  
  39.     if NewObj("APPLICATION","APP")>0 then exit
  40.  
  41.     call Notify("WIN","CLOSEREQUEST",1,"APP","RETURNID","QUIT")
  42.     call set("win","open",1)
  43.  
  44.     return
  45. /***********************************************************************/
  46. halt:
  47. break_c:
  48.     exit
  49. /**************************************************************************/
  50.