Porting web app server Aida/Web to Dolphin?

Dear Dolphiners,

I'm playing with this idea for a while and maybe now is a right time to
come out with it. Are you interested in port of Aida/Web to Dolphin?

To introduce Aida a bit more: it is a web application server based on
Swazoo and a framework for building complex web applications of many
sorts. In that respect it is similar to Seaside. It has everything you
need for a real web app, together with Ajax.

        demo site: http://aida.eranova.si
        home page: http://www.eranova.si/aida

It is also a mature one, running real web apps since 1996! It is used in
many intranet business apps from Gas billing system for all gas in
Slovenia to logistics management system called e-logis and recently a
CMS like system for Quality and Business process management.

I think a port can be done easy because Aida don't use deep tricks with
VM and it was developed with porting in mind from the beginning. If
somewone from Dolphin community is willing to help me start, we can port
it pretty fast.

Best regards
Janko Mivsek
author of Aida/Web

On Fri, 05 May 2006 10:37:06 +0200, Janko Mivsek
<[hidden email]> wrote:

I poked around the web sites. It looks great as a full featured OOP
environment, similar ideas as Zope web components, but without the
'deep tricks ' that Seaside used to.
IMHO, It maybe used like a light-weight Seaside without continuation
and better, being rooted and implemented on the robust and native
smalltalk Swazoo web server.  

I just began to love it if it is available on Dolphin.


Best regards,

Tk Kuo

I am interested in this - but before commiting can you show some small
examples of what it takes to do something like this in the code?

E.g. the "grids tabs and menus" with the filter as you type - how bad
does it look?

My experience with the Ajax stuff in seaside from the STS tutorial, was
that it was currently quite messy (adimittedly its early days using the
scriptaculous library) and the simplicity of normal seaside was quickly
lost.

I'm downloading VS now to see, but it would be helpful if you could
comment on some of this stuff.

Tim

I can't load it into a fresh download of Visual Works 7.4nc, and the
downloaded parcels from your site.

After loading Swazoo, and then loading Aida I get a walkback:

