fix bootstrap errors

TODO.FACTOR.txt

@@ -6,6 +6,8 @@
 
 + ui:
 
+- inspector: complain if UI not running
+- opening listeners fails
 - menu dragging
 - hide menu after item selected
 - scrollable inspector
@@ -55,6 +57,7 @@
 
 + kernel:
 
+- hash-size regression
 - vectors: ensure its ok with bignum indices
 - cat, reverse-cat primitives
 - code gc

library/bootstrap/boot-stage2.factor

@@ -173,8 +173,8 @@ cpu "x86" = "mini" get not and [
         "/library/ui/gestures.factor"
         "/library/ui/hand.factor"
         "/library/ui/layouts.factor"
-        "/library/ui/halo.factor"
         "/library/ui/world.factor"
+        "/library/ui/halo.factor"
         "/library/ui/labels.factor"
         "/library/ui/buttons.factor"
         "/library/ui/line-editor.factor"
@@ -182,9 +182,11 @@ cpu "x86" = "mini" get not and [
         "/library/ui/dialogs.factor"
         "/library/ui/events.factor"
         "/library/ui/scrolling.factor"
+        "/library/ui/menus.factor"
         "/library/ui/presentations.factor"
         "/library/ui/panes.factor"
         "/library/ui/inspector.factor"
+        "/library/ui/root-menu.factor"
     ] [
         dup print
         run-resource

library/ui/paint.factor

@@ -147,6 +147,13 @@ SYMBOL: clip
 : intersect ( rect rect -- rect )
     [ intersect-x ] 2keep intersect-y clip-rect ;
 
+: >sdl-rect ( rectangle -- sdlrect )
+    [ rectangle-x ] keep
+    [ rectangle-y ] keep
+    [ rectangle-w ] keep
+    rectangle-h
+    make-rect ;
+
 : set-clip ( rect -- ? )
     #! The top/left corner of the clip rectangle is the location
     #! of the gadget on the screen. The bottom/right is the
@@ -170,13 +177,6 @@ M: object shape-clip
         call
     ] with-scope ; inline
 
-: >sdl-rect ( rectangle -- sdlrect )
-    [ rectangle-x ] keep
-    [ rectangle-y ] keep
-    [ rectangle-w ] keep
-    rectangle-h
-    make-rect ;
-
 : draw-gadget ( gadget -- )
     #! All drawing done inside draw-shape is done with the
     #! gadget's paint. If the gadget does not have any custom

library/ui/root-menu.factor

@@ -0,0 +1,18 @@
+! Copyright (C) 2005 Slava Pestov.
+! See http://factor.sf.net/license.txt for BSD license.
+IN: gadgets
+USING: kernel memory namespaces ;
+
+SYMBOL: root-menu
+
+: show-root-menu ( -- )
+    root-menu get <menu> show-menu ;
+
+[
+    [[ "Listener" [ <console-pane> <scroller> world get add-gadget ] ]]
+    [[ "Globals" [ global inspect ] ]]
+    [[ "Save image" [ "image" get save-image ] ]]
+    [[ "Exit" [ f world get set-world-running? ] ]]
+] root-menu set
+
+world get [ drop show-root-menu ] [ button-down 1 ] set-action

library/ui/world.factor

@@ -56,18 +56,7 @@ DEFER: handle-event
         drop world get world-step [ yield run-world ] when
     ] ifte ;
 
-SYMBOL: root-menu
-
-: show-root-menu ( -- )
-    root-menu get <menu> show-menu ;
-
 global [
-    [
-        [[ "Listener" [ <console-pane> <scroller> world get add-gadget ] ]]
-        [[ "Globals" [ global inspect ] ]]
-        [[ "Save image" [ "image" get save-image ] ]]
-        [[ "Exit" [ f world get set-world-running? ] ]]
-    ] root-menu set
     
     <world> world set
     
@@ -77,13 +66,9 @@ global [
 
         [[ background [ 255 255 255 ] ]]
         [[ foreground [ 0 0 0 ] ]]
-        [[ bevel-1    [ 224 224 255 ] ]]
-        [[ bevel-2    [ 192 192 216 ] ]]
         [[ reverse-video f ]]
-        [[ font       [[ "Sans Serif" 12 ]] ]]
+        [[ font [[ "Sans Serif" 12 ]] ]]
     }} world get set-gadget-paint
-
-    world get [ drop show-root-menu ] [ button-down 1 ] set-action
 ] bind
 
 : title ( -- str )