'From etoys2.3 of 3 December 2007 [latest update: #1873] on 21 January 2008 at 2:41:20 pm'! "Change Set: VideoPropertiesFix Date: 21 January 2008 Author: Karl Ramberg Sliders for brightness and contrast now have 10 pixel height instead of 2 pixels"! !VideoPropertiesMorph methodsFor: 'widget creation' stamp: 'kfr 1/21/2008 14:39'! buildSlider: nameStringOrSymbol selector: aSymbol help: helpString icon: aForm | title slider icon titleRow col | title := (nameStringOrSymbol isKindOf: Symbol) ifTrue: [UpdatingStringMorph new useStringFormat; getSelector: nameStringOrSymbol; target: self; growable: true; minimumWidth: 24; lock] ifFalse: [self lockedString: nameStringOrSymbol]. "" slider := SimpleSliderMorph new color: self color twiceDarker darker; extent: 370 @ 10; target: self; actionSelector: (aSymbol , ':') asSymbol; minVal: -1.0; maxVal: 1.0; yourself. slider adjustToValue: (self perform: aSymbol). "" icon := ImageMorph new image: aForm. titleRow := self inARow: {icon. title}. titleRow hResizing: #shrinkWrap; cellInset: 3. col := self inAColumn: {titleRow. slider}. "" col borderWidth: 1; borderColor: color darker; color: color lighter; hResizing: #shrinkWrap; layoutInset: 5; cellInset: 5; useRoundedCorners. helpString isEmpty ifFalse:[col setBalloonText: helpString.]. "" ^ col! !