home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / filemanager / director_1 / !Director / Menus / System / Fontmenu (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1995-05-02  |  2KB  |  72 lines
  1.  >Director:Menus.Fontmenu
  2. $;" at line ";
  3.  "OS_GetEnv" 
  4. "family$=
  5. arg(in$,"-family","")
  6.  name 256
  7. %menu=
  8. swi_number("Director_Menu")
  9. +endmenu=
  10. swi_number("Director_EndMenu")
  11.     )option=
  12. swi_number("Director_Option")
  13. +command=
  14. swi_number("Director_Command")
  15. %dash=
  16. swi_number("Director_Dash")
  17.  family$="" menu$="Font
  18. List" 
  19.  menu$=family$
  20.  menu,menu$+" -temp"
  21. font=0
  22. last$=""
  23.  system font
  24.  family$="" 
  25.  option,"System
  26. Font"
  27.  command,"UnSet Wimp$Font "+family$+"|MRedrawScreen|M"
  28.  "Font_ListFonts",,name,font 
  29.  (%101<<16),256 
  30.  ,,font
  31.  font<>-1 
  32.   font$=$name
  33.   dot=
  34. font$,".")
  35.  dot<>0 
  36.    f$=
  37. font$,dot-1)
  38.    w$=
  39. font$,dot+1)
  40.    f$=font$
  41.    w$=""
  42.  family$="" 
  43.  f$<>last$ 
  44. %a    
  45.  option,""""+f$+""" -sub ""Dynamic:Run Director:Menus.System.Fontmenu -family "+f$+""""
  46.     last$=f$
  47.  family$=f$ 
  48.  w$="" w$="(Regular)"
  49.  option,""""+w$+""""
  50. ,>    
  51.  command,"Set Wimp$Font \F"+font$+"|MRedrawScreen|M"
  52.     ws+=1
  53.  font=-1
  54.  family$<>"" 
  55.  ws=0 
  56.  option,"""(Regular)"""
  57.  command,"Set Wimp$Font \F"+family$+"|MRedrawScreen|M"
  58.  endmenu
  59.  "*Set Director$Menu "+menu$
  60. arg(str$,arg$,def$)
  61. str$,arg$)
  62.  i=0 
  63.  =def$
  64. arg$+1
  65. str$+" <"," ",i)
  66. str$,i,j-i)
  67. swi_number(swi$)
  68.  "OS_SWINumberFromString",,swi$ 
  69.  swi%
  70. D    =swi%
  71. "    "+
  72.