Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[REBOL] Re: Linux fonts

From: didier:jacquemart:libertysurf at: 24-Apr-2002 22:34

Hi Ammon. Here's the response i got from Cyphre. It works fine. ==================================================== put this function in your user.r (watch out line breaks): -------------------snip--------------------------- set-default-font: func [ "sets default font for /View" font-blk [block! word!] "block of font attributes" ][ system/standard/face/font: make system/standard/face/font font-blk system/view/vid/vid-face/font: make system/view/vid/vid-face/font font-blk foreach [w s] system/view/vid/vid-styles [s/font: make s/font font-blk] ] -------------------snip------------------------------ then you can use for example: set-default-font [ name: "fixedsys" ;or your favorite font ] you can also put into the block any of these standard font parameters: [ name: "arial" style: none size: 12 color: 0.0.0 offset: 2x2 space: 0x0 align: 'center valign: 'center shadow: none ]