home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / demos / t / wheeldem / !WheelDem / !Help / !RunImage (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1993-02-15  |  2.6 KB  |  111 lines
  1.  > !RunImage
  2.  This code is made by Eivind Hagen - ZYNX of ArcEmpire
  3. $" at line - ";
  4. Min_SlotSize=128*1024
  5.  TaskId 4
  6. $TaskId="TASK"
  7.  "Wimp_Initialise",200,!TaskId,"WheelDem Help" 
  8.  OS_Version,My_Task
  9.  FileName 512
  10.  TemplateID 13
  11.  RData 256
  12.  FontStuff 256
  13.  Buffer 4096
  14.  INFO_Name       13 : $INFO_Name="info"+
  15.  INFO_Buff       1024
  16.  INFO_Work       1024
  17.  INFO_WorkEnd    0
  18. _Templates
  19. Buffer!0=WindowHandle_INFO
  20.  "Wimp_GetWindowInfo",,Buffer
  21.  "Wimp_OpenWindow",,Buffer
  22. Poll_Number=0
  23. _ErrorBox:
  24. "*   
  25.  "Wimp_Poll",0,RData 
  26.  ReasonCode
  27.    Poll_Number+=1
  28. _PollHandler
  29. _PollHandler
  30.    RC=ReasonCode
  31.  ReasonCode 
  32. +)      
  33. _NullEvent             :
  34.       
  35. -)      
  36. _OpenWindow(RData)     :
  37. ..      
  38. _CloseWindow(RData):
  39. _Kamikaze
  40.       
  41.       
  42. 1)      
  43. _MouseClick(RData)     :
  44.       
  45. 3"      
  46. _KeyPressed(RData)
  47. 4)      
  48. _MenuSelection(RData)  :
  49.       
  50.       
  51.       
  52.       
  53.       
  54.       
  55.       
  56. <)      
  57. _Message(RData)        :
  58. =)      
  59. _Message(RData)        :
  60.       
  61. _NullEvent
  62. _OpenWindow(Block)
  63. H"   
  64.  "Wimp_OpenWindow",,Block
  65. _CloseWindow(Block)
  66. L#   
  67.  "Wimp_CloseWindow",,Block
  68. _MouseClick(Block)
  69.    MouseX=Block!0
  70.    MouseY=Block!4
  71.    Buttons=Block!8
  72.    WindowHandle=Block!12
  73.    IconHandle=Block!16
  74. _KeyPressed(Block)
  75.    Window=Block!0
  76.    Icon=Block!4
  77.    CharCode=Block!24
  78. _Message(Block)
  79.    Block_Size=Block!0
  80.    Task_Handle=Block!4
  81.    Sender_Ref=Block!8
  82.    Reciever_Ref=Block!12
  83.    Action_Code=Block!16
  84.  Action_Code 
  85. d1      
  86.  "Wimp_CloseDown",My_Task,!TaskId
  87.       
  88. _DataLoad(Block)
  89.       
  90.  &400C3:
  91. _Kamikaze
  92.  "Wimp_CloseDown":
  93.  ---------------------------------------------------------------------
  94. _Templates
  95. s'   $FileName="<Help$Dir>.Templates"
  96. t'   
  97.  "Wimp_OpenTemplate",,FileName
  98. ve   
  99.  "Wimp_LoadTemplate",,INFO_Buff,INFO_Work,INFO_WorkEnd,FontStuff,INFO_Name,0 
  100.  ,,INFO_Remain
  101. w<   
  102.  "Wimp_CreateWindow",,INFO_Buff 
  103.  WindowHandle_INFO
  104.  "Wimp_CloseTemplate"
  105. _ErrorBox
  106.    !Buffer=
  107. ~,   $(Buffer+4)=
  108. $+" at line "+
  109. /10)+
  110.  "Wimp_ReportError",Buffer,1,"Backup Manager"
  111.