editors: added pref-dim* for action-editor
parent
c8e02d880e
commit
c1d33065ad
|
@ -670,6 +670,13 @@ M: action-editor draw-gadget*
|
||||||
call-next-method
|
call-next-method
|
||||||
] if ;
|
] 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 ;
|
TUPLE: action-field < field quot ;
|
||||||
|
|
||||||
: <action-field> ( quot: ( string -- ) -- gadget )
|
: <action-field> ( quot: ( string -- ) -- gadget )
|
||||||
|
|
Loading…
Reference in New Issue