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

Fix load error

db4
Slava Pestov 2008-07-22 21:26:28 -05:00
parent 6333223a2e
commit 4a85b6fcbf
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/slides/slides.factor
View File

@ -3,7 +3,7 @@
USING: arrays hashtables help.markup help.stylesheet io USING: arrays hashtables help.markup help.stylesheet io
io.styles kernel math models namespaces sequences ui ui.gadgets io.styles kernel math models namespaces sequences ui ui.gadgets
ui.gadgets.books ui.gadgets.panes ui.gestures ui.render ui.gadgets.books ui.gadgets.panes ui.gestures ui.render
parser ; parser accessors ;
IN: slides IN: slides
: stylesheet : stylesheet
@ -48,10 +48,9 @@ IN: slides
: $divider ( -- ) : $divider ( -- )
[ [
<gadget> <gadget>
T{ gradient f { { 0.25 0.25 0.25 1.0 } { 1.0 1.0 1.0 0.0 } } } T{ gradient f { { 0.25 0.25 0.25 1.0 } { 1.0 1.0 1.0 0.0 } } } >>interior
over set-gadget-interior { 800 10 } >>dim
{ 800 10 } over (>>dim) { 1 0 } >>orientation
{ 1 0 } over set-gadget-orientation
gadget. gadget.
] ($block) ; ] ($block) ;