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

new accessors

db4
Doug Coleman 2008-08-31 16:19:24 -05:00
parent 39c5b13b50
commit ab83333b51
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -55,9 +55,9 @@ M: editor ungraft*
dup caret>> deactivate-editor-model dup caret>> deactivate-editor-model
dup mark>> deactivate-editor-model ; dup mark>> deactivate-editor-model ;
: editor-caret* ( editor -- loc ) caret>> model-value ; : editor-caret* ( editor -- loc ) caret>> value>> ;
: editor-mark* ( editor -- loc ) mark>> model-value ; : editor-mark* ( editor -- loc ) mark>> value>> ;
: set-caret ( loc editor -- ) : set-caret ( loc editor -- )
[ model>> validate-loc ] keep [ model>> validate-loc ] keep
@ -501,7 +501,7 @@ TUPLE: field < wrapper field-model editor ;
swap >>field-model ; swap >>field-model ;
M: field graft* M: field graft*
[ [ field-model>> model-value ] [ editor>> ] bi set-editor-string ] [ [ field-model>> value>> ] [ editor>> ] bi set-editor-string ]
[ dup editor>> model>> add-connection ] [ dup editor>> model>> add-connection ]
bi ; bi ;