Loading ...
Sorry, an error occurred while loading the content.

985Re: [jasspa] Unix fonts on ME for Windows, possible bug?

Expand Messages
  • Thomas Hundt
    Feb 4, 2004
      Gabriel wrote:
      > I am using XP (unluckily, I can't choose). I install the fonts from the
      > fonts settings in the start menu and then go to
      > "user-setup/platform/choose font.
      >
      > The fonts are there, the preview works, but as soon as I apply it
      > (current) after saving it it goes back to some other font (normally
      > courier new).

      I can't get it to work, either -- running 04/01/01 under Win2kSP3.

      When I select a font using the User Setup panel, it briefly uses it and
      resizes the window, and then flips back. When I go into User Setup
      again, the font info is there.

      However, I *can* change fonts using a routine I had written long ago
      called cycle-font. (This depends on a %os variable being set, so I'm
      including that bit, too.)


      ;------------------------------------------------------------
      ; Determine platform
      ;------------------------------------------------------------
      !if &seq $platform "win32"
      set-variable %os "mswin"
      !else
      !if &seq $platform "dos"
      set-variable %os "msdos"
      !else
      set-variable %os "unix"
      set-variable %os &cond &band $mouse 0x10 "xwin" "unix"
      ; set-variable %os &cond &band $system 0x01 "unix" "xwin"
      !endif
      !endif



      ;------------------------------------------------------------
      ; cycle-font: cycles through font sizes
      ;------------------------------------------------------------
      define-macro cycle-font
      ;-----
      ; Windows fonts
      ;-----
      !if &seq %os "mswin"
      ; change-font "name" charSet weight width height
      set-variable %font-number &mod &add %font-number 1 7
      !if &equ %font-number 1
      1 change-font "Fixedsys" 1 0 0 15
      ml-write "[font Fixedsys]"
      !elif &equ %font-number 2
      1 change-font "Lucida Console" 1 0 0 12
      ml-write "[font Lucida Console 12]"
      !elif &equ %font-number 3
      1 change-font "Lucida Console" 1 0 0 11
      ml-write "[font Lucida Console 11]"
      !elif &equ %font-number 4
      1 change-font "vt100" 1 0 0 16
      ml-write "[font vt100 16]"
      !elif &equ %font-number 5
      1 change-font "vt100" 1 0 0 8
      ml-write "[font vt100 8]"
      !elif &equ %font-number 6
      1 change-font "vt100" 1 0 0 12
      ml-write "[font vt100 12]"
      !elif &equ %font-number 7
      1 change-font "Lucida Console" 1 0 0 15
      ml-write "[font Lucida Console 15]"
      !else
      1 change-font "8x13" 1 0 8 13 ; default font (see: cycle-font)
      ml-write "[font 8x13]"
      !endif
      !elif &seq %os "xwin"
      ;-----
      ; X Window fonts
      ;-----
      ; fonts left out: 5x7,
      set-variable %font-number &mod &add %font-number 1 6
      !if &equ %font-number 1
      1 change-font "6x10"
      ml-write "[font 6x10]"
      !elif &equ %font-number 2
      1 change-font "fixed"
      ml-write "[font fixed]"
      !elif &equ %font-number 3
      1 change-font "9x15"
      ml-write "[font 9x15]"
      !elif &equ %font-number 4
      ; TODO: fix this, it doesn't work right at the office :-(
      ; 1 change-font "-b&h-*-bold-r-*-*-14-*-72-72-m-*-*-*"
      ; ml-write "[font
      -b&h-*-bold-r-*-*-14-*-72-72-m-*-*-*]"
      1 change-font
      "-b&h-lucidatypewriter-bold-*-*-*-14-*-75-75-*-*-*-*"
      ml-write "[font
      -b&h-lucidatypewriter-bold-*-*-*-14-*-75-75-*-*-*-*]"
      !elif &equ %font-number 5
      1 change-font "10x20"
      ml-write "[font 10x20]"
      !else ; default: %font-number=0
      !force 1 change-font "8x13"
      ml-write "[font 8x13]"
      !endif
      !else
      ml-write "[No fonts available for this platform]"
      !endif ; xwin

      !emacro
      global-bind-key cycle-font S-f3






      --
      Thomas Hundt
    • Show all 16 messages in this topic