From ff880262cbebe2e2348bd463c6dab098c43c1151 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 16 Aug 2015 14:29:21 -0700 Subject: [PATCH] ui.gadgets.editors: make it easier to set and get default-text. --- basis/ui/gadgets/editors/editors.factor | 4 ++++ basis/ui/tools/browser/browser.factor | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index 80446da3fb..0a2caefd32 100644 --- 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 e05f609237..1585652946 100644 --- a/basis/ui/tools/browser/browser.factor +++ b/basis/ui/tools/browser/browser.factor @@ -101,7 +101,7 @@ CONSTANT: next 1 : ( browser -- field ) '[ _ search-browser ] - dup editor>> "Search" >>default-text drop + "Search" >>default-text 10 >>min-cols 10 >>max-cols white-interior ; -- 2.34.1