22 lines
519 B
Factor
22 lines
519 B
Factor
|
! Copyright (C) 2005 Slava Pestov.
|
||
|
! See http://factor.sf.net/license.txt for BSD license.
|
||
|
IN: styles
|
||
|
USING: kernel namespaces ;
|
||
|
|
||
|
! Colors are lists of three integers, 0..255.
|
||
|
SYMBOL: foreground ! Used for text and outline shapes.
|
||
|
SYMBOL: background ! Used for filled shapes.
|
||
|
SYMBOL: reverse-video
|
||
|
|
||
|
: fg reverse-video get background foreground ? get ;
|
||
|
: bg reverse-video get foreground background ? get ;
|
||
|
|
||
|
SYMBOL: font
|
||
|
SYMBOL: font-size
|
||
|
SYMBOL: font-style
|
||
|
|
||
|
SYMBOL: plain
|
||
|
SYMBOL: bold
|
||
|
SYMBOL: italic
|
||
|
SYMBOL: bold-italic
|