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

Scroll to the top when pane control changes

slava 2006-11-10 20:45:06 +00:00
parent 5e17832dbb
commit 071fca9916
3 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
library/ui/gadgets.factor
View File

@ -56,8 +56,10 @@ M: gadget equal? eq? ;
: nth-gadget gadget-children nth ; : nth-gadget gadget-children nth ;
: <zero-rect> { 0 0 } dup <rect> ;
C: gadget ( -- gadget ) C: gadget ( -- gadget )
{ 0 0 } dup <rect> over set-delegate <zero-rect> over set-delegate
{ 0 1 } over set-gadget-orientation { 0 1 } over set-gadget-orientation
t over set-gadget-visible? ; t over set-gadget-visible? ;

1
library/ui/gadgets/panes.factor
View File

@ -97,6 +97,7 @@ M: duplex-stream write-gadget
: with-pane ( pane quot -- ) : with-pane ( pane quot -- )
#! Clear the pane and run the quotation in a scope with #! Clear the pane and run the quotation in a scope with
#! stdio set to the pane. #! stdio set to the pane.
over scroll>top
over pane-clear >r <pane-stream> r> over pane-clear >r <pane-stream> r>
over >r with-stream r> ?terpri ; inline over >r with-stream r> ?terpri ; inline

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

@ -87,6 +87,9 @@ C: scroller ( gadget -- scroller )
: (scroll>bottom) ( scroller -- ) : (scroll>bottom) ( scroller -- )
dup scroller-viewport viewport-dim { 0 1 } v* scroll ; dup scroller-viewport viewport-dim { 0 1 } v* scroll ;
: scroll>top ( gadget -- )
<zero-rect> swap scroll>rect ;
: update-scroller ( scroller -- ) : update-scroller ( scroller -- )
dup scroller-follows [ dup scroller-follows [
dup scroller-follows t eq? [ dup scroller-follows t eq? [