'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 21 November 2003 at 1:06:39 am'! !RealEstateAgent class methodsFor: 'as yet unclassified' stamp: 'sumim 11/21/2003 01:06'! standardWindowExtent "Answer the standard default extent for new windows. " | effectiveExtent width strips height grid allowedArea maxLevel | effectiveExtent _ self maximumUsableArea extent - (self scrollBarSetback @ self screenTopSetback). Preferences reverseWindowStagger ifTrue: ["NOTE: following copied from strictlyStaggeredInitialFrameFor:" allowedArea _ self maximumUsableArea insetBy: ( self scrollBarSetback @ self screenTopSetback extent: 0@0 ). "Number to be staggered at each corner (less on small screens)" maxLevel _ allowedArea area > 300000 ifTrue: [3] ifFalse: [2]. "Amount by which to stagger (less on small screens)" grid _ (allowedArea area > 500000 and: [allowedArea extent normalized x < 0.833]) ifTrue: [40] ifFalse: [20]. ^ (allowedArea extent - (grid*(maxLevel+1*2) + (grid//2))) min: StandardSize "600@400"]. width _ (strips _ self windowColumnsDesired) > 1 ifTrue: [effectiveExtent x // strips] ifFalse: [(3 * effectiveExtent x) // 4]. height _ (strips _ self windowRowsDesired) > 1 ifTrue: [effectiveExtent y // strips] ifFalse: [(3 * effectiveExtent y) //4]. ^ width @ height "RealEstateAgent standardWindowExtent"! !