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

Minor fixes

slava 2006-11-27 02:19:40 +00:00
parent 33b3acf90b
commit c72b6d1886
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/ui/gadgets/controls.factor
View File

@ -15,7 +15,7 @@ C: control ( model gadget quot -- gadget )
control-model model-value ; control-model model-value ;
: set-control-value ( value control -- ) : set-control-value ( value control -- )
control-model set-model* ; control-model set-model ;
M: control graft* M: control graft*
control-self dup dup control-model add-connection control-self dup dup control-model add-connection

2
library/ui/gadgets/scrolling.factor
View File

@ -28,7 +28,7 @@ scroller H{
{ T{ mouse-scroll } [ do-mouse-scroll ] } { T{ mouse-scroll } [ do-mouse-scroll ] }
} set-gestures } set-gestures
: init-scroller-model ( scroller -- point ) : init-scroller-model ( scroller -- )
dup scroller-x control-model dup scroller-x control-model
over scroller-y control-model over scroller-y control-model
2array <compose> swap set-scroller-model ; 2array <compose> swap set-scroller-model ;