home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / utilities / desktop / qmc_rpc / !QMC_RPC / !Runimage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1994-11-22  |  2.7 KB  |  115 lines
  1.  Runimage for QMC_RPC 0.3
  2. "Wimp_Initialise",200,&4B534154,"QMC_RPC"
  3. errbox(
  4.  wblk% &2C0, indirected% &120
  5.  iconblock% 42
  6.  plblk% &100
  7. load_my_windows
  8. on_bar
  9. all_over%=
  10. "Wimp_Poll",1,plblk% 
  11.  reason%
  12.  reason% 
  13.  2     : 
  14. "Wimp_OpenWindow",,plblk%
  15.  3     : 
  16. "Wimp_CloseWindow",,plblk%
  17.  6     : 
  18. buttons
  19.  9     : 
  20. menu_selection
  21.  17,18 : 
  22.  plblk%!16=0 
  23.  all_over%=
  24.  all_over%
  25. "Wimp_CloseDown",,plblk%
  26. geticontext(window%,ic%)
  27. !iconblock%=window%
  28. iconblock%!4=ic%
  29. &400CE,,iconblock%
  30. =$iconblock%!28
  31. rewriteIcon(wind%,icon%,text$)
  32. !iconblock%=wind%
  33. iconblock%!4=icon%
  34. &400CE,,iconblock%
  35. $iconblock%!28=text$
  36. iconblock%!8=0
  37. iconblock%!12=&400000
  38. &400CD,,iconblock%
  39. ReadModeInfo
  40.  r$,r2%
  41. "OS_ReadModeVariable",-1,11 
  42.  ,,r2%
  43. r$="X"+
  44. (r2%+1)+" "
  45. "OS_ReadModeVariable",-1,12 
  46.  ,,r2%
  47. r$+="Y"+
  48. (r2%+1)+" "
  49. "OS_ReadModeVariable",-1,3 
  50.  ,,r2%
  51.  r2% 
  52.  1     :r$+="G2 "
  53.  3     :r$+="G4 "
  54.  15    :r$+="C16 "
  55.  63    :r$+="C256 "
  56.  255   :r$+="G256 "
  57.  65535 :r$+="C32K "
  58.  -1    :r$+="C16M "
  59. "OS_ReadModeVariable",-1,4 
  60.  r0,r1,r2%
  61. r$+="EX"+
  62. (r2%)+" "
  63. "OS_ReadModeVariable",-1,5 
  64.  r0,r1,r2%
  65. r$+="EY"+
  66. (r2%)
  67. buttons
  68. icon%=plblk%!16
  69. button%=plblk%!8
  70.  plblk%!12 
  71.  configure% :
  72. config_buttons
  73.  -2         :
  74. ibar_buttons
  75. config_buttons
  76.  icon% 
  77.  8    : 
  78.  9    : all_over%=
  79. rewriteIcon(configure%,icon%-4,
  80. ReadModeInfo)
  81. "<QMC_RPC$Dir>.config"
  82.  i%=0 
  83. geticontext(configure%,i%)
  84. "<QMC_RPC$Dir>.config"
  85.  i%=0 
  86. rewriteIcon(configure%,i%,
  87. ibar_buttons
  88.  button% 
  89.  4  : 
  90. ("Wimpmode "+
  91. geticontext(configure%,3-(plblk%!4-28)
  92.  1,2: 
  93. "Wimp_CreateMenu",,configure%,plblk%!0-532,404
  94. errbox(msg$)
  95. tL!plblk%=0:$(plblk%+4)=msg$+
  96. "Wimp_ReportError",plblk%, 1,"QMC_RPC"
  97. on_bar
  98. !iconblock%=-1
  99. iconblock%!4=0
  100. iconblock%!8=0
  101. iconblock%!12=20
  102. iconblock%!16=68
  103. iconblock%!20=&301A
  104. $(iconblock%+24)="!QMC_RPC"
  105. "Wimp_CreateIcon",,iconblock% 
  106.  baricon%
  107. load_my_windows
  108.  "Wimp_OpenTemplate",,"<QMC_RPC$Dir>.Templates"
  109. /indy%=indirected%:ind_end%=indirected%+&120
  110.  "Wimp_LoadTemplate",,wblk%,indy%,ind_end%,-1,"configure",0 
  111.  ,,indy%
  112.  "Wimp_CreateWindow",,wblk% 
  113.  configure%
  114.  "Wimp_CloseTemplate"
  115.