From 6169b71a40efdfa4a149c21c6e93bdbe722ece12 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Fri, 26 May 2006 07:29:41 +0000
Subject: [PATCH] Minor tweaks

---
 library/ui/browser.factor | 2 +-
 library/ui/tracks.factor  | 6 +-----
 2 files changed, 2 insertions(+), 6 deletions(-)

diff --git a/library/ui/browser.factor b/library/ui/browser.factor
index 6eca8d03c2..7df62d4176 100644
--- a/library/ui/browser.factor
+++ b/library/ui/browser.factor
@@ -10,7 +10,7 @@ words ;
 TUPLE: browser-track showing builder closer ;
 
 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
     [ set-browser-track-closer ] keep
     [ set-browser-track-builder ] keep ;
diff --git a/library/ui/tracks.factor b/library/ui/tracks.factor
index f833dc3d66..373bbd6890 100644
--- a/library/ui/tracks.factor
+++ b/library/ui/tracks.factor
@@ -18,10 +18,6 @@ TUPLE: track sizes saved-sizes ;
 C: track ( orientation -- track )
     [ delegate>pack ] keep 1 over set-pack-fill ;
 
-: <x-track> { 0 1 0 } <track> ;
-
-: <y-track> { 1 0 0 } <track> ;
-
 : divider-sizes ( seq -- dim )
     length 1- 0 max divider-size n*v ;
 
@@ -39,7 +35,7 @@ M: track layout* ( track -- )
 
 : track-pref-dims ( dims sizes -- dims )
     [ [ dup zero? [ nip ] [ v/n ] if ] 2map max-dim ] keep
-    divider-sizes v+ ;
+    divider-sizes v+ [ >fixnum ] map ;
 
 M: track pref-dim* ( track -- dim )
     [