home *** CD-ROM | disk | FTP | other *** search
/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / program / code / desklib / DeskLib / !DeskLib / OpenDirH (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1995-04-17  |  705 b   |  25 lines
  1.  Open a header directory in the topright screenposition
  2.  without blocking the iconbar
  3.  Erik de Kort (c) 1993
  4.  "OS_ReadModeVariable",-1,4  
  5.  ,,Xeig%
  6.  "OS_ReadModeVariable",-1,5  
  7.  ,,Yeig%
  8.  "OS_ReadModeVariable",-1,11 
  9.  ,,Xmax%
  10.  "OS_ReadModeVariable",-1,12 
  11.  ,,Ymax%
  12. LToolSpriteWidth% = 40  :
  13.  Width/Height of ScrollBar toolsprites. You may
  14. QToolSpriteHeight%= 40  :
  15.  need to change these if you have custom toolsprites
  16. w% = 256
  17. /x% = (Xmax%<<Xeig%) - w% - ToolSpriteWidth%
  18. ,y% = (Ymax%<<Yeig%) - ToolSpriteHeight% 
  19. h% = y% - 136
  20. ("Filer_OpenDir <Obey$Dir>.h_doc "+
  21. x%+" "+
  22. y%+" "+
  23. w%+" "+
  24. h%+" -SmallIcons -SortByName")
  25.