Remove redundant code, cleanups

TODO.FACTOR.txt

@@ -46,9 +46,7 @@
 + ui/help:
 
 - clearing pane with ^L leaves scrollbar a pixel off
-  - clicking objects sends them to the listener
-  - right click sends to listener & pushes on the stack
-- reuse windows where possible
+- right click sends to listener & pushes on the stack
 - new browser:
   - browse generic words and classes
   - need actions for reloading the source file and opening word in jEdit
@@ -57,7 +55,6 @@
 - make-frame should compile
 - track: don't allow negative dimensions
 - fix top level window positioning
-- changing window titles
 - clicks sent twice
 - speed up ideas:
   - only do clipping for certain gadgets
@@ -70,7 +67,7 @@
   - window zooming doesn't work
   - polish OS X menu bar code
   - dock menu
-  - services do not launch if not running
+  - services do not launch if factor not running
 - when scrolling wheel, or moving mouse out of window, rollover is not
   updated
 - focus is not top-level window aware
@@ -81,6 +78,7 @@
 
 + compiler/ffi:
 
+- amd64 crash
 - get factor running on mac intel
 - free up r11, r12 as a vreg on ppc
 - float= on powerpc doesn't consider nans equal

library/ui/browser.factor

@@ -32,7 +32,7 @@ C: browser-track ( builder closer -- gadget )
     [ dup browser-track-closer call ] 2keep
     [ browser-track-showing remove-hash* ] keep track-remove ;
 
-TUPLE: browser vocabs vocab-track word-track ;
+TUPLE: browser vocab-track word-track ;
 
 : find-browser [ browser? ] find-parent ;
 
@@ -111,15 +111,6 @@ DEFER: show-vocab
     vocabs [ <vocab-button> ] map make-pile <scroller>
     "Vocabularies" f <tile> ;
 
-: add-vocabs ( vocabs browser -- )
-    [ set-browser-vocabs ] 2keep track-add ;
-
-: add-vocab-track ( track browser -- )
-    [ set-browser-vocab-track ] 2keep track-add ;
-
-: add-word-track ( track browser -- )
-    [ set-browser-word-track ] 2keep track-add ;
-
 : <vocab-track> ( -- track )
     [ <vocab-view> ] [ find-browser hide-vocab-words ]
     <browser-track> ;
@@ -129,7 +120,7 @@ DEFER: show-vocab
 
 C: browser ( -- browser )
     {
-        { [ <vocabs> ] set-browser-vocabs 1/5 }
+        { [ <vocabs> ] f 1/5 }
         { [ <vocab-track> ] set-browser-vocab-track 1/5 }
         { [ <word-track> ] set-browser-word-track 3/5 }
     } { 1 0 0 } make-track* ;

library/x11/windows.factor

@@ -49,8 +49,7 @@ USING: alien hashtables kernel math namespaces sequences ;
 
 : map-window ( win -- ) dpy get swap XMapWindow drop ;
 
-: map-window* ( world win -- )
-    dup set-closable map-window ;
+: map-window* ( world win -- ) dup set-closable map-window ;
 
 : glx-window* ( world dim -- win context )
     glx-window >r [ windows get set-hash ] keep r> ;