home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 123 / af123a.adf / af123a2.lzx / Selector / bro / makebrowser < prev    next >
Encoding:
AmigaDOS Script File  |  1999-03-04  |  1.2 KB  |  48 lines
  1. .key dir
  2. .bra {
  3. .ket }
  4.  
  5. failat 21
  6.  
  7. echo >t:file.sel "title *"{dir}*""
  8. echo >>t:file.sel "gap 0"
  9. echo >>t:file.sel "settings off"
  10. echo >>t:file.sel "flow right*NSortbuttons ON"
  11.  
  12. echo >>t:file.sel "onexit exec 'delete >nil: t:file.sel'"
  13. echo >>t:file.sel "color yellow black"
  14. echo >>t:file.sel "button Parent exec @execute sel:bro/goparent *"{dir}*"@ load t:file.sel"
  15. echo >>t:file.sel "button Devs exec @copy >nil: sel:bro/browser.sel t:file.sel@ load t:file.sel"
  16. echo >>t:file.sel "color white*Ncenter off"
  17. echo >>t:file.sel "text Dirs:"
  18.  
  19. list >>t:file.sel "{dir}" pat ~(#?.info) dirs lformat "button *"%n*" exec @execute sel:bro/makebrowser *"{dir}%n/*"@ load t:file.sel"
  20. if warn
  21.     copy >nil: sel:bro/browser.sel t:file.sel
  22.     quit
  23. endif
  24.  
  25. echo >>t:file.sel "color black"
  26. echo >>t:file.sel "text Files:"
  27. list >>t:file.sel "{dir}" pat ~(#?.info) files lformat "button *"%n*" run £execute sel:bro/what *"{dir}%n*"£"
  28. if warn
  29.     copy >nil: sel:bro/browser.sel t:file.sel
  30.     quit
  31. endif
  32.  
  33. set lines `count file t:file.sel text ascii 10`
  34. set size 15
  35.  
  36. if $lines GT 30 VAL
  37.     set size 13
  38. endif
  39.  
  40. if $lines GT 50 VAL
  41.     set size 11
  42. endif
  43.  
  44. echo >>t:file.sel "font courier $size orDefault"
  45.  
  46. unset size
  47. unset lines
  48.