Unhandled exception: The identifier
Root.Smalltalk.AIDA.AIDAHttpResponseWrapper has no binding
StrictBindingReference(Object)>>error:
StrictBindingReference(GeneralBindingReference)>>binding
StrictBindingReference(GeneralBindingReference)>>value
Store.PackageModel>>modelClassFor:hasDefinition:
Store.PackageModel>>installModelAtFullSymbol:hasDefinition:
optimized [] in Store.PackageModel>>modelAtFullSymbol:hasDefinition:
IdentityDictionary>>at:ifAbsent:
Store.PackageModel>>modelAtFullSymbol:hasDefinition:
Store.PackageModel>>addFullClassSymbol:
optimized [] in Store.PackageModel>>doClassChange:
Store.PackageModel(Store.PundleModel)>>updateAfterDo:
Store.PackageModel>>doClassChange:
Store.XMainChangeSet>>addClassDefinition:toPackage:
Store.ClassForParcel>>addToPackage:
optimized [] in [] in Store.PackageForParcel>>asPundle:
OrderedCollection>>do:
optimized [] in Store.PackageForParcel>>asPundle:
BlockClosure>>ensure:
Store.PackageForParcel>>asPundle:
optimized [] in [] in Store.BundleForParcel>>asPundle:
optimized [] in OrderedCollection>>collect:
OrderedCollection>>do:
OrderedCollection>>collect:
optimized [] in Store.BundleForParcel>>asPundle:
BlockClosure>>ensure:
Store.BundleForParcel>>asPundle:
Store.BundleForParcel(Store.PundleForParcel)>>convert
optimized [] in Store.PundleAccess>>parcelToBundle:
BlockClosure>>on:do:
Store.PundleAccess>>parcelToBundle:
Store.PundleAccess>>parcelToPundle:
Store.PundleAccess>>update:with:
Store.PundleAccess(Object)>>update:with:from:
Parcel class(Object)>>changed:with:
Parcel class>>triggerParcelLoaded:
Parcel>>doComponentLoadedActions
Parcel(CodeComponent)>>loadFrom:using:
Parcel(CodeComponent)>>loadFrom:
optimized [] in [] in [] in Parcel class>>loadParcelCachedFrom:
BlockClosure>>on:do:
optimized [] in [] in Parcel class>>loadParcelCachedFrom:
BlockClosure>>on:do:
[] in Parcel class>>loadParcelCachedFrom:
BlockClosure>>ensure:
Parcel class>>loadParcelCachedFrom:
optimized [] in [] in Parcel class>>loadParcelFrom:
BlockClosure>>ensure:
Parcel class>>withFileCachesDo:
optimized [] in Parcel class>>loadParcelFrom:
Cursor>>showWhile:
Parcel class>>loadParcelFrom:
optimized [] in [] in [] in ParcelManager>>loadParcels:
BlockClosure>>on:do:
optimized [] in [] in ParcelManager>>loadParcels:
OrderedCollection>>do:
optimized [] in ParcelManager>>loadParcels:
optimized [] in [] in Notice class>>show:while:
BlockClosure>>ensure:
Cursor>>showWhile:
optimized [] in Notice class>>show:while:
BlockClosure>>ensure:
Notice class>>show:while:
ParcelManager>>loadParcels:
ParcelListTool(ParcelSelectionTool)>>loadParcels
EmulatedSequenceController(SequenceController)>>dispatchMenuSymbol:
EmulatedSequenceController(SequenceController)>>dispatchMenuSelection:
EmulatedSequenceController(ControllerWithMenu)>>processMenu:at:centered:
EmulatedSequenceController(ControllerWithMenu)>>processMenuAt:centered:
EmulatedSequenceController(ControllerWithMenu)>>yellowButtonPressedEvent:
EmulatedSequenceController(SequenceController)>>yellowButtonPressedEvent:
YellowButtonPressedEvent>>dispatchTo:
EmulatedSequenceController(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:

----------------------------------------------------------------------
StrictBindingReference(Object)>>error:
Receiver:
        a StrictBindingReference
Instance Variables:
        path = an Array[4]
        cache = #notFound
        environment = a NameSpace[264]
Arguments:
        aStringOrMessage = 'The identifier Root.Smalltalk...sponseWrapper has
no binding'
Temporaries:
        lastNonSpace = 73
        aString = 'The identifier Root.Smalltalk...sponseWrapper has no
binding'
Context PC = 18

----------------------------------------------------------------------
StrictBindingReference(GeneralBindingReference)>>binding
Receiver:
        a StrictBindingReference
Instance Variables:
        path = an Array[4]
        cache = #notFound
        environment = a NameSpace[264]
Temporaries:
        b = nil
Context PC = 23

----------------------------------------------------------------------
StrictBindingReference(GeneralBindingReference)>>value
Receiver:
        a StrictBindingReference
Instance Variables:
        path = an Array[4]
        cache = #notFound
        environment = a NameSpace[264]
Context PC = 4

----------------------------------------------------------------------
Store.PackageModel>>modelClassFor:hasDefinition:
Receiver:
        a Store.PackageModel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[1]
        dbInfo = an IdentityDictionary[1]
        readonly = nil
        models = an IdentityDictionary[14]
Arguments:
        aSymbol = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
        hasDefinition = true
Context PC = 4

----------------------------------------------------------------------
Store.PackageModel>>installModelAtFullSymbol:hasDefinition:
Receiver:
        a Store.PackageModel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[1]
        dbInfo = an IdentityDictionary[1]
        readonly = nil
        models = an IdentityDictionary[14]
Arguments:
        aSymbol = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
        hasDefinition = true
Temporaries:
        newModel = nil
        oldModel = nil
Context PC = 6

----------------------------------------------------------------------
optimized [] in Store.PackageModel>>modelAtFullSymbol:hasDefinition:
Receiver:
        an UndefinedObject
Temporaries:
        .self = [WEB-Server]
        .fullSymbol = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
        .hasDefinition = true
Context PC = 8

----------------------------------------------------------------------
IdentityDictionary>>at:ifAbsent:
Receiver:
        an IdentityDictionary
Instance Variables:
        tally = 14
        valueArray = an Array[37]
Arguments:
        key = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
        aBlock = BlockClosure [] in
Store.PackageModel>>modelAtFullSymbol:hasDefinition:
Temporaries:
        index = 1
Context PC = 15

----------------------------------------------------------------------
Store.PackageModel>>modelAtFullSymbol:hasDefinition:
Receiver:
        a Store.PackageModel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[1]
        dbInfo = an IdentityDictionary[1]
        readonly = nil
        models = an IdentityDictionary[14]
Arguments:
        fullSymbol = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
        hasDefinition = true
Context PC = 11

----------------------------------------------------------------------
Store.PackageModel>>addFullClassSymbol:
Receiver:
        a Store.PackageModel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[1]
        dbInfo = an IdentityDictionary[1]
        readonly = nil
        models = an IdentityDictionary[14]
Arguments:
        fullClassSymbol = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
Temporaries:
        cm = nil
Context PC = 6

----------------------------------------------------------------------
optimized [] in Store.PackageModel>>doClassChange:
Receiver:
        an UndefinedObject
Temporaries:
        classSymbol = #'Root.Smalltalk.AIDA.AIDAHttpResponseWrapper'
        .change = add Root.Smalltalk.AIDA.AIDAHttpResponseWrapper
        .self = [WEB-Server]
Context PC = 42

----------------------------------------------------------------------
Store.PackageModel(Store.PundleModel)>>updateAfterDo:
Receiver:
        a Store.PackageModel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[1]
        dbInfo = an IdentityDictionary[1]
        readonly = nil
        models = an IdentityDictionary[14]
Arguments:
        aBlock = BlockClosure [] in Store.PackageModel>>doClassChange:
Temporaries:
        changeSetState = true
Context PC = 7

----------------------------------------------------------------------
Store.PackageModel>>doClassChange:
Receiver:
        a Store.PackageModel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[1]
        dbInfo = an IdentityDictionary[1]
        readonly = nil
        models = an IdentityDictionary[14]
Arguments:
        change = add Root.Smalltalk.AIDA.AIDAHttpResponseWrapper
Context PC = 9

----------------------------------------------------------------------
Store.XMainChangeSet>>addClassDefinition:toPackage:
Receiver:
        a Store.XMainChangeSet
Instance Variables:
        tally = 1420
        valueArray = an Array[2753]
        other = nil
        properties = nil
        reorganizeSystem = nil
        specialDoIts = nil
Arguments:
        class = AIDA.AIDAHttpResponseWrapper
        pkg = [WEB-Server]
Temporaries:
        change = add Root.Smalltalk.AIDA.AIDAHttpResponseWrapper
        currPkg = nil
Context PC = 29

----------------------------------------------------------------------
Store.ClassForParcel>>addToPackage:
Receiver:
        a Store.ClassForParcel
Instance Variables:
        object = AIDA.AIDAHttpResponseWrapper
        hasDefinition = true
        data = an Array[0]
        selectors = an IdentitySet[7]
        metaSelectors = an IdentitySet[1]
Arguments:
        aPackage = [WEB-Server]
Context PC = 15

----------------------------------------------------------------------
optimized [] in [] in Store.PackageForParcel>>asPundle:
Receiver:
        an UndefinedObject
Arguments:
        model = a Store.ClassForParcel
Temporaries:
        .pkg = [WEB-Server]
Context PC = 6

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

----------------------------------------------------------------------
optimized [] in Store.PackageForParcel>>asPundle:
Receiver:
        an UndefinedObject
Temporaries:
        .self = a Store.PackageForParcel
        .pkg = [WEB-Server]
Context PC = 11

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in Store.PackageForParcel>>asPundle:
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        aBlock = BlockClosure [] in Store.PackageForParcel>>asPundle:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Store.PackageForParcel>>asPundle:
Receiver:
        a Store.PackageForParcel
Instance Variables:
        name = 'WEB-Server'
        properties = an IdentityDictionary[0]
        contents = an OrderedCollection[17]
Arguments:
        relink = true
Temporaries:
        pkg = [WEB-Server]
Context PC = 20

----------------------------------------------------------------------
optimized [] in [] in Store.BundleForParcel>>asPundle:
Receiver:
        an UndefinedObject
Arguments:
        pun = a Store.PackageForParcel
Temporaries:
        .relink = true
Context PC = 6

----------------------------------------------------------------------
optimized [] in OrderedCollection>>collect:
Receiver:
        an UndefinedObject
Arguments:
        each = a Store.PackageForParcel
Temporaries:
        .newCollection = an OrderedCollection[3]
        .aBlock = BlockClosure [] in [] in Store.BundleForParcel>>asPundle:
Context PC = 7

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
        an OrderedCollection
Instance Variables:
        firstIndex = 1
        lastIndex = 10
Arguments:
        aBlock = BlockClosure [] in OrderedCollection>>collect:
Temporaries:
        index = 4
Context PC = 17

----------------------------------------------------------------------
OrderedCollection>>collect:
Receiver:
        an OrderedCollection
Instance Variables:
        firstIndex = 1
        lastIndex = 10
Arguments:
        aBlock = BlockClosure [] in [] in Store.BundleForParcel>>asPundle:
Temporaries:
        newCollection = an OrderedCollection[3]
Context PC = 16

----------------------------------------------------------------------
optimized [] in Store.BundleForParcel>>asPundle:
Receiver:
        an UndefinedObject
Temporaries:
        .bundle = {AIDA/Web}
        .self = a Store.BundleForParcel
        .relink = true
Context PC = 12

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in Store.BundleForParcel>>asPundle:
        outerContext = nil
        copiedValues = an Array[3]
Arguments:
        aBlock = BlockClosure [] in Store.BundleForParcel>>asPundle:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Store.BundleForParcel>>asPundle:
Receiver:
        a Store.BundleForParcel
Instance Variables:
        name = 'AIDA/Web'
        properties = an IdentityDictionary[6]
        contents = an OrderedCollection[10]
Arguments:
        relink = true
Temporaries:
        bundle = {AIDA/Web}
Context PC = 21

----------------------------------------------------------------------
Store.BundleForParcel(Store.PundleForParcel)>>convert
Receiver:
        a Store.BundleForParcel
Instance Variables:
        name = 'AIDA/Web'
        properties = an IdentityDictionary[6]
        contents = an OrderedCollection[10]
Temporaries:
        pundle = nil
        relink = true
Context PC = 11

----------------------------------------------------------------------
optimized [] in Store.PundleAccess>>parcelToBundle:
Receiver:
        an UndefinedObject
Temporaries:
        .aParcel = Parcel parcelNamed: 'AIDAWeb'
        bundle = nil
Context PC = 7

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

----------------------------------------------------------------------
Store.PundleAccess>>parcelToBundle:
Receiver:
        a Store.PundleAccess
Instance Variables:
        dependents = a Store.PundleAccess
        packages = a Dictionary[184]
        bundles = a Dictionary[23]
        modelDictionary = an IdentityDictionary[2720]
        currentPackage = [(none)]
        nullPackage = [(none)]
        containedItemsCache = nil
Arguments:
        aParcel = Parcel parcelNamed: 'AIDAWeb'
Temporaries:
        bundle = nil
Context PC = 13

----------------------------------------------------------------------
Store.PundleAccess>>parcelToPundle:
Receiver:
        a Store.PundleAccess
Instance Variables:
        dependents = a Store.PundleAccess
        packages = a Dictionary[184]
        bundles = a Dictionary[23]
        modelDictionary = an IdentityDictionary[2720]
        currentPackage = [(none)]
        nullPackage = [(none)]
        containedItemsCache = nil
Arguments:
        aParcel = Parcel parcelNamed: 'AIDAWeb'
Temporaries:
        string = nil
Context PC = 19

----------------------------------------------------------------------
Store.PundleAccess>>update:with:
Receiver:
        a Store.PundleAccess
Instance Variables:
        dependents = a Store.PundleAccess
        packages = a Dictionary[184]
        bundles = a Dictionary[23]
        modelDictionary = an IdentityDictionary[2720]
        currentPackage = [(none)]
        nullPackage = [(none)]
        containedItemsCache = nil
Arguments:
        anAspect = #parcelLoaded
        anArgument = Parcel parcelNamed: 'AIDAWeb'
Temporaries:
        parcel = nil
        pkg = nil
        cset = nil
Context PC = 9

----------------------------------------------------------------------
Store.PundleAccess(Object)>>update:with:from:
Receiver:
        a Store.PundleAccess
Instance Variables:
        dependents = a Store.PundleAccess
        packages = a Dictionary[184]
        bundles = a Dictionary[23]
        modelDictionary = an IdentityDictionary[2720]
        currentPackage = [(none)]
        nullPackage = [(none)]
        containedItemsCache = nil
Arguments:
        anAspectSymbol = #parcelLoaded
        aParameter = Parcel parcelNamed: 'AIDAWeb'
        aSender = Parcel
Context PC = 5

----------------------------------------------------------------------
Parcel class(Object)>>changed:with:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[231]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings
#selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

        name = #Parcel
        classPool = a NameSpaceOfClass[2]
        environment = a NameSpace[232]
        parcels = a List[62]
        classParcelMap = nil
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
Arguments:
        anAspectSymbol = #parcelLoaded
        aParameter = Parcel parcelNamed: 'AIDAWeb'
Context PC = 7

----------------------------------------------------------------------
Parcel class>>triggerParcelLoaded:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[231]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings
#selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

        name = #Parcel
        classPool = a NameSpaceOfClass[2]
        environment = a NameSpace[232]
        parcels = a List[62]
        classParcelMap = nil
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
Arguments:
        parcel = Parcel parcelNamed: 'AIDAWeb'
Context PC = 6

----------------------------------------------------------------------
Parcel>>doComponentLoadedActions
Receiver:
        a Parcel
Instance Variables:
        name = 'AIDAWeb'
        properties = an IdentityDictionary[12]
        definedObjects = an IdentitySet[1]
        definedClasses = an IdentitySet[116]
        definedBindings = an IdentityDictionary[12]
        classSelectors = an IdentityDictionary[205]
        namedObjects = a Dictionary[0]
        dirty = true
        loaded = true
Context PC = 9

----------------------------------------------------------------------
Parcel(CodeComponent)>>loadFrom:using:
Receiver:
        a Parcel
Instance Variables:
        name = 'AIDAWeb'
        properties = an IdentityDictionary[12]
        definedObjects = an IdentitySet[1]
        definedClasses = an IdentitySet[116]
        definedBindings = an IdentityDictionary[12]
        classSelectors = an IdentityDictionary[205]
        namedObjects = a Dictionary[0]
        dirty = true
        loaded = true
Arguments:
        aSource = a PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
        aCodeReader = a CodeReader
Context PC = 61

----------------------------------------------------------------------
Parcel(CodeComponent)>>loadFrom:
Receiver:
        a Parcel
Instance Variables:
        name = 'AIDAWeb'
        properties = an IdentityDictionary[12]
        definedObjects = an IdentitySet[1]
        definedClasses = an IdentitySet[116]
        definedBindings = an IdentityDictionary[12]
        classSelectors = an IdentityDictionary[205]
        namedObjects = a Dictionary[0]
        dirty = true
        loaded = true
Arguments:
        aSource = a PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Context PC = 7

----------------------------------------------------------------------
optimized [] in [] in [] in Parcel class>>loadParcelCachedFrom:
Receiver:
        an UndefinedObject
Temporaries:
        loadedParcel = Parcel parcelNamed: 'AIDAWeb'
        .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Context PC = 7

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

----------------------------------------------------------------------
optimized [] in [] in Parcel class>>loadParcelCachedFrom:
Receiver:
        an UndefinedObject
Temporaries:
        loadedParcel = Parcel parcelNamed: 'AIDAWeb'
        .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
        .loadTag = #parcel->'$(VISUALWORKS)\parcels\AIDAWeb.pcl'
        .self = Parcel
Context PC = 16

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in Parcel class>>loadParcelCachedFrom:
        outerContext = nil
        copiedValues = an Array[4]
Arguments:
        anExceptionSelector = Parcel abortedActionSignal
        handlerBlock = BlockClosure [] in [] in Parcel
class>>loadParcelCachedFrom:
Context PC = 18

----------------------------------------------------------------------
[] in Parcel class>>loadParcelCachedFrom:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[231]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings
#selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

        name = #Parcel
        classPool = a NameSpaceOfClass[2]
        environment = a NameSpace[232]
        parcels = a List[62]
        classParcelMap = nil
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
Temporaries:
        loadedParcel = Parcel parcelNamed: 'AIDAWeb'
        .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
        .loadTag = #parcel->'$(VISUALWORKS)\parcels\AIDAWeb.pcl'
        .self = Parcel
Context PC = 20

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in Parcel class>>loadParcelCachedFrom:
        outerContext = Parcel class>>loadParcelCachedFrom:
        copiedValues = an Array[4]
Arguments:
        aBlock = BlockClosure [] in Parcel class>>loadParcelCachedFrom:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Parcel class>>loadParcelCachedFrom:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[231]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings
#selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

        name = #Parcel
        classPool = a NameSpaceOfClass[2]
        environment = a NameSpace[232]
        parcels = a List[62]
        classParcelMap = nil
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
Arguments:
        aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Temporaries:
        loadedParcel = Parcel parcelNamed: 'AIDAWeb'
        loadTag = #parcel->'$(VISUALWORKS)\parcels\AIDAWeb.pcl'
Context PC = 46

----------------------------------------------------------------------
optimized [] in [] in Parcel class>>loadParcelFrom:
Receiver:
        an UndefinedObject
Temporaries:
        .self = Parcel
        .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
        newParcel = nil
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in Parcel class>>loadParcelFrom:
        outerContext = nil
        copiedValues = an Array[3]
Arguments:
        aBlock = BlockClosure [] in Parcel class>>withFileCachesDo:
Temporaries:
        result = nil
Context PC = 4

----------------------------------------------------------------------
Parcel class>>withFileCachesDo:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[231]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings
#selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

        name = #Parcel
        classPool = a NameSpaceOfClass[2]
        environment = a NameSpace[232]
        parcels = a List[62]
        classParcelMap = nil
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
Arguments:
        aBlock = BlockClosure [] in [] in Parcel class>>loadParcelFrom:
Context PC = 20

----------------------------------------------------------------------
optimized [] in Parcel class>>loadParcelFrom:
Receiver:
        an UndefinedObject
Temporaries:
        .self = Parcel
        .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
        newParcel = nil
Context PC = 12

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
        a Cursor
Instance Variables:
        errorCode = 0
        handle = 5
        image = Depth1Image(extent: 16@16 depth: 1)
        mask = Depth1Image(extent: 16@16 depth: 1)
        hotSpot = 0@0
        name = 'wait'
Arguments:
        aBlock = BlockClosure [] in Parcel class>>loadParcelFrom:
Temporaries:
        oldcursor = Cursor wait
Context PC = 13

----------------------------------------------------------------------
Parcel class>>loadParcelFrom:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[231]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings
#selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

        name = #Parcel
        classPool = a NameSpaceOfClass[2]
        environment = a NameSpace[232]
        parcels = a List[62]
        classParcelMap = nil
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
Arguments:
        aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Temporaries:
        newParcel = nil
Context PC = 15

----------------------------------------------------------------------
optimized [] in [] in [] in ParcelManager>>loadParcels:
Receiver:
        an UndefinedObject
Temporaries:
        .each = a PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in [] in ParcelManager>>loadParcels:
        outerContext = nil
        copiedValues = a
PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Arguments:
        anExceptionSelector = OsError
        handlerBlock = BlockClosure [] in [] in [] in
ParcelManager>>loadParcels:
Context PC = 18

----------------------------------------------------------------------
optimized [] in [] in ParcelManager>>loadParcels:
Receiver:
        an UndefinedObject
Arguments:
        each = a PortableFilename('$(VISUALWORKS)\parcels\AIDAWeb.pcl')
Context PC = 12

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

----------------------------------------------------------------------
optimized [] in ParcelManager>>loadParcels:
Receiver:
        an UndefinedObject
Temporaries:
        paths = an OrderedCollection[1]
        .parcelCollection = an OrderedCollection[1]
Context PC = 12

----------------------------------------------------------------------
optimized [] in [] in Notice class>>show:while:
Receiver:
        an UndefinedObject
Temporaries:
        .aBlock = BlockClosure [] in ParcelManager>>loadParcels:
        result = an UIBuilder
        babyWindow = an ApplicationWindow 154
        babyWindowManager = a WindowManager
Context PC = 5

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in Notice class>>show:while:
        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 = 5
        image = Depth1Image(extent: 16@16 depth: 1)
        mask = Depth1Image(extent: 16@16 depth: 1)
        hotSpot = 0@0
        name = 'wait'
Arguments:
        aBlock = BlockClosure [] in [] in Notice class>>show:while:
Temporaries:
        oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
optimized [] in Notice class>>show:while:
Receiver:
        an UndefinedObject
Temporaries:
        .baby = a Notice
        result = an UIBuilder
        babyWindow = an ApplicationWindow 154
        babyWindowManager = a WindowManager
        .aBlock = BlockClosure [] in ParcelManager>>loadParcels:
Context PC = 48

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

----------------------------------------------------------------------
Notice class>>show:while:
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[570]
        savedWindowInformation = an IdentityDictionary[0]
Arguments:
        aStringOrUserMessage = 'Loading Parcel'
        aBlock = BlockClosure [] in ParcelManager>>loadParcels:
Temporaries:
        baby = a Notice
        result = an UIBuilder
        babyWindow = an ApplicationWindow 154
        babyWindowManager = a WindowManager
Context PC = 27

----------------------------------------------------------------------
ParcelManager>>loadParcels:
Receiver:
        a ParcelManager
Instance Variables:
        dependents = an ApplicationWindow 107
        builder = an UIBuilder
        uiSession = a ControlManager
        eventHandlers = nil
        categoryHolder = a SelectionInList
        parcelHolder = a SelectionInList
        detailHolder = a SelectionInList
        statusTextHolder = a ValueHolder on: 'VisualWorks Parcel (not loaded):
c:\Program Files\Cincom\vw7.4nc\parcels\AIDAWeb.pcl'
        categorySubapplication = a ParcelDirectoriesTool
        parcelSubapplication = a ParcelListTool
        detailSubapplication = a ParcelCommentTool
        selectedGroups = an OrderedCollection[1]
        displayedParcels = an OrderedCollection[74]
        selectedParcels = an OrderedCollection[1]
Arguments:
        parcelCollection = an OrderedCollection[1]
Context PC = 19

----------------------------------------------------------------------
ParcelListTool(ParcelSelectionTool)>>loadParcels
Receiver:
        a ParcelListTool
Instance Variables:
        dependents = nil
        builder = an UIBuilder
        uiSession = nil
        eventHandlers = nil
        manager = a ParcelManager
        parcelListHolder = a MultiSelectionInList
Context PC = 6

----------------------------------------------------------------------
EmulatedSequenceController(SequenceController)>>dispatchMenuSymbol:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
Arguments:
        menuSelection = #loadParcels
Context PC = 7

----------------------------------------------------------------------
EmulatedSequenceController(SequenceController)>>dispatchMenuSelection:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
Arguments:
        menuSelection = #loadParcels
Context PC = 14

----------------------------------------------------------------------
EmulatedSequenceController(ControllerWithMenu)>>processMenu:at:centered:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
Arguments:
        aMenu = a Menu
        aPoint = 449@204
        centered = true
Temporaries:
        valueResult = a MenuItem 'Load'
Context PC = 41

----------------------------------------------------------------------
EmulatedSequenceController(ControllerWithMenu)>>processMenuAt:centered:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
Arguments:
        aPoint = 449@204
        centered = true
Context PC = 9

----------------------------------------------------------------------
EmulatedSequenceController(ControllerWithMenu)>>yellowButtonPressedEvent:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
Arguments:
        event = a YellowButtonPressedEvent
Context PC = 13

----------------------------------------------------------------------
EmulatedSequenceController(SequenceController)>>yellowButtonPressedEvent:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
Arguments:
        event = a YellowButtonPressedEvent
Context PC = 19

----------------------------------------------------------------------
YellowButtonPressedEvent>>dispatchTo:
Receiver:
        a YellowButtonPressedEvent
Instance Variables:
        time = 165155220
        initiator = an EventDispatcher
        window = an ApplicationWindow 107
        state = 2
        x = 287
        y = 85
        gx = 449
        gy = 204
        buttonNumber = 2
Arguments:
        anObject = an EmulatedSequenceController
Context PC = 4

----------------------------------------------------------------------
EmulatedSequenceController(ControllerWithMenu)>>handleEvent:
Receiver:
        an EmulatedSequenceController
Instance Variables:
        model = a ValueHolder on: List (a ParcelFileItem
('$(VISUALWORKS)\parcels\AIDAWeb.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ANSICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ArborGIFReaderWriter.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemCore.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\HelpSystemOutlineHelpCore.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\HelpSystemWidgetHelpCore.pcl')
a ParcelFileItem ('$(VISUALWORKS)\parcels\Hypertext.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\BGOK.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\BOSS.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BaseUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-BrowserUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-ChangeObjects.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Environments.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Parser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Refactorings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-RefactoringUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-Smalllint.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Browser-SmalllintUI.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CE.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Compression-ZLib.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\CopyBufferUICompat.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Database-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-BrowserExtensions.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Compiler-Modifications.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Exception-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-LoadAll.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Probes.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-ProcessMonitor.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-StackInspector.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-Support.pcl') a
ParcelFileItem
('$(VISUALWORKS)\parcels\Debugger-Tools-Modifications.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Debugger-UI.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Headless.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImageReaders.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ImmutabilityCompatibility.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\LDM-Framework.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Lens-Dev.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Lens-Runtime.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\LoggingTool.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacOSXExtra.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MacPrintingSupport.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\MenuUICompatibility.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Non-Commercialization.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\OldBrowsers.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\PackageCategories.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\ProtocolNamespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Protocols-Common.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBRegexExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBStoreExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\RBSUnitExtensions.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Refactory-Namespace.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\StandardIOStreams.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Swazoo.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\SysDeps.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Changes.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-FileBrowser.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-ParcelManager.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-Settings-VW.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\Tools-StartupOrderingTool.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Trippy.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\Tools-Workspace.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\TranscriptSettings.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UILooks-MacOS7.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\UIPainter.pcl') a
ParcelFileItem ('$(VISUALWORKS)\parcels\VWHelp.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XML-source.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XPath.pcl') a ParcelFileItem
('$(VISUALWORKS)\parcels\XSL.pcl'))
        view = a MultiSelectionSequenceView
        sensor = a TranslatingSensor
        menuHolder = a Menu
        performer = a ParcelListTool
        keyboardProcessor = a KeyboardProcessor
        outside = false
        searchString = nil
        keyboardHook = nil
        doStringSearching = true
        dispatcher = an UIDispatcher
        dragDropCallbacks = nil
        selectOnDownWithDrag = false
        autoSelect = true
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 ReadOnlyTextEditorController
        trapList = nil
        state = nil
        repairDamageWhenDebugging = true
        flushQueueAfterError = true
        distributeEventsWhenDebugging = true
        dragDropInProgress = false
        dragDropTracker = nil
        dispatchUnknownEvents = false
Arguments:
        event = a YellowButtonPressedEvent
        object = an EmulatedSequenceController
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 ReadOnlyTextEditorController
        trapList = nil
        state = nil
        repairDamageWhenDebugging = true
        flushQueueAfterError = true
        distributeEventsWhenDebugging = true
        dragDropInProgress = false
        dragDropTracker = nil
        dispatchUnknownEvents = false
Arguments:
        event = a YellowButtonPressedEvent
Temporaries:
        objectWantingControl = an EmulatedSequenceController
        targetKeyboardProcessor = nil
Context PC = 113

----------------------------------------------------------------------
YellowButtonPressedEvent(Event)>>dispatch
Receiver:
        a YellowButtonPressedEvent
Instance Variables:
        time = 165155220
        initiator = an EventDispatcher
        window = an ApplicationWindow 107
        state = 2
        x = 287
        y = 85
        gx = 449
        gy = 204
        buttonNumber = 2
Context PC = 16

----------------------------------------------------------------------
YellowButtonPressedEvent(Event)>>dispatchForWindowManager:
Receiver:
        a YellowButtonPressedEvent
Instance Variables:
        time = 165155220
        initiator = an EventDispatcher
        window = an ApplicationWindow 107
        state = 2
        x = 287
        y = 85
        gx = 449
        gy = 204
        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 = nil
        interruptLock = false
        outstandingMetaOrDamage = false
        openInProgress = false
        eventQueue = an EventQueue
        baseProcess = a Process in Semaphore>>wait
        dontFilterEvents = false
Arguments:
        event = a YellowButtonPressedEvent
Context PC = 13

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

----------------------------------------------------------------------
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

Hi Tim,

Here is is a code snippet which builds an grid in "grids tabs and menus"
example: http://aida.eranova.si/object/o2499548.html?view=grid

classesTableElement
   | e |
   e := WebElement new.
   e add: (WebGrid new
        columnNames: #('nr.' 'Class name');
        filterRow: #(nil true);
        columnAspects: #(nil #name);
        setNumbering; sortOn: 2;
        collection: WebApplication allWebAppClasses;
        yourself).
   ^e

As you can see, it is pretty simple and no smell of Ajax on it, because
Ajax support is integrated inside WebGrid component.

Best regards
Janko

TimM wrote:

Dear Tk Kuo,

Thank you for encouragement. As Tim suggests, maybe is good to introduce
a bit Aida first before commiting to port, therefore I invite you to
look at it and ask more questions.

Best regards
Janko


tgkuo wrote:

For a full picture, here are all methods which build above example:

WebDemoApp>>viewGrid
   | e |
   e := WebElement new.
   e cell add: self gridTabsElement. e newRow.
   e cell add: self classesTableElement.
   self pageFrameWith: e title: 'Grid example'

WebDemoApp>>viewGridSelected
   | e |
   e := WebElement new.
   e cell add: self gridTabsElement. e newRow.
   e cell add: self classesSelectedElement.
   self pageFrameWith: e title: 'Grid example'

WebDemoApp>>viewEditMembers
   | e |
   e := WebElement new.
   e cell add: self classesEditElement.
   self pageFrameWith: e title: 'Grid example'



WebDemoApp>>gridTabsElement
   ^ViewTabs new
     addView: #grid description: 'All App classes';
     addView: #gridSelected description: 'Selected App classes';
     yourself.


WebDemoApp>>classesTableElement
   | e |
   e := WebElement new.
   e add: (WebGrid new
     columnNames: #('nr.' 'Class name');
     filterRow: #(nil true);
     columnAspects: #(nil #name);
     setNumbering; sortOn: 2;
     collection: WebApplication allWebAppClasses;
     yourself).
   ^e

WebDemoApp>>classesSelectedElement
   | e |
   e := WebElement new.
   e addButtonText: 'Edit' action: #editMembers.
   e add: (WebGrid new
     columnNames: #('nr.' 'Class name');
     columnAspects: #(nil #name);
     setNumbering; sortOn: 2;
     collection: self selectedClasses;
     yourself).
   ^e

WebDemoApp>>classesEditElement
   | e |
   e := WebElement new.
   e addButtonText: 'Save' action: #save.
   e add: (WebGrid new
     columnNames: #('' 'Class name');
     columnAspects: #(nil #name);
     sortOn: 2;
     collection: WebApplication allWebAppClasses;
     checkboxesColumn: 1 collection: self selectedClasses;
     yourself).
   ^e


TimM wrote:

Hi Tim,

I just prepared the latest and greatest Aida 5.0 and you can download
its VW parcels from ftp://ftp.eranova.si/aida/aida-5.0.tar.gz. Load
Swazoo.pcl first, then AIDAWeb.pcl. Then SwazooServer demoStart, then
open http://localhost:8888 and login as admin/password.

Good luck!
JAnko

TimM wrote:
> I can't load it into a fresh download of Visual Works 7.4nc, and the
> downloaded parcels from your site.
>
> After loading Swazoo, and then loading Aida I get a walkback:
>
> Unhandled exception: The identifier

On Fri, 05 May 2006 20:24:03 +0200, Janko Mivsek
<[hidden email]> wrote:

>Dear Tk Kuo,
>
>Thank you for encouragement. As Tim suggests, maybe is good to introduce
>a bit Aida first before commiting to port, therefore I invite you to
>look at it and ask more questions.
>
 Thank you for you kind invitation. A sophisticated system need more
devotion to delve in and a lot of zeal.. :).

 To open my quest journey, my first puzzle is that comparing to Zope,
