'From Squeak3.1alpha [latest update: #''Squeak3.1alpha'' of 5 February 2001 update 3950] on 24 April 2001 at 10:17:36 am'! "Change Set: reinstateSizer Date: 24 April 2001 Author: Bob Arning reinstate the variable spacing control on SyntaxMorphs"! !SyntaxMorph methodsFor: 'menus' stamp: 'RAA 4/24/2001 10:16'! finalAppearanceTweaks | deletes | SizeScaleFactor ifNil: [SizeScaleFactor _ 1.0]. self usingClassicTiles ifTrue: [ self allMorphsDo: [:each | (each isKindOf: SyntaxMorph) ifTrue: [each lookClassic] ]. ^self ]. deletes _ OrderedCollection new. self allMorphsDo: [ :each | (each respondsTo: #setDeselectedColor) ifTrue: [each setDeselectedColor]. "(each hasProperty: #variableInsetSize) ifTrue: [ each layoutInset: ((each valueOfProperty: #variableInsetSize) * SizeScaleFactor) rounded. ]." (each isKindOf: SyntaxMorph) ifTrue: [ each layoutInset: (6 * SizeScaleFactor) rounded. ]. ]. deletes do: [ :each | each delete]. ! ! !SyntaxMorph methodsFor: 'node to morph' stamp: 'RAA 4/24/2001 10:05'! addTemporaryControls | row stdSize | stdSize _ 8@8. row _ AlignmentMorph newRow color: Color transparent; hResizing: #shrinkWrap; vResizing: #shrinkWrap. self addMorph: row. { Morph new extent: stdSize; setBalloonText: 'Change the contrast'; on: #mouseUp send: #controlContrast2: to: self; on: #mouseMove send: #controlContrast2: to: self; on: #mouseDown send: #controlContrast2: to: self. Morph new extent: stdSize; color: Color green; setBalloonText: 'Change basic spacing'; on: #mouseUp send: #controlSpacing2: to: self; on: #mouseMove send: #controlSpacing2: to: self; on: #mouseDown send: #controlSpacing2: to: self. Morph new extent: stdSize; color: Color red; setBalloonText: 'Change basic style'; on: #mouseUp send: #changeBasicStyle to: self. } do: [ :each | row addMorphBack: each. row addMorphBack: (self transparentSpacerOfSize: stdSize). ]. ! !