reverse-video-font ( font -- font )


Vocabulary
fonts

Inputs
fontan object


Outputs
fontan object


Definition
USING: accessors kernel ;

IN: fonts

: reverse-video-font ( font -- font )
clone dup
[ foreground>> >>background ] [ background>> >>foreground ]
bi ;