version 1.55, 2008/07/15 16:11:49
|
version 1.56, 2008/08/24 12:28:11
|
Line 531 true Value toc-image
|
Line 531 true Value toc-image
|
IF -env cr s" p" >env THEN ; |
IF -env cr s" p" >env THEN ; |
|
|
: print-toc ( -- ) toc-index off cr |
: print-toc ( -- ) toc-index off cr |
toc-image IF s" img-menu" ELSE s" menu" THEN id= |
toc-image IF s" img-menu" ELSE s" menu" THEN class= |
s" div" >env cr s" p" >env |
s" div" >env cr s" p" >env |
0 parse |
0 parse |
dup 0= IF toc-name $! 0 ELSE |
dup 0= IF toc-name $! 0 ELSE |
Line 579 longtags set-current
|
Line 579 longtags set-current
|
: p<< s" p" >env ; |
: p<< s" p" >env ; |
: << +env ; |
: << +env ; |
: <* s" center" class= ; |
: <* s" center" class= ; |
: <red s" p" >env s" #ff0000" s" color" opt s" font" >env parse-par ; |
: <red s" red" class= s" p" >env parse-par ; |
: red> -env -env ; |
: red> -env ; |
: >> -env ; |
: >> -env ; |
: *> ; |
: *> ; |
: :: interpret ; |
: :: interpret ; |