home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / hearsay / !Hearsay / Libraries / Windows (.txt) < prev   
RISC OS BBC BASIC V Source  |  1996-01-09  |  2KB  |  58 lines
  1.  > Windows library
  2.  Chris Rutter, 1995
  3. load_window(window$)
  4.  ind%,inds%,window%
  5.  "Wimp_LoadTemplate",,-1,-1,-1,-1,window$,0 
  6.  ,,inds%
  7.  inds%>0 
  8.  ind% inds%+1
  9.  debugmode% 
  10. verbose 
  11. debug_message("Loading window "+window$+", indirected space="+
  12. (inds%))
  13. memory_needed%+=inds%
  14.  inds%>0 
  15.  "Wimp_LoadTemplate",,block%,ind%,ind%+inds%+1,-1,window$,0
  16.  "Wimp_LoadTemplate",,block%,-1,-1,-1,window$,0
  17. block%!64=sprites%
  18.  "Wimp_CreateWindow",,block% 
  19.  window%
  20. =window%
  21. open_window(window%)
  22. !wbk3%=window%
  23.  "Wimp_GetWindowState",,wbk3%
  24. wbk3%!28=-1
  25.  window%=news_window% 
  26. intercept_news_window_open(wbk3%) 
  27.  "Wimp_OpenWindow",,wbk3%
  28. open_window_current_layer(window_handle%)
  29. !wbk3%=window_handle%
  30.  "Wimp_GetWindowState",,wbk3%
  31.  "Wimp_OpenWindow",,wbk3%
  32. close_window(window%)
  33. !wbk3%=window%
  34.  "Wimp_GetWindowState",,wbk3%
  35.  "Wimp_CloseWindow",,wbk3%
  36.  !wbk3%=news_window% 
  37. close_window(newspane_window%)
  38. intercept_news_window_open(block%)
  39.  behind%
  40. behind%=block%!28
  41. copy_memory(block%,wbk4%,36)
  42. wbk4%!28=newspane_window%
  43.  "Wimp_OpenWindow",,wbk4%
  44.  "Wimp_GetWindowState",,block%
  45. newspane_x%=block%!4
  46. newspane_y%=block%!16
  47. 0&newspane_width%=block%!12-block%!4
  48. block%!0=newspane_window%
  49. block%!4=newspane_x%
  50. 3)block%!8=newspane_y%-newspane_height%
  51. 4)block%!12=newspane_x%+newspane_width%
  52. block%!16=newspane_y%
  53.  block%!20=0
  54. block%!24=0
  55. block%!28=behind%
  56.  "Wimp_OpenWindow",,block%
  57.  "Wimp_OpenWindow",,wbk4%
  58.