[Seaside] current/latest version for VisualWorks

Tue Aug 31 01:14:34 CEST 2004

On Aug 30, 2004, at 14:35, Michel Bany wrote:

> Travis Griggs a écrit :
>
> > I thought I'd play with Seaside this afternoon, for VisualWorks. The
> > problem is, that if I open the published items on the OR, and enter
>  > "seaside" in the filter field, there are two scrollbars worth of
> > packages/bundles to choose from. What should I load?
>  >
>  You need to load a bundle : either SeasideForWebToolkit or  
> SeasideForSwazoo.
> These two bundles are made of many bundles/packages that show up in the
> list.
>

OK, I tried the SeasideForWebToolkit one, and got the stack dump  
attached below the sig. This is in a 7.2.1 image, loaded with a couple  
of tools, but otherwise, pretty pristine. Any help much appreciated.

--
Travis Griggs
Objologist
My Other Machine runs OSX. But then... so does this one.

Unhandled exception: No such file or directory  
("psql_public_cst/Seaside/Loader399.pst")
HandleRegistry>>evaluateWithFullProtection:
HandleRegistry>>registerValueOf:
UnixDiskFileAccessor class(OSHandle class)>>handleValue:
IOAccessor class>>openFileNamed:direction:creation:
FileConnection>>open
FileConnection>>setName:mode:creationRule:
FileConnection class>>openFileNamed:mode:creationRule:
FileEncodedStreamConstructor>>writeStream
Store.CodeReaderForStore(CodeReader)>>createStreamFromRecord:
[] in Store.CodeReaderForStore(CodeReader)>>createStreamFrom:
LiteralBindingReference(GeneralBindingReference)>>ifDefinedDo:
Store.CodeReaderForStore(CodeReader)>>createStreamFrom:
Store.CodeReaderForStore(CodeReader)>>readFrom:
optimized [] in CodeComponent>>loadFrom:using:
BlockClosure>>on:do:
Store.PackageModel class(CodeComponent  
class)>>handleCodeReaderSignalsDo:for:
Store.PackageModel(CodeComponent)>>loadFrom:using:
optimized [] in [] in Store.Package>>binLoadWithin:
BlockClosure>>on:do:
optimized [] in Store.Package>>binLoadWithin:
BlockClosure>>on:do:
Store.Package>>binLoadWithin:
Store.Package>>loadWithin:useBinIfAvailable:warnReplace:
Store.Package>>loadSrcWithin:warnReplace:
Store.PackageModel class>>binLoadFromDB:within:
Store.PackageDescription>>loadFromDBWithin:
optimized [] in Store.ComponentDescription>>dbLoadWithin:
BlockClosure>>on:do:
Store.PackageDescription(Store.ComponentDescription)>>dbLoadWithin:
optimized [] in [] in Store.BundleModel>>dbLoadComponentsWithin:
BlockClosure>>on:do:
optimized [] in Store.BundleModel>>dbLoadComponentsWithin:
OrderedCollection>>do:
Store.BundleModel>>dbLoadComponentsWithin:
optimized [] in Store.BundleModel>>loadContentsFromDBWithin:
BlockClosure>>on:do:
Store.BundleModel>>loadContentsFromDBWithin:
Store.BundleModel class>>loadNewFromDB:within:
Store.BundleModel class>>loadFromDB:within:
optimized [] in Store.BundleModel class>>newFromDB:within:
BlockClosure>>on:do:
Store.BundleModel class>>newFromDB:within:
Store.Bundle>>loadSrcWithin:
optimized [] in [] in Store.Bundle>>loadSrc
BlockClosure>>on:do:
optimized [] in Store.Bundle>>loadSrc
optimized [] in [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
BlockClosure>>ensure:
Cursor>>showWhile:
optimized [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
BlockClosure>>on:do:
optimized [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
BlockClosure>>on:do:
optimized [] in [] in Notice class>>showNotice:complete:while:title:
BlockClosure>>on:do:
optimized [] in Notice class>>showNotice:complete:while:title:
BlockClosure>>ensure:
Notice class>>showNotice:complete:while:title:
Store.Bundle>>loadSrc
Store.Bundle(Store.Pundle)>>loadSrcWithImgPundle:
[] in Store.VersionBrowser(Store.AbstractTool)>>loadPundle
OrderedCollection>>do:
Store.VersionBrowser(Store.AbstractTool)>>loadPundle
Store.MultiSequenceController(SequenceController)>>dispatchMenuSymbol:
Store.MultiSequenceController(SequenceController)>>dispatchMenuSelection 
:
Store.MultiSequenceController(ControllerWithMenu)>>processMenu:at: 
centered:
Store.MultiSequenceController(ControllerWithMenu)>>processMenuAt: 
centered:
Store.MultiSequenceController(ControllerWithMenu)>>yellowButtonPressedEv 
ent:
Store.MultiSequenceController(SequenceController)>>yellowButtonPressedEv 
ent:
YellowButtonPressedEvent>>dispatchTo:
Store.MultiSequenceController(ControllerWithMenu)>>handleEvent:
EventDispatcher>>dispatch:to:
EventDispatcher>>dispatchEvent:
YellowButtonPressedEvent(Event)>>dispatch
YellowButtonPressedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
HandleRegistry>>evaluateWithFullProtection:
Receiver:
	a HandleRegistry
Instance Variables:
	tally = 6
	valueArray = a WeakArray[79]
	executors = an Array[79]
	accessLock = a RecursionLock
Arguments:
	aBlock = BlockClosure [] in HandleRegistry>>registerValueOf:
Temporaries:
	exception = an OsInaccessibleError
	return = nil
	newException = an OsInaccessibleError
Context PC = 39

----------------------------------------------------------------------
HandleRegistry>>registerValueOf:
Receiver:
	a HandleRegistry
Instance Variables:
	tally = 6
	valueArray = a WeakArray[79]
	executors = an Array[79]
	accessLock = a RecursionLock
Arguments:
	aBlock = BlockClosure [] in OSHandle class>>handleValue:
Context PC = 9

----------------------------------------------------------------------
UnixDiskFileAccessor class(OSHandle class)>>handleValue:
Receiver:
	an UnixDiskFileAccessor class
Instance Variables:
	superclass = UnixIOAccessor
	methodDict = a MethodDictionary[5]
	format = 16386
	subclasses = nil
	instanceVariables = nil
	organization = ('locking' #lock:for:)
('accessing' #commit)
('defaults' #connectionClass)
('stream creation' #readWriteStream)
('testing' #isSeekable)

	name = #UnixDiskFileAccessor
	classPool = nil
	environment = a NameSpace[79]
Arguments:
	aBlock = BlockClosure [] in IOAccessor  
class>>openFileNamed:direction:creation:
Context PC = 10

----------------------------------------------------------------------
IOAccessor class>>openFileNamed:direction:creation:
Receiver:
	an IOAccessor class
Instance Variables:
	superclass = OSHandle
	methodDict = a MethodDictionary[43]
	format = 16386
	subclasses = an Array[3]
	instanceVariables = nil
	organization = ('initialize-release' #close)
('accessing' #bufferSize #commit #descriptor #fileSize #truncateTo:)
('testing' #isActive #isSeekable)
('positioning' #seekTo:)
('data transfer' #readInto: #readInto:startingAt:for:  
#readInto:startingAt:for:untilFalse: #readInto:untilFalse: #writeAll:  
#writeFrom: #writeFrom:startingAt:for:  
#writeFrom:startingAt:for:untilFalse: #writeFrom:startingAt:forSure:)
('constants' #lineEndConvention #readPauseInterval #writePauseInterval)
('connections' #asExternalConnection)
('stream creation' #readAppendStream #readStream #writeStream)
('printing' #printOn:)
('defaults' #connectionClass #defaultClass)
('synchronization' #ioWait #ioWaitWithTimeoutMs: #readWait  
#readWaitWithTimeoutMs: #setSem:forWrite: #writeWait  
#writeWaitWithTimeoutMs:)
('finalization' #finalize)
('private-primitives' #primBufferSize #primClose #primGetDescriptor  
#primGetSize #primReadInto:startingAt:for: #primSeekTo:  
#primWriteFrom:startingAt:for:)

	name = #IOAccessor
	classPool = a NameSpaceOfClass[2]
	environment = a NameSpace[79]
Arguments:
	nm = 'psql_public_cst/Seaside/Loader399.pst'
	rwMode = 1
	creationRule = 3
Context PC = 11

----------------------------------------------------------------------
FileConnection>>open
Receiver:
	a FileConnection
Instance Variables:
	inputDescriptor = nil
	outputDescriptor = nil
	fileName = a PortableFilename('psql_public_cst/Seaside/Loader399.pst')
	rwmode = #writeOnly
	creationRule = #truncateOrCreate
	rememberedPosition = nil
Context PC = 20

----------------------------------------------------------------------
FileConnection>>setName:mode:creationRule:
Receiver:
	a FileConnection
Instance Variables:
	inputDescriptor = nil
	outputDescriptor = nil
	fileName = a PortableFilename('psql_public_cst/Seaside/Loader399.pst')
	rwmode = #writeOnly
	creationRule = #truncateOrCreate
	rememberedPosition = nil
Arguments:
	aName = an UnixFilename('psql_public_cst/Seaside/Loader399.pst')
	aRwMode = #writeOnly
	aCreationRule = #truncateOrCreate
Context PC = 11

----------------------------------------------------------------------
FileConnection class>>openFileNamed:mode:creationRule:
Receiver:
	a FileConnection class
Instance Variables:
	superclass = ExternalConnection
	methodDict = a MethodDictionary[13]
	format = 16390
	subclasses = nil
	instanceVariables = an Array[4]
	organization = ('accessing' #dataSize #fileName #logicalName #name)
('io buffer creation' #defaultIoBuffer #defaultIoBufferInMode:)
('testing' #canPersist)
('status' #isActive #open)
('persistence' #rememberedPosition #rememberPosition: #revive)
('private' #setName:mode:creationRule:)

	name = #FileConnection
	classPool = nil
	environment = a NameSpace[79]
Arguments:
	aName = an UnixFilename('psql_public_cst/Seaside/Loader399.pst')
	rwMode = #writeOnly
	creationRule = #truncateOrCreate
Context PC = 9

----------------------------------------------------------------------
FileEncodedStreamConstructor>>writeStream
Receiver:
	a FileEncodedStreamConstructor
Instance Variables:
	dataRepository = an  
UnixFilename('psql_public_cst/Seaside/Loader399.pst')
	encoding = #binary
Context PC = 9

----------------------------------------------------------------------
Store.CodeReaderForStore(CodeReader)>>createStreamFromRecord:
Receiver:
	a Store.CodeReaderForStore
Instance Variables:
	stream = an InternalCodeReaderStream
	pointer = nil
	format = nil
	parcelName = nil
	versionString = nil
	dateString = nil
	timeString = nil
	numNamedObjects = nil
	numClasses = nil
	numExtensionMethods = nil
	definedObjects = nil
	definedBindings = nil
	definedExternals = nil
	classes = nil
	classSelectors = nil
	categories = nil
	packageEnvironment = nil
	packageUndeclared = nil
	extensionMethods = nil
	objectSpaceSize = nil
	objectSpace = nil
	symbolNum = nil
	twoByteSymbolNum = nil
	stringNum = nil
	twoByteStringNum = nil
	byteArrayNum = nil
	floatNum = nil
	doubleNum = nil
	fixedNum = nil
	largePositiveNum = nil
	largeNegativeNum = nil
	mclassNum = nil
	mclassclassNum = nil
	refNamObjNum = nil
	scopeZonesNum = nil
	defObjOrganizerNum = nil
	classOrganizerNum = nil
	arbClassNum = nil
	arbObjectNum = nil
	messageSendIndices = nil
	properties = nil
	userStringsNum = nil
	namedObjects = nil
	namedObjectsNum = nil
	postLoadObjects = nil
	streamDir = an UnixFilename('psql_public_cst')
	sourceFile = nil
	hideSource = nil
	importMaps = nil
	overriddenExtensions = nil
	versionSelectionBlock = nil
	warningSuppressionBlock = nil
	preReadBlock = nil
	currentSuperclass = nil
	mustRecompile = nil
	lateOperations = nil
	updates = nil
	tempSourceFile = 'Seaside/Loader399.pst'
Arguments:
	aParcelRecord = {'Seaside/Loader'-nil-399}
Temporaries:
	tmp = an UnixFilename('psql_public_cst/Seaside/Loader399.pst')
Context PC = 44

----------------------------------------------------------------------
[] in Store.CodeReaderForStore(CodeReader)>>createStreamFrom:
Receiver:
	a Store.CodeReaderForStore
Instance Variables:
	stream = an InternalCodeReaderStream
	pointer = nil
	format = nil
	parcelName = nil
	versionString = nil
	dateString = nil
	timeString = nil
	numNamedObjects = nil
	numClasses = nil
	numExtensionMethods = nil
	definedObjects = nil
	definedBindings = nil
	definedExternals = nil
	classes = nil
	classSelectors = nil
	categories = nil
	packageEnvironment = nil
	packageUndeclared = nil
	extensionMethods = nil
	objectSpaceSize = nil
	objectSpace = nil
	symbolNum = nil
	twoByteSymbolNum = nil
	stringNum = nil
	twoByteStringNum = nil
	byteArrayNum = nil
	floatNum = nil
	doubleNum = nil
	fixedNum = nil
	largePositiveNum = nil
	largeNegativeNum = nil
	mclassNum = nil
	mclassclassNum = nil
	refNamObjNum = nil
	scopeZonesNum = nil
	defObjOrganizerNum = nil
	classOrganizerNum = nil
	arbClassNum = nil
	arbObjectNum = nil
	messageSendIndices = nil
	properties = nil
	userStringsNum = nil
	namedObjects = nil
	namedObjectsNum = nil
	postLoadObjects = nil
	streamDir = an UnixFilename('psql_public_cst')
	sourceFile = nil
	hideSource = nil
	importMaps = nil
	overriddenExtensions = nil
	versionSelectionBlock = nil
	warningSuppressionBlock = nil
	preReadBlock = nil
	currentSuperclass = nil
	mustRecompile = nil
	lateOperations = nil
	updates = nil
	tempSourceFile = 'Seaside/Loader399.pst'
Arguments:
	parcelRecord = Store.ParcelRecord
Temporaries:
	.aSource = {'Seaside/Loader'-nil-399}
	.self = a Store.CodeReaderForStore
Context PC = 12

----------------------------------------------------------------------
LiteralBindingReference(GeneralBindingReference)>>ifDefinedDo:
Receiver:
	a LiteralBindingReference
Instance Variables:
	path = an Array[2]
	cache = (VariableBinding key: #ParcelRecord)
	method = CompiledMethod CodeReader>>createStreamFrom:
Arguments:
	aBlock = BlockClosure [] in CodeReader>>createStreamFrom:
Temporaries:
	binding = (VariableBinding key: #ParcelRecord)
Context PC = 14

----------------------------------------------------------------------
Store.CodeReaderForStore(CodeReader)>>createStreamFrom:
Receiver:
	a Store.CodeReaderForStore
Instance Variables:
	stream = an InternalCodeReaderStream
	pointer = nil
	format = nil
	parcelName = nil
	versionString = nil
	dateString = nil
	timeString = nil
	numNamedObjects = nil
	numClasses = nil
	numExtensionMethods = nil
	definedObjects = nil
	definedBindings = nil
	definedExternals = nil
	classes = nil
	classSelectors = nil
	categories = nil
	packageEnvironment = nil
	packageUndeclared = nil
	extensionMethods = nil
	objectSpaceSize = nil
	objectSpace = nil
	symbolNum = nil
	twoByteSymbolNum = nil
	stringNum = nil
	twoByteStringNum = nil
	byteArrayNum = nil
	floatNum = nil
	doubleNum = nil
	fixedNum = nil
	largePositiveNum = nil
	largeNegativeNum = nil
	mclassNum = nil
	mclassclassNum = nil
	refNamObjNum = nil
	scopeZonesNum = nil
	defObjOrganizerNum = nil
	classOrganizerNum = nil
	arbClassNum = nil
	arbObjectNum = nil
	messageSendIndices = nil
	properties = nil
	userStringsNum = nil
	namedObjects = nil
	namedObjectsNum = nil
	postLoadObjects = nil
	streamDir = an UnixFilename('psql_public_cst')
	sourceFile = nil
	hideSource = nil
	importMaps = nil
	overriddenExtensions = nil
	versionSelectionBlock = nil
	warningSuppressionBlock = nil
	preReadBlock = nil
	currentSuperclass = nil
	mustRecompile = nil
	lateOperations = nil
	updates = nil
	tempSourceFile = 'Seaside/Loader399.pst'
Arguments:
	aSource = {'Seaside/Loader'-nil-399}
Context PC = 9

----------------------------------------------------------------------
Store.CodeReaderForStore(CodeReader)>>readFrom:
Receiver:
	a Store.CodeReaderForStore
Instance Variables:
	stream = an InternalCodeReaderStream
	pointer = nil
	format = nil
	parcelName = nil
	versionString = nil
	dateString = nil
	timeString = nil
	numNamedObjects = nil
	numClasses = nil
	numExtensionMethods = nil
	definedObjects = nil
	definedBindings = nil
	definedExternals = nil
	classes = nil
	classSelectors = nil
	categories = nil
	packageEnvironment = nil
	packageUndeclared = nil
	extensionMethods = nil
	objectSpaceSize = nil
	objectSpace = nil
	symbolNum = nil
	twoByteSymbolNum = nil
	stringNum = nil
	twoByteStringNum = nil
	byteArrayNum = nil
	floatNum = nil
	doubleNum = nil
	fixedNum = nil
	largePositiveNum = nil
	largeNegativeNum = nil
	mclassNum = nil
	mclassclassNum = nil
	refNamObjNum = nil
	scopeZonesNum = nil
	defObjOrganizerNum = nil
	classOrganizerNum = nil
	arbClassNum = nil
	arbObjectNum = nil
	messageSendIndices = nil
	properties = nil
	userStringsNum = nil
	namedObjects = nil
	namedObjectsNum = nil
	postLoadObjects = nil
	streamDir = an UnixFilename('psql_public_cst')
	sourceFile = nil
	hideSource = nil
	importMaps = nil
	overriddenExtensions = nil
	versionSelectionBlock = nil
	warningSuppressionBlock = nil
	preReadBlock = nil
	currentSuperclass = nil
	mustRecompile = nil
	lateOperations = nil
	updates = nil
	tempSourceFile = 'Seaside/Loader399.pst'
Arguments:
	aSource = {'Seaside/Loader'-nil-399}
Context PC = 5

----------------------------------------------------------------------
optimized [] in CodeComponent>>loadFrom:using:
Receiver:
	an UndefinedObject
Temporaries:
	.aCodeReader = a Store.CodeReaderForStore
	.aSource = {'Seaside/Loader'-nil-399}
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in CodeComponent>>loadFrom:using:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = CodeStorageError
	handlerBlock = BlockClosure [] in CodeComponent  
class>>handleCodeReaderSignalsDo:for:
Context PC = 18

----------------------------------------------------------------------
Store.PackageModel class(CodeComponent  
class)>>handleCodeReaderSignalsDo:for:
Receiver:
	a Store.PackageModel class
Instance Variables:
	superclass = Store.PundleModel
	methodDict = a MethodDictionary[291]
	format = 16389
	subclasses = nil
	instanceVariables = an Array[1]
	organization = ('testing' #definesClass: #extendsClass:  
#hasBeenModified #hasDataKey:in: #hasDefinitionFor: #hasExtensions  
#hasSelector:in: #hasUninstalledCode #includesClass:  
#includesClassNamed: #includesClassSymbol: #includesDataKey:nameSpace:  
#includesDataKey:nameSpaceName: #includesDataKey:nameSpaceSymbol:  
#includesDataKey:owner: #includesDataKey:ownerName:  
#includesDataKey:ownerSymbol: #includesDatum: #includesMethod:  
#includesNameSpaceNamed: #includesSelector:class:  
#includesSelector:className:meta: #includesSelector:classSymbol:meta:  
#includesSymbol: #isEmpty #isLeaf #isNullPackage #isPackage  
#isPackageOrFragment #isSaveable #isSaveableWithWarning)
('private-model' #addFullSymbol: #addModel: #addStatic:to:  
#definedModels #descriptorClassFor: #descriptorClassFor:hasDefinition:  
#extendedModels #includesDefinitionOf:  
#installModelAtFullSymbol:hasDefinition:  
#modelAtFullSymbol:hasDefinition: #modelAtName:ifAbsent:  
#modelAtSymbol:ifAbsent: #modelClassFor:hasDefinition: #modelsDo:  
#removeDataKey:ownerSymbol: #removeModel: #removeStatic:from:)
('private-class model' #addClassModel:  
#classModelAtClass:hasDefinition: #classModelAtClass:ifAbsent:  
#classModelAtClassName:hasDefinition: #classModelAtClassName:ifAbsent:  
#classModelAtClassNamed:ifAbsent:  
#classModelAtClassSymbol:hasDefinition:  
#classModelAtClassSymbol:ifAbsent: #classModels #classModelsDo:  
#definedClassModels #extendedClassModels #extendedNameSpaceModels  
#installClassModelAtFullClassSymbol:hasDefinition: #removeClassModel:  
#removeWholeSymbol: #renameClassModel:as: #renameModel:as:)
('private-namespace model' #addObject: #dataForNameSpaceName:  
#definedNameSpaceModels #nameSpaceModels #nameSpaceModelsDo:  
#removeDefinitionFullNameSpaceSymbol:)
('private-class model changes' #addClass: #addDataKey:symbol:  
#addFullClassSymbol: #addName:in: #addSelector:class:  
#addSelector:fullClassSymbol:meta: #addSelector:toClass:  
#addSelectors:forClass: #markModificationAsRemoves:  
#removeDefinitionFullClassSymbol: #removeWholeClassSymbol:)
('printing' #classDescription #displayString #printOn:)
('private-descriptors' #affectedClassNamesMeta: #affectedNameSpaceNames  
#modifiedAndReorganizedMethodDescriptors #modifiedDatumDescriptors  
#removedClassOrDefinitionNames #removedDatumDescriptors  
#removedMethodDescriptors #removedNameSpaceOrDefinitionNames  
#reorganizedMethodDescriptors)
('accessing- fake' #allContainedItems #anyContainedItems  
#containedItems #typeStringForBlessing)
('queries' #definedBindings #definedBindingsFor: #definedClasses  
#definedClassesDo: #definedNameSpaces #definedObjectsDo:  
#definedSelectorsFor: #definesClassOrNameSpace: #definesName:in:  
#definesObject: #definesSelector:forClass:)
('accessing browser' #allClasses #allClassNames #allMetaclasses  
#allMetaclassNames #allMethodsBut: #allNameSpaceNames #allNameSpaces  
#classesDefinedInPackage #classesExtendedInPackage #classesWithSource  
#dataForNamed: #dataForNamed:andProtocol: #datum:forOwnerNamed:  
#metaclassesDefinedInPackage #metaclassesExtendedInPackage  
#method:forClassNamed:meta: #methodsForClassNamed:andProtocol:meta:  
#methodsForClassNamed:meta: #nameSpacesDefinedInPackage  
#nameSpacesExtendedInPackage #nameSpacesWithSource #packageClasses  
#packageNameSpaces #protocolsForClassNamed:meta: #protocolsForDataIn:  
#protocolsForNameSpaceNamed: #toolListIcon)
('consistency checking' #checkConsistencyOn: #makeConsistent)
('binary storage' #classListForPackage #compiledMethods #currentTag  
#indexTag #literalClassListForPackage #readFromCodeReader:)
('private-file out' #createOrFindExpression  
#fileOutChangesForDb:on:within: #fileOutChangesOn:within:  
#fileOutClassesOn: #fileOutDataOn: #fileOutMethodsOn:  
#fileOutNameSpacesOn: #fileOutOn: #sortForFileout:)
('initialize-release' #initialize #release)
('unloading' #preUnloadChecks #preUnloadChecksFromBundle:  
#preUnloadChecksThorough #runRearguard #systemRemoveSelector:fromClass:  
#unloadFromImage #unloadLogged: #unloadProblemsQuery:  
#unloadSourceSafely)
('public-change set access' #changedMessageList #changedMessageListFor:  
#changedMethodList #checkChangeSet)
('accessing' #actualClassInPackageNamed: #allDefinedClasses  
#browserListIconKey #changedItemCount #changedItemCountFor:  
#classInPackageNamed: #classInPackageNamed:meta: #data #dataAsArray  
#dataInstances #dataWithSource #inPackageNamed: #itemCount #methods  
#methodsAsArray #methodsWithSource #nameSpaceInPackageNamed:  
#pundleChangesClass #removeMethodDescriptor:)
('private-differences calculation'  
#changeSetClassDiffsBetweenDBPackage:into:  
#changeSetDataDiffsBetweenDBPackage:into:  
#changeSetDiffsBetweenDBPackage:into:  
#changeSetMethodDiffsBetweenDBPackage:into: #classesNamed:  
#computeDiffsBetween:into: #computeDiffsBetweenDBPackage:into:  
#computeFullDiffsBetweenDBPackage:into:  
#computeOverrideDiffsBetweenDBPackage:into: #modifications  
#modificationsFor: #nameSpacesNamed:)
('private' #asDBDescription #canReplaceVersions #checkUndeclared  
#classOfDbRecord #cleanse #cleanse: #descriptionClass  
#doUnloadDefinitionsFromImage #doUnloadExtensionsFromImage  
#doUnloadFromImage #manager #relinquishDataKey:owner:  
#relinquishSelector:class: #removeEmptyModels #removeEmptyProtocols  
#unloadSource)
('private-consistency checking' #checkIfPublishedIsEqual)
('private - db storage' #storeInDB)
('table of contents' #completeTableOfContentsNamed:  
#tableOfBundleContentsOn:level: #tableOfContentsOn:  
#tableOfContentsOnFile:)
('main change set access' #doClassChange: #doNameSpaceChange:  
#doSubdefChange: #removeAllChangeSetClassSymbol:  
#removeAllChangeSetNameSpaceSymbol: #renameAllChangeSetClassSymbol:to:  
#renameAllChangeSetNameSpaceSymbol:to: #renameClassSymbol:as:  
#renameNameSpaceSymbol:as:)
('parcel support' #copyContentsToParcel: #dataNotInParcel:on:  
#definedClassesExcludedSelectors #definedClassesNotInParcel:on:  
#definedNameSpacesNotInParcel:on: #definedObjects #extensionMethods  
#extensionsDo: #methodsNotInParcel:on: #namedObjects  
#putStoredPropertiesIn: #saveAsParcel:saveStructure:saveLinks:  
#saveAsParcel:saveStructure:saveLinks:parcelOptions:  
#saveAsParcelFromSpecs:)
('overrides' #cleanUpOverrides #comparesTo: #overriddenClass:  
#overriddenNameSpace: #overriddenSelector:class: #overriddenStatic:in:  
#reinstalledClass: #reinstalledNameSpace: #reinstalledSelector:class:  
#reinstalledStatic:in: #removeOverriddenClass:  
#removeOverriddenNameSpace: #removeOverriddenSelector:class:  
#removeOverriddenStatic:nameSpace:)
('change set conversion' #conversionPackage #copyModels:)
('private-loading/unloading' #removeClass:unloaded:  
#removeNameSpace:unloaded:)
('editing' #addClasses: #addEntiretyOfClass: #addSelector:forClass:  
#removeName:in: #removeSelector:forClass:)
('change management' #removeClass: #removeNameSpace:)
('private-load/unload' #queryLoaded:ifLoadedAndOK:ifFail:  
#updateFrom:within:)
('fragments' #addFragmentNamed: #browserSubItems #fragmentClass  
#fragmentNamed: #fragmentNamed:addItem: #fragmentNamed:addItems:  
#fragmentNameOrNilForItem: #fragmentNames #fragmentOrSelfForItem:  
#fragments #hasFragmentNamed: #isFragment #myPackage  
#registryLookupMessage #removeFragmentedItem: #removeFragmentedItems:  
#removeFragmentNamed: #renameFragment:to: #updateFragmentsUsing:)

	name = #PackageModel
	classPool = a NameSpaceOfClass[1]
	environment = a NameSpace[218]
Arguments:
	aBlock = BlockClosure [] in CodeComponent>>loadFrom:using:
	componentSource = {'Seaside/Loader'-nil-399}
Temporaries:
	acceptAbsentClassImports = false
	componentName = 'Seaside/Loader'
Context PC = 22

----------------------------------------------------------------------
Store.PackageModel(CodeComponent)>>loadFrom:using:
Receiver:
	a Store.PackageModel
Instance Variables:
	name = 'Seaside/Loader'
	properties = an IdentityDictionary[0]
	dbInfo = an IdentityDictionary[1]
	readonly = nil
	models = an IdentityDictionary[0]
Arguments:
	aSource = {'Seaside/Loader'-nil-399}
	aCodeReader = a Store.CodeReaderForStore
Context PC = 11

----------------------------------------------------------------------
optimized [] in [] in Store.Package>>binLoadWithin:
Receiver:
	an UndefinedObject
Temporaries:
	imgPkg = nil
	.self = {'Seaside/Loader'-'2.5.11.2'-21482}
	.record = {'Seaside/Loader'-nil-399}
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 23

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in Store.Package>>binLoadWithin:
	outerContext = nil
	copiedValues = an Array[4]
Arguments:
	anExceptionSelector = CodeReader requestWarningSuppressionSignal
	handlerBlock = BlockClosure [] in [] in Store.Package>>binLoadWithin:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Store.Package>>binLoadWithin:
Receiver:
	an UndefinedObject
Temporaries:
	imgPkg = nil
	.self = {'Seaside/Loader'-'2.5.11.2'-21482}
	.record = {'Seaside/Loader'-nil-399}
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in Store.Package>>binLoadWithin:
	outerContext = nil
	copiedValues = an Array[4]
Arguments:
	anExceptionSelector = RedefinitionNotification
	handlerBlock = BlockClosure [] in Store.Package>>binLoadWithin:
Context PC = 18

----------------------------------------------------------------------
Store.Package>>binLoadWithin:
Receiver:
	a Store.Package
Instance Variables:
	primaryKey = 21482
	name = 'Seaside/Loader'
	timeStamp = 345025407
	version = '2.5.11.2'
	userName = 'mbany'
	trace = 21408
	dbIdentifier = #psql_public_cst
	blessingLevel = 20
	commentID = 0
	propertiesID = 1003535
	properties = an IdentityDictionary[1]
	commentStr = nil
	namespaces = nil
	classes = nil
	metaclasses = nil
	methods = nil
	binFile = ''
	data = nil
	overrides = nil
	parcelID = 399
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Temporaries:
	imgPkg = nil
	record = {'Seaside/Loader'-nil-399}
	unloadable = an OrderedCollection[0]
Context PC = 32

----------------------------------------------------------------------
Store.Package>>loadWithin:useBinIfAvailable:warnReplace:
Receiver:
	a Store.Package
Instance Variables:
	primaryKey = 21482
	name = 'Seaside/Loader'
	timeStamp = 345025407
	version = '2.5.11.2'
	userName = 'mbany'
	trace = 21408
	dbIdentifier = #psql_public_cst
	blessingLevel = 20
	commentID = 0
	propertiesID = 1003535
	properties = an IdentityDictionary[1]
	commentStr = nil
	namespaces = nil
	classes = nil
	metaclasses = nil
	methods = nil
	binFile = ''
	data = nil
	overrides = nil
	parcelID = 399
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	binOK = true
	warnReplace = false
Temporaries:
	imPkg = nil
Context PC = 11

----------------------------------------------------------------------
Store.Package>>loadSrcWithin:warnReplace:
Receiver:
	a Store.Package
Instance Variables:
	primaryKey = 21482
	name = 'Seaside/Loader'
	timeStamp = 345025407
	version = '2.5.11.2'
	userName = 'mbany'
	trace = 21408
	dbIdentifier = #psql_public_cst
	blessingLevel = 20
	commentID = 0
	propertiesID = 1003535
	properties = an IdentityDictionary[1]
	commentStr = nil
	namespaces = nil
	classes = nil
	metaclasses = nil
	methods = nil
	binFile = ''
	data = nil
	overrides = nil
	parcelID = 399
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	warnReplace = false
Context PC = 21

----------------------------------------------------------------------
Store.PackageModel class>>binLoadFromDB:within:
Receiver:
	a Store.PackageModel class
Instance Variables:
	superclass = Store.PundleModel
	methodDict = a MethodDictionary[291]
	format = 16389
	subclasses = nil
	instanceVariables = an Array[1]
	organization = ('testing' #definesClass: #extendsClass:  
#hasBeenModified #hasDataKey:in: #hasDefinitionFor: #hasExtensions  
#hasSelector:in: #hasUninstalledCode #includesClass:  
#includesClassNamed: #includesClassSymbol: #includesDataKey:nameSpace:  
#includesDataKey:nameSpaceName: #includesDataKey:nameSpaceSymbol:  
#includesDataKey:owner: #includesDataKey:ownerName:  
#includesDataKey:ownerSymbol: #includesDatum: #includesMethod:  
#includesNameSpaceNamed: #includesSelector:class:  
#includesSelector:className:meta: #includesSelector:classSymbol:meta:  
#includesSymbol: #isEmpty #isLeaf #isNullPackage #isPackage  
#isPackageOrFragment #isSaveable #isSaveableWithWarning)
('private-model' #addFullSymbol: #addModel: #addStatic:to:  
#definedModels #descriptorClassFor: #descriptorClassFor:hasDefinition:  
#extendedModels #includesDefinitionOf:  
#installModelAtFullSymbol:hasDefinition:  
#modelAtFullSymbol:hasDefinition: #modelAtName:ifAbsent:  
#modelAtSymbol:ifAbsent: #modelClassFor:hasDefinition: #modelsDo:  
#removeDataKey:ownerSymbol: #removeModel: #removeStatic:from:)
('private-class model' #addClassModel:  
#classModelAtClass:hasDefinition: #classModelAtClass:ifAbsent:  
#classModelAtClassName:hasDefinition: #classModelAtClassName:ifAbsent:  
#classModelAtClassNamed:ifAbsent:  
#classModelAtClassSymbol:hasDefinition:  
#classModelAtClassSymbol:ifAbsent: #classModels #classModelsDo:  
#definedClassModels #extendedClassModels #extendedNameSpaceModels  
#installClassModelAtFullClassSymbol:hasDefinition: #removeClassModel:  
#removeWholeSymbol: #renameClassModel:as: #renameModel:as:)
('private-namespace model' #addObject: #dataForNameSpaceName:  
#definedNameSpaceModels #nameSpaceModels #nameSpaceModelsDo:  
#removeDefinitionFullNameSpaceSymbol:)
('private-class model changes' #addClass: #addDataKey:symbol:  
#addFullClassSymbol: #addName:in: #addSelector:class:  
#addSelector:fullClassSymbol:meta: #addSelector:toClass:  
#addSelectors:forClass: #markModificationAsRemoves:  
#removeDefinitionFullClassSymbol: #removeWholeClassSymbol:)
('printing' #classDescription #displayString #printOn:)
('private-descriptors' #affectedClassNamesMeta: #affectedNameSpaceNames  
#modifiedAndReorganizedMethodDescriptors #modifiedDatumDescriptors  
#removedClassOrDefinitionNames #removedDatumDescriptors  
#removedMethodDescriptors #removedNameSpaceOrDefinitionNames  
#reorganizedMethodDescriptors)
('accessing- fake' #allContainedItems #anyContainedItems  
#containedItems #typeStringForBlessing)
('queries' #definedBindings #definedBindingsFor: #definedClasses  
#definedClassesDo: #definedNameSpaces #definedObjectsDo:  
#definedSelectorsFor: #definesClassOrNameSpace: #definesName:in:  
#definesObject: #definesSelector:forClass:)
('accessing browser' #allClasses #allClassNames #allMetaclasses  
#allMetaclassNames #allMethodsBut: #allNameSpaceNames #allNameSpaces  
#classesDefinedInPackage #classesExtendedInPackage #classesWithSource  
#dataForNamed: #dataForNamed:andProtocol: #datum:forOwnerNamed:  
#metaclassesDefinedInPackage #metaclassesExtendedInPackage  
#method:forClassNamed:meta: #methodsForClassNamed:andProtocol:meta:  
#methodsForClassNamed:meta: #nameSpacesDefinedInPackage  
#nameSpacesExtendedInPackage #nameSpacesWithSource #packageClasses  
#packageNameSpaces #protocolsForClassNamed:meta: #protocolsForDataIn:  
#protocolsForNameSpaceNamed: #toolListIcon)
('consistency checking' #checkConsistencyOn: #makeConsistent)
('binary storage' #classListForPackage #compiledMethods #currentTag  
#indexTag #literalClassListForPackage #readFromCodeReader:)
('private-file out' #createOrFindExpression  
#fileOutChangesForDb:on:within: #fileOutChangesOn:within:  
#fileOutClassesOn: #fileOutDataOn: #fileOutMethodsOn:  
#fileOutNameSpacesOn: #fileOutOn: #sortForFileout:)
('initialize-release' #initialize #release)
('unloading' #preUnloadChecks #preUnloadChecksFromBundle:  
#preUnloadChecksThorough #runRearguard #systemRemoveSelector:fromClass:  
#unloadFromImage #unloadLogged: #unloadProblemsQuery:  
#unloadSourceSafely)
('public-change set access' #changedMessageList #changedMessageListFor:  
#changedMethodList #checkChangeSet)
('accessing' #actualClassInPackageNamed: #allDefinedClasses  
#browserListIconKey #changedItemCount #changedItemCountFor:  
#classInPackageNamed: #classInPackageNamed:meta: #data #dataAsArray  
#dataInstances #dataWithSource #inPackageNamed: #itemCount #methods  
#methodsAsArray #methodsWithSource #nameSpaceInPackageNamed:  
#pundleChangesClass #removeMethodDescriptor:)
('private-differences calculation'  
#changeSetClassDiffsBetweenDBPackage:into:  
#changeSetDataDiffsBetweenDBPackage:into:  
#changeSetDiffsBetweenDBPackage:into:  
#changeSetMethodDiffsBetweenDBPackage:into: #classesNamed:  
#computeDiffsBetween:into: #computeDiffsBetweenDBPackage:into:  
#computeFullDiffsBetweenDBPackage:into:  
#computeOverrideDiffsBetweenDBPackage:into: #modifications  
#modificationsFor: #nameSpacesNamed:)
('private' #asDBDescription #canReplaceVersions #checkUndeclared  
#classOfDbRecord #cleanse #cleanse: #descriptionClass  
#doUnloadDefinitionsFromImage #doUnloadExtensionsFromImage  
#doUnloadFromImage #manager #relinquishDataKey:owner:  
#relinquishSelector:class: #removeEmptyModels #removeEmptyProtocols  
#unloadSource)
('private-consistency checking' #checkIfPublishedIsEqual)
('private - db storage' #storeInDB)
('table of contents' #completeTableOfContentsNamed:  
#tableOfBundleContentsOn:level: #tableOfContentsOn:  
#tableOfContentsOnFile:)
('main change set access' #doClassChange: #doNameSpaceChange:  
#doSubdefChange: #removeAllChangeSetClassSymbol:  
#removeAllChangeSetNameSpaceSymbol: #renameAllChangeSetClassSymbol:to:  
#renameAllChangeSetNameSpaceSymbol:to: #renameClassSymbol:as:  
#renameNameSpaceSymbol:as:)
('parcel support' #copyContentsToParcel: #dataNotInParcel:on:  
#definedClassesExcludedSelectors #definedClassesNotInParcel:on:  
#definedNameSpacesNotInParcel:on: #definedObjects #extensionMethods  
#extensionsDo: #methodsNotInParcel:on: #namedObjects  
#putStoredPropertiesIn: #saveAsParcel:saveStructure:saveLinks:  
#saveAsParcel:saveStructure:saveLinks:parcelOptions:  
#saveAsParcelFromSpecs:)
('overrides' #cleanUpOverrides #comparesTo: #overriddenClass:  
#overriddenNameSpace: #overriddenSelector:class: #overriddenStatic:in:  
#reinstalledClass: #reinstalledNameSpace: #reinstalledSelector:class:  
#reinstalledStatic:in: #removeOverriddenClass:  
#removeOverriddenNameSpace: #removeOverriddenSelector:class:  
#removeOverriddenStatic:nameSpace:)
('change set conversion' #conversionPackage #copyModels:)
('private-loading/unloading' #removeClass:unloaded:  
#removeNameSpace:unloaded:)
('editing' #addClasses: #addEntiretyOfClass: #addSelector:forClass:  
#removeName:in: #removeSelector:forClass:)
('change management' #removeClass: #removeNameSpace:)
('private-load/unload' #queryLoaded:ifLoadedAndOK:ifFail:  
#updateFrom:within:)
('fragments' #addFragmentNamed: #browserSubItems #fragmentClass  
#fragmentNamed: #fragmentNamed:addItem: #fragmentNamed:addItems:  
#fragmentNameOrNilForItem: #fragmentNames #fragmentOrSelfForItem:  
#fragments #hasFragmentNamed: #isFragment #myPackage  
#registryLookupMessage #removeFragmentedItem: #removeFragmentedItems:  
#removeFragmentNamed: #renameFragment:to: #updateFragmentsUsing:)

	name = #PackageModel
	classPool = a NameSpaceOfClass[1]
	environment = a NameSpace[218]
Arguments:
	aKey = 21482
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Temporaries:
	dbPkg = {'Seaside/Loader'-'2.5.11.2'-21482}
Context PC = 39

----------------------------------------------------------------------
Store.PackageDescription>>loadFromDBWithin:
Receiver:
	a Store.PackageDescription
Instance Variables:
	dbIdentifier = #psql_public_cst
	id = 21482
	componentName = 'Seaside/Loader'
	fileName = nil
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Temporaries:
	key = 21482
Context PC = 9

----------------------------------------------------------------------
optimized [] in Store.ComponentDescription>>dbLoadWithin:
Receiver:
	an UndefinedObject
Temporaries:
	comp = nil
	.self = PackageDescription (Seaside/Loader 21482:psql_public_cst)
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in Store.ComponentDescription>>dbLoadWithin:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = Store.Pundle componentNotFoundSignal
	handlerBlock = BlockClosure [] in  
Store.ComponentDescription>>dbLoadWithin:
Context PC = 18

----------------------------------------------------------------------
Store.PackageDescription(Store.ComponentDescription)>>dbLoadWithin:
Receiver:
	a Store.PackageDescription
Instance Variables:
	dbIdentifier = #psql_public_cst
	id = 21482
	componentName = 'Seaside/Loader'
	fileName = nil
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 21

----------------------------------------------------------------------
optimized [] in [] in Store.BundleModel>>dbLoadComponentsWithin:
Receiver:
	an UndefinedObject
Temporaries:
	.comp = PackageDescription (Seaside/Loader 21482:psql_public_cst)
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in  
Store.BundleModel>>dbLoadComponentsWithin:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = Store.ComponentDescription  
cannotLoadComponentSignal
	handlerBlock = BlockClosure [] in [] in  
Store.BundleModel>>dbLoadComponentsWithin:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Store.BundleModel>>dbLoadComponentsWithin:
Receiver:
	an UndefinedObject
Arguments:
	comp = PackageDescription (Seaside/Loader 21482:psql_public_cst)
Temporaries:
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	.self = {SeasideForWebToolkit}
Context PC = 18

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
	an OrderedCollection
Instance Variables:
	firstIndex = 1
	lastIndex = 1
Arguments:
	aBlock = BlockClosure [] in Store.BundleModel>>dbLoadComponentsWithin:
Temporaries:
	index = 1
Context PC = 17

----------------------------------------------------------------------
Store.BundleModel>>dbLoadComponentsWithin:
Receiver:
	a Store.BundleModel
Instance Variables:
	name = 'SeasideForWebToolkit'
	properties = an IdentityDictionary[4]
	dbInfo = an IdentityDictionary[1]
	readonly = nil
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 11

----------------------------------------------------------------------
optimized [] in Store.BundleModel>>loadContentsFromDBWithin:
Receiver:
	an UndefinedObject
Temporaries:
	.self = {SeasideForWebToolkit}
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in  
Store.BundleModel>>loadContentsFromDBWithin:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = Store.PundleModel emergencyUnloadSignal
	handlerBlock = BlockClosure [] in  
Store.BundleModel>>loadContentsFromDBWithin:
Context PC = 18

----------------------------------------------------------------------
Store.BundleModel>>loadContentsFromDBWithin:
Receiver:
	a Store.BundleModel
Instance Variables:
	name = 'SeasideForWebToolkit'
	properties = an IdentityDictionary[4]
	dbInfo = an IdentityDictionary[1]
	readonly = nil
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 16

----------------------------------------------------------------------
Store.BundleModel class>>loadNewFromDB:within:
Receiver:
	a Store.BundleModel class
Instance Variables:
	superclass = Store.PundleModel
	methodDict = a MethodDictionary[128]
	format = 16388
	subclasses = nil
	instanceVariables = an Array[0]
	organization = ('relationships' #relatedBy:)
('printing' #classDescription #describeContents  
#describeContentsOn:level: #displayString  
#fileOutChangesForDb:on:within: #fileOutChangesOn:within: #printOn:  
#storeOn:)
('private-file out' #createOrFindExpression #fileOutChangesOn:  
#fileOutOn:)
('binary storage' #adjustComponents #dbLoadComponentsWithin:)
('initialize-release' #initializeForReconcileWith: #initializeFromDB:  
#initializeFromImage: #setContentsFromDB:)
('unloading' #preUnloadChecksFromBundle: #unloadFromImage  
#unloadLogged:)
('private-change set access' #structureMark)
('public-change set access' #inspectChangeSet)
('accessing-browser' #allClasses #allMetaclasses #allNameSpaces  
#dataForNamed: #dataForNamed:andProtocol: #includesDataKey:ownerName:  
#includesDefinitionOf: #includesMethod: #includesSelector:class:  
#includesSelector:className:meta:  
#methodsForClassNamed:andProtocol:meta: #methodsForClassNamed:meta:  
#protocolsForClassNamed:meta: #protocolsForDataIn: #toolListIcon)
('accessing' #addItem: #allContainedItems #allItems #anyContainedItems  
#browserListIconKey #changedItemCount #changedItemCountFor:  
#databaseInformationClass #descriptionsAndLevels #itemCount  
#leafDescriptions #leafItems #pundleChangesClass #structure #structure:  
#traceBundle #typeStringForBlessing #uniqueDescriptionsAndLevels)
('private - db storage' #dbContent #dbContentPundleFragments:  
#storeInDB #updateFrom:)
('table of contents' #completeTableOfContentsNamed:  
#tableOfBundleContentsOn: #tableOfBundleContentsOn:level:  
#tableOfBundleContentsOnFile: #tableOfContentsOn:  
#tableOfContentsOnFile:)
('private-validation' #removeNonexistentComponents  
#removeNonexistentComponentsRecursive #validateLoadOrder)
('private' #asDBDescription #classOfDbRecord #comparePackages:  
#descriptionClass #dialogForException: #doUnloadFromImage  
#emergencyUnload #loadContentsFromDBWithin: #manager #pundlesNotIn:or:  
#removeComponent: #validateOkayToPublish)
('queries' #definedBindings #definedClasses  
#definedClassesExcludedSelectors #definedNameSpaces #definedObjects  
#extensionMethods)
('parcel support' #copyContentsToParcel: #dataNotInParcel:on:  
#definedClassesNotInParcel: #definedClassesNotInParcel:on:  
#definedNameSpacesNotInParcel: #definedNameSpacesNotInParcel:on:  
#methodsNotInParcel:on: #namedObjects  
#saveAsParcel:saveStructure:saveLinks:  
#saveAsParcel:saveStructure:saveLinks:parcelOptions:  
#saveAsParcelFromSpecs:)
('db utilities' #cleanUpOverrides #reconcileWithDb: #setNewTraceTo:)
('private-differences calculation' #computeDiffsBetween:into:  
#computeDiffsBetweenDBBundle:into: #modifications #modificationsFor:)
('content management' #addComponent: #allContentCollectionsDo:  
#anyContentDescriptions #component:beingRenamedTo: #containedItems  
#containedItems: #contentDescriptions #contentDescriptionsFor:  
#contents)
('compaisons' #comparesTo:)
('testing' #containsDescription: #containsItem: #hasBeenModified  
#hasBeenModifiedIn: #hasCodeOverridden #hasExtensions #isBundle  
#isEmpty #isLeaf #overridesSelf)
('fragments' #browserSubItems #isFragment #registryLookupMessage)

	name = #BundleModel
	classPool = a NameSpaceOfClass[1]
	environment = a NameSpace[218]
Arguments:
	aDBBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Temporaries:
	baby = {SeasideForWebToolkit}
Context PC = 15

----------------------------------------------------------------------
Store.BundleModel class>>loadFromDB:within:
Receiver:
	a Store.BundleModel class
Instance Variables:
	superclass = Store.PundleModel
	methodDict = a MethodDictionary[128]
	format = 16388
	subclasses = nil
	instanceVariables = an Array[0]
	organization = ('relationships' #relatedBy:)
('printing' #classDescription #describeContents  
#describeContentsOn:level: #displayString  
#fileOutChangesForDb:on:within: #fileOutChangesOn:within: #printOn:  
#storeOn:)
('private-file out' #createOrFindExpression #fileOutChangesOn:  
#fileOutOn:)
('binary storage' #adjustComponents #dbLoadComponentsWithin:)
('initialize-release' #initializeForReconcileWith: #initializeFromDB:  
#initializeFromImage: #setContentsFromDB:)
('unloading' #preUnloadChecksFromBundle: #unloadFromImage  
#unloadLogged:)
('private-change set access' #structureMark)
('public-change set access' #inspectChangeSet)
('accessing-browser' #allClasses #allMetaclasses #allNameSpaces  
#dataForNamed: #dataForNamed:andProtocol: #includesDataKey:ownerName:  
#includesDefinitionOf: #includesMethod: #includesSelector:class:  
#includesSelector:className:meta:  
#methodsForClassNamed:andProtocol:meta: #methodsForClassNamed:meta:  
#protocolsForClassNamed:meta: #protocolsForDataIn: #toolListIcon)
('accessing' #addItem: #allContainedItems #allItems #anyContainedItems  
#browserListIconKey #changedItemCount #changedItemCountFor:  
#databaseInformationClass #descriptionsAndLevels #itemCount  
#leafDescriptions #leafItems #pundleChangesClass #structure #structure:  
#traceBundle #typeStringForBlessing #uniqueDescriptionsAndLevels)
('private - db storage' #dbContent #dbContentPundleFragments:  
#storeInDB #updateFrom:)
('table of contents' #completeTableOfContentsNamed:  
#tableOfBundleContentsOn: #tableOfBundleContentsOn:level:  
#tableOfBundleContentsOnFile: #tableOfContentsOn:  
#tableOfContentsOnFile:)
('private-validation' #removeNonexistentComponents  
#removeNonexistentComponentsRecursive #validateLoadOrder)
('private' #asDBDescription #classOfDbRecord #comparePackages:  
#descriptionClass #dialogForException: #doUnloadFromImage  
#emergencyUnload #loadContentsFromDBWithin: #manager #pundlesNotIn:or:  
#removeComponent: #validateOkayToPublish)
('queries' #definedBindings #definedClasses  
#definedClassesExcludedSelectors #definedNameSpaces #definedObjects  
#extensionMethods)
('parcel support' #copyContentsToParcel: #dataNotInParcel:on:  
#definedClassesNotInParcel: #definedClassesNotInParcel:on:  
#definedNameSpacesNotInParcel: #definedNameSpacesNotInParcel:on:  
#methodsNotInParcel:on: #namedObjects  
#saveAsParcel:saveStructure:saveLinks:  
#saveAsParcel:saveStructure:saveLinks:parcelOptions:  
#saveAsParcelFromSpecs:)
('db utilities' #cleanUpOverrides #reconcileWithDb: #setNewTraceTo:)
('private-differences calculation' #computeDiffsBetween:into:  
#computeDiffsBetweenDBBundle:into: #modifications #modificationsFor:)
('content management' #addComponent: #allContentCollectionsDo:  
#anyContentDescriptions #component:beingRenamedTo: #containedItems  
#containedItems: #contentDescriptions #contentDescriptionsFor:  
#contents)
('compaisons' #comparesTo:)
('testing' #containsDescription: #containsItem: #hasBeenModified  
#hasBeenModifiedIn: #hasCodeOverridden #hasExtensions #isBundle  
#isEmpty #isLeaf #overridesSelf)
('fragments' #browserSubItems #isFragment #registryLookupMessage)

	name = #BundleModel
	classPool = a NameSpaceOfClass[1]
	environment = a NameSpace[218]
Arguments:
	aDBBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Temporaries:
	imgBundle = nil
Context PC = 29

----------------------------------------------------------------------
optimized [] in Store.BundleModel class>>newFromDB:within:
Receiver:
	an UndefinedObject
Temporaries:
	.self = Store.BundleModel
	.aDBBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	.parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 8

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in Store.BundleModel class>>newFromDB:within:
	outerContext = nil
	copiedValues = an Array[3]
Arguments:
	anExceptionSelector = Store.PundleModel emergencyUnloadSignal
	handlerBlock = BlockClosure [] in Store.BundleModel  
class>>newFromDB:within:
Context PC = 18

----------------------------------------------------------------------
Store.BundleModel class>>newFromDB:within:
Receiver:
	a Store.BundleModel class
Instance Variables:
	superclass = Store.PundleModel
	methodDict = a MethodDictionary[128]
	format = 16388
	subclasses = nil
	instanceVariables = an Array[0]
	organization = ('relationships' #relatedBy:)
('printing' #classDescription #describeContents  
#describeContentsOn:level: #displayString  
#fileOutChangesForDb:on:within: #fileOutChangesOn:within: #printOn:  
#storeOn:)
('private-file out' #createOrFindExpression #fileOutChangesOn:  
#fileOutOn:)
('binary storage' #adjustComponents #dbLoadComponentsWithin:)
('initialize-release' #initializeForReconcileWith: #initializeFromDB:  
#initializeFromImage: #setContentsFromDB:)
('unloading' #preUnloadChecksFromBundle: #unloadFromImage  
#unloadLogged:)
('private-change set access' #structureMark)
('public-change set access' #inspectChangeSet)
('accessing-browser' #allClasses #allMetaclasses #allNameSpaces  
#dataForNamed: #dataForNamed:andProtocol: #includesDataKey:ownerName:  
#includesDefinitionOf: #includesMethod: #includesSelector:class:  
#includesSelector:className:meta:  
#methodsForClassNamed:andProtocol:meta: #methodsForClassNamed:meta:  
#protocolsForClassNamed:meta: #protocolsForDataIn: #toolListIcon)
('accessing' #addItem: #allContainedItems #allItems #anyContainedItems  
#browserListIconKey #changedItemCount #changedItemCountFor:  
#databaseInformationClass #descriptionsAndLevels #itemCount  
#leafDescriptions #leafItems #pundleChangesClass #structure #structure:  
#traceBundle #typeStringForBlessing #uniqueDescriptionsAndLevels)
('private - db storage' #dbContent #dbContentPundleFragments:  
#storeInDB #updateFrom:)
('table of contents' #completeTableOfContentsNamed:  
#tableOfBundleContentsOn: #tableOfBundleContentsOn:level:  
#tableOfBundleContentsOnFile: #tableOfContentsOn:  
#tableOfContentsOnFile:)
('private-validation' #removeNonexistentComponents  
#removeNonexistentComponentsRecursive #validateLoadOrder)
('private' #asDBDescription #classOfDbRecord #comparePackages:  
#descriptionClass #dialogForException: #doUnloadFromImage  
#emergencyUnload #loadContentsFromDBWithin: #manager #pundlesNotIn:or:  
#removeComponent: #validateOkayToPublish)
('queries' #definedBindings #definedClasses  
#definedClassesExcludedSelectors #definedNameSpaces #definedObjects  
#extensionMethods)
('parcel support' #copyContentsToParcel: #dataNotInParcel:on:  
#definedClassesNotInParcel: #definedClassesNotInParcel:on:  
#definedNameSpacesNotInParcel: #definedNameSpacesNotInParcel:on:  
#methodsNotInParcel:on: #namedObjects  
#saveAsParcel:saveStructure:saveLinks:  
#saveAsParcel:saveStructure:saveLinks:parcelOptions:  
#saveAsParcelFromSpecs:)
('db utilities' #cleanUpOverrides #reconcileWithDb: #setNewTraceTo:)
('private-differences calculation' #computeDiffsBetween:into:  
#computeDiffsBetweenDBBundle:into: #modifications #modificationsFor:)
('content management' #addComponent: #allContentCollectionsDo:  
#anyContentDescriptions #component:beingRenamedTo: #containedItems  
#containedItems: #contentDescriptions #contentDescriptionsFor:  
#contents)
('compaisons' #comparesTo:)
('testing' #containsDescription: #containsItem: #hasBeenModified  
#hasBeenModifiedIn: #hasCodeOverridden #hasExtensions #isBundle  
#isEmpty #isLeaf #overridesSelf)
('fragments' #browserSubItems #isFragment #registryLookupMessage)

	name = #BundleModel
	classPool = a NameSpaceOfClass[1]
	environment = a NameSpace[218]
Arguments:
	aDBBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 19

----------------------------------------------------------------------
Store.Bundle>>loadSrcWithin:
Receiver:
	a Store.Bundle
Instance Variables:
	primaryKey = 10634
	name = 'SeasideForWebToolkit'
	timeStamp = 345028308
	version = '2.5a6.9.0'
	userName = 'mbany'
	trace = 10574
	dbIdentifier = #psql_public_cst
	blessingLevel = 20
	commentID = 0
	propertiesID = 1003640
	properties = an IdentityDictionary[4]
	commentStr = ''
	vanguardID = nil
	rearguardID = nil
	vanguardStr = nil
	rearguardStr = nil
	contents = a List[1]
Arguments:
	parentBundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Context PC = 5

----------------------------------------------------------------------
optimized [] in [] in Store.Bundle>>loadSrc
Receiver:
	an UndefinedObject
Temporaries:
	.self = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	imgBundle = nil
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in Store.Bundle>>loadSrc
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = RedefinitionNotification
	handlerBlock = BlockClosure [] in [] in Store.Bundle>>loadSrc
Context PC = 18

----------------------------------------------------------------------
optimized [] in Store.Bundle>>loadSrc
Receiver:
	an UndefinedObject
Temporaries:
	.self = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
	imgBundle = nil
	.leafNames = an OrderedCollection[1]
Context PC = 15

----------------------------------------------------------------------
optimized [] in [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
Receiver:
	an UndefinedObject
Temporaries:
	.aBlock = BlockClosure [] in Store.Bundle>>loadSrc
	increment = 0.0833333
	res = nil
	newValue = nil
Context PC = 5

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	aBlock = BlockClosure [] in Cursor>>showWhile:
Temporaries:
	result = nil
Context PC = 4

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
	a Cursor
Instance Variables:
	errorCode = 0
	handle = a ByteArray[4]
	image = Depth1Image(extent: 16 at 16 depth: 1)
	mask = Depth1Image(extent: 16 at 16 depth: 1)
	hotSpot = 0 at 0
	name = 'wait'
Arguments:
	aBlock = BlockClosure [] in [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
Temporaries:
	oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
optimized [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
Receiver:
	an UndefinedObject
Temporaries:
	.aBlock = BlockClosure [] in Store.Bundle>>loadSrc
	increment = 0.0833333
	res = nil
	newValue = nil
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = IncrementNotification
	handlerBlock = BlockClosure [] in [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
Context PC = 18

----------------------------------------------------------------------
optimized [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
Receiver:
	an UndefinedObject
Temporaries:
	.aBlock = BlockClosure [] in Store.Bundle>>loadSrc
	increment = 0.0833333
	res = nil
	newValue = nil
	.noticeModel = a Notice
	.progress = a ValueHolder on: 0.0
	.title = 'Store : <1s>%% done'
Context PC = 18

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
	outerContext = nil
	copiedValues = an Array[5]
Arguments:
	anExceptionSelector = MessageNotification
	handlerBlock = BlockClosure [] in [] in [] in Notice  
class>>showNotice:complete:while:title:
Context PC = 18

----------------------------------------------------------------------
optimized [] in [] in Notice class>>showNotice:complete:while:title:
Receiver:
	an UndefinedObject
Temporaries:
	.aBlock = BlockClosure [] in Store.Bundle>>loadSrc
	increment = 0.0833333
	res = nil
	newValue = nil
	.noticeModel = a Notice
	.progress = a ValueHolder on: 0.0
	.title = 'Store : <1s>%% done'
Context PC = 18

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in Notice  
class>>showNotice:complete:while:title:
	outerContext = nil
	copiedValues = an Array[5]
Arguments:
	anExceptionSelector = ResetIncrementNotification
	handlerBlock = BlockClosure [] in [] in Notice  
class>>showNotice:complete:while:title:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Notice class>>showNotice:complete:while:title:
Receiver:
	an UndefinedObject
Temporaries:
	.aBlock = BlockClosure [] in Store.Bundle>>loadSrc
	increment = 0.0833333
	res = nil
	newValue = nil
	.noticeModel = a Notice
	.progress = a ValueHolder on: 0.0
	.title = 'Store : <1s>%% done'
Context PC = 21

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in Notice  
class>>showNotice:complete:while:title:
	outerContext = nil
	copiedValues = an Array[5]
Arguments:
	aBlock = BlockClosure [] in Notice  
class>>showNotice:complete:while:title:
Temporaries:
	result = nil
Context PC = 4

----------------------------------------------------------------------
Notice class>>showNotice:complete:while:title:
Receiver:
	a Notice class
Instance Variables:
	superclass = ApplicationModel
	methodDict = a MethodDictionary[9]
	format = 16390
	subclasses = nil
	instanceVariables = an Array[2]
	organization = ('interface opening' #postOpenWith:)
('aspects' #message: #notice #show: #textView)
('updating' #changedMessages)
('private' #invokePostOpen #on:)
('interface closing' #requestForWindowClose)

	name = #Notice
	classPool = a NameSpaceOfClass[0]
	environment = a NameSpace[574]
	savedWindowInformation = an IdentityDictionary[0]
Arguments:
	aString = 'Loading SeasideForWebToolkit(2.5a6.9.0,mbany)'
	anInteger = 12
	aBlock = BlockClosure [] in Store.Bundle>>loadSrc
	titleString = 'Store'
Temporaries:
	noticeModel = a Notice
	int = 12
	increment = 0.0833333
	progress = a ValueHolder on: 0.0
	res = nil
	title = 'Store : <1s>%% done'
	newValue = nil
Context PC = 125

----------------------------------------------------------------------
Store.Bundle>>loadSrc
Receiver:
	a Store.Bundle
Instance Variables:
	primaryKey = 10634
	name = 'SeasideForWebToolkit'
	timeStamp = 345028308
	version = '2.5a6.9.0'
	userName = 'mbany'
	trace = 10574
	dbIdentifier = #psql_public_cst
	blessingLevel = 20
	commentID = 0
	propertiesID = 1003640
	properties = an IdentityDictionary[4]
	commentStr = ''
	vanguardID = nil
	rearguardID = nil
	vanguardStr = nil
	rearguardStr = nil
	contents = a List[1]
Temporaries:
	imgBundle = nil
	leafNames = an OrderedCollection[1]
Context PC = 30

----------------------------------------------------------------------
Store.Bundle(Store.Pundle)>>loadSrcWithImgPundle:
Receiver:
	a Store.Bundle
Instance Variables:
	primaryKey = 10634
	name = 'SeasideForWebToolkit'
	timeStamp = 345028308
	version = '2.5a6.9.0'
	userName = 'mbany'
	trace = 10574
	dbIdentifier = #psql_public_cst
	blessingLevel = 20
	commentID = 0
	propertiesID = 1003640
	properties = an IdentityDictionary[4]
	commentStr = ''
	vanguardID = nil
	rearguardID = nil
	vanguardStr = nil
	rearguardStr = nil
	contents = a List[1]
Arguments:
	imgPundle = nil
Context PC = 35

----------------------------------------------------------------------
[] in Store.VersionBrowser(Store.AbstractTool)>>loadPundle
Receiver:
	a Store.VersionBrowser
Instance Variables:
	dependents = nil
	builder = an UIBuilder
	uiSession = nil
	eventHandlers = nil
	versions = a MultiSelectionInList
	pundles = an OrderedCollection[1]
	labels = a Dictionary[9]
	offsets = an Array[3]
	comment = a ValueHolder on: '--- Blessed: Development
--- By: mbany
--- On: 07/22/2004 9:38:39.000
Seaside for Web Toolkit.

To be used with Seaside2.5a6-avi.9.mcz

--- Blessed: Development
--- By: mbany
--- On: 07/22/2004 9:31:37.000

'
Arguments:
	pundle = {'SeasideForWebToolkit'-'2.5a6.9.0'-10634}
Temporaries:
	imgPundle = nil
	.msg = '<1s> is not linked to the cur...>Do you want to do that now?'
	.self = a Store.VersionBrowser
Context PC = 76

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
	an OrderedCollection
Instance Variables:
	firstIndex = 1
	lastIndex = 1
Arguments:
	aBlock = BlockClosure [] in Store.AbstractTool>>loadPundle
Temporaries:
	index = 1
Context PC = 17

----------------------------------------------------------------------
Store.VersionBrowser(Store.AbstractTool)>>loadPundle
Receiver:
	a Store.VersionBrowser
Instance Variables:
	dependents = nil
	builder = an UIBuilder
	uiSession = nil
	eventHandlers = nil
	versions = a MultiSelectionInList
	pundles = an OrderedCollection[1]
	labels = a Dictionary[9]
	offsets = an Array[3]
	comment = a ValueHolder on: '--- Blessed: Development
--- By: mbany
--- On: 07/22/2004 9:38:39.000
Seaside for Web Toolkit.

To be used with Seaside2.5a6-avi.9.mcz

--- Blessed: Development
--- By: mbany
--- On: 07/22/2004 9:31:37.000

'
Temporaries:
	msg = '<1s> is not linked to the cur...>Do you want to do that now?'
	imgPundle = nil
Context PC = 17

----------------------------------------------------------------------
Store.MultiSequenceController(SequenceController)>>dispatchMenuSymbol:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	menuSelection = #loadPundle
Context PC = 7

----------------------------------------------------------------------
Store.MultiSequenceController(SequenceController)>>dispatchMenuSelection 
:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	menuSelection = #loadPundle
Context PC = 14

----------------------------------------------------------------------
Store.MultiSequenceController(ControllerWithMenu)>>processMenu:at: 
centered:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	aMenu = a Menu
	aPoint = 722 at 275
	centered = true
Temporaries:
	valueResult = a MenuItem 'Load'
Context PC = 41

----------------------------------------------------------------------
Store.MultiSequenceController(ControllerWithMenu)>>processMenuAt: 
centered:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	aPoint = 722 at 275
	centered = true
Context PC = 9

----------------------------------------------------------------------
Store.MultiSequenceController(ControllerWithMenu)>>yellowButtonPressedEv 
ent:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	event = a YellowButtonPressedEvent
Context PC = 13

----------------------------------------------------------------------
Store.MultiSequenceController(SequenceController)>>yellowButtonPressedEv 
ent:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	event = a YellowButtonPressedEvent
Context PC = 19

----------------------------------------------------------------------
YellowButtonPressedEvent>>dispatchTo:
Receiver:
	a YellowButtonPressedEvent
Instance Variables:
	time = 33190797
	initiator = an EventDispatcher
	window = an ApplicationWindow 3808
	state = 2
	x = 322
	y = 65
	gx = 722
	gy = 275
	buttonNumber = 2
Arguments:
	anObject = a Store.MultiSequenceController
Context PC = 4

----------------------------------------------------------------------
Store.MultiSequenceController(ControllerWithMenu)>>handleEvent:
Receiver:
	a Store.MultiSequenceController
Instance Variables:
	model = a ValueHolder on: List  
({'SeasideForWebToolkit'-'2.5a6.9.0'-10634}  
{'SeasideForWebToolkit'-'2.5a5.21.0'-10574}  
{'SeasideForWebToolkit'-'2.5a4.9.0'-10573}  
{'SeasideForWebToolkit'-'2.5a3.12.0'-10572}  
{'SeasideForWebToolkit'-'2.5a2.6.0'-10571}  
{'SeasideForWebToolkit'-'2.5.15.0'-10570}  
{'SeasideForWebToolkit'-'2.5.14.0'-10569}  
{'SeasideForWebToolkit'-'2.5.11.1'-10568}  
{'SeasideForWebToolkit'-'2.5.11.0'-10561})
	view = a MultiSelectionSequenceView
	sensor = a TranslatingSensor
	menuHolder = a Menu
	performer = a Store.VersionBrowser
	keyboardProcessor = a KeyboardProcessor
	outside = false
	searchString = nil
	keyboardHook = nil
	doStringSearching = true
	dispatcher = an UIDispatcher
	dragDropCallbacks = nil
	selectOnDownWithDrag = false
	autoSelect = nil
Arguments:
	anEvent = a YellowButtonPressedEvent
Context PC = 24

----------------------------------------------------------------------
EventDispatcher>>dispatch:to:
Receiver:
	an EventDispatcher
Instance Variables:
	windowController = an ApplicationStandardSystemController
	currentMouseConsumer = nil
	grabbingMouse = false
	keyboardProcessor = a KeyboardProcessor
	lastControlObject = a Store.MultiSequenceController
	trapList = nil
	state = nil
	repairDamageWhenDebugging = true
	flushQueueAfterError = true
	distributeEventsWhenDebugging = true
	dragDropInProgress = false
	dragDropTracker = nil
	dispatchUnknownEvents = false
Arguments:
	event = a YellowButtonPressedEvent
	object = a Store.MultiSequenceController
Temporaries:
	tmp = nil
Context PC = 10

----------------------------------------------------------------------
EventDispatcher>>dispatchEvent:
Receiver:
	an EventDispatcher
Instance Variables:
	windowController = an ApplicationStandardSystemController
	currentMouseConsumer = nil
	grabbingMouse = false
	keyboardProcessor = a KeyboardProcessor
	lastControlObject = a Store.MultiSequenceController
	trapList = nil
	state = nil
	repairDamageWhenDebugging = true
	flushQueueAfterError = true
	distributeEventsWhenDebugging = true
	dragDropInProgress = false
	dragDropTracker = nil
	dispatchUnknownEvents = false
Arguments:
	event = a YellowButtonPressedEvent
Temporaries:
	objectWantingControl = a Store.MultiSequenceController
	targetKeyboardProcessor = nil
Context PC = 113

----------------------------------------------------------------------
YellowButtonPressedEvent(Event)>>dispatch
Receiver:
	a YellowButtonPressedEvent
Instance Variables:
	time = 33190797
	initiator = an EventDispatcher
	window = an ApplicationWindow 3808
	state = 2
	x = 322
	y = 65
	gx = 722
	gy = 275
	buttonNumber = 2
Context PC = 16

----------------------------------------------------------------------
YellowButtonPressedEvent(Event)>>dispatchForWindowManager:
Receiver:
	a YellowButtonPressedEvent
Instance Variables:
	time = 33190797
	initiator = an EventDispatcher
	window = an ApplicationWindow 3808
	state = 2
	x = 322
	y = 65
	gx = 722
	gy = 275
	buttonNumber = 2
Arguments:
	aWinMgr = a WindowManager
Context PC = 4

----------------------------------------------------------------------
optimized [] in WindowManager>>safelyDispatchForWindowManager:
Receiver:
	an UndefinedObject
Temporaries:
	.event = a YellowButtonPressedEvent
	.self = a WindowManager
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in  
WindowManager>>safelyDispatchForWindowManager:
	outerContext = nil
	copiedValues = an Array[2]
Arguments:
	anExceptionSelector = BadControllerError
	handlerBlock = BlockClosure [] in  
WindowManager>>safelyDispatchForWindowManager:
Context PC = 18

----------------------------------------------------------------------
WindowManager>>safelyDispatchForWindowManager:
Receiver:
	a WindowManager
Instance Variables:
	windows = an OrderedCollection[2]
	activeController = an ApplicationStandardSystemController
	interruptLock = false
	outstandingMetaOrDamage = true
	openInProgress = false
	eventQueue = an EventQueue
	baseProcess = a Process in Process>>resume
	dontFilterEvents = false
Arguments:
	event = a YellowButtonPressedEvent
Context PC = 13

----------------------------------------------------------------------
WindowManager>>processNextEvent
Receiver:
	a WindowManager
Instance Variables:
	windows = an OrderedCollection[2]
	activeController = an ApplicationStandardSystemController
	interruptLock = false
	outstandingMetaOrDamage = true
	openInProgress = false
	eventQueue = an EventQueue
	baseProcess = a Process in Process>>resume
	dontFilterEvents = false
Temporaries:
	event = a YellowButtonPressedEvent
Context PC = 12

----------------------------------------------------------------------
optimized [] in [] in WindowManager>>newProcess
Receiver:
	an UndefinedObject
Temporaries:
	.self = a WindowManager
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in [] in WindowManager>>newProcess
	outerContext = nil
	copiedValues = a WindowManager
Arguments:
	anExceptionSelector = TerminateException
	handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
Context PC = 18

----------------------------------------------------------------------
optimized [] in WindowManager>>newProcess
Receiver:
	an UndefinedObject
Temporaries:
	.self = a WindowManager
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
	a BlockClosure
Instance Variables:
	method = CompiledBlock [] in WindowManager>>newProcess
	outerContext = nil
	copiedValues = a WindowManager
Arguments:
	anExceptionSelector = TerminateException
	handlerBlock = BlockClosure [] in [] in Process  
class>>forBlock:priority:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
	an UndefinedObject
Temporaries:
	.aBlock = BlockClosure [] in WindowManager>>newProcess
Context PC = 9

-----------------------------------------
DISCLAIMER: This email is bound by the terms and conditions described at
http://www.key.net/disclaimer.htm