'From Cuis 1.0 of 4 September 2009 [latest update: #290] on 18 September 2009 at 10:48:33 am'!
!classDefinition: #AbstractHierarchicalList category: #'Tools-Explorer'!
Model subclass: #AbstractHierarchicalList
	instanceVariableNames: 'currentSelection myBrowser '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Explorer'!
!classDefinition: #BlockArgsNode category: #'System-Compiler'!
ParseNode subclass: #BlockArgsNode
	instanceVariableNames: 'temporaries '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Compiler'!
!classDefinition: #ChangeList category: #'Tools-Changes'!
CodeHolder subclass: #ChangeList
	instanceVariableNames: 'changeList list listIndex listSelections file lostMethodPointer showsVersions '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Changes'!
!classDefinition: #ChronologyConstants category: #'Kernel-Chronology'!
SharedPool subclass: #ChronologyConstants
	instanceVariableNames: 'seconds offset jdn nanos '
	classVariableNames: 'DayNames DaysInMonth MonthNames NanosInMillisecond NanosInSecond SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch '
	poolDictionaries: ''
	category: 'Kernel-Chronology'!
!classDefinition: #Class category: #'Kernel-Classes'!
ClassDescription subclass: #Class
	instanceVariableNames: 'subclasses name classPool sharedPools category '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Kernel-Classes'!
!classDefinition: #ClassChangeRecord category: #'Tools-Changes'!
Object subclass: #ClassChangeRecord
	instanceVariableNames: 'inForce revertable changeTypes thisDefinition priorDefinition thisName priorName thisOrganization priorOrganization thisComment priorComment thisMD priorMD methodChanges '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Changes'!
!classDefinition: #FileContentsBrowser category: #'Tools-File Contents Browser'!
Browser subclass: #FileContentsBrowser
	instanceVariableNames: 'packages infoString '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-File Contents Browser'!
!classDefinition: #GIFReadWriter category: #'Graphics-Files'!
ImageReadWriter subclass: #GIFReadWriter
	instanceVariableNames: 'width height bitsPerPixel colorPalette rowByteSize xpos ypos pass interlace codeSize clearCode eoiCode freeCode maxCode prefixTable suffixTable remainBitCount bufByte bufStream transparentIndex mapOf32 localColorTable delay loopCount offset '
	classVariableNames: 'Extension ImageSeparator Terminator '
	poolDictionaries: ''
	category: 'Graphics-Files'!
!classDefinition: #HaloMorph category: #'Morphic-Widgets'!
Morph subclass: #HaloMorph
	instanceVariableNames: 'target innerTarget positionOffset angleOffset minExtent growingOrRotating haloBox simpleMode '
	classVariableNames: 'HandleSize '
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #MIDISynthChannel category: #'Sound-Scores'!
Object subclass: #MIDISynthChannel
	instanceVariableNames: 'channel instrument muted masterVolume channelVolume pan pitchBend activeSounds '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sound-Scores'!
!classDefinition: #MethodTempsNode category: #'System-Compiler'!
ParseNode subclass: #MethodTempsNode
	instanceVariableNames: 'temporaries '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Compiler'!
!classDefinition: #NewHandleMorph category: #'Morphic-Widgets'!
HandleMorph subclass: #NewHandleMorph
	instanceVariableNames: 'hand offset waitingForClickInside '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #PNGReadWriter category: #'Graphics-Files'!
ImageReadWriter subclass: #PNGReadWriter
	instanceVariableNames: 'chunk form width height depth backColor bitsPerChannel colorType interlaceMethod bitsPerPixel bytesPerScanline thisScanline prevScanline rowSize globalDataChunk unknownChunks palette transparentPixelValue filtersSeen swizzleMap cachedDecoderMap bigEndian '
	classVariableNames: 'BPP BlockHeight BlockWidth Debugging StandardColors StandardSwizzleMaps '
	poolDictionaries: ''
	category: 'Graphics-Files'!
!classDefinition: #PackagePaneBrowser category: #'Tools-Browser'!
Browser subclass: #PackagePaneBrowser
	instanceVariableNames: 'package packageListIndex packageList '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Browser'!
!classDefinition: #PluggableListMorph category: #'Morphic-Windows'!
ScrollPane subclass: #PluggableListMorph
	instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes lastClickTime doubleClickSelector handlesBasicKeys potentialDropRow listMorph '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Windows'!
