Remove gadget-help generic word

TODO.FACTOR.txt

@@ -1,7 +1,6 @@
 + 0.84:
 
 - default font should not be monospaced
-- better looking status bar
 - new browser:
   - show currently selected vocab & words
   - scroll to existing won't work

library/ui/gadgets.factor

@@ -99,11 +99,6 @@ M: gadget children-on nip gadget-children ;
 : set-gadget-delegate ( delegate gadget -- )
     dup pick [ set-gadget-parent ] each-child-with set-delegate ;
 
-! Pointer help protocol
-GENERIC: gadget-help
-
-M: gadget gadget-help drop f ;
-
 : with-gadget ( gadget quot -- )
     [ swap gadget set call ] with-scope ; inline
 

library/ui/gadgets/presentations.factor

@@ -163,7 +163,11 @@ M: pack stream-close drop ;
 M: paragraph stream-close drop ;
 
 : gadget-write ( string gadget -- )
-    over empty? [ 2drop ] [ >r <label> r> add-gadget ] if ;
+    over empty? [
+        2drop
+    ] [
+        >r <label> dup text-theme r> add-gadget
+    ] if ;
 
 M: pack stream-write gadget-write ;
 

library/ui/gadgets/theme.factor

@@ -91,6 +91,10 @@ USING: arrays gadgets kernel sequences styles ;
     solid-black swap set-gadget-interior ;
 
 : label-theme ( gadget -- )
+    { 0.0 0.0 0.0 1.0 } over set-label-color
+    { "sans-serif" plain 12 } swap set-label-font ;
+
+: text-theme ( gadget -- )
     { 0.0 0.0 0.0 1.0 } over set-label-color
     { "monospace" plain 12 } swap set-label-font ;
 

library/ui/gestures.factor

@@ -143,9 +143,6 @@ V{ } clone hand-buttons set-global
 : hand-click-rel ( gadget -- loc )
     hand-click-loc get-global relative-loc ;
 
-: relevant-help ( seq -- help )
-    [ gadget-help ] map [ ] find nip ;
-
 : under-hand ( -- seq )
     #! A sequence whose first element is the world and last is
     #! the current gadget, with all parents in between.