home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / Examples / Urltext.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  2.7 KB  |  91 lines
  1. /**/
  2.  
  3. signal on halt
  4. signal on break_c
  5.  
  6. call Init
  7. call CreateApp
  8. call HandleApp
  9.  
  10. /* never reached */
  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("rxmui.library")~=0 then exit
  15.     call RxMUIOpt("debugmode showerr")
  16.     return
  17. /***********************************************************************/
  18. HandleApp: procedure expose global.
  19.     ctrl_c=2**12
  20.     do forever
  21.         call NewHandle("app","h",ctrl_c)
  22.         if and(h.signals,ctrl_c)>0 then exit
  23.         select
  24.             when h.event="QUIT" then exit
  25.             otherwise interpret h.event
  26.         end
  27.     end
  28.     /* never reached */
  29. /***********************************************************************/
  30. CreateApp: procedure expose global.
  31.  
  32.     app.Title="UrltextExample"
  33.     app.Version="$VER: UrltextExample 1.0 (21.3.2001)"
  34.     app.Copyright="©2001, alfie"
  35.     app.Author="alfie"
  36.     app.Description="Urltext example"
  37.     app.Base="RXMUIEXAMPLE"
  38.     app.SubWindow="win"
  39.      win.ID="MAIN"
  40.      win.Title="Urltext"
  41.      win.Contents="mgroup"
  42.  
  43.        g.class="group"
  44.        g.columns=3
  45.         g.0="u0"
  46.          u0.class="urltext"
  47.          u0.Font="big"
  48.          u0.url="http://web.tiscalinet.it/amiga/"
  49.          u0.text="Alfie's home page"
  50.         g.1=hspace(8)
  51.         g.2="u1"
  52.          u1.class="urltext"
  53.          u1.url="http://web.tiscalinet.it/amiga/rxmui/"
  54.          u1.text="RxMUI home page"
  55.         g.3="u2"
  56.          u2.class="urltext"
  57.          u2.url="http://www.egroups.com/group/rxmui"
  58.          u2.text="RxMUI mail list"
  59.         g.4=hspace(8)
  60.         g.5="u3"
  61.          u3.class="urltext"
  62.          u3.url="mailto:alforan@tin.it"
  63.          u3.text="Alfonso Ranieri"
  64.       mgroup.0=MakeObj(,"VCenter",MakeObj(,"HCenter","g"))
  65.  
  66.       mgroup.1=Text("info")
  67.  
  68.     if NewObj("application","app")>0 then exit
  69.  
  70.     call Notify("win","CloseRequest",1,"app","ReturnID","quit")
  71.     if xget("u0","active") then do
  72.         call Notify("u0","url","everytime","info","set","contents","triggervalue")
  73.         call Notify("u1","url","everytime","info","set","contents","triggervalue")
  74.         call Notify("u2","url","everytime","info","set","contents","triggervalue")
  75.         call Notify("u3","url","everytime","info","set","contents","triggervalue")
  76.     end
  77.     else call set("info","contents","OpenURL is not installed!")
  78.  
  79.     call set("win","open",1)
  80.     if ~xget("win","open") then do
  81.         say "can't open window"
  82.         exit
  83.     end
  84.  
  85.     return
  86. /***********************************************************************/
  87. halt:
  88. break_c:
  89.     exit
  90. /**************************************************************************/
  91.