ui.tools.*: fix swapped argument order for set-tool-dim
parent
9a62e1188b
commit
48bd0d2b66
|
@ -16,7 +16,7 @@ IN: ui.tools.browser
|
|||
|
||||
TUPLE: browser-gadget < tool history scroller search-field popup ;
|
||||
|
||||
{ 650 700 } browser-gadget set-tool-dim
|
||||
browser-gadget { 650 700 } set-tool-dim
|
||||
|
||||
M: browser-gadget history-value
|
||||
[ control-value ] [ scroller>> scroll-position ]
|
||||
|
|
|
@ -2,7 +2,7 @@ USING: classes help.markup help.syntax sequences ui.gadgets ;
|
|||
IN: ui.tools.common
|
||||
|
||||
HELP: set-tool-dim
|
||||
{ $values { "dim" sequence } { "class" class } }
|
||||
{ $values { "class" class } { "dim" sequence } }
|
||||
{ $description "Sets the preferred dimensions for instances of the given tool gadget class." } ;
|
||||
|
||||
HELP: with-lines
|
||||
|
|
|
@ -140,4 +140,4 @@ inspector-gadget "multi-touch" f {
|
|||
: inspector ( obj -- )
|
||||
<model> inspect-model ;
|
||||
|
||||
{ 550 400 } inspector-gadget set-tool-dim
|
||||
inspector-gadget { 550 400 } set-tool-dim
|
||||
|
|
|
@ -190,7 +190,7 @@ M: interactor dispose drop ;
|
|||
|
||||
TUPLE: listener-gadget < tool error-summary output scroller input ;
|
||||
|
||||
{ 600 700 } listener-gadget set-tool-dim
|
||||
listener-gadget { 600 700 } set-tool-dim
|
||||
|
||||
: listener-streams ( listener -- input output )
|
||||
[ input>> ] [ output>> <pane-stream> ] bi ;
|
||||
|
|
|
@ -13,7 +13,7 @@ IN: gopher-ui
|
|||
|
||||
TUPLE: gopher-gadget < tool history scroller url-field ;
|
||||
|
||||
{ 600 600 } gopher-gadget set-tool-dim
|
||||
gopher-gadget { 600 600 } set-tool-dim
|
||||
|
||||
M: gopher-gadget history-value
|
||||
[ control-value ] [ scroller>> scroll-position ]
|
||||
|
|
Loading…
Reference in New Issue