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

diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor
index 80446da3fb829448e21326a2eb6e6e2f2bc314dd..0a2caefd328d551e59e7bbd75b2e6cbd8bb16c3e 100644 (file)
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/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 ]

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index e05f6092375ff591e11a3e26017ef86f82dba9c5..15856529466fe460a7a543f1a025fd6e68febe37 100644 (file)
--- a/basis/ui/tools/browser/browser.factor
+++ b/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 ;