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

View File

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