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

Minor tweaks

slava 2006-05-26 07:29:41 +00:00
parent 7e4d704f07
commit 6169b71a40
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
library/ui/browser.factor
View File

@ -10,7 +10,7 @@ words ;
TUPLE: browser-track showing builder closer ; TUPLE: browser-track showing builder closer ;
C: browser-track ( builder closer -- gadget ) C: browser-track ( builder closer -- gadget )
<x-track> over set-delegate { 0 1 0 } <track> over set-delegate
H{ } clone over set-browser-track-showing H{ } clone over set-browser-track-showing
[ set-browser-track-closer ] keep [ set-browser-track-closer ] keep
[ set-browser-track-builder ] keep ; [ set-browser-track-builder ] keep ;

6
library/ui/tracks.factor
View File

@ -18,10 +18,6 @@ TUPLE: track sizes saved-sizes ;
C: track ( orientation -- track ) C: track ( orientation -- track )
[ delegate>pack ] keep 1 over set-pack-fill ; [ delegate>pack ] keep 1 over set-pack-fill ;
: <x-track> { 0 1 0 } <track> ;
: <y-track> { 1 0 0 } <track> ;
: divider-sizes ( seq -- dim ) : divider-sizes ( seq -- dim )
length 1- 0 max divider-size n*v ; length 1- 0 max divider-size n*v ;
@ -39,7 +35,7 @@ M: track layout* ( track -- )
: track-pref-dims ( dims sizes -- dims ) : track-pref-dims ( dims sizes -- dims )
[ [ dup zero? [ nip ] [ v/n ] if ] 2map max-dim ] keep [ [ dup zero? [ nip ] [ v/n ] if ] 2map max-dim ] keep
divider-sizes v+ ; divider-sizes v+ [ >fixnum ] map ;
M: track pref-dim* ( track -- dim ) M: track pref-dim* ( track -- dim )
[ [