extent: newExtent
������
������ vertical
������ ������ ifTrue: [ newExtent := self�� defaultWidth @ newExtent y ]
������ ������ ifFalse: [ newExtent := newExtent x @ self�� defaultWidth ].
������
������ super extent: newExtent

Can you verify it? Arguments should be not assignable.

--
Best regards,
Igor Stasenko.