which is a mature web environment with a lot of components, dose
Aida/Web go the same way, having the potential  to achieve its visions
and goals but in a more concise and OOP way on the smalltalk pure OOP
system or Aida/Web already is leading the edge ?
  I'd like to see that we could build many useful components under a
strong, mature and robust frameworks as Zope already done on Python.
  I like Seaside but felt quite discomfort for its continuing evolving
ways, making any systems built upon it a little 'unstable' and
'unsafe' for future compatibility... :)

Best regards

Tk Kuo

Hi Tk Tuo,

Port was done before your questions were answered :) Let me try to
answer them now...


tgkuo wrote:

>  To open my quest journey, my first puzzle is that comparing to Zope,
> which is a mature web environment with a lot of components, dose
> Aida/Web go the same way, having the potential  to achieve its visions
> and goals but in a more concise and OOP way on the smalltalk pure OOP
> system or Aida/Web already is leading the edge ?

Aida definitively has the potential to grow into Zope direction and I
actually have a commercial product called BiArt, which is basicaly a CMS
but used in specific fields (managing documents for ISO9000 quality
management, also business process management). BiArt itself is generic
enough to grow into Zope way IMHO.

>   I'd like to see that we could build many useful components under a
> strong, mature and robust frameworks as Zope already done on Python.
>   I like Seaside but felt quite discomfort for its continuing evolving
> ways, making any systems built upon it a little 'unstable' and
> 'unsafe' for future compatibility... :)

Aida core functionality stabilized about 4 years ago and all new stuff
like Ajax is now just added to this base. It seems that core won't
change much anymore, only a bit deeper Ajax integration could change
core a bit more.

Best regards
Janko