ui.gadgets: fix some tests.

basis/ui/gadgets/labeled/labeled-tests.factor

@@ -1,4 +1,8 @@
+USING: accessors sequences tools.test ui.gadgets
+ui.gadgets.labeled ;
 IN: ui.gadgets.labeled.tests
-USING: ui.gadgets ui.gadgets.labeled accessors tools.test ;
 
-{ t } [ <gadget> "Hey" <labeled-gadget> content>> gadget? ] unit-test
+{ t } [
+    <gadget> "Hey" <labeled-gadget>
+    children>> first content>> gadget?
+] unit-test

basis/ui/gadgets/panes/panes-tests.factor

@@ -88,16 +88,6 @@ IN: ui.gadgets.panes.tests
     ] test-gadget-text
 ] unit-test
 
-{ t } [
-    [
-        last-element off
-        \ = >link title-style get [
-            $navigation-table
-        ] with-nesting
-        "Hello world" print-content
-    ] test-gadget-text
-] unit-test
-
 { t } [
     [ { { "a\n" } } simple-table. ] test-gadget-text
 ] unit-test

basis/ui/gadgets/scrollers/scrollers-tests.factor

@@ -41,7 +41,7 @@ IN: ui.gadgets.scrollers.tests
 { } [ "s" get layout ] unit-test
 
 "s" get [
-    [ { 31 31 } ] [ "s" get viewport>> dim>> ] unit-test
+    [ { 34 34 } ] [ "s" get viewport>> dim>> ] unit-test
 
     [ { 100 100 } ] [ "s" get viewport>> gadget-child pref-dim ] unit-test
 

basis/ui/gadgets/tabbed/tabbed.factor

@@ -13,6 +13,7 @@ TUPLE: tabbed-gadget < track tabs book ;
 : <lip> ( -- gadget )
     "active-tab-lip" theme-image <icon> ;
 
+CONSTANT: button-background COLOR: FactorTan
 CONSTANT: active-tab-background COLOR: FactorDarkTan
 
 : <tab-pen> ( -- pen )