over push -> suffix!, over push-all -> append!

[factor.git] / extra / ui / gadgets / controls / controls.factor

diff --git a/extra/ui/gadgets/controls/controls.factor b/extra/ui/gadgets/controls/controls.factor
index 0c7841b11f11cf60bb3d77772b37ce31503efce0..5de6da87102089f720591b0b246f8019e3ea755f 100644 (file)
--- a/extra/ui/gadgets/controls/controls.factor
+++ b/extra/ui/gadgets/controls/controls.factor
@@ -59,9 +59,9 @@ M: model-field model-changed 2dup model*>> =
 : <slider> ( init page min max step -- slider ) <range> horizontal slider:<slider> ;
 
 : image-prep ( -- image ) scan current-vocab name>> "vocab:" "/icons/" surround ".tiff" surround <image-name> dup cached-image drop ;
-SYNTAX: IMG-MODEL-BTN: image-prep [ <model-btn> ] curry over push-all ;
+SYNTAX: IMG-MODEL-BTN: image-prep [ <model-btn> ] curry append! ;
 
-SYNTAX: IMG-BTN: image-prep [ swap <button> ] curry over push-all ;
+SYNTAX: IMG-BTN: image-prep [ swap <button> ] curry append! ;
 
 GENERIC: output-model ( gadget -- model )
 M: gadget output-model model>> ;
@@ -80,4 +80,4 @@ INSTANCE: gadget-monad monad
 INSTANCE: gadget monad
 M: gadget monad-of drop gadget-monad ;
 M: gadget-monad return drop <gadget> swap >>model ;
-M: gadget >>= output-model [ swap call( x -- y ) ] curry ; 
\ No newline at end of file
+M: gadget >>= output-model [ swap call( x -- y ) ] curry ;