home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rexxbgui / testbgui2.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1999-05-14  |  2.3 KB  |  87 lines
  1. /* REXX test script for rexxbgui.library */
  2.  
  3. if ~show('l','rexxbgui.library') then do
  4.     if ~addlib('rexxbgui.library',0,-30) then do
  5.         exit(20)
  6.     end
  7.     else nop
  8. end
  9. else nop
  10.  
  11. call bguiopen() /* causes error 12 if it did not work */
  12. /* supply a second argument for a '0' return code instead of an ARexx
  13.    error */
  14.  
  15. signal on syntax /* important: bguiclose() MUST be called */
  16. signal on halt
  17. signal on break_c
  18.  
  19. esc='1B'x
  20. lf='0A'x
  21. cr='0D'x
  22. grspace.narrow=-1
  23. grspace.normal=-2
  24. grspace.wide=-3
  25.  
  26. /* using ARexx feature: ,<newline> is translated to nothing */
  27. /* the || are essential - any added space will cause trouble */
  28. /* redefining the same ID makes previous buttons unaccessible */
  29. /* do not redefine winclose etc. */
  30.  
  31. g=bguivgroup(,
  32.     bguistring('str1','String #_1','max 10',10)||,
  33.     bguistring('str2','String #_2','Not in tabcycle chain.',30)||,
  34.     bguistring('str3','String #_3','text',30)||,
  35.     bguiinteger('int1','_Integer')||,
  36.     bguiinfo('inf1','Info',esc's'esc'd3'||'Enter something in string #2!')||,
  37.     bguihgroup(,
  38.         bguitoggle('toggle','_Disable checkbox')||,
  39.         bguivarspace(1000)||,
  40.         bguicheckbox('check','Dis_able OK button'),
  41.     ,grspace.normal,'FRAME','Two notifying gadgets')||,
  42.     bguihgroup(,
  43.         bguibutton('show','_Show values')||,
  44.         bguivarspace(50)||,
  45.         bguibutton('ok',esc'b'||'OK_'cr),
  46.     ,grspace.normal),
  47. ,grspace.normal,grspace.normal)
  48.  
  49. a=bguiwindow('BGUI from ARexx!',g,50,'-0',,arg(1))
  50.  
  51. call bguiwintabcycleorder(a,obj.str1||obj.str3||obj.int1)
  52. call bguiaddmap(obj.str2,obj.inf1,STRINGA_TextVal,INFO_TextFormat)
  53. call bguiaddmap(obj.toggle,obj.check,GA_Selected,GA_Disabled)
  54. call bguiaddmap(obj.check,obj.ok,GA_Selected,GA_Disabled)
  55.  
  56. if bguiwinopen(a)=0 then bguierror(12)
  57. id=0
  58. do while bguiwinwaitevent(a,'ID')~=id.winclose
  59.     select
  60.         when id=id.winactive then nop
  61.         when id=id.wininactive then nop
  62.         when id=id.show then do
  63.             text=bguiget(obj.str1,STRINGA_TextVal)lf||,
  64.             bguiget(obj.str2,STRINGA_TextVal)lf||,
  65.             bguiget(obj.str3,STRINGA_TextVal)lf||,
  66.             bguiget(obj.int1,STRINGA_LongVal)
  67.             call bguireq('Results are:'lf||text,'*_OK',,a)
  68.         end
  69.         when id=id.ok then leave
  70.         when id=id.winclose then nop
  71.         when id=id.winnomore then call bguiwait() /* to test bguiwinevent() */
  72.         otherwise
  73.     end
  74. end
  75. rc=0
  76.  
  77. syntax:
  78. if rc~=0 then say '+++ ['rc']' errortext(rc) 'at line' sigl
  79. call bguiclose()
  80. exit 0
  81.  
  82. break_c:
  83. halt:
  84. rc=0
  85. say '+++ Break at line' sigl
  86. signal syntax
  87.