ui.gadgets.editors: make it easier to set and get default-text.

basis/ui/gadgets/editors/editors.factor

@@ -678,6 +678,10 @@ TUPLE: action-field < field quot ;
         field-theme
         swap >>quot ;
 
+M: action-field default-text>> editor>> default-text>> ;
+
+M: action-field default-text<< editor>> default-text<< ;
+
 : invoke-action-field ( field -- )
     [ editor>> editor-string ]
     [ editor>> clear-editor ]

basis/ui/tools/browser/browser.factor

@@ -101,7 +101,7 @@ CONSTANT: next 1
 
 : <search-field> ( browser -- field )
     '[ _ search-browser ] <action-field>
-        dup editor>> "Search" >>default-text drop
+        "Search" >>default-text
         10 >>min-cols
         10 >>max-cols
         white-interior ;