steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Presentation fixes

darcs
slava 2006-11-15 06:02:13 +00:00
parent a47e5793ad
commit 74ddfad32c
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
examples/mslug-talk.factor
View File

@ -12,6 +12,13 @@ IN: mslug
: mslug-stylesheet
H{
{ default-style
H{
{ font "serif" }
{ font-size 24 }
{ wrap-margin 700 }
}
}
{ code-style
H{
{ font "monospace" }
@ -42,15 +49,12 @@ IN: mslug
T{ gradient f { { 0.8 0.8 1.0 1.0 } { 1.0 0.8 1.0 1.0 } } }
swap set-gadget-interior ;
: tutorial-style
H{
{ font "serif" }
{ font-size 24 }
{ wrap-margin 700 }
} ;
: <page> ( list -- gadget )
[ tutorial-style [ print-element ] with-style ] make-pane
[
mslug-stylesheet clone [
[ print-element ] with-default-style
] bind
] make-pane
dup page-theme ;
: $slide ( element -- )