From ab83333b5161da3fffc8c315cd02b5fbf491680d Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 31 Aug 2008 16:19:24 -0500 Subject: [PATCH] new accessors --- basis/ui/gadgets/editors/editors.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index 06a8b4886a..8142297318 100755 --- a/basis/ui/gadgets/editors/editors.factor +++ b/basis/ui/gadgets/editors/editors.factor @@ -55,9 +55,9 @@ M: editor ungraft* dup caret>> 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 -- ) [ model>> validate-loc ] keep @@ -501,7 +501,7 @@ TUPLE: field < wrapper field-model editor ; swap >>field-model ; 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 ] bi ;