2004-10-13 23:06:40 -04:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: lists
|
|
|
|
|
USE: kernel
|
2004-10-30 23:18:55 -04:00
|
|
|
USE: presentation
|
2004-10-13 23:06:40 -04:00
|
|
|
USE: test
|
|
|
|
|
|
|
|
|
|
[ t ] [ default-style assoc? ] unit-test
|
|
|
|
|
[ t ] [
|
2004-10-30 23:18:55 -04:00
|
|
|
f "fooquux" set-style "fooquux" style default-style =
|
2004-10-13 23:06:40 -04:00
|
|
|
] unit-test
|
|
|
|
|
[ "Sans-Serif" ] [
|
|
|
|
|
[
|
|
|
|
|
[ "font" | "Sans-Serif" ]
|
|
|
|
|
] "fooquux" set-style
|
2004-10-30 23:18:55 -04:00
|
|
|
"font" "fooquux" style assoc
|
2004-10-13 23:06:40 -04:00
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
f "fooquux" set-style
|
