'From Squeak3.6alpha of ''17 March 2003'' [latest update: #5279] on 30 June 2003 at 1:33:55 am'! "Change Set: KlattLayoutFix-nk Date: 18 May 2003 Author: Ned Konz This improves the layout used by the KlattFrameMorph. Try: 'Speaker manWithEditor'. (Merged with MCP changeset 5240 which removed the #color: send in KlattFrameMorph>>initialize. -dew) "! !KlattFrameMorph methodsFor: 'initialization' stamp: 'dew 6/30/2003 01:11'! initialize super initialize. self listDirection: #topToBottom. self hResizing: #shrinkWrap; vResizing: #shrinkWrap.! ! !KlattFrameMorph methodsFor: 'initialization' stamp: 'nk 5/18/2003 13:14'! newSliderForParameter: parameter target: target min: min max: max description: description | r slider m | r _ AlignmentMorph newRow. r color: self color; borderWidth: 0; layoutInset: 0. r hResizing: #spaceFill; vResizing: #shrinkWrap; extent: 5@20; wrapCentering: #center; cellPositioning: #leftCenter. slider _ SimpleSliderMorph new color: (Color r: 0.065 g: 0.548 b: 0.645); extent: 120@2; target: target; actionSelector: (parameter, ':') asSymbol; minVal: min; maxVal: max; adjustToValue: (target perform: parameter asSymbol). r addMorphBack: slider. m _ StringMorph new contents: parameter, ': '; hResizing: #rigid. r addMorphBack: m. m _ UpdatingStringMorph new target: target; getSelector: parameter asSymbol; putSelector: (parameter, ':') asSymbol; width: 60; growable: false; floatPrecision: (max - min / 100.0 min: 1.0); vResizing: #spaceFill; step. r addMorphBack: m. r setBalloonText: description. ^ r! !