editors: added pref-dim* for action-editor

2017-05-24 13:44:19 +02:00 · 2017-05-24 13:44:19 +02:00 · c1d33065ad
parent c8e02d880e
commit c1d33065ad
1 changed files with 7 additions and 0 deletions
--- a/basis/ui/gadgets/editors/editors.factor
+++ b/basis/ui/gadgets/editors/editors.factor
@ -670,6 +670,13 @@ M: action-editor draw-gadget*
        call-next-method
    ] if ;

+M: action-editor pref-dim*
+    dup draw-default-text? [
+        [ font>> ] [ default-text>> ] bi text-dim { 1 0 } v+
+    ] [
+        call-next-method
+    ] if ;
+
 TUPLE: action-field < field quot ;

 : <action-field> ( quot: ( string -- ) -- gadget )