Enabled preferred size cache

darcs
slava 2006-02-01 23:15:42 +00:00
parent 4eb25def02
commit 83b9baae04
1 changed files with 3 additions and 4 deletions

View File

@ -44,10 +44,9 @@ namespaces sequences ;
GENERIC: pref-dim* ( gadget -- dim )
: pref-dim ( gadget -- dim )
pref-dim* ;
! dup gadget-pref-dim [ ] [
! dup pref-dim* dup rot set-gadget-pref-dim
! ] ?if ;
dup gadget-pref-dim [ ] [
dup pref-dim* dup rot set-gadget-pref-dim
] ?if ;
M: gadget pref-dim* rect-dim ;