diff --git a/library/ui/editors.factor b/library/ui/editors.factor
index dd5762609f..f114215629 100644
--- a/library/ui/editors.factor
+++ b/library/ui/editors.factor
@@ -50,9 +50,7 @@ TUPLE: editor line caret ;
     [ line-text get x>offset caret set ] with-editor ;
 
 : click-editor ( editor -- )
-    hand
-    2dup relative shape-x pick set-caret-x
-    request-focus ;
+    dup hand relative shape-x over set-caret-x request-focus ;
 
 : editor-actions ( editor -- )
     [
diff --git a/library/ui/gadgets.factor b/library/ui/gadgets.factor
index 146b97ce8e..b48ba5553d 100644
--- a/library/ui/gadgets.factor
+++ b/library/ui/gadgets.factor
@@ -90,3 +90,11 @@ M: gadget layout*
 GENERIC: user-input* ( ch gadget -- ? )
 
 M: gadget user-input* 2drop t ;
+
+GENERIC: focusable-child* ( gadget -- gadget/t )
+
+M: gadget focusable-child* drop t ;
+
+: focusable-child ( gadget -- gadget )
+    dup focusable-child*
+    dup t = [ drop ] [ nip focusable-child ] ifte ;
diff --git a/library/ui/hand.factor b/library/ui/hand.factor
index 957e8b5900..073fcc1bc0 100644
--- a/library/ui/hand.factor
+++ b/library/ui/hand.factor
@@ -104,8 +104,9 @@ C: hand ( world -- hand )
     #! Called when a gadget is removed or added.
     [ dup shape-x swap shape-y ] keep move-hand ;
 
-: request-focus ( gadget hand -- )
-    dup >r hand-focus
+: request-focus ( gadget -- )
+    focusable-child
+    hand hand-focus
     2dup lose-focus
-    swap dup r> set-hand-focus
+    swap dup hand set-hand-focus
     gain-focus ;
diff --git a/library/ui/init-world.factor b/library/ui/init-world.factor
index 8474ff434f..10791ef1eb 100644
--- a/library/ui/init-world.factor
+++ b/library/ui/init-world.factor
@@ -22,6 +22,9 @@ global [
     
     <plain-gadget> add-layer
 
-    <console> "Stack display goes here" <label> <y-splitter>
+    <console> dup
+    "Stack display goes here" <label> <y-splitter>
     3/4 over set-splitter-split add-layer
+    
+    request-focus
 ] bind
diff --git a/library/ui/layouts.factor b/library/ui/layouts.factor
index 34497a6fc8..f6aa142855 100644
--- a/library/ui/layouts.factor
+++ b/library/ui/layouts.factor
@@ -70,11 +70,11 @@ C: pack ( align fill vector -- pack )
 
 : <pile> { 0 1 0 } <pack> ;
 
-: <line-pile> 0 1 <pile> ;
+: <line-pile> 0 0 <pile> ;
 
 : <shelf> { 1 0 0 } <pack> ;
 
-: <line-shelf> 0 1 <shelf> ;
+: <line-shelf> 0 0 <shelf> ;
 
 M: pack orientation pack-vector ;
 
diff --git a/library/ui/panes.factor b/library/ui/panes.factor
index 05cf9bfda0..4d994f0dd6 100644
--- a/library/ui/panes.factor
+++ b/library/ui/panes.factor
@@ -50,12 +50,15 @@ TUPLE: pane output active current input continuation ;
 C: pane ( -- pane )
     <line-pile> over set-delegate
     <line-pile> over add-output
-    "" <label> over set-pane-current
+    <line-shelf> over set-pane-current
     "" <editor> over set-pane-input
     dup init-active-line
     dup pane-paint
     dup pane-actions ;
 
+M: pane focusable-child* ( pane -- editor )
+    pane-input ;
+
 : pane-write-1 ( style text pane -- )
     [ <presentation> ] keep pane-current add-gadget ;
 
diff --git a/library/ui/scrolling.factor b/library/ui/scrolling.factor
index f378350b3f..876e78f52b 100644
--- a/library/ui/scrolling.factor
+++ b/library/ui/scrolling.factor
@@ -32,6 +32,9 @@ M: viewport layout* ( viewport -- )
     dup viewport-origin
     swap gadget-child dup prefer set-gadget-loc ;
 
+M: viewport focusable-child* ( viewport -- gadget )
+    gadget-child ;
+
 : visible-portion ( viewport -- vector )
     dup shape-dim { 1 1 1 } vmax
     swap viewport-dim { 1 1 1 } vmax
@@ -135,3 +138,6 @@ C: scroller ( gadget -- scroller )
     dup scroller-viewport <x-slider> over add-x-slider
     dup scroller-viewport <y-slider> over add-y-slider
     dup scroller-actions ;
+
+M: scroller focusable-child* ( viewport -- gadget )
+    scroller-viewport ;