Change usages of set-gadget-dim to (>>dim)

db4
Eduardo Cavazos 2008-07-21 21:59:08 -05:00
parent af1211b890
commit 5fcff67c9c
6 changed files with 8 additions and 8 deletions
extra

View File

@ -50,7 +50,7 @@ IN: slides
<gadget>
T{ gradient f { { 0.25 0.25 0.25 1.0 } { 1.0 1.0 1.0 0.0 } } }
over set-gadget-interior
{ 800 10 } over set-gadget-dim
{ 800 10 } over (>>dim)
{ 1 0 } over set-gadget-orientation
gadget.
] ($block) ;

View File

@ -338,7 +338,7 @@ CLASS: {
{ "updateFactorGadgetSize:" "void" { "id" "SEL" "id" }
[
[
2drop dup view-dim swap window set-gadget-dim yield
2drop dup view-dim swap window (>>dim) yield
] ui-try
]
}

View File

@ -126,7 +126,7 @@ M: checkmark-paint draw-interior
: <checkmark> ( -- gadget )
<gadget>
dup checkmark-theme
{ 14 14 } over set-gadget-dim ;
{ 14 14 } over (>>dim) ;
: toggle-model ( model -- )
[ not ] change-model ;
@ -172,7 +172,7 @@ M: radio-paint draw-boundary
: <radio-knob> ( -- gadget )
<gadget>
dup radio-knob-theme
{ 16 16 } over set-gadget-dim ;
{ 16 16 } over (>>dim) ;
TUPLE: radio-control < button value ;

View File

@ -4,7 +4,7 @@ USING: arrays assocs io kernel math models namespaces
prettyprint dlists dequeues sequences threads sequences words
debugger ui.gadgets ui.gadgets.worlds ui.gadgets.tracks
ui.gestures ui.backend ui.render continuations init combinators
hashtables concurrency.flags sets ;
hashtables concurrency.flags sets accessors ;
IN: ui
! Assoc mapping aliens to gadgets
@ -172,7 +172,7 @@ SYMBOL: ui-thread
"UI update" spawn drop ;
: open-world-window ( world -- )
dup pref-dim over set-gadget-dim dup relayout graft ;
dup pref-dim over (>>dim) dup relayout graft ;
: open-window ( gadget title -- )
f <world> open-world-window ;

View File

@ -93,7 +93,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
: handle-wm-size ( hWnd uMsg wParam lParam -- )
2nip
[ lo-word ] keep hi-word 2array
dup { 0 0 } = [ 2drop ] [ swap window set-gadget-dim ] if ;
dup { 0 0 } = [ 2drop ] [ swap window (>>dim) ] if ;
: handle-wm-move ( hWnd uMsg wParam lParam -- )
2nip

View File

@ -22,7 +22,7 @@ M: world expose-event nip relayout ;
M: world configure-event
over configured-loc over (>>window-loc)
swap configured-dim over set-gadget-dim
swap configured-dim over (>>dim)
! In case dimensions didn't change
relayout-1 ;