!classDefinition: #PointerFinder category: #'Tools-Debugger'!
Model subclass: #PointerFinder
	instanceVariableNames: 'goal parents toDo toDoNext hasGemStone pointerList objectList parentsSize todoSize depth pointerListIndex '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Debugger'!
!classDefinition: #SketchMorph category: #'Morphic-Basic'!
Morph subclass: #SketchMorph
	instanceVariableNames: 'originalForm rotationStyle scalePoint framesToDwell rotatedForm '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Basic'!
!classDefinition: #ColorPickerMorph category: #'Morphic-Widgets'!
SketchMorph subclass: #ColorPickerMorph
	instanceVariableNames: 'selectedColor sourceHand deleteOnMouseUp updateContinuously target selector argument originalColor command isModal clickedTranslucency '
	classVariableNames: 'ColorChart DragBox FeedbackBox RevertBox TransText TransparentBox '
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #UpdatingThreePhaseButtonMorph category: #'Morphic-Widgets'!
ThreePhaseButtonMorph subclass: #UpdatingThreePhaseButtonMorph
	instanceVariableNames: 'getSelector getArgument '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #VolumeEnvelope category: #'Sound-Synthesis'!
Envelope subclass: #VolumeEnvelope
	instanceVariableNames: 'currentVol targetVol mSecsForChange '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sound-Synthesis'!

