steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
John Benediktsson 2015-08-16 14:29:21 -07:00
parent 6de244da44
commit ff880262cb
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/editors/editors.factor
View File

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

2
basis/ui/tools/browser/browser.factor
View File

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