home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / programs / comms_networking / hearsay / !Hearsay / Libraries / Icons (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1996-01-09  |  733b  |  35 lines
  1.  > Icons library
  2.  Chris Rutter, 1995
  3. set_icon(window%,icon%,text$)
  4.  debugmode% 
  5. verbose 
  6. debug_message("Setting icon "+
  7. (icon%)+" to "+text$)
  8. text$=
  9. msg_parse(text$)
  10. wbk2%!0=window%
  11. wbk2%!4=icon%
  12.  "Wimp_GetIconState",,wbk2%
  13.  ((wbk2%!24) 
  14.  &100)=0 
  15.  $(wbk%+28)=text$ 
  16.  $(wbk2%!28)=text$
  17.  "Wimp_GetCaretPosition",,wbk2%
  18.  wbk2%!4=icon% 
  19.  wbk2%!0=window% 
  20.  "Wimp_SetCaretPosition",window%,icon%,0,0,-1,
  21. (text$)
  22. wbk2%!0=window%
  23. wbk2%!4=icon%
  24. wbk2%!8=0
  25. wbk2%!12=0
  26.  "Wimp_SetIconState",,wbk2%
  27. get_icon(window%,icon%)
  28. wbk2%!0=window%
  29. wbk2%!4=icon%
  30.  "Wimp_GetIconState",,wbk2%
  31.  ((wbk2%!24) 
  32.  &100)=0 =
  33. ct(wbk2%+8+20)
  34. ct(wbk2%!28)
  35.