home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c1 / c_impress / Sources / Wimp < prev    next >
Encoding:
Text File  |  1991-04-08  |  39.1 KB  |  28 lines
  1.  
  2. 3:ô  ><BasicV$Lib>.Wimp  :  REM  Library routines. v0.07
  3. 3ô  MACHINE:  Archimedes
  4. 3#ô  LANGUAGE: BBC BASIC V, v1.04
  5. 3"ô  AUTHOR:   Cy Booker,
  6. 3,Gô            86 Church View, Main Road, Crockenhill, Swanley, Kent.
  7. 36ô            BR8 8JW
  8. 3@ô  FUNCTIONS:
  9. 3Jô   Claim_Stack( size% )
  10. 3T%ô   Custom_Error( flags%, text$ )
  11. 3^Aô   Date                                              Version
  12. 3hô   FileSize( n% )
  13. 3rô   FixedFileSize( n% )
  14. 3|ô   getname( ptr% )
  15. 3ŷHô   PSR_V_set( flags% )                               After SYS call
  16. 3‘ô   PSR_V_Set( flags% )
  17. 3Œ,ô   Open_Window_Horz_Centered( window% )
  18. 3¤'ô   Open_Window_Centered( window% )
  19. 3®7ô   Query_Icon_BackCol_And_Delete( window%, icon% )
  20. 3¸+ô   Query_Icon_Shaded( window%, icon% )
  21. 3Â-ô   Query_Icon_Selected( window%, icon% )
  22. 3Ìô   leaf( f$ )
  23. 3Ö4ô   Load_Template( id$, rove%, sprite_pointer% )
  24. 3à)ô   Read_String_Val( window%, icon% )
  25. 3ê%ô   Read_String( window%, icon% )
  26. 3ô"ô   XSizeof_File( file_name$ )
  27. 3þKô   XSet_Colour( RETURN routine, RETURN colour )      ARM code producer
  28. 4ô  :
  29. 4ô  PROCEDURES:
  30. 4Cô   Activate_Wimp()                                   Main loop
  31. 4&1ô   alter_bit( RETURN word%, bit%, boolean% )
  32. 40ô   Cancel_Stop()
  33. 4:6ô   Check_Icon_In_Range( w%, icon%, mini%, maxi% )
  34. 4D$ô   Claim_Null_Reason( reason$ )
  35. 4Nô   Close_Window( window% )
  36. 4X8ô   dim_array( RETURN start%, length%, RETURN end% )
  37. 4bDô   Generic_Init_Wimp( name$, v%, s_v% )              Initialise
  38. 4l1ô   Initiate_Drag( window%, icon%, routine$ )
  39. 4vDô   Open_Pane_Underneath( window%, xmin%, ymin%, xmax%, stack% )
  40. 4€&ô   Open_Window( window%, stack% )
  41. 4⇩*ô   Query_Wimp_Global_Error( prefix$ )
  42. 4“Hô   Rename_Icon( window%, icon%, sprite$ )            Non-indirected
  43. 4fi&ô   Release_Null_Reason( reason$ )
  44. 4¨&ô   Release_Stack( start%, size% )
  45. 4²3ô   Send_Save( filetype%, file_name$, length% )
  46. 4¼*ô   SetCaretPosition( window%, icon% )
  47. 4Æ$ô   Set_Title( window%, title$ )
  48. 4Ð>ô   Set_Window_Extent( window%, width%, height%, resize% )
  49. 4Ú6ô   Set_Icon_Foreground( window%, icon%, colour% )
  50. 4ä2ô   Set_Shade_Icon( window%, icon%, boolean% )
  51. 4î3ô   Set_Select_Icon( window%, icon%, boolean% )
  52. 4ø'ô   unselect_icon( window%, icon% )
  53. 5%ô   select_icon( window%, icon% )
  54. 5 (ô   Stop_Action( string$, routine$ )
  55. 5<ô   Update_Icon( window%, icon%, number%, eor%, clear% )
  56. 5 +ô   Update_String( window%, icon%, s$ )
  57. 5*(ô   Wimp_Error_Block( error_block% )
  58. 54!ô   Wimp_Error( num%, text$ )
  59. 5>ô  :
  60. 5Hô  VARIABLES:
  61. 5R ô   Application$      "Edit"
  62. 5\.ô   Version$          "0.12 (17-Apr-1969)"
  63. 5f@ô   Wimp_Active%      Boolean, used in case of library error
  64. 5pô   Task_Handle%
  65. 5z5ô   W%                Wimp poll block (512 bytes)
  66. 5☓ô  :
  67. 5‰
  68. ô  NB:
  69. 5—Gô   This is not amenable to compiling, because use procedures names
  70. 5¢Jô   as string literals in the program to cope with drags/null reasons.
  71. 5¬;ô   But can compact to reduce variable names (I think).
  72. 5¶ô  :
  73. 5Àô  UPDATES:
  74. 5ÊFô   17.03.1991 CJB Added FN_Read_String_Val, FN_Query_Icon_Shaded,
  75. 5ÔIô                  PROC_Set_Select_Icon, PROC_Set_Shade_Icon, altered
  76. 5ÞBô                  FN_Query_Icon_Selected, so now should work!
  77. 5èGô                  Added XSet_Colour, Query_Icon_BackCol_And_Delete
  78. 5ò3ô                  Added PROC_Set_Window_Extent
  79. 5üLô   30.03.1991 CJB Removed all references to old prog. PROC_Stop_Action,
  80. 6?ô                  renamed, and now takes string parameter.
  81. 6Gô   05.04.1991 CJB Added PROC_Set_Icon_Foreground, Library version.
  82. 6Bô   06.04.1991 CJB Actually used 'em - so now slightly stable.
  83. 6$@ô                  So ProgInfo window can have sprites file.
  84. 6.Fô   07.04.1991 CJB If an error occured between Wimp_Initialise and
  85. 68Cô                  Init_Menus, would get stuck in loop.  Cured.
  86. 69Bô   08.04.1991 CJB Added FN_[Fixed]FileSize, PROC_Rename_Icon.
  87. 6B:
  88. 6LÝ ¤_Wimp_version  :  = 007
  89. 6V:
  90. 6`Ý ¤_hard_initialise_Wimp
  91. 6jê Ŷ
  92. 6t7î Ŷ ê ÷ Ŷ  :  ò_e( "%.Wimp: hard_initialise_Wimp" )
  93. 6~"  ç ¤_LibHandler_version<012 …
  94. 6⇦;    Ŷ 1, "Needs more recent version of the LibHandler."
  95. 6‹  Í
  96. 6†0  ò_load_library( "<BasicV$Lib>.Heap", 007 )
  97. 6¦  Wimp_Active% = £
  98. 6°   Wimp_Stack_End% = 4 * 1024
  99. 6º8  ò_Claim_Heap_Block( Wimp_Stack%, Wimp_Stack_End% )
  100. 6Ä$  Wimp_Stack_End% += Wimp_Stack%
  101. 6Î#  Wimp_Stack_Top% = Wimp_Stack%
  102. 6Ø#  ò_Claim_Heap_Block( W%, 512 )
  103. 6â  query_routine$ = ""
  104. 6ì  dragged$ = ""
  105. 6ö  dragged_button% = 0
  106. 7"  Application$ = "Application"
  107. 7
  108. )  Version$     = "0.00 (01-Jan-1900)"
  109. 7  Task_Handle% = -1
  110. 7  :
  111. 7(  Wimp_Error_Fatal% = &960
  112. 72  Wimp_Error%       = &961
  113. 7<= 0
  114. 7F:
  115. 7PKô *********************************************************************
  116. 7ZKô ***                 Handy library routines                        ***
  117. 7dKô *********************************************************************
  118. 7n:
  119. 7x Ý ¤_Date
  120. 7ŵê t$
  121. 7…  t$ = Á’$, 5, 11)
  122. 7„  Át$, 3, 1) = "-"
  123. 7   Át$, 7, 1) = "-"
  124. 7ª= t$
  125. 7´:
  126. 7¾*Ý ¤_XSet_Colour( ø routine, ø colour )
  127. 7È[OPT pass%
  128. 7ÒALIGN:.colour EQUD 0
  129. 7Ü .routine
  130. 7æ        STMFD   (sp)!, {R0}
  131. 7ð        LDR     R0, colour
  132. 7ú%        SWI     "XWimp_SetColour"
  133. 8,        BLVS    Write_Global_Error_Block
  134. 8        LDMFD   (sp)!, {R0}
  135. 8        MOV     pc, link
  136. 8"]
  137. 8,= 0
  138. 86:
  139. 8@E: ô  Explicitly sets / reset bit in a word, dependent on boolean.
  140. 8J,Ý ò_alter_bit( ø word%, bit%, boolean% )
  141. 8T   ç boolean% …
  142. 8^%      word% = word% ☓ (1 << bit%)
  143. 8h   Ì
  144. 8r&      word% = word% € ¬(1 << bit%)
  145. 8|   Í
  146. 8ŷá
  147. 8‘:
  148. 8ŒK: ô  If SYS ... TO ... ; C%, Then this function will test for overflow.
  149. 8¤Ý ¤_PSR_V_set( flags% )
  150. 8®= (flags% € 1)<>0
  151. 8¸:
  152. 8ÂÝ ¤_PSR_V_Set( flags% )
  153. 8Ì= (flags% € 1)<>0
  154. 8Ö:
  155. 8àD: ô  Reserve space for an array of length length%, but setting a
  156. 8ê>: ô  variable to the end so can easily check for overflow.
  157. 8ô,Ý ò_dim_array(ø start%, length%, ø end%)
  158. 8þ   Þ start% length%
  159. 9   end% = start% + length%
  160. 9á
  161. 9:
  162. 9&Kô *********************************************************************
  163. 90Kô ***                      Caret                                    ***
  164. 9:Kô *********************************************************************
  165. 9D:
  166. 9N*Ý ò_SetCaretPosition( window%, icon% )
  167. 9X^  È− "Wimp_SetCaretPosition", window%, icon%, -1, -1, -1, ©(¤_Read_String(window%, icon%))
  168. 9bá
  169. 9l:
  170. 9vKô *********************************************************************
  171. 9€Kô ***                        Windows                                ***
  172. 9⇩Kô *********************************************************************
  173. 9“:
  174. 9fi&Ý ò_Open_Window( window%, stack% )
  175. 9¨
  176. ê ptr%
  177. 9²!  ptr% = ¤_Claim_Stack( 128 )
  178. 9¼  !ptr% = window%
  179. 9Æ%  È− "Wimp_GetWindowState",, ptr%
  180. 9Р ptr%!28 = stack%
  181. 9Ú!  È− "Wimp_OpenWindow",, ptr%
  182. 9ä"  ò_Release_Stack( ptr%, 128 )
  183. 9îá
  184. 9ø:
  185. :Ý ò_Close_Window( window% )
  186. :
  187. ê ptr%
  188. :!  ptr% = ¤_Claim_Stack( 128 )
  189. :   !ptr% = window%
  190. :*"  È− "Wimp_CloseWindow",, ptr%
  191. :4"  ò_Release_Stack( ptr%, 128 )
  192. :>á
  193. :H:
  194. :R(Ý ò_Bring_Window_To_Front( window% )
  195. :\
  196. ê ptr%
  197. :f   ptr% = ¤_Claim_Stack( 64 )
  198. :p  !ptr% = window%
  199. :z%  È− "Wimp_GetWindowState",, ptr%
  200. :☓  ptr%!28 = -1
  201. :‰!  È− "Wimp_OpenWindow",, ptr%
  202. :—!  ò_Release_Stack( ptr%, 64 )
  203. :¢á
  204. :¬:
  205. :¶ Ý ò_ReOpen_Window( window% )
  206. :À
  207. ê ptr%
  208. :Ê   ptr% = ¤_Claim_Stack( 64 )
  209. :Ô  !ptr% = window%
  210. :Þ%  È− "Wimp_GetWindowState",, ptr%
  211. :è!  È− "Wimp_OpenWindow",, ptr%
  212. :ò!  ò_Release_Stack( ptr%, 64 )
  213. :üá
  214. ;:
  215. ;,Ý ¤_Open_Window_Horz_Centered( window% )
  216. ;ê ptr%, w%
  217. ;$#  ptr%   = ¤_Claim_Stack( 256 )
  218. ;.  ptr%!0 = window%
  219. ;8K  È− "Wimp_GetWindowInfo",, ptr%       :  ô  Get Template defininition.
  220. ;B  w% = ptr%!12 - ptr%!4
  221. ;L  ptr%!0  = window%
  222. ;V#  ptr%!4  = (logmaxx% - w%) Ŵ 2
  223. ;`  ptr%!12 = ptr%!4 + w%
  224. ;j  ptr%!20 = 0
  225. ;t  ptr%!24 = 0
  226. ;~K  ptr%!28 = -1                          :  ô  Open to front of display.
  227. ;⇦!  È− "Wimp_OpenWindow",, ptr%
  228. ;‹"  ò_Release_Stack( ptr%, 256 )
  229. ;†= ¹
  230. ;¦:
  231. ;°'Ý ¤_Open_Window_Centered( window% )
  232. ;ºê ptr%, w%, h%
  233. ;Ä#  ptr%   = ¤_Claim_Stack( 256 )
  234. ;Π ptr%!0 = window%
  235. ;ØK  È− "Wimp_GetWindowInfo",, ptr%       :  ô  Get Template defininition.
  236. ;â  w% = ptr%!12 - ptr%!4
  237. ;ì  h% = ptr%!16 - ptr%!8
  238. ;ö  ptr%!0  = window%
  239. <#  ptr%!4  = (logmaxx% - w%) Ŵ 2
  240. <
  241. #  ptr%!8  = (logmaxy% - h%) Ŵ 2
  242. <  ptr%!12 = ptr%!4 + w%
  243. <  ptr%!16 = ptr%!8 + h%
  244. <(  ptr%!20 = 0
  245. <2  ptr%!24 = 0
  246. <<K  ptr%!28 = -1                          :  ô  Open to front of display.
  247. <F!  È− "Wimp_OpenWindow",, ptr%
  248. <P"  ò_Release_Stack( ptr%, 256 )
  249. <Z= ¹
  250. <d:
  251. <nI: ô  To be used when reset the title explicitly, window title must be
  252. <x: ô  indirected!
  253. <ŵ$Ý ò_Set_Title( window%, title$ )
  254. <…
  255. ê ptr%
  256. <„" ptr%   = ¤_Claim_Stack( 256 )
  257. <  ptr%!0 = window%
  258. <ª" È− "Wimp_GetWindowInfo",,ptr%
  259. <´ $(ptr%!76) = title$
  260. <¾ ptr%!0     = window%
  261. <È& È− "Wimp_GetWindowOutline",, ptr%
  262. <ÒD È− "Wimp_ForceRedraw", -1, ptr%!4, ptr%!16-40, ptr%!12, ptr%!16
  263. <Ü! ò_Release_Stack( ptr%, 256 )
  264. <æá
  265. <ð:
  266. <úE: ô  Given a window, re-set extent to width% by height% OS units.
  267. =H: ô  If this would result in a smaller window then, if resize%, then
  268. =J: ô  re-open the window in the middle of where it is, but "full size".
  269. =:
  270. =">Ý ò_Set_Window_Extent( window%, width%, height%, resize% )
  271. =,ê ptr%, w%, h%, mask%
  272. =6"  ptr%  = ¤_Claim_Stack( 222 )
  273. =@  !ptr% = window%
  274. =J%  È− "Wimp_GetWindowState",, ptr%
  275. =T  w% = (ptr%!12) - (ptr%!4)
  276. =^  h% = (ptr%!16) - (ptr%!8)
  277. =h0  ç ((width%<w%) ☓ (height%<h%)) € resize% …
  278. =r    ç width%<w% …
  279. =|(      mask%   = ¬((1 << ltopx%) - 1)
  280. =ŷ>      ptr%!4  = ((ptr%!4)+ (w% Ŵ 2)- (width% Ŵ 2)) € mask%
  281. =‘/      ptr%!12 = ((ptr%!4) + width%) € mask%
  282. =Œ        Í
  283. =¤    ç height%<h% …
  284. =®(      mask%   = ¬((1 << ltopy%) - 1)
  285. =¸?      ptr%!8  = ((ptr%!8)+ (h% Ŵ 2)- (height% Ŵ 2)) € mask%
  286. =Â0      ptr%!16 = ((ptr%!8) + height%) € mask%
  287. =Ì        Í
  288. =ÖI    È− "Wimp_OpenWindow",, ptr%        :  ô  SetExtent doesnt resize.
  289. =à  Í
  290. =ê  !ptr%   = 0
  291. =ô/  ptr%!4  = -height% € ¬((1 << ltopy%) - 1)
  292. =þ-  ptr%!8  = width% € ¬((1 << ltopx%) - 1)
  293. >  ptr%!12 = 0
  294. >(  È− "Wimp_SetExtent", window%, ptr%
  295. >"  ò_Release_Stack( ptr%, 222 )
  296. >&á
  297. >0:
  298. >:DÝ ò_Open_Pane_Underneath( window%, xmin%, ymin%, xmax%, stack% )
  299. >D
  300. ê ptr%
  301. >N!  ptr% = ¤_Claim_Stack( 512 )
  302. >X  !ptr% = window%
  303. >b$  È− "Wimp_GetWindowInfo",, ptr%
  304. >l  ptr%!16 = ymin% - 44
  305. >v%  ptr%!8  = (ptr%!16) + (ptr%!48)
  306. >€  ptr%!4  = xmin%
  307. >⇩5  ptr%!12 = ¤_min_int( xmax%, xmin% + (ptr%!52) )
  308. >“?  ptr%!20 = ¤_max_int( 0, (xmin% + (ptr%!52)) - (ptr%!12) )
  309. >fi  ptr%!24 = 0
  310. >¨  ptr%!28 = stack%
  311. >²!  È− "Wimp_OpenWindow",, ptr%
  312. >¼"  ò_Release_Stack( ptr%, 512 )
  313. >Æá
  314. >Ð:
  315. >ÚKô *********************************************************************
  316. >äKô ***                        Icons                                  ***
  317. >îKô *********************************************************************
  318. >ø:
  319. ?'Ý ò_unselect_icon( window%, icon% )
  320. ?
  321. ê ptr%
  322. ?!  ptr% = ¤_Claim_Stack( 256 )
  323. ?   ptr%!00 = window%
  324. ?*  ptr%!04 = icon%
  325. ?4%  ptr%!08 = 0           :  ô  Eor
  326. ?>%  ptr%!12 = 1 << 21     :  ô  Bic
  327. ?H#  È− "Wimp_SetIconState",, ptr%
  328. ?R"  ò_Release_Stack( ptr%, 256 )
  329. ?\á
  330. ?f:
  331. ?p%Ý ò_select_icon( window%, icon% )
  332. ?z
  333. ê ptr%
  334. ?☓!  ptr% = ¤_Claim_Stack( 256 )
  335. ?‰  ptr%!00 = window%
  336. ?—  ptr%!04 = icon%
  337. ?¢%  ptr%!08 = 1 << 21     :  ô  Eor
  338. ?¬%  ptr%!12 = 1 << 21     :  ô  Bic
  339. ?¶#  È− "Wimp_SetIconState",, ptr%
  340. ?À"  ò_Release_Stack( ptr%, 256 )
  341. ?Êá
  342. ?Ô:
  343. ?Þ:Ý ò_Update_Icon(window%, icon%, number%, eor%, clear%)
  344. ?è
  345. ê ptr%
  346. ?ò$   ptr%    = ¤_Claim_Stack( 16 )
  347. ?ü   ptr%!0  = window%
  348. @   ptr%!4  = icon%
  349. @    ptr%!8  = eor% << number%
  350. @"   ptr%!12 = clear% << number%
  351. @$$   È− "Wimp_SetIconState",, ptr%
  352. @."   ò_Release_Stack( ptr%, 16 )
  353. @8á
  354. @B:
  355. @L*: ô  Returns TRUE if icon is selected.
  356. @V-Ý ¤_Query_Icon_Selected( window%, icon% )
  357. @`ê ptr%, result%
  358. @j"  ptr%   = ¤_Claim_Stack( 64 )
  359. @t  !ptr%  = window%
  360. @~  ptr%!4 = icon%
  361. @⇦#  È− "Wimp_GetIconState",, ptr%
  362. @‹*  result% = ((ptr%!24) € (1 << 21))<>0
  363. @†!  ò_Release_Stack( ptr%, 64 )
  364. @¦
  365. = result%
  366. @°:
  367. @º3Ý ò_Set_Select_Icon( window%, icon%, boolean% )
  368. @Ä
  369. ê ptr%
  370. @Î#  ptr%    = ¤_Claim_Stack( 16 )
  371. @Ø  !ptr%   = window%
  372. @â  ptr%!4  = icon%
  373. @ì)  ptr%!8  = (boolean%<>0) € (1 << 21)
  374. @ö  ptr%!12 = 1 << 21
  375. A#  È− "Wimp_SetIconState",, ptr%
  376. A
  377. !  ò_Release_Stack( ptr%, 16 )
  378. Aá
  379. A:
  380. A(2Ý ò_Set_Shade_Icon( window%, icon%, boolean% )
  381. A2
  382. ê ptr%
  383. A<#  ptr%    = ¤_Claim_Stack( 16 )
  384. AF  !ptr%   = window%
  385. AP  ptr%!4  = icon%
  386. AZ)  ptr%!8  = (boolean%<>0) € (1 << 22)
  387. Ad  ptr%!12 = 1 << 22
  388. An#  È− "Wimp_SetIconState",, ptr%
  389. Ax!  ò_Release_Stack( ptr%, 16 )
  390. Aŵá
  391. A…:
  392. A„+Ý ¤_Query_Icon_Shaded( window%, icon% )
  393. A ê ptr%, result%
  394. Aª"  ptr%   = ¤_Claim_Stack( 64 )
  395. A´  !ptr%  = window%
  396. A¾  ptr%!4 = icon%
  397. AÈ#  È− "Wimp_GetIconState",, ptr%
  398. AÒ%  result% = (ptr%!24) € (1 << 22)
  399. AÜ!  ò_Release_Stack( ptr%, 64 )
  400. Aæ= result%<>0
  401. Að:
  402. Aú7Ý ¤_Query_Icon_BackCol_And_Delete( window%, icon% )
  403. Bê result%, ptr%
  404. B!  ptr% = ¤_Claim_Stack( 512 )
  405. B  !ptr% = window%
  406. B"  ptr%!4 = icon%
  407. B,#  È− "Wimp_GetIconState",, ptr%
  408. B6   result% = (ptr%!24) >>> 28
  409. B@!  È− "Wimp_DeleteIcon",, ptr%
  410. BJ"  ò_Release_Stack( ptr%, 512 )
  411. BT
  412. = result%
  413. B^:
  414. Bh6Ý ò_Set_Icon_Foreground( window%, icon%, colour% )
  415. Br
  416. ê ptr%
  417. B|#  ptr%    = ¤_Claim_Stack( 64 )
  418. Bŷ  ptr%!0  = window%
  419. B‘  ptr%!4  = icon%
  420. BŒ1  ptr%!8  = (colour% € &F) << 24      : ô Eor
  421. B¤3  ptr%!12 = &F << 24                    : ô Bic
  422. B®#  È− "Wimp_SetIconState",, ptr%
  423. B¸!  ò_Release_Stack( ptr%, 64 )
  424. BÂá
  425. BÌ:
  426. BÖ6Ý ò_Check_Icon_In_Range( w%, icon%, mini%, maxi% )
  427. Bàê x%
  428. Bê(  x% = »(¤_Read_String( w%, icon% ))
  429. Bô  ç x%<mini% ☓ x%>maxi% …
  430. Bþ7    x% = ¤_min_int( maxi%, ¤_max_int( mini%, x% ) )
  431. C+    ò_Update_String( w%, icon%, Ã(x%) )
  432. C  Í
  433. Cá
  434. C&:
  435. C05: ô Place icon on the right hand side of icon bar
  436. C::
  437. CDÝ ò_Icon_Bar_Icon
  438. CN
  439. ê ptr%
  440. CX!  ptr% = ¤_Claim_Stack( 512 )
  441. Cb   ptr%!0  = -1 : ptr%!4  = 0
  442. Cl!  ptr%!8  = 0  : ptr%!12 = 68
  443. Cv$  ptr%!16 = 68 : ptr%!20 = &3002
  444. C€$  $(ptr%+24) = "!"+ Application$
  445. C⇩2  È− "Wimp_CreateIcon",, ptr% ¸ Icon_Bar_Icon%
  446. C“"  ò_Release_Stack( ptr%, 512 )
  447. Cfiá
  448. C¨:
  449. C²;: ô  The icon must be Sprite ONLY, NON-indirected data.
  450. C¼:
  451. CÆ.Ý ò_Rename_Icon( window%, icon%, sprite$ )
  452. CÐ0ê ptr%, xmin%, ymin%, xmax%, ymax%, xo%, yo%
  453. CÚ   ptr% = ¤_Claim_Stack( 64 )
  454. Cä  !ptr% = window%
  455. Cî  ptr%!4 = icon%
  456. Cø#  È− "Wimp_GetIconState",, ptr%
  457. D"  ç ((ptr%!24) € &103)<>&002 …
  458. D ;    Ŷ Wimp_Error_Fatal%, "Bad rename icon to "+ sprite$
  459. D  Í
  460. D !  È− "Wimp_DeleteIcon",, ptr%
  461. D*  $(ptr%+28) = sprite$
  462. D4  ptr%!4 = window%
  463. D>#  È− "Wimp_CreateIcon",, ptr%+4
  464. DHG  È− "Wimp_ForceRedraw", window%, ptr%!8, ptr%!12, ptr%!16, ptr%!20
  465. DR!  ò_Release_Stack( ptr%, 64 )
  466. D\á
  467. Df:
  468. Dp.: ô  A simple wrap around the system call.
  469. Dz:
  470. D☓Ý ¤_FixedFileSize( n% )
  471. D‰ê ptr%, result$
  472. D—   ptr% = ¤_Claim_Stack( 64 )
  473. D¢0  È− "OS_ConvertFixedFileSize", n%, ptr%, 64
  474. D¬   result$ = ¤getname( ptr% )
  475. D¶!  ò_Release_Stack( ptr%, 64 )
  476. DÀ
  477. = result$
  478. DÊ:
  479. DÔ.: ô  A simple wrap around the system call.
  480. DÞ:
  481. DèÝ ¤_FileSize( n% )
  482. Dòê ptr%, result$
  483. Dü   ptr% = ¤_Claim_Stack( 64 )
  484. E+  È− "OS_ConvertFileSize", n%, ptr%, 64
  485. E   result$ = ¤getname( ptr% )
  486. E!  ò_Release_Stack( ptr%, 64 )
  487. E$
  488. = result$
  489. E.:
  490. E8Kô *********************************************************************
  491. EBKô ***                          Errors                               ***
  492. ELKô *********************************************************************
  493. EV:
  494. E`G: ô  Should be called from a generic error handler, that relays the
  495. Ej1: ô  message via the standard wimp error box.
  496. Et7: ô  Exits after user has acknowledged the message.
  497. E~:
  498. E⇦!Ý ò_Wimp_Error( num%, text$ )
  499. E‹
  500. ê ptr%
  501. E†&  ptr%      = ¤_Claim_Stack( 300 )
  502. E¦  ptr%!0    = num%
  503. E°  $(ptr%+4) = text$+ ½(0)
  504. Eº   ò_Wimp_Error_Block( ptr% )
  505. EÄ"  ò_Release_Stack( ptr%, 300 )
  506. EÎá
  507. EØ:
  508. EâG: ô  Should be called from a generic error handler, that relays the
  509. Eì1: ô  message via the standard wimp error box.
  510. Eö7: ô  Exits after user has acknowledged the message.
  511. F:
  512. F
  513. (Ý ò_Wimp_Error_Block( error_block% )
  514. F
  515. ê ptr%
  516. F  ç Wimp_Active%<-1 …
  517. F(E    ò_Close_All_Menus                :  ô  Remove menus on error.
  518. F2  Í
  519. F<:  È− "Wimp_ReportError", error_block%, 1, Application$
  520. FFá
  521. FP:
  522. FZJ: ô  Use standard wimp error window, with window title "Message from "
  523. Fd: ô  + "<application>".
  524. Fn: ô  flags% == Bits
  525. Fx+: ô           0       provide an OK box
  526. Fŵ.: ô           1       provide a Cancel box
  527. F…D: ô           2       highlight Cancel (or OK if bit is cleared)
  528. F„I: ô           3       if error generated while a text-style window is
  529. F H: ô                   open (eg within a call to Wimp_CommandWindow),
  530. FªH: ô                   then don't produce the prompt "Press SPACE..."
  531. F´C: ô           4 {always} Don't prefix the application name with
  532. F¾7: ô                   "Error from" in the title bar
  533. FÈK: ô           5       If neither box is clicked return immediately with
  534. FÒ>: ô                   zero result, leaving the window open
  535. FÜJ: ô           6       Select one of the boxes according to bits 0 & 1,
  536. Fæ5: ô                   close the window and return
  537. Fð0: ô           7-31    reserved, must be zero
  538. Fú:
  539. G%Ý ¤_Custom_Error( flags%, text$ )
  540. Gê ptr%, result%
  541. GD  ò_Close_All_Menus                 :  ô  Remove menus on error.
  542. G"&  ptr%      = ¤_Claim_Stack( 260 )
  543. G,  !ptr%     = 0
  544. G6  $(ptr%+4) = text$+ ½(0)
  545. G@_  È− "Wimp_ReportError", ptr%, (%10000 ☓ flags%), "Message from "+ Application$ ¸ , result%
  546. GJ"  ò_Release_Stack( ptr%, 260 )
  547. GT
  548. = result%
  549. G^:
  550. GhI: ô  This is used to relay error message (probably) generated from an
  551. GrG: ô  ARM routine.  These all set global_error_block, so use this to
  552. G|: ô  report a system error.
  553. Gŷ:
  554. G‘*Ý ò_Query_Wimp_Global_Error( prefix$ )
  555. GŒê a%
  556. G¤  a% = !global_error_block
  557. G®  ç a%<>0 …
  558. G¸j    ò_Wimp_Error( 1, "A system error has occured: ("+ Ã(!a%)+ "): "+ prefix$+ ": "+ ¤getname(a% + 4) )
  559. G  Í
  560. GÌá
  561. GÖ:
  562. GàL: ô  This is MY error reporting system, as opposed to the above one.  It
  563. GêG: ô  uses the Query window found in the template file.  Because the
  564. Gô-: ô  mouse is restricted, should be safe.
  565. GþK: ô  The routine$ is the name of a function "FN_Stop_Action_"+ routine$
  566. HJ: ô  that gets passed TRUE for a click on YES, or FALSE for a click on
  567. H : ô  NO.
  568. H:
  569. H&(Ý ò_Stop_Action( string$, routine$ )
  570. H0*ê min_x%, min_y%, max_x%, max_y%, ptr%
  571. H:!  ptr% = ¤_Claim_Stack( 284 )
  572. HD-  ò_Update_String( Query_W%, 1, string$ )
  573. HN      ï 7
  574. HX0  !ptr% = ¤_Open_Window_Centered( Query_W% )
  575. Hb  !ptr% = Query_W%
  576. Hl%  È− "Wimp_GetWindowState",, ptr%
  577. Hv  min_x% = ptr%!4
  578. H€  min_y% = ptr%!8
  579. H⇩  max_x% = ptr%!12
  580. H“  max_y% = ptr%!16
  581. Hfi  ptr%?0 = 1
  582. H¨3  ptr%?1 = min_x% ◰ 256 : ptr%?2 = min_x% Ŵ 256
  583. H²3  ptr%?3 = min_y% ◰ 256 : ptr%?4 = min_y% Ŵ 256
  584. H¼3  ptr%?5 = max_x% ◰ 256 : ptr%?6 = max_x% Ŵ 256
  585. HÆ3  ptr%?7 = max_y% ◰ 256 : ptr%?8 = max_y% Ŵ 256
  586. HР È− "OS_Word", 21, ptr%
  587. HÚ"  ò_Release_Stack( ptr%, 284 )
  588. Hä  query_action$ = routine$
  589. Hîá
  590. Hø:
  591. II: ô  Internal routine, that restores mouse bounding box (well it sets
  592. I J: ô  it to the whole screen, which should be good enough), and deletes
  593. I: ô  the error box.
  594. I :
  595. I*Ý ò_Cancel_Stop
  596. I4
  597. ê ptr%
  598. I>!  ptr% = ¤_Claim_Stack( 256 )
  599. IH  ptr%?0 = 1
  600. IR  ptr%?1 = 0 : ptr%?2 = 0
  601. I\  ptr%?3 = 0 : ptr%?4 = 0
  602. If7  ptr%?5 = logmaxx% ◰ 256 : ptr%?6 = logmaxx% Ŵ 256
  603. Ip7  ptr%?7 = logmaxy% ◰ 256 : ptr%?8 = logmaxy% Ŵ 256
  604. Iz  È− "OS_Word", 21, ptr%
  605. I☓  !ptr% = Query_W%
  606. I‰"  È− "Wimp_CloseWindow",, ptr%
  607. I—"  ò_Release_Stack( ptr%, 256 )
  608. I¢á
  609. I¬:
  610. I¶L: ô  Query ONLY brought up by PROC_Stop_Action, this routine called when
  611. IÀG: ô  main wimp poll detected a mouse click inside the Query window.
  612. IÊ:
  613. IÔ.Ý ò_Mouse_Click_Query( x%, y%, b%, icon% )
  614. IÞê Ŷ
  615. Iè4î Ŷ ê ÷ Ŷ  :  ò_e( "%.Wimp: Mouse_Click_Query" )
  616. Iò  ò_Cancel_Stop
  617. IüG  x% =  ("FN_Stop_Action_"+ query_action$+ "( "+ Ã(icon%=0)+ " )" )
  618. Já
  619. J:
  620. J$Ý ¤_Stop_Action_( pressed_YES% )
  621. J$E  Ŷ Wimp_Error_Fatal%, "Illegal click in unclaimed query window."
  622. J.= £
  623. J8:
  624. JBH: ô Called when a "Save as" file name is invalid - because it has no
  625. JL5: ô leaf name (might be legal), or no period '.'.
  626. JVG: ô Brings up an error box (standard wimp) with a standard message.
  627. J`:
  628. JjÝ ò_Report_Bad_SaveAs
  629. JtX  x% = ¤_Custom_Error( %101, "To save, drag the file icon to a directory display." )
  630. J~á
  631. J⇦:
  632. J‹Kô *********************************************************************
  633. J†Kô ***                         Strings                               ***
  634. J¦Kô *********************************************************************
  635. J°:
  636. Jº+: ô  Wimp text string --> BASIC string.
  637. JÄ:
  638. JÎÝ ¤getname(p%)
  639. JØê p$:p$=""
  640. Jâ
  641. È” ?p%>31
  642. Jì  p$+=½(?p%):p%+=1
  643. JöÎ
  644. K=p$
  645. K
  646. :
  647. K0: ô  Returns string after last "." in input.
  648. K:
  649. K(Ý ¤leaf(f$)
  650. K2È” §f$,".")
  651. K<  f$=Áf$,§f$,".")+1)
  652. KFÎ
  653. KP=f$
  654. KZ:
  655. Kd<: ô  Updates an indirected Text Icon, then redraws it by
  656. Kn3: ô  Wimp_SetIconState with no change to flags.
  657. Kx:
  658. Kŵ+Ý ò_Update_String( window%, icon%, s$ )
  659. K…
  660. ê ptr%
  661. K„ ptr%=¤_Claim_Stack(256)
  662. K  ptr%!0=window%
  663. Kª ptr%!4=icon%
  664. K´! È− "Wimp_GetIconState",,ptr%
  665. K¾ $(ptr%!28)=s$
  666. KÈ' ò_Update_Icon(window%,icon%,1,0,0)
  667. KÒ% È− "Wimp_GetCaretPosition",,ptr%
  668. KÜ7 ç window%=ptr%!0 € icon%=ptr%!4 € ©(s$)<>ptr%!20 …
  669. KæG  È− "Wimp_SetCaretPosition",window%,icon%,-1,ptr%!12,ptr%!16,©(s$)
  670. Kð Í
  671. Kú! ò_Release_Stack( ptr%, 256 )
  672. Lá
  673. L:
  674. L&: ô  Get the indirected icon text.
  675. L":
  676. L,#Ý ¤_Read_String(window%, icon%)
  677. L6ê ptr%, s$
  678. L@   ptr%   =¤_Claim_Stack(256)
  679. LJ  ptr%!0 =window%
  680. LT  ptr%!4 =icon%
  681. L^"  È− "Wimp_GetIconState",,ptr%
  682. Lh  s$ = ¤getname(ptr%!28)
  683. Lr"  ò_Release_Stack( ptr%, 256 )
  684. L|=s$
  685. Lŷ:
  686. L‘4:  ô  Get the VALue of the indirected icon text.
  687. LŒ:
  688. L¤)Ý ¤_Read_String_Val( window%, icon% )
  689. L®(= »(¤_Read_String( window%, icon% ))
  690. L¸:
  691. LÂKô *********************************************************************
  692. LÌKô ***                       Templates                               ***
  693. LÖKô *********************************************************************
  694. Là:
  695. LêH: ô  Primitive to load a named window from the (open) template file.
  696. Lô:
  697. Lþ4Ý ¤_Load_Template( id$, rove%, sprite_pointer% )
  698. Mê result%, r0%, C%
  699. M&  $template_name% = id$+ "*"+ ½(0)
  700. Ml  È− "XWimp_LoadTemplate",, template_file%, rove%, inddata_end%, -1, template_name% ¸ r0%,, indrove%; C%
  701. M&5  ç ¤_PSR_V_Set( C% ) … Ŷ !r0%, ¤getname( r0%+4 )
  702. M0'  ç ¤getname(template_name%)<>id$ …
  703. M:g    Ŷ Wimp_Error_Fatal%, "Template file corrupt, couldn't find window with '"+ id$+ "' identifier."
  704. MD  Í
  705. MN)  template_file%!64 = sprite_pointer%
  706. MX7  È− "Wimp_CreateWindow",, template_file% ¸ result%
  707. Mb
  708. = result%
  709. Ml:
  710. MvJ: ô  This is used by template loader when loading in sprite / template
  711. M€-: ô  file, though can be used else where.
  712. M⇩L: ô  Returns length of file [0, &7FFFFFFF], or -1 if file doesn't exist.
  713. M“:
  714. Mfi"Ý ¤_XSizeof_File( file_name$ )
  715. M¨ê r0%, length%, c%
  716. M²9  È− "XOS_File", 17, file_name$ ¸ r0%,,,, length%; c%
  717. M¼  ç ¤_PSR_V_Set(c%) …
  718. MÆc    Ŷ Wimp_Error_Fatal%, "Couldn't load in "+ ¤leaf( file_name$ )+ " file: "+ ¤getname( r0%+4 )
  719. MР Í
  720. MÚ  ç r0%<>1 …
  721. Mä3    length% = -1        :  ô  Indicate missing.
  722. Mî  Í
  723. Mø
  724. = length%
  725. N:
  726. N Kô *********************************************************************
  727. NKô ***                       Local Stacks                            ***
  728. N Kô *********************************************************************
  729. N*:
  730. N4Ý ¤_Claim_Stack( size% )
  731. N>
  732. ê result%
  733. NH1  ç (Wimp_Stack_Top%+size%)<Wimp_Stack_End% …
  734. NR)    result%         = Wimp_Stack_Top%
  735. N\     Wimp_Stack_Top% += size%
  736. Nf  Ì
  737. Np/    Ŷ Wimp_Error_Fatal%, "Wimp Stack full."
  738. Nz  Í
  739. N☓
  740. = result%
  741. N‰:
  742. N—&Ý ò_Release_Stack( start%, size% )
  743. N¢9  ç (start%<Wimp_Stack%) ☓ (start%>Wimp_Stack_End%) …
  744. N¬B    Ŷ Wimp_Error_Fatal%, "Release_Stack: Invalid stack chunk."
  745. N¶  Ì
  746. NÀ8    ç (size%<0) ☓ ((start%+size%)>Wimp_Stack_End%) …
  747. NÊC      Ŷ Wimp_Error_Fatal%, "Release_Stack: Invalid chunk size."
  748. NÔ        Ì
  749. NÞ"      Wimp_Stack_Top% -= size%
  750. Nè%      ç Wimp_Stack_Top%<>start% …
  751. Nò9        Ŷ Wimp_Error_Fatal%, "Release_Stack: Bad pop"
  752. Nü       Í
  753. O        Í
  754. O  Í
  755. Oá
  756. O$:
  757. O.Kô *********************************************************************
  758. O8Kô ***                   Generic Wimp Initialise                     ***
  759. OBKô *********************************************************************
  760. OLKô ***         CALLS                                                 ***
  761. OVKô ***                 PROC_Init_Menus                               ***
  762. O`Kô ***                 PROC_Init_Template                            ***
  763. OjKô ***         SETS                                                  ***
  764. OtKô ***                 Icon_Bar_Icon%                                ***
  765. O~Kô ***                 Application$                                  ***
  766. O⇦Kô ***                 Version$                                      ***
  767. O‹Kô ***                 Task_Handle%                                  ***
  768. O†Kô ***                 ProgInfo_W%                                   ***
  769. O¦Kô ***                 Query_W%                                      ***
  770. O°Kô ***                 Wimp_Poll_Mask%                               ***
  771. OºKô ***   ERROR Handler --> PROC_Wimp_Error( 0, REPORT$+ line )       ***
  772. OÄKô *********************************************************************
  773. OÎ3ô * IN   application name, version, sub-version
  774. OØCô *      day of month [1, 31], month [1, 12], year {2/4 digits}
  775. Oâ:
  776. OìAÝ ò_Generic_Init_Wimp( name$, v%, s_v%, day%, month%, year% )
  777. Oö=  Version$ = Ã(v%)+ "."+ Ã(s_v%)+ " ("+ Â"0"+ Ã(day%), 2)
  778. P  Version$ += "-"
  779. P
  780. I  Version$ += Á"CBJanFebMarAprMayJunJulAugSepOctNovDec", month%*3, 3)
  781. P/  Version$ += "-"+ Â"19"+ Ã(year%), 4)+ ")"
  782. P  :
  783. P(  Application$ = name$
  784. P2  :
  785. P<D  È− "Wimp_Initialise", 200, &4B534154, name$ ¸ v%, Task_Handle%
  786. PF#  î Ŷ ò_Generic_Init_Wimp_Error
  787. PP  ç v%<200 …
  788. PZ`    Ŷ Wimp_Error_Fatal%, "Application requires a more recent version of the Window Manager."
  789. Pd  Í
  790. Pn  Wimp_Active% = ¹
  791. Px  :
  792. Pŵ  ò_Generic_Init_Template
  793. P…  ò_Init_Menus
  794. P„  :
  795. P G  Wimp_Active% = -2             :  ô  Now valid to close all menus.
  796. Pª  :
  797. P´A  ò_Icon_Bar_Icon            :  ô  Ensure something on there.
  798. P¾;  ò_Init_Null_Reason         :  ô  Sets Wimp_Poll_Mask%
  799. PÈ  :
  800. PÒ1  ò_Update_String( ProgInfo_W%, 7, Version$ )
  801. PÜ  :
  802. Pæ@  my_ref%    = -1               :  ô  For message protocols.
  803. Pð  save_ref%  = -1
  804. Pú  scrap_ref% = -1
  805. Q  :
  806. Q<  ò_Message_ModeChange       :  ô  Set up any variables.
  807. Qá
  808. Q":
  809. Q,Ý ò_Generic_Init_Wimp_Error
  810. Q6;  ò_Wimp_Error( Wimp_Error_Fatal%, ö$+ " ["+ Ãfi+ "]." )
  811. Q@  ò_Wimp_CloseDown
  812. QJ  à
  813. QTá
  814. Q^:
  815. QhKô *********************************************************************
  816. QrKô ***                   Wimp Polling loop                           ***
  817. Q|Kô *********************************************************************
  818. QŷKô ***         CALLS                                                 ***
  819. Q‘Kô ***                 PROC_Null_Reason_Code           [internal]    ***
  820. QŒKô ***                 PROC_Redraw_Window_Request                    ***
  821. Q¤Kô ***                 PROC_Open_Window_Request                      ***
  822. Q®Kô ***                 PROC_Close_Window_Request                     ***
  823. Q¸Kô ***                 PROC_Pointer_Leaving_Window     [ignored]     ***
  824. QÂKô ***                 PROC_Pointer_Entering_Window    [ignored]     ***
  825. QÌKô ***                 PROC_Mouse_Click                              ***
  826. QÖKô ***                 PROC_User_Drag_Box              [internal]    ***
  827. QàKô ***                 PROC_Key_Pressed                              ***
  828. QêKô ***                 PROC_Menu_Selection                           ***
  829. QôKô ***                 PROC_Scroll_Request             [ignored]     ***
  830. QþKô ***                 PROC_Lose_Caret                 [ignored]     ***
  831. RKô ***                 PROC_Gain_Caret                 [ignored]     ***
  832. RKô ***                 PROC_User_Message               [internal]    ***
  833. RKô ***                 PROC_User_Message_Recorded      [internal]    ***
  834. R&Kô ***                 PROC_User_Message_Acknowledge   [ignored]     ***
  835. R0Kô ***         USES                                                  ***
  836. R:Kô ***                 Do_Wimp%                                      ***
  837. RDKô *********************************************************************
  838. RN:
  839. RXÝ ò_Activate_Wimp
  840. Rbê Action%, Do_Wimp%
  841. Rl  Do_Wimp% = ¹
  842. Rv  õ
  843. R€5    È− "Wimp_Poll", Wimp_Poll_Mask%, W% ¸ Action%
  844. R⇩    È‰ Action% Ê
  845. R“!    É 0  : ò_Null_Reason_Code
  846. Rfi&    É 1  : ò_Redraw_Window_Request
  847. R¨$    É 2  : ò_Open_Window_Request
  848. R²%    É 3  : ò_Close_Window_Request
  849. R¼'    É 4  : ò_Pointer_Leaving_Window
  850. RÆ(    É 5  : ò_Pointer_Entering_Window
  851. RР   É 6  : ò_Mouse_Click
  852. RÚ    É 7  : ò_User_Drag_Box
  853. Rä    É 8  : ò_Key_Pressed
  854. Rî    É 9  : ò_Menu_Selection
  855. Rø    É 10 : ò_Scroll_Request
  856. S    É 11 : ò_Lose_Caret
  857. S     É 12 : ò_Gain_Caret
  858. S    É 17 : ò_User_Message
  859. S &    É 18 : ò_User_Message_Recorded
  860. S*)    É 19 : ò_User_Message_Acknowledge
  861. S4        Ë
  862. S>  ý ¬(Do_Wimp%)
  863. SHá
  864. SR:
  865. S\: ô  +0  = Window.
  866. Sf:
  867. SpÝ ò_Pointer_Leaving_Window
  868. SzD  Ŷ Wimp_Error_Fatal%, "Unexpected Pointer_Leaving_Window poll."
  869. S☓á
  870. S‰:
  871. S—Ý ò_Pointer_Entering_Window
  872. S¢E  Ŷ Wimp_Error_Fatal%, "Unexpected Pointer_Entering_Window poll."
  873. S‡
  874. S¶:
  875. SÀ: ô  +0  = Window.
  876. SÊ1: ô  +4  = Visible area minimum x co-ordinate
  877. SÔ1: ô  +8  = Visible area minimum y co-ordinate
  878. SÞ1: ô  +12 = Visible area maximum x co-ordinate
  879. Sè1: ô  +16 = Visible area maximum y co-ordinate
  880. Sò;: ô  +20 = Scroll x offset relative to work area origin
  881. Sü;: ô  +24 = Scroll y offset relative to work area origin
  882. TG: ô  +28 = Handle to open window behind (-1 means top of the window
  883. T&: ô        stack, -2 means bottom)
  884. T!: ô  +32 = Scroll x direction
  885. T$!: ô  +36 = Scroll y direction
  886. T.: ô  These last two are
  887. T8I: ô           -2      Page left/down (click in scroll bar outer area)
  888. TB;: ô           -1      Left/down (click on scroll arrow)
  889. TL#: ô           0       No change
  890. TV:: ô           +1      Right/up (click on scroll arrow)
  891. T`H: ô           +2      Page right/up (click in scroll bar outer area)
  892. Tj:
  893. TtÝ ò_Scroll_Request
  894. T~<  Ŷ Wimp_Error_Fatal%, "Unexpected Scroll_Request poll."
  895. T⇦á
  896. T‹:
  897. T†B: ô  +0  = Window handle that had the input focus (-1 if none)
  898. T¦': ô  +4  = Icon handle (-1 if none)
  899. T°<: ô  +8  = X-offset of caret (relative to window origin)
  900. Tº<: ô  +12 = Y-offset of caret (relative to window origin)
  901. TÄ%: ô  +16 = Caret height and flags
  902. TÎL: ô  +20 = Index of caret into string (or -1 if not in a writeable icon)
  903. TØL: ô  Event not generated if the input focus only changes position within
  904. Tâ: ô  the same window.
  905. Tì:
  906. TöÝ ò_Lose_Caret
  907. U8  Ŷ Wimp_Error_Fatal%, "Unexpected Lose_Caret poll."
  908. U
  909. á
  910. U:
  911. UÝ ò_Gain_Caret
  912. U(8  Ŷ Wimp_Error_Fatal%, "Unexpected Gain_Caret poll."
  913. U2á
  914. U<:
  915. UF Ý ò_User_Message_Acknowledge
  916. UPá
  917. UZ:
  918. UdKô *********************************************************************
  919. UnKô ***                 Generic Template loader                       ***
  920. UxKô *********************************************************************
  921. UŵKô *** Loads a Sprites file, if it exists, into the heap at          ***
  922. U…Kô *** W_Sprites%.  Next it loads in the template file, and reads in ***
  923. U„Kô *** the standard Query_W% and ProgInfo_W% windows, before passing ***
  924. U Kô *** control to PROC_Init_Template.  This routine should call      ***
  925. UªKô *** PROC_Load_Template( id$, indrove%, <sprites> ), where sprites ***
  926. U´Kô *** would be either W_Sprites% or +1 (for wimp sprites).          ***
  927. U¾Kô *********************************************************************
  928. UÈ:
  929. UÒÝ ò_Generic_Init_Template
  930. UÜ>ê inddata_end%, inddata%, indrove%, length%, r0%, c%, ptr%
  931. Uæ+ê template_file%, file$, template_name%
  932. Uð  :
  933. Uú2  file$   = "<"+ Application$+ "$Dir>.Sprites"
  934. V'  length% = ¤_XSizeof_File( file$ )
  935. V  ç length%>0 …
  936. V6    ò_Claim_Heap_Block( W_Sprites%, length% + 16 )
  937. V"$    W_Sprites%!0  = length% + 16
  938. V,    W_Sprites%!4  = 0
  939. V6    W_Sprites%!8  = 16
  940. V@    W_Sprites%!12 = 16
  941. VJ<    È− "XOS_SpriteOp", &20A, W_Sprites%, file$ ¸ r0%; c%
  942. VT    ç ¤_PSR_V_Set(c%) …
  943. V^U      Ŷ Wimp_Error_Fatal%, "Couldn't load in Sprites file: "+ ¤getname( r0%+4 ) )
  944. Vh        Í
  945. Vr  Ì
  946. V|    W_Sprites% = 0
  947. Vŷ  Í
  948. V‘  :
  949. VŒ4  file$   = "<"+ Application$+ "$Dir>.Templates"
  950. V¤'  length% = ¤_XSizeof_File( file$ )
  951. V®  ç length%<=0 …
  952. V¸<    Ŷ Wimp_Error_Fatal%, "Couldn't find Templates file."
  953. V  Í
  954. VÌ-  ò_Claim_Heap_Block( inddata%, length% )
  955. VÖ'  inddata_end% = inddata% + length%
  956. Và3  ò_Claim_Heap_Block( template_file%, length% )
  957. Vê.  ò_Claim_Heap_Block( template_name%, 16 )
  958. Vô/  È− "XWimp_OpenTemplate",, file$ ¸ r0%; c%
  959. Vþ  ç ¤_PSR_V_Set(c%) …
  960. WT     Ŷ Wimp_Error_Fatal%, "Couldn't load in Templates file: "+ ¤getname( r0%+4 )
  961. W  Í
  962. W  ç W_Sprites%>0 …
  963. W&I    ProgInfo_W% = ¤_Load_Template( "ProgInfo", inddata%, W_Sprites% )
  964. W0  Ì
  965. W:A    ProgInfo_W% = ¤_Load_Template( "ProgInfo", inddata%, +1 )
  966. WD  Í
  967. WN<  Query_W%    = ¤_Load_Template( "Query", indrove%, +1 )
  968. WX  ò_Init_Template
  969. Wb  È− "Wimp_CloseTemplate"
  970. Wl,  ò_Release_Heap_Block( template_name% )
  971. Wv,  ò_Release_Heap_Block( template_file% )
  972. Wۇ
  973. W⇩:
  974. W“Kô *********************************************************************
  975. WfiKô ***                 Null reason code handler                      ***
  976. W¨Kô *********************************************************************
  977. W²Kô *** A primitive "null reason" handler.  This allows an appl'tion  ***
  978. W¼Kô *** to have a queue of events to perform on a null reason.        ***
  979. WÆKô *** Better than nothing.                                          ***
  980. WÐKô *********************************************************************
  981. WÚ:
  982. WäÝ ò_Init_Null_Reason
  983. Wî  max_null_queue% = 10
  984. Wø-  Þ null_reason_queue$( max_null_queue% )
  985. X  null_reason$        = ""
  986. X   next_null_queue%    = 0
  987. X  do_next_null_queue% = 0
  988. X   :
  989. X*&  Wimp_Poll_Mask% = %1100000110001
  990. X4á
  991. X>:
  992. XHC: ô  Should really kill current null, or allow several at once.
  993. XR1: ô  This method is really a queueing system.
  994. X\H: ô  reason$ is the suffix of a function with a prefix _Null_Reason_
  995. XfI: ô  that should return TRUE if the routine should stop being called.
  996. Xp:
  997. Xz$Ý ò_Claim_Null_Reason( reason$ )
  998. X☓  ç null_reason$<>"" …
  999. X‰6    null_reason_queue$(next_null_queue%) = reason$
  1000. X—,    ç next_null_queue%<max_null_queue% …
  1001. X¢      next_null_queue% += 1
  1002. X¬        Í
  1003. X¶  Ì
  1004. XÀ    null_reason$ = reason$
  1005. XÊ2    Wimp_Poll_Mask% = Wimp_Poll_Mask% € (¬(1))
  1006. XÔ  Í
  1007. XÞá
  1008. Xè:
  1009. Xò6: ô  Should really only ever be called internally.
  1010. Xü:
  1011. Y&Ý ò_Release_Null_Reason( reason$ )
  1012. Y  ç next_null_queue%>0 …
  1013. Y@    null_reason$ = null_reason_queue$( do_next_null_queue% )
  1014. Y$/    ç do_next_null_queue%<max_null_queue% …
  1015. Y."      do_next_null_queue% += 1
  1016. Y8        Í
  1017. YB0    ç do_next_null_queue%=next_null_queue% …
  1018. YL!      do_next_null_queue% = 0
  1019. YV!      next_null_queue%    = 0
  1020. Y`        Í
  1021. Yj  Ì
  1022. Yt!    ç null_reason$<>reason$ …
  1023. Y~N      Ŷ Wimp_Error_Fatal%, "Bad release null reason code ("+ reason$+ ")."
  1024. Y⇦        Í
  1025. Y‹    null_reason$ = ""
  1026. Y†-    Wimp_Poll_Mask% = Wimp_Poll_Mask% ☓ 1
  1027. Y¦  Í
  1028. Y°á
  1029. Yº:
  1030. YÄ): ô  Called from main wimp poll loop.
  1031. YÎ=: ô  Only allow one routine per poll, named null_reason$.
  1032. YØ:
  1033. YâÝ ò_Null_Reason_Code
  1034. Yìê Ŷ
  1035. Yö1î Ŷ ê ÷ Ŷ : ò_e( "%.Wimp: Null_Reason_Code" )
  1036. Z,  ç  ("FN_Null_Reason_"+ null_reason$) …
  1037. Z
  1038. -    ò_Release_Null_Reason( null_reason$ )
  1039. Z  Í
  1040. Zá
  1041. Z(:
  1042. Z2Ý ¤_Null_Reason_
  1043. Z<<  Ŷ Wimp_Error_Fatal%, "Bad Null Reason (not expected)."
  1044. ZF= 0
  1045. ZP:
  1046. ZZKô *********************************************************************
  1047. ZdKô ***               User Drag box handler code                      ***
  1048. ZnKô *********************************************************************
  1049. Zx:
  1050. ZŵÝ ò_User_Drag_Box
  1051. Z…ê x%
  1052. Z„ê Ŷ
  1053. Z *î Ŷ ê ÷ Ŷ : ò_e( "%.Wimp: User_Drag" )
  1054. Zª%  x% =  ("FN_Dragged_"+ dragged$)
  1055. Z´!  ç dragged_button%<>(1*16) …
  1056. Z¾    ò_Close_All_Menus
  1057. ZÈ  Í
  1058. ZÒ,  È− "Wimp_DragBox",, -1 : dragged$ = ""
  1059. ZÜá
  1060. Zæ:
  1061. ZðÝ ¤_Dragged_
  1062. Zúê ptr%, w%, i%
  1063. [@  Ŷ Wimp_Error_Fatal%, "Bad User_Drag, dragged$ not set up."
  1064. [= 0
  1065. [:
  1066. ["H: ô  Called when noticed a mouse click of a "drag" type over a valid
  1067. [,G: ô  icon, this will then cause "FN_Dragged_"+routine$ to be called
  1068. [6": ô  when user stops the drag.
  1069. [@:
  1070. [J:Ý ò_Initiate_Drag( window%, icon%, button%, routine$ )
  1071. [Tê ptr%, ptr2%, sx%, sy%
  1072. [^!  ptr%  = ¤_Claim_Stack( 64 )
  1073. [h"  ptr2% = ¤_Claim_Stack( 256 )
  1074. [r  ptr%!0 = window%
  1075. [|  ptr%!4 = icon%
  1076. [ŷ#  È− "Wimp_GetIconState",, ptr%
  1077. [‘  ptr2%!0 = window%
  1078. [Œ&  È− "Wimp_GetWindowState",, ptr2%
  1079. [¤  sx%     = ptr2%!20
  1080. [®  sy%     = ptr2%!24
  1081. [¸  ptr%!0  = window%
  1082. [  ptr%!4  = 5
  1083. [Ì;  ptr%!8  += ptr2%!4  - sx%           :  ô Min screen X
  1084. [Ö;  ptr%!12 += ptr2%!16 - sy%           :  ô Min screen Y
  1085. [à4  ptr%!16 += ptr2%!4  - sx%           :  ô Max X
  1086. [ê4  ptr%!20 += ptr2%!16 - sy%           :  ô Max Y
  1087. [ô  ptr%!24 = 0
  1088. [þ  ptr%!28 = 0
  1089. \  ptr%!32 = logmaxx%
  1090. \  ptr%!36 = logmaxy%
  1091. \  È− "Wimp_DragBox",, ptr%
  1092. \&#  ò_Release_Stack( ptr2%, 256 )
  1093. \0!  ò_Release_Stack( ptr%, 64 )
  1094. \:  dragged$ = routine$
  1095. \D  dragged_button% = button%
  1096. \Ná
  1097. \X:
  1098. \bKô *********************************************************************
  1099. \lKô ***                   Initiate a save                             ***
  1100. \vKô *********************************************************************
  1101. \€:
  1102. \⇩I: ô  Usually used after a user has dragged a file icon from a Save as
  1103. \“A: ô  sub-menu.  It is entered with the mouse pointer over the
  1104. \fi1: ô  destination, which gets set the message.
  1105. \¨:
  1106. \²8Ý ò_Send_Save( filetype%, file_name$, file_length% )
  1107. \¼"ê ptr%, window%, icon%, x%, y%
  1108. \Æ!  ptr% = ¤_Claim_Stack( 320 )
  1109. \Ð%  È− "Wimp_GetPointerInfo",, ptr%
  1110. \Ú  x%      = !ptr%
  1111. \ä  y%      = ptr%!4
  1112. \î  window% = ptr%!12
  1113. \ø  icon%   = ptr%!16
  1114. ])  !ptr%   = (©(file_name$) + 48) € -4
  1115. ]   ptr%!12 = 0
  1116. ]  ptr%!16 = 1
  1117. ]   ptr%!20 = window%
  1118. ]*  ptr%!24 = icon%
  1119. ]4  ptr%!28 = x%
  1120. ]>  ptr%!32 = y%
  1121. ]H  ptr%!36 = file_length%
  1122. ]R  ptr%!40 = filetype%
  1123. ]\$  $(ptr%+44) = file_name$ + ½(0)
  1124. ]f5  È− "Wimp_SendMessage", 17, ptr%, window%, icon%
  1125. ]p  save_ref% = ptr%!8
  1126. ]z"  ò_Release_Stack( ptr%, 320 )
  1127. ]☓á
  1128. ]‰:
  1129. ]—Kô *********************************************************************
  1130. ]¢Kô ***                 Wimp message handling                         ***
  1131. ]¬Kô *********************************************************************
  1132. ]¶Kô ***         CALLS                                                 ***
  1133. ]ÀKô ***                 PROC_Wimp_CloseDown                           ***
  1134. ]ÊKô ***                 PROC_Message_DataSave                         ***
  1135. ]ÔKô ***                 PROC_Message_DataSaveAck                      ***
  1136. ]ÞKô ***                 PROC_Message_DataLoad                         ***
  1137. ]èKô ***                 PROC_Message_DataLoadAck                      ***
  1138. ]òKô ***                 PROC_Message_DataOpen                         ***
  1139. ]üKô ***                 PROC_Message_PreQuit                          ***
  1140. ^Kô ***                 PROC_Message_Pallette           [ignored]     ***
  1141. ^Kô ***                 PROC_Message_Help                             ***
  1142. ^Kô ***                 PROC_Message_MenuWarning                      ***
  1143. ^$Kô ***                 PROC_Message_ModeChange                       ***
  1144. ^.Kô ***                 PROC_Message_SetSlot            [ignored]     ***
  1145. ^8Kô ***                 FN_Doc_Modified                               ***
  1146. ^BKô *********************************************************************
  1147. ^L:
  1148. ^VÝ ò_User_Message_Recorded
  1149. ^`ê Ŷ
  1150. ^j6î Ŷ ê ÷ Ŷ : ò_e( "%.Wimp: User_Message_Recorded" )
  1151. ^t  ò_User_Message
  1152. ^~á
  1153. ^⇦:
  1154. ^‹Ý ò_User_Message
  1155. ^†ê Ŷ
  1156. ^¦-î Ŷ ê ÷ Ŷ : ò_e( "%.Wimp: User_Message" )
  1157. ^°  È‰ W%!16 Ê
  1158. ^º#    É 0      : ò_Wimp_CloseDown
  1159. ^Ä%    É 1      : ò_Message_DataSave
  1160. ^Î(    É 2      : ò_Message_DataSaveAck
  1161. ^Ø%    É 3      : ò_Message_DataLoad
  1162. ^â(    É 4      : ò_Message_DataLoadAck
  1163. ^ì%    É 5      : ò_Message_DataOpen
  1164. ^ö$    É 8      : ò_Message_PreQuit
  1165. _%    É 9      : ò_Message_Pallette
  1166. _
  1167. !    É &502   : ò_Message_Help
  1168. _(    É &400C0 : ò_Message_MenuWarning
  1169. _'    É &400C1 : ò_Message_ModeChange
  1170. _($    É &400C5 : ò_Message_SetSlot
  1171. _2  Ë
  1172. _<á
  1173. _F:
  1174. _PÝ ò_Message_SetSlot
  1175. _Zá
  1176. _d:
  1177. _nÝ ò_Message_Pallette
  1178. _xá
  1179. _ŵ:
  1180. _…$ô Last line of <BasicV$Lib>.Wimp
  1181. ÿ