From: nicolas-p Date: Wed, 24 May 2017 11:44:19 +0000 (+0200) Subject: editors: added pref-dim* for action-editor X-Git-Tag: unmaintained~35 X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=c1d33065ad509ddc357961089b28e630a4c67b1c editors: added pref-dim* for action-editor --- diff --git a/basis/ui/gadgets/editors/editors.factor b/basis/ui/gadgets/editors/editors.factor index f14e2b6ed2..39710d3c46 100644 --- 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 ; : ( quot: ( string -- ) -- gadget )