home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / RxMUI / Examples / vl.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  2001-05-24  |  1.6 KB  |  74 lines
  1. /* */
  2.  
  3. call rxmuiopt("DEBUGMODE SHOWERR")
  4.  
  5. listview.list="voll"
  6. voll.class="volumelist"
  7. voll.frame="READLIST"
  8. voll.directory=programname("PATH")
  9. listview.weight=1000
  10. res=NewObj("LISTVIEW","LISTVIEW")
  11. if res~=0 then call err(res)
  12.  
  13. app.Title="kod"
  14. app.Version="$VER: kod 1.0 (22.11.99)"
  15. app.Copyright="©1999, koksa"
  16. app.Author="kkoksa phd"
  17. app.Description="kodda da worlda"
  18. app.Base="LOV"
  19. app.SubWindow="WIN"
  20.  win.Title="Title"
  21.  win.Contents="MGROUP"
  22.   mgroup.0="LISTVIEW"
  23.   mgroup.1=String("DIR",,Programname("PATH"))
  24.   mgroup.4=hvspace()
  25.  
  26. res=NewObj("APPLICATION","APP")
  27. if res~=0 then call err(res)
  28.  
  29. res=Notify("WIN","CLOSEREQUEST",1,"APP","RETURNID","QUIT")
  30. if res~=0 then call err(res)
  31.  
  32. res=Notify("LISTVIEW","DOUBLECLICK","EVERYTIME","APP","RETURNID")
  33. if res~=0 then call err(res)
  34.  
  35. res=set("WIN","OPEN",1)
  36. if res~=0 then call err(res)
  37.  
  38. do while 1
  39.     call handle("APP","H")
  40.     do i=0 to h.num-1
  41.         if h.i="QUIT" then exit
  42.         if h.i="LISTVIEW" then do
  43.             res=DoMethod("voll","GETENTRY","ACTIVE","A")
  44.             if res~=0 then call err(res)
  45.             say a.name
  46.         end
  47.     end
  48.     s=Wait(or(h.signals,2**12))
  49.     if and(s,2**12)~=0 then exit
  50. end
  51. exit
  52.  
  53. err: procedure expose sigl
  54. parse arg res
  55.     say getrxmuistring(res) "in line" sigl-1
  56.     exit
  57.  
  58. makeToggle: procedure
  59. parse arg name,text,state,cc
  60.     return ToggleButton(name,text,state)
  61.     b.Contents=text
  62.     b.inputmode="TOGGLE"
  63.     b.showselstate=1
  64.     b.selected=state
  65.     b.font="BUTTON"
  66.     b.frame="BUTTON"
  67.     b.background="BUTTONBACK"
  68.     b.TextHiChar=cc
  69.     b.ControlChar=cc
  70.     b.TextHiCharIdx='_'
  71.     res=newobj("TEXT",name,"B")
  72.     if res then call esci(res)
  73.     return name
  74.