19 lines
339 B
Factor
19 lines
339 B
Factor
IN: scratchpad
|
|
USE: lists
|
|
USE: kernel
|
|
USE: presentation
|
|
USE: test
|
|
|
|
[ t ] [ default-style assoc? ] unit-test
|
|
[ t ] [
|
|
f "fooquux" set-style "fooquux" style default-style =
|
|
] unit-test
|
|
[ "Sans-Serif" ] [
|
|
[
|
|
[ "font" | "Sans-Serif" ]
|
|
] "fooquux" set-style
|
|
"font" "fooquux" style assoc
|
|
] unit-test
|
|
|
|
f "fooquux" set-style
|