home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HISOFT.LZH / HISOFT_A.MSA / HGT / NEWDESK.BAS < prev    next >
BASIC Source File  |  1991-09-03  |  645b  |  26 lines
  1. ' set or reset the desktop pattern
  2. SUB SetDeskAddr(BYVAL newdesk&)
  3. SHARED windx,windy,windw,windh
  4. SHARED desktree&
  5. desktree&=newdesk&
  6. junk=wind_set(0,WF_NEWDESK,PEEKW(VARPTR(newdesk&)),PEEKW(VARPTR(newdesk&)+2),0,0)
  7. ' cause the AES to re-draw the whole screen
  8. form_dial FMD_FINISH,0,0,0,0,Windx,Windy,Windw,Windh
  9. END SUB
  10.  
  11. SUB SetDesk(BYVAL treeno)
  12. SHARED windx,windy,windw,windh
  13. STATIC formaddr&
  14. IF treeno=-1 THEN
  15.     SetDeskAddr 0
  16. ELSE
  17.     junk=rsrc_gaddr(type_tree,treeno,formaddr&)
  18.     SelectTreeAddr formaddr&
  19.     Setob_x 0,Windx
  20.     Setob_y 0,Windy
  21.     Setob_width 0,Windw
  22.     Setob_height 0,Windh
  23.     SetDeskAddr formaddr&
  24. END IF
  25. END SUB
  26.