home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / Help.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  2.8 KB  |  91 lines
  1. /* Help example */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. call init
  7. call createApp
  8. call handleApp
  9.  
  10. /***********************************************************************/
  11. init: procedure
  12.     l="rmh.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  13.     if AddLibrary("rxmui.library")~=0 then exit
  14.     call ProgDir()
  15.     return
  16. /***********************************************************************/
  17. handleApp: procedure
  18.     ctrl_c=2**12
  19.     do forever
  20.         call newhandle("APP","H",ctrl_c)
  21.         if and(h.signals,ctrl_c)>0 then exit
  22.         select
  23.             when h.event="QUIT" then exit
  24.             otherwise interpret h.event
  25.         end
  26.     end
  27. /***********************************************************************/
  28. createApp: procedure
  29.  
  30.     app.Title="LitteExample"
  31.     app.Version="$VER: LitteExample 1.2 (27.6.2002)"
  32.     app.Copyright="© 2002 by alfie"
  33.     app.Author="alfie"
  34.     app.Description="Just a little example"
  35.     app.Base="EXAMPLE"
  36.     app.HelpFile="PROGDIR:Help.guide"
  37.  
  38.     app.MenuStrip="strip"
  39.      strip.Class="Menustrip"
  40.       strip.0="mproject"
  41.        mproject.Title="Project"
  42.        mproject.Class="Menu"
  43.         mproject.0=MenuItem("mabout","?\About...")
  44.         mproject.1=MenuItem("maboutrxmui","X\About RxMUI...")
  45.         mproject.2=MenuItem("maboutmui","!\About MUI...")
  46.         mproject.3=MenuItem("","BAR")
  47.         mproject.4=MenuItem("mhide","H\Hide")
  48.         mproject.5=MenuItem("","BAR")
  49.         mproject.6=MenuItem("mquit","Q\Quit")
  50.  
  51.     app.SubWindow="win"
  52.      win.ID="MAIN"
  53.      win.Title="A LitteExample"
  54.      win.HelpNode="Window"
  55.      win.Contents="mgroup"
  56.  
  57.       mgroup.0="g"
  58.        g.Frame="group"
  59.        g.Class="group"
  60.        g.Columns=2
  61.        g.HelpNode="Group"
  62.         g.0=label("_Name","double")
  63.         name.CycleChain=1; name.HelpNode="Name"; g.1=String("name","n")
  64.         g.2=label("_Surname","double")
  65.         surname.CycleChain=1; surname.HelpNode="Surname"; g.3=String("surname","s")
  66.  
  67.        but.HelpNode="button";
  68.       mgroup.1=Button("but","_Help")
  69.  
  70.     call NewObj("Application","app")
  71.  
  72.     call Notify("win","CloseRequest",1,"app","ReturnID","quit")
  73.  
  74.     call Notify("mabout","MenuTrigger","Everytime","app","About","win")
  75.     call Notify("maboutrxmui","MenuTrigger","Everytime","app","AboutRxMUI","win")
  76.     call Notify("maboutmui","MenuTrigger","Everytime","app","AboutMUI","win")
  77.     call Notify("mhide","MenuTrigger","Everytime","app","Set","Iconified",1)
  78.     call Notify("mquit","MenuTrigger","Everytime","app","ReturnID","quit")
  79.  
  80.     call Notify("app","MenuHelp","Everytime","app","ShowHelp",,,"Menus")
  81.     call Notify("but","Pressed",0,"app","ShowHelp",,"Help1.guide","Button")
  82.  
  83.     call set("win","Open",1)
  84.  
  85.     return
  86. /***********************************************************************/
  87. halt:
  88. break_c:
  89.     exit
  90. /**************************************************************************/
  91.