ui.gadgets.sliders: restoring the arrows (temporarily?).

diff --git a/basis/ui/gadgets/sliders/sliders.factor b/basis/ui/gadgets/sliders/sliders.factor
index 135ad39395aa8ae51a6c7b88953ad7156c510e29..fa1bb7258e53e16b2bd8793138d69b5016c51f80 100644 (file)
--- a/basis/ui/gadgets/sliders/sliders.factor
+++ b/basis/ui/gadgets/sliders/sliders.factor
@@ -235,7 +235,11 @@ PRIVATE>
         swap >>model
         16 >>line
         dup orientation>> {
+            [ <slider-pen> >>interior ]
             [ <thumb> >>thumb ]
             [ <elevator> >>elevator ]
             [ drop dup add-thumb-to-elevator 1 track-add ]
+            [ <up-button> f track-add ]
+            [ <down-button> f track-add ]
+            [ drop <gadget> { 1 1 } >>dim f track-add ]
         } cleave ;