From 4a85b6fcbf1b3f3c67cf7135485097bc7765363c Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 22 Jul 2008 21:26:28 -0500
Subject: [PATCH] Fix load error

---
 extra/slides/slides.factor | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/extra/slides/slides.factor b/extra/slides/slides.factor
index 7efbe9ca56..e73da15296 100755
--- a/extra/slides/slides.factor
+++ b/extra/slides/slides.factor
@@ -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) ;