!HandMorph methodsFor: 'private events' stamp: 'jmv 9/10/2009 14:23'!
generateMouseEvent: evtBuf 
	"Generate the appropriate mouse event for the given raw event buffer"

	| position buttons modifiers type trail stamp oldButtons |
	stamp := evtBuf second.
	stamp = 0 ifTrue: [ stamp := Time millisecondClockValue ].
	position := evtBuf third @ evtBuf fourth.
	buttons := evtBuf fifth.
	modifiers := evtBuf sixth.
	type := buttons = 0 
		ifTrue: [
			lastEventBuffer fifth = 0 ifTrue: [#mouseMove] ifFalse: [#mouseUp]]
		ifFalse: [
			lastEventBuffer fifth = 0 
						ifTrue: [#mouseDown]
						ifFalse: [#mouseMove]].
	buttons := buttons bitOr: (modifiers bitShift: 3).
	oldButtons := lastEventBuffer fifth 
				bitOr: (lastEventBuffer sixth bitShift: 3).
	lastEventBuffer := evtBuf.
	type == #mouseMove 
		ifTrue: [
			trail := self mouseTrailFrom: evtBuf.
			^MouseMoveEvent new 
				setType: type
				startPoint: trail first
				endPoint: trail last
				trail: trail
				buttons: buttons
				hand: self
				stamp: stamp].
	^MouseButtonEvent new 
		setType: type
		position: position
		which: (oldButtons bitXor: buttons)
		buttons: buttons
		hand: self
		stamp: stamp! !

!classDefinition: #VolumeEnvelope category: #'Sound-Synthesis'!
Envelope subclass: #VolumeEnvelope
	instanceVariableNames: 'targetVol mSecsForChange'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sound-Synthesis'!
!classDefinition: #UpdatingThreePhaseButtonMorph category: #'Morphic-Widgets'!
ThreePhaseButtonMorph subclass: #UpdatingThreePhaseButtonMorph
	instanceVariableNames: 'getSelector'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #ColorPickerMorph category: #'Morphic-Widgets'!
SketchMorph subclass: #ColorPickerMorph
	instanceVariableNames: 'selectedColor sourceHand deleteOnMouseUp updateContinuously target selector argument originalColor isModal clickedTranslucency'
	classVariableNames: 'ColorChart DragBox FeedbackBox RevertBox TransText TransparentBox'
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #SketchMorph category: #'Morphic-Basic'!
Morph subclass: #SketchMorph
	instanceVariableNames: 'originalForm'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Basic'!
!classDefinition: #PointerFinder category: #'Tools-Debugger'!
Model subclass: #PointerFinder
	instanceVariableNames: 'goal parents toDo toDoNext pointerList objectList pointerListIndex'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Debugger'!
!classDefinition: #PluggableListMorph category: #'Morphic-Windows'!
ScrollPane subclass: #PluggableListMorph
	instanceVariableNames: 'list getListSelector getListSizeSelector getListElementSelector getIndexSelector setIndexSelector keystrokeActionSelector autoDeselect lastKeystrokeTime lastKeystrokes doubleClickSelector handlesBasicKeys potentialDropRow listMorph'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Windows'!
!classDefinition: #PackagePaneBrowser category: #'Tools-Browser'!
Browser subclass: #PackagePaneBrowser
	instanceVariableNames: 'package packageListIndex'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Browser'!
!classDefinition: #PNGReadWriter category: #'Graphics-Files'!
ImageReadWriter subclass: #PNGReadWriter
	instanceVariableNames: 'chunk form width height depth backColor bitsPerChannel colorType interlaceMethod bitsPerPixel bytesPerScanline thisScanline prevScanline rowSize globalDataChunk unknownChunks palette transparentPixelValue filtersSeen cachedDecoderMap bigEndian'
	classVariableNames: 'BPP BlockHeight BlockWidth Debugging StandardColors StandardSwizzleMaps'
	poolDictionaries: ''
	category: 'Graphics-Files'!
!classDefinition: #NewHandleMorph category: #'Morphic-Widgets'!
HandleMorph subclass: #NewHandleMorph
	instanceVariableNames: 'hand waitingForClickInside'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #MethodTempsNode category: #'System-Compiler'!
ParseNode subclass: #MethodTempsNode
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Compiler'!
!classDefinition: #MIDISynthChannel category: #'Sound-Scores'!
Object subclass: #MIDISynthChannel
	instanceVariableNames: 'instrument muted masterVolume channelVolume pan pitchBend activeSounds'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Sound-Scores'!
!classDefinition: #HaloMorph category: #'Morphic-Widgets'!
Morph subclass: #HaloMorph
	instanceVariableNames: 'target innerTarget positionOffset angleOffset growingOrRotating haloBox simpleMode'
	classVariableNames: 'HandleSize'
	poolDictionaries: ''
	category: 'Morphic-Widgets'!
!classDefinition: #GIFReadWriter category: #'Graphics-Files'!
ImageReadWriter subclass: #GIFReadWriter
	instanceVariableNames: 'width height bitsPerPixel colorPalette rowByteSize xpos ypos pass interlace codeSize clearCode eoiCode freeCode maxCode prefixTable suffixTable remainBitCount bufByte bufStream transparentIndex localColorTable delay loopCount offset'
	classVariableNames: 'Extension ImageSeparator Terminator'
	poolDictionaries: ''
	category: 'Graphics-Files'!
FileContentsBrowser removeSelector: #infoString!
!classDefinition: #FileContentsBrowser category: #'Tools-File Contents Browser'!
Browser subclass: #FileContentsBrowser
	instanceVariableNames: 'packages'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-File Contents Browser'!
!classDefinition: #ClassChangeRecord category: #'Tools-Changes'!
Object subclass: #ClassChangeRecord
	instanceVariableNames: 'inForce revertable changeTypes priorDefinition thisName priorName thisOrganization priorOrganization thisComment priorComment thisMD priorMD methodChanges'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Changes'!
!classDefinition: #Class category: #'Kernel-Classes'!
ClassDescription subclass: #Class
	instanceVariableNames: 'subclasses name classPool sharedPools'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Kernel-Classes'!
!classDefinition: #ChronologyConstants category: #'Kernel-Chronology'!
SharedPool subclass: #ChronologyConstants
	instanceVariableNames: ''
	classVariableNames: 'DayNames DaysInMonth MonthNames NanosInMillisecond NanosInSecond SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch'
	poolDictionaries: ''
	category: 'Kernel-Chronology'!
!classDefinition: #ChangeList category: #'Tools-Changes'!
CodeHolder subclass: #ChangeList
	instanceVariableNames: 'changeList list listIndex listSelections file lostMethodPointer'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Changes'!
!classDefinition: #BlockArgsNode category: #'System-Compiler'!
ParseNode subclass: #BlockArgsNode
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'System-Compiler'!
!classDefinition: #AbstractHierarchicalList category: #'Tools-Explorer'!
Model subclass: #AbstractHierarchicalList
	instanceVariableNames: 'currentSelection'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Tools-Explorer'!
