'From etoys3.0 of 24 February 2008 [latest update: #2153] on 19 September 2008 at 11:33:48 pm'!
"Change Set:		bkwdCompatFixes-sw
Date:			19 September 2008
Author:			Scott Wallace

Fixes two backward-compatibility problems relating to ColorPickerMorphs and PianoKeyboardMorphs."!


!ColorPickerMorph methodsFor: 'accessing' stamp: 'sw 9/19/2008 23:15'!
noChart
	"Answer the receiver's noChart, initializing it to false if found nil, as happens in ColorPickers lurking in pre-2006 projects."

	^ noChart ifNil: [noChart := false]! !

!ColorPickerMorph methodsFor: 'drawing' stamp: 'sw 9/19/2008 23:25'!
drawOn: aCanvas
	"Draw the receiver on a canvas."

	aCanvas depth = 1 ifTrue: [aCanvas fillRectangle: self bounds color: Color white].
	self noChart ifFalse: [Display depth = originalForm depth ifFalse: [self buildChartForm]].
	super drawOn: aCanvas! !


!PianoKeyboardMorph methodsFor: 'accessing' stamp: 'sw 9/19/2008 23:22'!
soundPlayingList
	"Answer the soundPlayingList, creating it at this time if necessary (happens when loading old projects)"

	 ^ soundPlayingList ifNil: [soundPlayingList := Array new: self submorphs size].! !

!PianoKeyboardMorph methodsFor: 'accessing' stamp: 'sw 9/19/2008 23:23'!
soundPlayingListAt: anInteger
	"Answer the sound in my soundPlayingList at the given index; answer nil if the index is out of range."

	^ self soundPlayingList at: anInteger ifAbsent: [nil]! !