home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / RxMUI / Examples / Pages.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2004-01-31  |  4.0 KB  |  152 lines
  1. /* Register example */
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. call init
  7. call CreateApp
  8. call HandleApp
  9. /* never reached */
  10.  
  11.  
  12. init: procedure expose global.
  13.     l="rmh.library";if ~show("L",l) then;if ~AddLib(l,0,-30) then exit
  14.     if AddLibrary("rexxsupport.library","rxmui.library")~=0 then exit
  15.     return
  16.  
  17.  
  18. CreateApp: procedure expose global.
  19.     app.title="Pages"
  20.     app.version="$VER: Pages 1.1 (25.1.2002)"
  21.     app.copyright="Copyright 2002 by Alfie"
  22.     app.author="alfie"
  23.     app.description="Pages-Demo"
  24.     app.base="Pages"
  25.     app.SubWindow="mwin"
  26.  
  27.      mwin.ID="MAIN"
  28.      mwin.title="Character Definition"
  29.      mwin.contents="mgroup"
  30.  
  31.       call child("mgroup","g0","group")
  32.        g0.columns=2
  33.         g0.0=label("_Name:")
  34.         g0.1=string("name","n","Frodo")
  35.         g0.2=label("_Sex:")
  36.         g0.3="sex"
  37.          sex.class="cycle"
  38.          sex.ControlChar="s"
  39.          sex.entries="Male|Female"
  40.  
  41.       call child("mgroup",VSpace(2))
  42.  
  43.       call child("mgroup","reg","register")
  44.        reg.REGISTERFRAME=1
  45.        reg.titles="Race|Class|Armor|Level"
  46.  
  47.         call child("reg","graces","group")
  48.          graces.horiz=1
  49.          graces.spacing=0
  50.           graces.0=HSpace(0)
  51.           graces.1="races"
  52.            races.class="radio"
  53.            races.entries="Human|Elf|Dwarf|Hobbit|Gnome"
  54.           graces.2=HSpace(0)
  55.  
  56.         call child("reg","gclasses","group")
  57.          gclasses.horiz=1
  58.          gclasses.spacing=0
  59.           gclasses.0=HSpace(0)
  60.           gclasses.1="classes"
  61.            classes.class="radio"
  62.            classes.entries="Warrior|Rogue|Bard|Monk|Magician|Archmage"
  63.           gclasses.2=HSpace(0)
  64.  
  65.         call child("reg","g1","group")
  66.          g1.horiz=1
  67.           g1.0=HSpace(0)
  68.           g1.1="gweapons"
  69.            gweapons.class="group"
  70.            gweapons.columns=2
  71.             gweapons.0=label("_Cloak:");  cloak.ControlChar="c"; gweapons.1=CheckMark("cloak",1)
  72.             gweapons.2=label("S_hield:"); shield.ControlChar="h"; gweapons.3=CheckMark("shield",1)
  73.             gweapons.4=label("_Gloves:"); gloves.ControlChar="g";gweapons.5=CheckMark("gloves",1)
  74.             gweapons.6=label("H_elmet:"); helmet.ControlChar="e";gweapons.7=CheckMark("helmet",1)
  75.           g1.2=HSpace(0)
  76.  
  77.         call child("reg","g2","group")
  78.          g2.columns=2
  79.           g2.0=label("_Experience:");
  80.           g2.1="experience"
  81.            experience.class="slider"
  82.            experience.ControlChar="e"
  83.            experience.min=0
  84.            experience.max=100
  85.            experience.level=3
  86.            experience.ControlChar="e"
  87.           g2.2=label("S_trength:");
  88.           g2.3="strength"
  89.            strength.class="slider"
  90.            strength.ControlChar="t"
  91.            strength.min=0
  92.            strength.max=100
  93.            strength.level=42
  94.           g2.4=label("_Dexterity:");
  95.           g2.5="dexterity"
  96.            dexterity.ControlChar="d"
  97.            dexterity.class="slider"
  98.            dexterity.min=0
  99.            dexterity.max=100
  100.            dexterity.level=24
  101.           g2.6=label("_Condition:");
  102.           g2.7="condition"
  103.            condition.class="slider"
  104.            condition.COntrolChar="c"
  105.            condition.min=0
  106.            condition.max=100
  107.            condition.level=39
  108.           g2.8=label("_Intelligence:");
  109.           g2.9="intelligence"
  110.            intelligence.class="slider"
  111.            intelligence.ControlChar="i"
  112.            intelligence.min=0
  113.            intelligence.max=100
  114.            intelligence.level=74
  115.  
  116.     res=NewObj("application","app")
  117.     if res~=0 then call err(res)
  118.  
  119.     call notify("mwin","CloseRequest",1,"app","ReturnID","quit")
  120.  
  121.     call set("mwin","open",1)
  122.  
  123.     return
  124.  
  125. HandleApp: procedure expose global.
  126.     ctrl_c=2**12
  127.     do forever
  128.         call NewHandle("APP","H",ctrl_c)
  129.         if and(h.signals,ctrl_c)>0 then exit
  130.         select
  131.             when h.event="QUIT" then exit
  132.             otherwise nop
  133.         end
  134.     end
  135.     /* never reached */
  136.  
  137.  
  138.  
  139. halt:
  140. break_c:
  141.     exit
  142.  
  143.  
  144. err: procedure expose sigl RxMUIError
  145. parse arg res
  146.     msg = ProgramName()":" GetRxMUIString(res) "in line" sigl-1
  147.     if RxMUIError~="RXMUIERROR" then msg = msg "["RxMUIError"]"
  148.     say msg
  149.     exit
  150.  
  151.  
  152.