Enabled preferred size cache
parent
4eb25def02
commit
83b9baae04
|
|
@ -44,10 +44,9 @@ namespaces sequences ;
|
||||||
GENERIC: pref-dim* ( gadget -- dim )
|
GENERIC: pref-dim* ( gadget -- dim )
|
||||||
|
|
||||||
: pref-dim ( gadget -- dim )
|
: pref-dim ( gadget -- dim )
|
||||||
pref-dim* ;
|
dup gadget-pref-dim [ ] [
|
||||||
! dup gadget-pref-dim [ ] [
|
dup pref-dim* dup rot set-gadget-pref-dim
|
||||||
! dup pref-dim* dup rot set-gadget-pref-dim
|
] ?if ;
|
||||||
! ] ?if ;
|
|
||||||
|
|
||||||
M: gadget pref-dim* rect-dim ;
|
M: gadget pref-dim* rect-dim ;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue