THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltSchemaInstance>>ownerPath 30 October 2012 4:51:11.036 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PltSchemaInstance(Object)>>doesNotUnderstand: #ownerPath Receiver: a PltSchemaInstance Arguments and temporary variables: aMessage: ownerPath exception: MessageNotUnderstood: PltSchemaInstance>>ownerPath resumeValue: nil Receiver's instance variables: owner: nil validationResult: nil validationDate: nil changeDate: nil associatedModels: nil tamarisItemReferencesIndex: nil schemata: nil name: nil metaConceptsIndex: nil errorsIndex: nil namesBuilder: nil PlatypusExpressParser class(PlatypusExpressAbstractParser class)>>parseStream:startingAt:owner: Receiver: PlatypusExpressParser Arguments and temporary variables: aStream: a ReadStream anInteger: 2 owner: a PltSchemaInstance parser: a PlatypusExpressParser result: nil Receiver's instance variables: superclass: PlatypusExpressAbstractParser methodDict: a MethodDictionary(size 169) format: 146 instanceVariables: #('contextsStack' 'errorsIndexMap' 'errorMessages') organization: ('express semantic actions' abstractSupertypeConstraint: actionBo...etc... subclasses: {PlatypusExpressPrimitiveParser} name: #PlatypusExpressParser classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-parsers' traitComposition: {} localSelectors: nil PlatypusExpressParser class>>schemaInstanceFromSource: Receiver: PlatypusExpressParser Arguments and temporary variables: aSource: ' SCHEMA Platypus_expressions_schema; USE FROM Platypus_dictionary_sc...etc... parsingResult: nil Receiver's instance variables: superclass: PlatypusExpressAbstractParser methodDict: a MethodDictionary(size 169) format: 146 instanceVariables: #('contextsStack' 'errorsIndexMap' 'errorMessages') organization: ('express semantic actions' abstractSupertypeConstraint: actionBo...etc... subclasses: {PlatypusExpressPrimitiveParser} name: #PlatypusExpressParser classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-parsers' traitComposition: {} localSelectors: nil PltPlatypusMetaSchemasSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a PltPlatypusMetaSchemasSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil PltPlatypusMetaSchemasSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a PltPlatypusMetaSchemasSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil PltPlatypusMetaSchemasSchemaInstance class>>initialize Receiver: PltPlatypusMetaSchemasSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(PltPlatypusMetaSchemasSchemaInstance>...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-context-accessing' context context:) ('platy...etc... subclasses: nil name: #PltPlatypusMetaSchemasSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-PlatypusMetaSchemasSchemaInstance' traitComposition: {} localSelectors: nil singleton: a PltPlatypusMetaSchemasSchemaInstance MCMethodDefinition>>postloadOver: Receiver: a MCMethodDefinition(initialize) Arguments and temporary variables: aDefinition: nil Receiver's instance variables: classIsMeta: true source: 'initialize self reinitializeSingleton. self singleton buildIndexes ...etc... category: #'platypus-generated-initializing' selector: #initialize className: #PltPlatypusMetaSchemasSchemaInstance timeStamp: '' [:ea | ea postloadOver: (self obsoletionFor: ea)] in [additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] in [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] on: InMidstOfFileinNotification do: [:n | n resume: true]] in MCPackageLoader>>basicLoad Receiver: a MCPackageLoader Arguments and temporary variables: ea: a MCMethodDefinition(initialize) Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1] in [:bar | self do: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' #'Plat...etc... Arguments and temporary variables: < Receiver's instance variables: array: an Array(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' ...etc... firstIndex: 1 lastIndex: 9584 OrderedCollection>>do: Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' #'Plat...etc... Arguments and temporary variables: aBlock: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(T...etc... index: 2158 Receiver's instance variables: array: an Array(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' ...etc... firstIndex: 1 lastIndex: 9584 [:bar | self do: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' #'Plat...etc... Arguments and temporary variables: < Receiver's instance variables: array: an Array(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' ...etc... firstIndex: 1 lastIndex: 9584 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: '' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 9584 minVal: 0 aPoint: (488@331) progressTitle: '' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: '' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 9584 minVal: 0 aPoint: (488@331) progressTitle: '' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: '' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 9584 minVal: 0 aPoint: (488@331) progressTitle: '' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: '' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 9584 minVal: 0 aPoint: (488@331) progressTitle: '' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: SmalltalkEditor>>evaluateSelectionAndDo: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStr...etc... MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: [[result := workBlock value: progress] on: ProgressNotification do:...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [result := workBlock value: progress] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: [[result := workBlock value: progress] on: ProgressNotification do:...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [result := workBlock value: progress] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: [[additions do: [:ea | self loadClassDefinition: ea] displayingProg...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [additions do: [:ea | self loadClassDefinition: ea] displayingPro...etc... ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: '' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 9584 minVal: 0 aPoint: (488@331) progressTitle: '' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: '' argPoint: (488@331) argMinVal: 0 argMaxVal: 9584 argWorkBlock: [:bar | self do: [:each | | newLabel | (count = 0 o...etc... Receiver's instance variables: messageText: nil tag: nil signaler: '' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 9584 minVal: 0 aPoint: (488@331) progressTitle: '' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: '' aPoint: (488@331) minVal: 0 maxVal: 9584 workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: '' Arguments and temporary variables: minVal: 0 maxVal: 9584 workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... Receiver's instance variables: '' OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' #'Plat...etc... Arguments and temporary variables: < Receiver's instance variables: array: an Array(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' ...etc... firstIndex: 1 lastIndex: 9584 OrderedCollection(Collection)>>do:displayingProgress: Receiver: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' #'Plat...etc... Arguments and temporary variables: aBlock: [:ea | ea postloadOver: (self obsoletionFor: ea)] aStringOrBlock: 'Initializing...' Receiver's instance variables: array: an Array(a MCOrganizationDefinition(#(#'Platypus-ExpressBuiltinsSchema' ...etc... firstIndex: 1 lastIndex: 9584 [additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] in [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] on: InMidstOfFileinNotification do: [:n | n resume: true]] in MCPackageLoader>>basicLoad Receiver: a MCPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... BlockClosure>>on:do: Receiver: [additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading class...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:n | n resume: true] handlerActive: true Receiver's instance variables: outerContext: [[additions do: [:ea | self loadClassDefinition: ea] displayi...etc... startpc: 116 numArgs: 0 [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] on: InMidstOfFileinNotification do: [:n | n resume: true]] in MCPackageLoader>>basicLoad Receiver: a MCPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... BlockClosure>>ensure: Receiver: [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading clas...etc... Arguments and temporary variables: aBlock: [self flushChangesFile] complete: nil returnValue: nil Receiver's instance variables: outerContext: MCPackageLoader>>basicLoad startpc: 112 numArgs: 0 MCPackageLoader>>basicLoad Receiver: a MCPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... [self basicLoad] in MCPackageLoader>>loadWithNameLike: Receiver: a MCPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... [aBlock value] in MCPackageLoader>>useChangeSetNamed:during: Receiver: a MCPackageLoader Arguments and temporary variables: aBlock: [self basicLoad] Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... BlockClosure>>ensure: Receiver: [aBlock value] Arguments and temporary variables: aBlock: [ChangeSet newChanges: oldChanges] complete: nil returnValue: nil Receiver's instance variables: outerContext: MCPackageLoader>>useChangeSetNamed:during: startpc: 66 numArgs: 0 MCPackageLoader>>useChangeSetNamed:during: Receiver: a MCPackageLoader Arguments and temporary variables: baseName: 'Platypus-AlainPlantec.105' aBlock: [self basicLoad] oldChanges: a ChangeSet named Unnamed newChanges: a ChangeSet named Platypus-AlainPlantec.105 Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Platypus-Express...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection() provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #ROTre...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... --- The full stack --- PltSchemaInstance(Object)>>doesNotUnderstand: #ownerPath PlatypusExpressParser class(PlatypusExpressAbstractParser class)>>parseStream:startingAt:owner: PlatypusExpressParser class>>schemaInstanceFromSource: PltPlatypusMetaSchemasSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance PltPlatypusMetaSchemasSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes PltPlatypusMetaSchemasSchemaInstance class>>initialize MCMethodDefinition>>postloadOver: [:ea | ea postloadOver: (self obsoletionFor: ea)] in [additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] in [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] on: InMidstOfFileinNotification do: [:n | n resume: true]] in MCPackageLoader>>basicLoad [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1] in [:bar | self do: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection>>do: [:bar | self do: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(Time millisecondsSince: lastUpdate) >= msecs]]) ifTrue: [bar value: count. oldLabel = (newLabel := (labelBlock value: each) ifNil: [oldLabel]) ifFalse: [ProgressNotification signal: '' extra: (oldLabel := newLabel)]. lastUpdate := Time millisecondClockValue]. aBlock value: each. count := count + 1]] in OrderedCollection(Collection)>>do:displayingProgress:every: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection(Collection)>>do:displayingProgress: [additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] in [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] on: InMidstOfFileinNotification do: [:n | n resume: true]] in MCPackageLoader>>basicLoad BlockClosure>>on:do: [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading classes...'. additions do: [:ea | self tryToLoad: ea] displayingProgress: 'Compiling methods...'. removals do: [:ea | ea unload] displayingProgress: 'Cleaning up...'. self shouldWarnAboutErrors ifTrue: [self warnAboutErrors]. errorDefinitions do: [:ea | ea addMethodAdditionTo: methodAdditions] displayingProgress: 'Reloading...'. methodAdditions do: [:each | each installMethod]. methodAdditions do: [:each | each notifyObservers]. additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] displayingProgress: 'Initializing...'] on: InMidstOfFileinNotification do: [:n | n resume: true]] in MCPackageLoader>>basicLoad BlockClosure>>ensure: MCPackageLoader>>basicLoad [self basicLoad] in MCPackageLoader>>loadWithNameLike: [aBlock value] in MCPackageLoader>>useChangeSetNamed:during: BlockClosure>>ensure: MCPackageLoader>>useChangeSetNamed:during: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MCPackageLoader>>useNewChangeSetNamedLike:during: MCPackageLoader>>loadWithNameLike: MCVersionLoader>>loadWithNameLike: MCVersionLoader>>load MetacelloGoferLoad(GoferLoad)>>execute [goferLoad := MetacelloGoferLoad on: MetacelloGofer new. goferLoad addResolved: resolvedReference. goferLoad execute. MetacelloPlatform current clearCurrentVersionCache] in [| loadBlock answers resolvedReference goferLoad | aGofer disablePackageCache. resolvedReference := self resolvePackageSpec: packageSpec gofer: aGofer. resolvedReference isNil ifTrue: [^ self]. loadBlock := [goferLoad := MetacelloGoferLoad on: MetacelloGofer new. goferLoad addResolved: resolvedReference. goferLoad execute. MetacelloPlatform current clearCurrentVersionCache]. (answers := packageSpec answers) notEmpty ifTrue: [loadBlock valueSupplyingMetacelloAnswers: answers] ifFalse: [loadBlock value]. resolvedReference workingCopy repositoryGroup addRepository: aPackageLoadDirective repository. Transcript cr; show: 'Loaded -> ' , resolvedReference name , ' --- ' , aPackageLoadDirective repository description , ' --- ' , resolvedReference repository description] in MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirective:gofer: [| loadBlock answers resolvedReference goferLoad | aGofer disablePackageCache. resolvedReference := self resolvePackageSpec: packageSpec gofer: aGofer. resolvedReference isNil ifTrue: [^ self]. loadBlock := [goferLoad := MetacelloGoferLoad on: MetacelloGofer new. goferLoad addResolved: resolvedReference. goferLoad execute. MetacelloPlatform current clearCurrentVersionCache]. (answers := packageSpec answers) notEmpty ifTrue: [loadBlock valueSupplyingMetacelloAnswers: answers] ifFalse: [loadBlock value]. resolvedReference workingCopy repositoryGroup addRepository: aPackageLoadDirective repository. Transcript cr; show: 'Loaded -> ' , resolvedReference name , ' --- ' , aPackageLoadDirective repository description , ' --- ' , resolvedReference repository description] in MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirective:gofer: [:bar | bar value: 1. aBlock value. bar value: 2] in MetacelloPharoPlatform>>do:displaying: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: MetacelloPharoPlatform>>do:displaying: MetacelloLoadingMCSpecLoader(MetacelloCommonMCSpecLoader)>>loadPackageDirective:gofer: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadPackageDirective:gofer: MetacelloPackageLoadDirective>>loadUsing:gofer: [:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer: OrderedCollection>>do: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer: MetacelloLinearLoadDirective>>loadUsing:gofer: [:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer: OrderedCollection>>do: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearLoadDirective:gofer: MetacelloLinearLoadDirective>>loadUsing:gofer: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadWithPolicy: MetacelloLoaderPolicy>>load MetacelloFetchingMCSpecLoader>>doLoad [fetchLoader doLoad] in [| fetchLoader | fetchLoader := self fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray). MetacelloPlatform current do: [fetchLoader doLoad] displaying: 'Loading ' , displayString. Transcript cr; show: '...finished ' , self versionNumber printString. ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: [:bar | bar value: 1. aBlock value. bar value: 2] in MetacelloPharoPlatform>>do:displaying: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: MetacelloPharoPlatform>>do:displaying: [| fetchLoader | fetchLoader := self fetchRequiredFromArray: (self defaultPackageNamesToLoad: anArray). MetacelloPlatform current do: [fetchLoader doLoad] displaying: 'Loading ' , displayString. Transcript cr; show: '...finished ' , self versionNumber printString. ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: BlockClosure>>ensure: MetacelloMCVersion>>doLoadRequiredFromArray: MetacelloMCVersion>>load UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusInternalMetaSchemaInstanceReference>>checks 30 October 2012 5:10:39.104 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusInternalMetaSchemaInstanceReference(Object)>>doesNotUnderstand: #checks Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PlatypusInternalMetaSchemaInstanceReference>>c...etc... resumeValue: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_meta_schemas] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionaryIfNeeded Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: candidats: an OrderedCollection() Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>DoIt Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusInternalMetaSchemaInstanceReference aRequestor: an OBTextMorph(173015040) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializeExpressMetaDictionaryIfNeeded method: (PlatypusInternalMetaSchemaInstanceReference class>>#DoIt "a CompiledMe...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: an OBTextMorph(173015040) class: PlatypusInternalMetaSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBTextMorph(TextMorph)>>handleEdit: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (1614@130) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@130) color: Color black extension: a MorphExtension (255590400) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionaryIfNeeded "self initializeExpr...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: an OBPluggableTextMorph(316932096) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 9 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil a KMCategoryTarget nil a KMCategoryTarget nil nil nil nil a...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(584843264) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(584843264) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(584843264) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30@418) corner: (1650@892) owner: an OBPluggableTextMorph(316932096) submorphs: an Array(an OBTextMorph(173015040)) fullBounds: (30@418) corner: (1650@892) color: Color transparent extension: a MorphExtension (592183296) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-33@ -418)) smoothing: 1 localBounds: (0@0) corner: (1614@130) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: an OBTextMorph(173015040) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: an OBTextMorph(173015040) directKeymaps: a KMCategory OBTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (1614@130) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@130) color: Color black extension: a MorphExtension (255590400) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionaryIfNeeded "self initializeExpr...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PlatypusInternalMetaSchemaInstanceReference(Object)>>doesNotUnderstand: #checks PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionaryIfNeeded PlatypusInternalMetaSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBTextMorph(TextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: OBTextMorph(Morph)>>dispatchKeystrokeForEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OBTextMorph(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: OBTextMorph(Morph)>>handleEvent: OBTextMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltSchemaInstance>>checks 30 October 2012 5:11:08.567 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PltSchemaInstance(Object)>>doesNotUnderstand: #checks Receiver: a PltSchemaInstance Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PltSchemaInstance>>checks resumeValue: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T17:11:08.443+00:00' changeDate: '2012-10-30T17:11:08.443000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 209) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'Platypus_meta_schemas' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_meta_schemas] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionaryIfNeeded Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: candidats: an OrderedCollection() Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>DoIt Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusInternalMetaSchemaInstanceReference aRequestor: an OBTextMorph(173015040) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializeExpressMetaDictionaryIfNeeded method: (PlatypusInternalMetaSchemaInstanceReference class>>#DoIt "a CompiledMe...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: an OBTextMorph(173015040) class: PlatypusInternalMetaSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (43 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (43 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBTextMorph(TextMorph)>>handleEdit: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (1614@130) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@130) color: Color black extension: a MorphExtension (255590400) [other: (blinkStart -> 2255597) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionaryIfNeeded "self initializeExpr...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (43 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (43 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: an OBPluggableTextMorph(316932096) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 9 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil a KMCategoryTarget nil a KMCategoryTarget nil nil nil nil a...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (43 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(584843264) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(584843264) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(584843264) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30@418) corner: (1650@892) owner: an OBPluggableTextMorph(316932096) submorphs: an Array(an OBTextMorph(173015040)) fullBounds: (30@418) corner: (1650@892) color: Color transparent extension: a MorphExtension (592183296) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-33@ -418)) smoothing: 1 localBounds: (0@0) corner: (1614@130) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: an OBTextMorph(173015040) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: an OBTextMorph(173015040) directKeymaps: a KMCategory OBTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (1614@130) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@130) color: Color black extension: a MorphExtension (255590400) [other: (blinkStart -> 2255597) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionaryIfNeeded "self initializeExpr...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PltSchemaInstance(Object)>>doesNotUnderstand: #checks PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionaryIfNeeded PlatypusInternalMetaSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBTextMorph(TextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: OBTextMorph(Morph)>>dispatchKeystrokeForEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OBTextMorph(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: OBTextMorph(Morph)>>handleEvent: OBTextMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltSchemaInstance>>checks 30 October 2012 5:12:04.416 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PltSchemaInstance(Object)>>doesNotUnderstand: #checks Receiver: a PltSchemaInstance Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PltSchemaInstance>>checks resumeValue: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T17:12:04.353+00:00' changeDate: '2012-10-30T17:12:04.353000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 209) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'Platypus_meta_schemas' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_meta_schemas] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionaryIfNeeded Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: candidats: an OrderedCollection() Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>DoIt Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusInternalMetaSchemaInstanceReference aRequestor: an OBTextMorph(173015040) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializeExpressMetaDictionaryIfNeeded method: (PlatypusInternalMetaSchemaInstanceReference class>>#DoIt "a CompiledMe...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: an OBTextMorph(173015040) class: PlatypusInternalMetaSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBTextMorph(TextMorph)>>handleEdit: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (1614@130) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@130) color: Color black extension: a MorphExtension (255590400) [other: (blinkStart -> 2309974) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionaryIfNeeded "self initializeExpr...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: an OBPluggableTextMorph(316932096) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 9 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil a KMCategoryTarget nil nil a KMCategoryTarget nil a KMCateg...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (88 to: 87) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(584843264) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(584843264) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(584843264) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30@418) corner: (1650@892) owner: an OBPluggableTextMorph(316932096) submorphs: an Array(an OBTextMorph(173015040)) fullBounds: (30@418) corner: (1650@892) color: Color transparent extension: a MorphExtension (592183296) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-33@ -418)) smoothing: 1 localBounds: (0@0) corner: (1614@130) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: an OBTextMorph(173015040) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: an OBTextMorph(173015040) directKeymaps: a KMCategory OBTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (1614@130) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@130) color: Color black extension: a MorphExtension (255590400) [other: (blinkStart -> 2309974) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionaryIfNeeded "self initializeExpr...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PltSchemaInstance(Object)>>doesNotUnderstand: #checks PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionaryIfNeeded PlatypusInternalMetaSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBTextMorph(TextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: OBTextMorph(Morph)>>dispatchKeystrokeForEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OBTextMorph(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: OBTextMorph(Morph)>>handleEvent: OBTextMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusInternalPrimitiveSchemaInstanceReference>>checks 30 October 2012 5:13:35.199 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusInternalPrimitiveSchemaInstanceReference(Object)>>doesNotUnderstand: #checks Receiver: [: //Platypus_Express_primitives] Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PlatypusInternalPrimitiveSchemaInstanceReferen...etc... resumeValue: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() identifiersCache: nil namedTypesCache: nil PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionary Receiver: PlatypusInternalPrimitiveSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_Express_primitives] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalPrimitiveSchemaInstanceR...etc... format: 156 instanceVariables: #('identifiersCache' 'namedTypesCache') organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalPrimitiveSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-VW-Compatibility' traitComposition: {} localSelectors: nil PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionaryIfNeeded Receiver: PlatypusInternalPrimitiveSchemaInstanceReference Arguments and temporary variables: candidats: an OrderedCollection() Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalPrimitiveSchemaInstanceR...etc... format: 156 instanceVariables: #('identifiersCache' 'namedTypesCache') organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalPrimitiveSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-VW-Compatibility' traitComposition: {} localSelectors: nil PlatypusSchemaInstanceReference class>>DoIt Receiver: PlatypusSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusExpressReference methodDict: a MethodDictionary(size 101) format: 152 instanceVariables: #('schemaInstance' 'tokenList' 'modelContentsReferences') organization: ('drag and drop' acceptDroppingMorph:copy: insertLinkableListItem...etc... subclasses: {PlatypusInternalMetaSchemaInstanceReference. PlatypusInternalPrimi...etc... name: #PlatypusSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusSchemaInstanceReference aRequestor: an OBTextMorph(173015040) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt PlatypusInternalMetaSchemaInstanceReference initializeExpress...etc... method: (PlatypusSchemaInstanceReference class>>#DoIt "a CompiledMethod(1179648...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: an OBTextMorph(173015040) class: PlatypusSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: an OBTextMorph(173015040) selectionShowing: true model: an OBDefinitionPanel editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (41 to: 225) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (41 to: 225) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBTextMorph(TextMorph)>>handleEdit: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (1614@82) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@82) color: Color black extension: a MorphExtension (255590400) [other: (blinkStart -> 2400922) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializePlatypusMetaSchemataIfNeeded PlatypusInternalMetaS...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (41 to: 225) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil OBPluggableTextMorph(PluggableTextMorph)>>doIt Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (41 to: 225) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: an OBPluggableTextMorph(316932096) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: an OBPluggableTextMorph(316932096) secondArg: an OBPluggableTextMorph(316932096) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: an OBPluggableTextMorph(316932096) category: a KMCategory morph: an OBPluggableTextMorph(316932096) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 9 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil a KMCategoryTarget nil a KMCategoryTarget nil nil nil nil a...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: an OBPluggableTextMorph(316932096) directKeymaps: a KMCategory OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBPluggableTextMorph(316932096) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30.0@418.0) corner: (1650.0@892.0) owner: an OBGroupingMorph(1061158912) submorphs: an Array(a TransformMorph(584843264)) fullBounds: (30@418) corner: (1650@892) color: Color white extension: a MorphExtension (151781376) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: an OBDefinitionPanel open: false accessor: nil scrollBar: a ScrollBar(344719360) scroller: a TransformMorph(584843264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(471072768) textMorph: an OBTextMorph(173015040) getTextSelector: #text setTextSelector: #accept:notifying: getSelectionSelector: #selection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (41 to: 225) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(584843264) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(584843264) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(584843264) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (30@418) corner: (1650@892) owner: an OBPluggableTextMorph(316932096) submorphs: an Array(an OBTextMorph(173015040)) fullBounds: (30@418) corner: (1650@892) color: Color transparent extension: a MorphExtension (592183296) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-33@ -418)) smoothing: 1 localBounds: (0@0) corner: (1614@82) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: an OBTextMorph(173015040) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: an OBTextMorph(173015040) directKeymaps: a KMCategory OBTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: an OBTextMorph(173015040) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (1614@82) owner: a TransformMorph(584843264) submorphs: #() fullBounds: (0@0) corner: (1614@82) color: Color black extension: a MorphExtension (255590400) [other: (blinkStart -> 2400922) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializePlatypusMetaSchemataIfNeeded PlatypusInternalMetaS...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: an OBPluggableTextMorph(316932096) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PlatypusInternalPrimitiveSchemaInstanceReference(Object)>>doesNotUnderstand: #checks PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionary PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionaryIfNeeded PlatypusSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in OBPluggableTextMorph(PluggableTextMorph)>>doIt [result := editBlock value] in OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBTextMorph(TextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>handleEdit: OBPluggableTextMorph(PluggableTextMorph)>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: OBPluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: OBTextMorph(Morph)>>dispatchKeystrokeForEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OBTextMorph(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: OBTextMorph(Morph)>>handleEvent: OBTextMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: StandardFileStream class>>defaultToLF 30 October 2012 6:07:55.379 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] StandardFileStream class(Object)>>doesNotUnderstand: #defaultToLF Receiver: StandardFileStream Arguments and temporary variables: aMessage: defaultToLF exception: MessageNotUnderstood: StandardFileStream class>>defaultToLF resumeValue: nil Receiver's instance variables: superclass: FileStream methodDict: a MethodDictionary(#actAsExecutor->(StandardFileStream>>#actAsExecu...etc... format: 146 instanceVariables: #('name' 'fileID' 'buffer1') organization: ('*Network-RemoteDirectory' directoryUrl) ('*compression' compres...etc... subclasses: {MultiByteFileStream} name: #StandardFileStream classPool: a Dictionary(#Registry->a WeakRegistry(...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Files-Kernel' traitComposition: {} localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(1056964608) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ StandardFileStream defaultToLF method: (UndefinedObject>>#DoIt "a CompiledMethod(506986496)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(1056964608) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1056964608) selectionShowing: true model: a TamStringHolder editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1056964608) selectionShowing: true model: a TamStringHolder editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(1056964608) selectionShowing: true model: a TamStringHolder editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(140247040) Arguments and temporary variables: Receiver's instance variables: bounds: (71.0@773.0) corner: (665.0@825.0) owner: a TamPaneMorph(238813184) submorphs: an Array(a ScrollBar(168034304) a TransformMorph(412352512)) fullBounds: (71@773) corner: (665@825) color: Color white extension: a MorphExtension (1035730944) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a TamStringHolder open: false accessor: nil scrollBar: a ScrollBar(168034304) scroller: a TransformMorph(412352512) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(298582016) textMorph: a TextMorphForEditView(1056964608) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (28 to: 58) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(140247040) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (71.0@773.0) corner: (665.0@825.0) owner: a TamPaneMorph(238813184) submorphs: an Array(a ScrollBar(168034304) a TransformMorph(412352512)) fullBounds: (71@773) corner: (665@825) color: Color white extension: a MorphExtension (1035730944) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a TamStringHolder open: false accessor: nil scrollBar: a ScrollBar(168034304) scroller: a TransformMorph(412352512) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(298582016) textMorph: a TextMorphForEditView(1056964608) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (28 to: 58) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(1056964608) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (573@46) owner: a TransformMorph(412352512) submorphs: #() fullBounds: (0@0) corner: (573@46) color: Color black extension: a MorphExtension (65798144) [other: (blinkStart -> 5645647) (kmDisp...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run. (*# StandardFileStream defaultToLF #*...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(140247040) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(140247040) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (71.0@773.0) corner: (665.0@825.0) owner: a TamPaneMorph(238813184) submorphs: an Array(a ScrollBar(168034304) a TransformMorph(412352512)) fullBounds: (71@773) corner: (665@825) color: Color white extension: a MorphExtension (1035730944) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a TamStringHolder open: false accessor: nil scrollBar: a ScrollBar(168034304) scroller: a TransformMorph(412352512) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(298582016) textMorph: a TextMorphForEditView(1056964608) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (28 to: 58) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(140247040) Arguments and temporary variables: Receiver's instance variables: bounds: (71.0@773.0) corner: (665.0@825.0) owner: a TamPaneMorph(238813184) submorphs: an Array(a ScrollBar(168034304) a TransformMorph(412352512)) fullBounds: (71@773) corner: (665@825) color: Color white extension: a MorphExtension (1035730944) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a TamStringHolder open: false accessor: nil scrollBar: a ScrollBar(168034304) scroller: a TransformMorph(412352512) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(298582016) textMorph: a TextMorphForEditView(1056964608) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (28 to: 58) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(140247040) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(140247040) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(140247040) secondArg: a PluggableTextMorph(140247040) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(140247040) secondArg: a PluggableTextMorph(140247040) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(140247040) category: a KMCategory morph: a PluggableTextMorph(140247040) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(140247040) category: a KMCategory morph: a PluggableTextMorph(140247040) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(140247040) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 4 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil nil a KMCategoryTarget a KMCategoryTarget nil nil nil a KMC...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(140247040) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(140247040) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(140247040) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(140247040) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (71.0@773.0) corner: (665.0@825.0) owner: a TamPaneMorph(238813184) submorphs: an Array(a ScrollBar(168034304) a TransformMorph(412352512)) fullBounds: (71@773) corner: (665@825) color: Color white extension: a MorphExtension (1035730944) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a TamStringHolder open: false accessor: nil scrollBar: a ScrollBar(168034304) scroller: a TransformMorph(412352512) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(298582016) textMorph: a TextMorphForEditView(1056964608) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (28 to: 58) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: nil autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(412352512) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(412352512) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(412352512) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (72@774) corner: (651@824) owner: a PluggableTextMorph(140247040) submorphs: an Array(a TextMorphForEditView(1056964608)) fullBounds: (72@774) corner: (651@824) color: Color transparent extension: a MorphExtension (419692544) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-75@ -774)) smoothing: 1 localBounds: (0@0) corner: (573@46) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TextMorphForEditView(1056964608) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TextMorphForEditView(1056964608) directKeymaps: a KMCategory TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: Receiver: a TextMorphForEditView(1056964608) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (573@46) owner: a TransformMorph(412352512) submorphs: #() fullBounds: (0@0) corner: (573@46) color: Color black extension: a MorphExtension (65798144) [other: (blinkStart -> 5645647) (kmDisp...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run. (*# StandardFileStream defaultToLF #*...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(140247040) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a TextMorphForEditView(1056964608) Arguments and temporary variables: anEvent: [keystroke ''] pasteUp: nil Receiver's instance variables: bounds: (0@0) corner: (573@46) owner: a TransformMorph(412352512) submorphs: #() fullBounds: (0@0) corner: (573@46) color: Color black extension: a MorphExtension (65798144) [other: (blinkStart -> 5645647) (kmDisp...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run. (*# StandardFileStream defaultToLF #*...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(140247040) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TextMorphForEditView(1056964608) Receiver's instance variables: timeStamp: 5662840 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (284@24) handler: nil wasHandled: true keyValue: 100 charCode: 100 scanCode: 2 --- The full stack --- StandardFileStream class(Object)>>doesNotUnderstand: #defaultToLF UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: ByteString>>inclusiveOwnerPath 30 October 2012 9:58:07.927 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath Receiver: 'ARINC_653_BASIC_TYPES' Arguments and temporary variables: aMessage: inclusiveOwnerPath exception: MessageNotUnderstood: ByteString>>inclusiveOwnerPath resumeValue: nil Receiver's instance variables: 'ARINC_653_BASIC_TYPES' PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressNamesCheckerError Arguments and temporary variables: Receiver's instance variables: message: 'several schemata with the same name ''ARINC_653_BASIC_TYPES''' data: nil path: nil metaData: 'ARINC_653_BASIC_TYPES' PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aVisitorError: a PlatypusExpressNamesCheckerError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: k: 'ARINC_653_BASIC_TYPES' l: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchema...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: Receiver: a Dictionary('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a PltSche...etc... Arguments and temporary variables: aBlock: 'ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a P...etc... assoc: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressN...etc... Receiver's instance variables: tally: 2 array: an Array('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefini...etc... [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Receiver: a Dictionary('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a PltSche...etc... Arguments and temporary variables: aBlock: 'ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a P...etc... each: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 2 array: an Array('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefini...etc... Array(SequenceableCollection)>>do: Receiver: an Array('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... Arguments and temporary variables: aBlock: [:each | each ifNotNil: [aBlock value: each]] index: 1 indexLimiT: 5 Receiver's instance variables: an Array('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... Dictionary>>associationsDo: Receiver: a Dictionary('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a PltSche...etc... Arguments and temporary variables: aBlock: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 2 array: an Array('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefini...etc... Dictionary>>keysAndValuesDo: Receiver: a Dictionary('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefinition a PltSche...etc... Arguments and temporary variables: aBlock: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpress...etc... Receiver's instance variables: tally: 2 array: an Array('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDefini...etc... PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: e: a PltSchemaInstance index: a Dictionary('ARINC_653_BASIC_TYPES'->an OrderedCollection(a PltSchemaDe...etc... m: an Array(a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptT...etc... startpc: 28 numArgs: 0 PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PltSchemaInstance(Object)>>acceptTry: Receiver: a PltSchemaInstance Arguments and temporary variables: aVisitor: a PlatypusExpressNamesChecker Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T21:58:07.915+00:00' changeDate: '2012-10-30T21:55:55.745000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusExpressNamesChecker>>checks: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressNamesChecker Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>semanticChecksSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T21:58:07.915+00:00' changeDate: '2012-10-30T21:55:55.745000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T21:58:07.915+00:00' changeDate: '2012-10-30T21:55:55.745000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /ARINC653] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Schema]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /ARINC653/ARINC_653_Schema] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Schema/ARINC_...etc... interactiveCallArguments: nil startNode: PlatypusEolToken( ) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Schema' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Schema] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Schema/ARINC_...etc... interactiveCallArguments: nil startNode: PlatypusEolToken( ) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Schema' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Schema] Arguments and temporary variables: input: a Text for ' SCHEMA ARINC_653_Schema; use from ARINC_653_Basic_Types; ...etc... aRequestor: a PlatypusStepCodeMorph(629669888) result: a PlatypusExpressParserResult users: a Set() Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Schema/ARINC_...etc... interactiveCallArguments: nil startNode: PlatypusEolToken( ) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Schema' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for ' SCHEMA ARINC_653_Schema; use from ARINC_653_Basic_Types; ...etc... aRequestor: a PlatypusStepCodeMorph(629669888) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(629669888) a TamGenericHi...etc... contents: a Text for 'SCHEMA ARINC_653_Schema; (*"ARINC_653_Module" Schema fo...etc... mainWindow: a StandardWindow(753664000) mainPane: a TamPaneMorph(258736128) contentsMorph: a PlatypusStepCodeMorph(629669888) codeRow: a TamPaneMorph(561774592) sourceHandler: [cheddar: /ARINC653/ARINC_653_Schema] codeBtnRow: an AlignmentMorph(235929600) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(629669888) Arguments and temporary variables: acceptedText: a Text for ' SCHEMA ARINC_653_Schema; use from ARINC_653_Basic_T...etc... Receiver's instance variables: bounds: (408.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(561774592) submorphs: an Array(a ScrollBar(657457152) a TransformMorph(893386752)) fullBounds: (408@89) corner: (1559@765) color: Color white extension: a MorphExtension (142344192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(657457152) scroller: a TransformMorph(893386752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(779616256) textMorph: a PlatypusTextMorphForEditView(506986496) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(629669888) Arguments and temporary variables: acceptedText: a Text for ' SCHEMA ARINC_653_Schema; use from ARINC_653_Basic_T...etc... Receiver's instance variables: bounds: (408.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(561774592) submorphs: an Array(a ScrollBar(657457152) a TransformMorph(893386752)) fullBounds: (408@89) corner: (1559@765) color: Color white extension: a MorphExtension (142344192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(657457152) scroller: a TransformMorph(893386752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(779616256) textMorph: a PlatypusTextMorphForEditView(506986496) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(629669888) Arguments and temporary variables: ok: nil saveSelection: (1 to: 0) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (408.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(561774592) submorphs: an Array(a ScrollBar(657457152) a TransformMorph(893386752)) fullBounds: (408@89) corner: (1559@765) color: Color white extension: a MorphExtension (142344192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(657457152) scroller: a TransformMorph(893386752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(779616256) textMorph: a PlatypusTextMorphForEditView(506986496) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(629669888) Arguments and temporary variables: Receiver's instance variables: bounds: (408.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(561774592) submorphs: an Array(a ScrollBar(657457152) a TransformMorph(893386752)) fullBounds: (408@89) corner: (1559@765) color: Color white extension: a MorphExtension (142344192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(657457152) scroller: a TransformMorph(893386752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(779616256) textMorph: a PlatypusTextMorphForEditView(506986496) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents Receiver: a PlatypusTextMorphForEditView(506986496) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1130@4482) owner: a TransformMorph(893386752) submorphs: #() fullBounds: (0@0) corner: (1130@4482) color: Color black extension: a MorphExtension (589561856) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' SCHEMA ARINC_653_Schema; use from ARINC_653_Basic_Types; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(629669888) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusStepEditor(TextEditor)>>accept Receiver: a PlatypusStepEditor Arguments and temporary variables: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(506986496) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>accept: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(506986496) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] aBoolean: false return: [:val | ^ val] asciiValue: 116 actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop: #noop: #noop: #...etc... action: #accept: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(506986496) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] return: [:val | ^ val] asciiValue: 115 honorCommandKeys: true char: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(506986496) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchOn: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] char: nil return: [:val | ^ val] keyEvents: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(506986496) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState --- The full stack --- ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>keysAndValuesDo: PlatypusExpressNamesChecker>>acceptSchemaInstance: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressNamesChecker>>checks: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Space is low 30 October 2012 10:37:01.628 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] SmalltalkImage>>signalLowSpace Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil OutOfMemory>>defaultAction Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: nil OutOfMemory(Exception)>>pass Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: priorWorld: OutOfMemory priorHand: a PasteUpMorph(425197568) [world] priorEvent: a HandMorph(843055104) ex: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(854327296) a Sys...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>cull: Receiver: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ...etc... Arguments and temporary variables: anArg: OutOfMemory Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 78 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: tally: 41943040 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newObject: a PltEntityDefinitionReference Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltEntityDefinitionReference Arguments and temporary variables: p: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a ...etc... t: a PltEntityDefinitionReference Receiver's instance variables: owner: a PltEntityDefinition name: 'PortMappingType' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltEntityDefinitionReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 354) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 354) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltEntityDefinitionReference a PltEntityDefinitionReference a PltEntityDe...etc... Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 1 each: a PltEntityDefinitionReference indexLimiT: 5 Receiver's instance variables: tally: 4 array: an Array(a PltEntityDefinitionReference a PltEntityDefinitionReference a...etc... PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltEntityDefinitionReference a Pl...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltEntityDefinitionReference a Pl...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 354) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 354) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:36:29.938+00:00' changeDate: '2012-10-30T22:36:29.938000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 191) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:36:29.938+00:00' changeDate: '2012-10-30T22:36:29.938000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 191) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /ARINC653] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Basic_Types] ...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /ARINC653/ARINC_653_Port] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types use from ARI...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Port' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Port] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types use from ARI...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Port' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Port] Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_Port; USE FROM ARINC_653_Basic_Types; USE...etc... aRequestor: a PlatypusStepCodeMorph(746586112) result: a PlatypusExpressParserResult users: a Set() Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types use from ARI...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Port' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_Port; USE FROM ARINC_653_Basic_Types; USE...etc... aRequestor: a PlatypusStepCodeMorph(746586112) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(746586112) a TamGenericHi...etc... contents: a Text for 'SCHEMA ARINC_653_Port; USE FROM ARINC_653_Basic_Types; ...etc... mainWindow: a StandardWindow(864550912) mainPane: a TamPaneMorph(375652352) contentsMorph: a PlatypusStepCodeMorph(746586112) codeRow: a TamPaneMorph(678690816) sourceHandler: [cheddar: /ARINC653/ARINC_653_Port] codeBtnRow: an AlignmentMorph(446169088) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(746586112) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_Port; USE FROM ARINC_653_Basic_Type...etc... Receiver's instance variables: bounds: (464.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(678690816) submorphs: an Array(a TransformMorph(1008730112)) fullBounds: nil color: Color white extension: a MorphExtension (256638976) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(774373376) scroller: a TransformMorph(1008730112) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(894959616) textMorph: a PlatypusTextMorphForEditView(621281280) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (89 to: 88) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(746586112) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_Port; USE FROM ARINC_653_Basic_Type...etc... Receiver's instance variables: bounds: (464.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(678690816) submorphs: an Array(a TransformMorph(1008730112)) fullBounds: nil color: Color white extension: a MorphExtension (256638976) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(774373376) scroller: a TransformMorph(1008730112) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(894959616) textMorph: a PlatypusTextMorphForEditView(621281280) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (89 to: 88) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(746586112) Arguments and temporary variables: ok: nil saveSelection: (89 to: 88) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (464.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(678690816) submorphs: an Array(a TransformMorph(1008730112)) fullBounds: nil color: Color white extension: a MorphExtension (256638976) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(774373376) scroller: a TransformMorph(1008730112) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(894959616) textMorph: a PlatypusTextMorphForEditView(621281280) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (89 to: 88) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(746586112) Arguments and temporary variables: Receiver's instance variables: bounds: (464.0@89.0) corner: (1559.0@765.0) owner: a TamPaneMorph(678690816) submorphs: an Array(a TransformMorph(1008730112)) fullBounds: nil color: Color white extension: a MorphExtension (256638976) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(774373376) scroller: a TransformMorph(1008730112) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(894959616) textMorph: a PlatypusTextMorphForEditView(621281280) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (89 to: 88) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- SmalltalkImage>>signalLowSpace OutOfMemory>>defaultAction UndefinedObject>>handleSignal: OutOfMemory(Exception)>>pass [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Space is low 30 October 2012 10:38:05.784 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] SmalltalkImage>>signalLowSpace Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil OutOfMemory>>defaultAction Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: nil OutOfMemory(Exception)>>pass Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: priorWorld: OutOfMemory priorHand: a PasteUpMorph(425197568) [world] priorEvent: a HandMorph(843055104) ex: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(854327296) a Sys...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>cull: Receiver: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ...etc... Arguments and temporary variables: anArg: OutOfMemory Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 78 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: tally: 41943040 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newObject: a PltEntityDefinitionReference Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltEntityDefinitionReference Arguments and temporary variables: p: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a ...etc... t: a PltEntityDefinitionReference Receiver's instance variables: owner: a PltEntityDefinition name: 'PortMappingType' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltEntityDefinitionReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptR...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 402) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptR...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 402) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltEntityDefinitionReference a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 1 each: a PltEntityDefinitionReference indexLimiT: 5 Receiver's instance variables: tally: 2 array: an Array(a PltEntityDefinitionReference nil nil nil a PltEntityDefinitio...etc... PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptR...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 402) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptR...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 402) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:36:29.938+00:00' changeDate: '2012-10-30T22:36:29.938000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 213) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:36:29.938+00:00' changeDate: '2012-10-30T22:36:29.938000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 213) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /ARINC653] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Basic_Types] ...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /ARINC653/ARINC_653_Partition] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Partition/Par...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Partition' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Partition] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Partition/Par...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Partition' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Partition] Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_Partition; USE FROM ARINC_653_Basic_Types;...etc... aRequestor: a PlatypusStepCodeMorph(1069809664) result: a PlatypusExpressParserResult users: a Set() Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Partition/Par...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Partition' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_Partition; USE FROM ARINC_653_Basic_Types;...etc... aRequestor: a PlatypusStepCodeMorph(1069809664) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(1069809664) a TamGenericH...etc... contents: a Text for 'SCHEMA ARINC_653_Partition; USE FROM ARINC_653_Basic_Typ...etc... mainWindow: a StandardWindow(120061952) mainPane: a TamPaneMorph(698875904) contentsMorph: a PlatypusStepCodeMorph(1069809664) codeRow: a TamPaneMorph(1001914368) sourceHandler: [cheddar: /ARINC653/ARINC_653_Partition] codeBtnRow: an AlignmentMorph(772014080) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(1069809664) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_Partition; USE FROM ARINC_653_Basic...etc... Receiver's instance variables: bounds: (431.0@169.0) corner: (1526.0@845.0) owner: a TamPaneMorph(1001914368) submorphs: an Array(a ScrollBar(23855104) a TransformMorph(259784704)) fullBounds: nil color: Color white extension: a MorphExtension (582483968) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(23855104) scroller: a TransformMorph(259784704) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(146014208) textMorph: a PlatypusTextMorphForEditView(947126272) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5119 to: 5118) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(1069809664) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_Partition; USE FROM ARINC_653_Basic...etc... Receiver's instance variables: bounds: (431.0@169.0) corner: (1526.0@845.0) owner: a TamPaneMorph(1001914368) submorphs: an Array(a ScrollBar(23855104) a TransformMorph(259784704)) fullBounds: nil color: Color white extension: a MorphExtension (582483968) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(23855104) scroller: a TransformMorph(259784704) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(146014208) textMorph: a PlatypusTextMorphForEditView(947126272) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5119 to: 5118) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(1069809664) Arguments and temporary variables: ok: nil saveSelection: (5119 to: 5118) saveScrollerOffset: (-3@1632) Receiver's instance variables: bounds: (431.0@169.0) corner: (1526.0@845.0) owner: a TamPaneMorph(1001914368) submorphs: an Array(a ScrollBar(23855104) a TransformMorph(259784704)) fullBounds: nil color: Color white extension: a MorphExtension (582483968) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(23855104) scroller: a TransformMorph(259784704) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(146014208) textMorph: a PlatypusTextMorphForEditView(947126272) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5119 to: 5118) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(1069809664) Arguments and temporary variables: Receiver's instance variables: bounds: (431.0@169.0) corner: (1526.0@845.0) owner: a TamPaneMorph(1001914368) submorphs: an Array(a ScrollBar(23855104) a TransformMorph(259784704)) fullBounds: nil color: Color white extension: a MorphExtension (582483968) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(23855104) scroller: a TransformMorph(259784704) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(146014208) textMorph: a PlatypusTextMorphForEditView(947126272) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5119 to: 5118) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- SmalltalkImage>>signalLowSpace OutOfMemory>>defaultAction UndefinedObject>>handleSignal: OutOfMemory(Exception)>>pass [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Space is low 30 October 2012 10:41:56.076 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] SmalltalkImage>>signalLowSpace Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil OutOfMemory>>defaultAction Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: nil OutOfMemory(Exception)>>pass Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: priorWorld: OutOfMemory priorHand: a PasteUpMorph(425197568) [world] priorEvent: a HandMorph(843055104) ex: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>cull: Receiver: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ...etc... Arguments and temporary variables: anArg: OutOfMemory Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 78 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: tally: 41943040 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newObject: a PltEntityDefinitionReference Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltEntityDefinitionReference Arguments and temporary variables: p: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a ...etc... t: a PltEntityDefinitionReference Receiver's instance variables: owner: a PltEntityDefinition name: 'ProcessType' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltEntityDefinitionReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 385) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 385) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 5 each: a PltEntityDefinitionReference indexLimiT: 5 Receiver's instance variables: tally: 1 array: an Array(nil nil nil nil a PltEntityDefinitionReference) PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltEntityDefinitionReference a Pl...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltEntityDefinitionReference a Pl...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 385) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 385) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:40:53.763+00:00' changeDate: '2012-10-30T22:40:53.763000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:40:53.763+00:00' changeDate: '2012-10-30T22:40:53.763000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /ARINC653] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Basic_Types] ...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /ARINC653/ARINC_653_Process] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types) interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Process' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Process] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types) interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Process' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_Process] Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_Process; USE FROM ARINC_653_Basic_Types; ...etc... aRequestor: a PlatypusStepCodeMorph(566755328) result: a PlatypusExpressParserResult users: a Set() Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types) interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_Process' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_Process; USE FROM ARINC_653_Basic_Types; ...etc... aRequestor: a PlatypusStepCodeMorph(566755328) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(566755328) a TamGenericHi...etc... contents: a Text for 'SCHEMA ARINC_653_Process; USE FROM ARINC_653_Basic_Types...etc... mainWindow: a StandardWindow(1021050880) mainPane: a TamPaneMorph(195821568) contentsMorph: a PlatypusStepCodeMorph(566755328) codeRow: a TamPaneMorph(498860032) sourceHandler: [cheddar: /ARINC653/ARINC_653_Process] codeBtnRow: an AlignmentMorph(786169856) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(566755328) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_Process; USE FROM ARINC_653_Basic_T...etc... Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(498860032) submorphs: an Array(a TransformMorph(830472192)) fullBounds: nil color: Color white extension: a MorphExtension (79429632) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(594542592) scroller: a TransformMorph(830472192) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(716701696) textMorph: a PlatypusTextMorphForEditView(444071936) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (61 to: 60) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(566755328) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_Process; USE FROM ARINC_653_Basic_T...etc... Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(498860032) submorphs: an Array(a TransformMorph(830472192)) fullBounds: nil color: Color white extension: a MorphExtension (79429632) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(594542592) scroller: a TransformMorph(830472192) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(716701696) textMorph: a PlatypusTextMorphForEditView(444071936) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (61 to: 60) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(566755328) Arguments and temporary variables: ok: nil saveSelection: (61 to: 60) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(498860032) submorphs: an Array(a TransformMorph(830472192)) fullBounds: nil color: Color white extension: a MorphExtension (79429632) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(594542592) scroller: a TransformMorph(830472192) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(716701696) textMorph: a PlatypusTextMorphForEditView(444071936) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (61 to: 60) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(566755328) Arguments and temporary variables: Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(498860032) submorphs: an Array(a TransformMorph(830472192)) fullBounds: nil color: Color white extension: a MorphExtension (79429632) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(594542592) scroller: a TransformMorph(830472192) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(716701696) textMorph: a PlatypusTextMorphForEditView(444071936) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (61 to: 60) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- SmalltalkImage>>signalLowSpace OutOfMemory>>defaultAction UndefinedObject>>handleSignal: OutOfMemory(Exception)>>pass [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 30 October 2012 10:44:31.783 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: nil outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil --- The full stack --- MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Space is low 30 October 2012 10:46:00.899 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] SmalltalkImage>>signalLowSpace Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: nil OutOfMemory>>defaultAction Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: nil OutOfMemory(Exception)>>pass Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: priorWorld: OutOfMemory priorHand: a PasteUpMorph(425197568) [world] priorEvent: a HandMorph(843055104) ex: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>cull: Receiver: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ...etc... Arguments and temporary variables: anArg: OutOfMemory Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 78 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: tally: 41943040 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newObject: a PltEntityDefinitionReference Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltEntityDefinitionReference Arguments and temporary variables: p: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a ...etc... t: a PltEntityDefinitionReference Receiver's instance variables: owner: a PltEntityDefinition name: 'System_State_Entry_Type' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltEntityDefinitionReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 364) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 364) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltEntityDefinitionReference a PltEntityDefinitionReference a PltEntityDe...etc... Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 2 each: a PltEntityDefinitionReference indexLimiT: 5 Receiver's instance variables: tally: 3 array: an Array(nil a PltEntityDefinitionReference a PltEntityDefinitionReferen...etc... PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 364) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptS...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference a PltEntit...etc... visited: an IdentityDictionary(size 364) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:45:23.771+00:00' changeDate: '2012-10-30T22:45:23.771000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-30T22:45:23.771+00:00' changeDate: '2012-10-30T22:45:23.771000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'ARINC653' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /ARINC653] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /ARINC653/ARINC_653_Basic_Types] ...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /ARINC653/ARINC_653_System] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types use from ARI...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_System' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_System] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types use from ARI...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_System' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /ARINC653/ARINC_653_System] Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_System; USE FROM ARINC_653_Basic_Types; U...etc... aRequestor: a PlatypusStepCodeMorph(601882624) result: a PlatypusExpressParserResult users: a Set() Receiver's instance variables: owner: [cheddar: /ARINC653] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection(use from ARINC_653_Basic_Types use from ARI...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'ARINC_653_System' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA ARINC_653_System; USE FROM ARINC_653_Basic_Types; U...etc... aRequestor: a PlatypusStepCodeMorph(601882624) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(601882624) a TamGenericHi...etc... contents: a Text for 'SCHEMA ARINC_653_System; USE FROM ARINC_653_Basic_Types;...etc... mainWindow: a StandardWindow(725876736) mainPane: a TamPaneMorph(230948864) contentsMorph: a PlatypusStepCodeMorph(601882624) codeRow: a TamPaneMorph(533987328) sourceHandler: [cheddar: /ARINC653/ARINC_653_System] codeBtnRow: an AlignmentMorph(827326464) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(601882624) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_System; USE FROM ARINC_653_Basic_Ty...etc... Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(533987328) submorphs: an Array(a TransformMorph(865599488)) fullBounds: nil color: Color white extension: a MorphExtension (114556928) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(629669888) scroller: a TransformMorph(865599488) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(751828992) textMorph: a PlatypusTextMorphForEditView(479199232) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (103 to: 102) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(601882624) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA ARINC_653_System; USE FROM ARINC_653_Basic_Ty...etc... Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(533987328) submorphs: an Array(a TransformMorph(865599488)) fullBounds: nil color: Color white extension: a MorphExtension (114556928) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(629669888) scroller: a TransformMorph(865599488) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(751828992) textMorph: a PlatypusTextMorphForEditView(479199232) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (103 to: 102) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(601882624) Arguments and temporary variables: ok: nil saveSelection: (103 to: 102) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(533987328) submorphs: an Array(a TransformMorph(865599488)) fullBounds: nil color: Color white extension: a MorphExtension (114556928) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(629669888) scroller: a TransformMorph(865599488) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(751828992) textMorph: a PlatypusTextMorphForEditView(479199232) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (103 to: 102) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(601882624) Arguments and temporary variables: Receiver's instance variables: bounds: (423.0@81.0) corner: (1650.0@832.0) owner: a TamPaneMorph(533987328) submorphs: an Array(a TransformMorph(865599488)) fullBounds: nil color: Color white extension: a MorphExtension (114556928) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(629669888) scroller: a TransformMorph(865599488) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(751828992) textMorph: a PlatypusTextMorphForEditView(479199232) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (103 to: 102) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- SmalltalkImage>>signalLowSpace OutOfMemory>>defaultAction UndefinedObject>>handleSignal: OutOfMemory(Exception)>>pass [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 30 October 2012 10:46:03.728 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] WeakArray class>>finalizationProcess Receiver: WeakArray Arguments and temporary variables: Receiver's instance variables: superclass: Array methodDict: a MethodDictionary() format: 514 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #WeakArray classPool: a Dictionary(#FinalizationDependents->a WeakArray(WeakAnnouncementSu...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Weak' traitComposition: {} localSelectors: nil [self finalizationProcess] in WeakArray class>>restartFinalizationProcess Receiver: WeakArray Arguments and temporary variables: Receiver's instance variables: superclass: Array methodDict: a MethodDictionary() format: 514 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #WeakArray classPool: a Dictionary(#FinalizationDependents->a WeakArray(WeakAnnouncementSu...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Weak' traitComposition: {} localSelectors: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [self finalizationProcess] Arguments and temporary variables: Receiver's instance variables: outerContext: WeakArray class>>restartFinalizationProcess startpc: 119 numArgs: 0 --- The full stack --- WeakArray class>>finalizationProcess [self finalizationProcess] in WeakArray class>>restartFinalizationProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: OBSystemBrowserAdaptor class>>buildTamarisWindow 30 October 2012 11:17:42.773 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] OBSystemBrowserAdaptor class(Object)>>doesNotUnderstand: #buildTamarisWindow Receiver: OBSystemBrowserAdaptor Arguments and temporary variables: aMessage: buildTamarisWindow exception: MessageNotUnderstood: OBSystemBrowserAdaptor class>>buildTamarisWind...etc... resumeValue: nil Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#labelString->(OBSystemBrowserAdaptor>>#labelStr...etc... format: 134 instanceVariables: #('class' 'selector') organization: ('accessing' selector targetClass) ('actions' spawnHierarchy spaw...etc... subclasses: nil name: #OBSystemBrowserAdaptor classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'OB-Standard-Utilities' traitComposition: {} localSelectors: nil TamClassReference>>newEditor Receiver: [platypus-dev: /SqPlatypus-HW-tamaris/PlatypusSchemaElementReference] Arguments and temporary variables: window: nil Receiver's instance variables: owner: [platypus-dev: /SqPlatypus-HW-tamaris] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil sysCatSymbol: nil itemClass: PlatypusSchemaElementReference messageCategoryName: nil selectedMessageName: nil metaClassIndicated: nil classCommentIndicated: nil showSubClasses: true showSuperClass: false showSelectors: false subClasses: nil superClassReference: nil isSuperClassReference: false categoriesList: nil TamClassReference(TamListItemReference)>>selectingFrom: Receiver: [platypus-dev: /SqPlatypus-HW-tamaris/PlatypusSchemaElementReference] Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser tempEditor: nil editor: nil Receiver's instance variables: owner: [platypus-dev: /SqPlatypus-HW-tamaris] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil sysCatSymbol: nil itemClass: PlatypusSchemaElementReference messageCategoryName: nil selectedMessageName: nil metaClassIndicated: nil classCommentIndicated: nil showSubClasses: true showSuperClass: false showSelectors: false subClasses: nil superClassReference: nil isSuperClassReference: false categoriesList: nil TamListItemWrapper>>selectingFrom: Receiver: a TamListItemWrapper Arguments and temporary variables: aHierarchicalList: a TamBrowser Receiver's instance variables: item: [platypus-dev: /SqPlatypus-HW-tamaris/PlatypusSchemaElementReference] model: nil TamBrowser>>updateCodeRowFor: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelectionFromWrapper: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelection: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>setSelectedMorph: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: aMorph: a TamIndentingListItemMorph(647757824)'PlatypusSchemaElementReference' Receiver's instance variables: bounds: (154.0@81.0) corner: (712.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(590348288) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (712@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: nil getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 443.0 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>mouseUp: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [(276@565) mouseUp 24250095 nil] aMorph: a TamIndentingListItemMorph(647757824)'PlatypusSchemaElementReference' wasHigh: true Receiver's instance variables: bounds: (154.0@81.0) corner: (712.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(590348288) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (712@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: nil getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 443.0 TamHierarchicalListMorph>>mouseUp: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [(276@565) mouseUp 24250095 nil] Receiver's instance variables: bounds: (154.0@81.0) corner: (712.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(590348288) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (712@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: nil getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 443.0 TamHierarchicalListMorph(Morph)>>handleMouseUp: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (712.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(590348288) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (712@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: nil getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 443.0 MouseButtonEvent>>sentTo: Receiver: [(276@565) mouseUp 24250095 nil] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 24250095 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (276@565) handler: nil wasHandled: true whichButton: 4 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] Receiver's instance variables: bounds: (154.0@81.0) corner: (712.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(590348288) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (712@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: nil getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 443.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] Receiver's instance variables: bounds: (154.0@81.0) corner: (712.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(590348288) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (712@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: nil getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 443.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (276@565) corner: (292@581) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (276@565) corner: (292@581) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(276@565) mouseUp 24250095 nil] targetOffset: (122.0@484.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24250095 276 565 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) an O...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(276@565) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) an O...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (276@565) corner: (292@581) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (276@565) corner: (292@581) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(276@565) mouseUp 24250095 nil] targetOffset: (122.0@484.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24250095 276 565 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (276@565) corner: (292@581) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (276@565) corner: (292@581) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(276@565) mouseUp 24250095 nil] targetOffset: (122.0@484.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24250095 276 565 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] Receiver's instance variables: bounds: (276@565) corner: (292@581) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (276@565) corner: (292@581) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(276@565) mouseUp 24250095 nil] targetOffset: (122.0@484.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24250095 276 565 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(276@565) mouseUp 24250095 nil] evt: [(276@565) mouseUp 24250095 nil] ofs: nil Receiver's instance variables: bounds: (276@565) corner: (292@581) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (276@565) corner: (292@581) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(276@565) mouseUp 24250095 nil] targetOffset: (122.0@484.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24250095 276 565 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(276@565) mouseUp 24250095 nil] evtBuf: #(1 24250095 276 565 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (276@565) corner: (292@581) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (276@565) corner: (292@581) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(276@565) mouseUp 24250095 nil] targetOffset: (122.0@484.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24250095 276 565 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(1017905152)...etc... lastStepTime: 24250104 lastStepMessage: nil lastCycleTime: 24250206 alarms: a Heap() lastAlarmTime: 24250104 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(1017905152)...etc... lastStepTime: 24250104 lastStepMessage: nil lastCycleTime: 24250206 alarms: a Heap() lastAlarmTime: 24250104 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(1017905152)...etc... lastStepTime: 24250104 lastStepMessage: nil lastCycleTime: 24250206 alarms: a Heap() lastAlarmTime: 24250104 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(1017905152)...etc... lastStepTime: 24250104 lastStepMessage: nil lastCycleTime: 24250206 alarms: a Heap() lastAlarmTime: 24250104 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) an O...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- OBSystemBrowserAdaptor class(Object)>>doesNotUnderstand: #buildTamarisWindow TamClassReference>>newEditor TamClassReference(TamListItemReference)>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: TamBrowser>>noteNewSelection: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>setSelectedMorph: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>mouseUp: TamHierarchicalListMorph>>mouseUp: TamHierarchicalListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 30 October 2012 11:20:11.785 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusSchemaInstanceReference(Object)>>halt Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: StandardFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/Ph...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [self halt. fileStream nextPutAll: self codeString] Arguments and temporary variables: aBlock: [fileStream close] complete: nil returnValue: nil Receiver's instance variables: outerContext: [[self halt. fileStream nextPutAll: self codeString] ensure: [...etc... startpc: 124 numArgs: 0 [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: StandardFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/Ph...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSa...etc... startpc: 119 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r11000000000000000000 ...etc... Arguments and temporary variables: aBlock: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileSt...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileName: 'Platypus-schemata/cheddar/platypus-toolbox.exp' fileStream: StandardFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/Ph...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $s tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $s Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 24399249 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (241@90) handler: nil wasHandled: true keyValue: 115 charCode: 115 scanCode: 1 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (241@90) corner: (257@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (241@90) corner: (257@106) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(241@90) mouseOver nil nil] targetOffset: (87.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24397471 241 90 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (241@90) corner: (257@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (241@90) corner: (257@106) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(241@90) mouseOver nil nil] targetOffset: (87.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24397471 241 90 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (241@90) corner: (257@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (241@90) corner: (257@106) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(241@90) mouseOver nil nil] targetOffset: (87.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24397471 241 90 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (241@90) corner: (257@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (241@90) corner: (257@106) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(241@90) mouseOver nil nil] targetOffset: (87.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24397471 241 90 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (241@90) corner: (257@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (241@90) corner: (257@106) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(241@90) mouseOver nil nil] targetOffset: (87.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24397471 241 90 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 24399249 115 0 8 115 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (241@90) corner: (257@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (241@90) corner: (257@106) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(241@90) mouseOver nil nil] targetOffset: (87.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24397471 241 90 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OBSystemWindow(17039360))(an OBSyst...etc... lastStepTime: 24399365 lastStepMessage: nil lastCycleTime: 24399363 alarms: a Heap() lastAlarmTime: 24399365 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OBSystemWindow(17039360))(an OBSyst...etc... lastStepTime: 24399365 lastStepMessage: nil lastCycleTime: 24399363 alarms: a Heap() lastAlarmTime: 24399365 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OBSystemWindow(17039360))(an OBSyst...etc... lastStepTime: 24399365 lastStepMessage: nil lastCycleTime: 24399363 alarms: a Heap() lastAlarmTime: 24399365 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OBSystemWindow(17039360))(an OBSyst...etc... lastStepTime: 24399365 lastStepMessage: nil lastCycleTime: 24399363 alarms: a Heap() lastAlarmTime: 24399365 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PlatypusSchemaInstanceReference(Object)>>halt [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 30 October 2012 11:20:43.545 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusSchemaInstanceReference(Object)>>halt Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [self halt. fileStream nextPutAll: self codeString] Arguments and temporary variables: aBlock: [fileStream close] complete: nil returnValue: nil Receiver's instance variables: outerContext: [[self halt. fileStream nextPutAll: self codeString] ensure: [...etc... startpc: 124 numArgs: 0 [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSa...etc... startpc: 119 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r11000000000000000000 ...etc... Arguments and temporary variables: aBlock: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileSt...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileName: 'Platypus-schemata/cheddar/platypus-toolbox.exp' fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $s tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $s Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 24399249 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (241@90) handler: nil wasHandled: true keyValue: 115 charCode: 115 scanCode: 1 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (379@322) corner: (395@338) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(379@322) mouseUp 24430918 nil] targetOffset: (93.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24430918 379 322 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (379@322) corner: (395@338) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(379@322) mouseUp 24430918 nil] targetOffset: (93.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24430918 379 322 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (379@322) corner: (395@338) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(379@322) mouseUp 24430918 nil] targetOffset: (93.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24430918 379 322 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (379@322) corner: (395@338) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(379@322) mouseUp 24430918 nil] targetOffset: (93.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24430918 379 322 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (379@322) corner: (395@338) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(379@322) mouseUp 24430918 nil] targetOffset: (93.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24430918 379 322 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 24399249 115 0 8 115 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (379@322) corner: (395@338) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(379@322) mouseUp 24430918 nil] targetOffset: (93.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24430918 379 322 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(857210880...etc... lastStepTime: 24430918 lastStepMessage: nil lastCycleTime: 24430938 alarms: a Heap() lastAlarmTime: 24430918 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(857210880...etc... lastStepTime: 24430918 lastStepMessage: nil lastCycleTime: 24430938 alarms: a Heap() lastAlarmTime: 24430918 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(857210880...etc... lastStepTime: 24430918 lastStepMessage: nil lastCycleTime: 24430938 alarms: a Heap() lastAlarmTime: 24430918 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(857210880...etc... lastStepTime: 24430918 lastStepMessage: nil lastCycleTime: 24430938 alarms: a Heap() lastAlarmTime: 24430918 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PlatypusSchemaInstanceReference(Object)>>halt [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 30 October 2012 11:23:06.719 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusSchemaInstanceReference(Object)>>halt Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [self halt. fileStream nextPutAll: self codeString] Arguments and temporary variables: aBlock: [fileStream close] complete: nil returnValue: nil Receiver's instance variables: outerContext: [[self halt. fileStream nextPutAll: self codeString] ensure: [...etc... startpc: 124 numArgs: 0 [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSa...etc... startpc: 119 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r11000000000000000000 ...etc... Arguments and temporary variables: aBlock: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileSt...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileName: 'Platypus-schemata/cheddar/platypus-toolbox.exp' fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $s tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/express2ch...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $s Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 24574184 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (217@89) handler: nil wasHandled: true keyValue: 115 charCode: 115 scanCode: 1 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (217@89) corner: (233@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (217@89) corner: (233@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(217@89) mouseOver nil nil] targetOffset: (60.0@2.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24573627 217 89 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (217@89) corner: (233@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (217@89) corner: (233@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(217@89) mouseOver nil nil] targetOffset: (60.0@2.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24573627 217 89 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (217@89) corner: (233@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (217@89) corner: (233@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(217@89) mouseOver nil nil] targetOffset: (60.0@2.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24573627 217 89 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (217@89) corner: (233@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (217@89) corner: (233@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(217@89) mouseOver nil nil] targetOffset: (60.0@2.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24573627 217 89 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (217@89) corner: (233@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (217@89) corner: (233@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(217@89) mouseOver nil nil] targetOffset: (60.0@2.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24573627 217 89 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 24574184 115 0 8 115 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (217@89) corner: (233@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (217@89) corner: (233@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(217@89) mouseOver nil nil] targetOffset: (60.0@2.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24573627 217 89 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(942669824))(an Ove...etc... lastStepTime: 24574164 lastStepMessage: nil lastCycleTime: 24574184 alarms: a Heap() lastAlarmTime: 24574164 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(942669824))(an Ove...etc... lastStepTime: 24574164 lastStepMessage: nil lastCycleTime: 24574184 alarms: a Heap() lastAlarmTime: 24574164 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(942669824))(an Ove...etc... lastStepTime: 24574164 lastStepMessage: nil lastCycleTime: 24574184 alarms: a Heap() lastAlarmTime: 24574164 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(942669824))(an Ove...etc... lastStepTime: 24574164 lastStepMessage: nil lastCycleTime: 24574184 alarms: a Heap() lastAlarmTime: 24574164 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PlatypusSchemaInstanceReference(Object)>>halt [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 30 October 2012 11:23:31.376 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusSchemaInstanceReference(Object)>>halt Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [self halt. fileStream nextPutAll: self codeString] Arguments and temporary variables: aBlock: [fileStream close] complete: nil returnValue: nil Receiver's instance variables: outerContext: [[self halt. fileStream nextPutAll: self codeString] ensure: [...etc... startpc: 124 numArgs: 0 [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSa...etc... startpc: 119 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r11000000000000000000 ...etc... Arguments and temporary variables: aBlock: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileSt...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileName: 'Platypus-schemata/cheddar/platypus-toolbox.exp' fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $s tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/express2ch...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $s Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 24598796 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (252@93) handler: nil wasHandled: true keyValue: 115 charCode: 115 scanCode: 1 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (252@93) corner: (268@109) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (252@93) corner: (268@109) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(252@93) mouseOver nil nil] targetOffset: (98.0@12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24596849 252 93 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 8 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (252@93) corner: (268@109) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (252@93) corner: (268@109) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(252@93) mouseOver nil nil] targetOffset: (98.0@12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24596849 252 93 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (252@93) corner: (268@109) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (252@93) corner: (268@109) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(252@93) mouseOver nil nil] targetOffset: (98.0@12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24596849 252 93 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (252@93) corner: (268@109) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (252@93) corner: (268@109) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(252@93) mouseOver nil nil] targetOffset: (98.0@12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24596849 252 93 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (252@93) corner: (268@109) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (252@93) corner: (268@109) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(252@93) mouseOver nil nil] targetOffset: (98.0@12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24596849 252 93 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 24598796 115 0 8 115 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (252@93) corner: (268@109) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (252@93) corner: (268@109) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(252@93) mouseOver nil nil] targetOffset: (98.0@12.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24596849 252 93 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(358350848))(an Ove...etc... lastStepTime: 24598945 lastStepMessage: nil lastCycleTime: 24598945 alarms: a Heap() lastAlarmTime: 24598945 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(358350848))(an Ove...etc... lastStepTime: 24598945 lastStepMessage: nil lastCycleTime: 24598945 alarms: a Heap() lastAlarmTime: 24598945 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(358350848))(an Ove...etc... lastStepTime: 24598945 lastStepMessage: nil lastCycleTime: 24598945 alarms: a Heap() lastAlarmTime: 24598945 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(358350848))(an Ove...etc... lastStepTime: 24598945 lastStepMessage: nil lastCycleTime: 24598945 alarms: a Heap() lastAlarmTime: 24598945 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PlatypusSchemaInstanceReference(Object)>>halt [self halt. fileStream nextPutAll: self codeString] in [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: [[self halt. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 30 October 2012 11:24:36.502 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusSchemaInstanceReference(Object)>>halt Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream nextPutAll: self codeString] in [[self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream...etc... Arguments and temporary variables: aBlock: [fileStream close] complete: nil returnValue: nil Receiver's instance variables: outerContext: [[self halt. fileStream lineEndConvention: MultiByteFileStream l...etc... startpc: 132 numArgs: 0 [[self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>ensure: Receiver: [[self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStrea...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSa...etc... startpc: 127 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r11000000000000000000 ...etc... Arguments and temporary variables: aBlock: [[self halt. fileStream lineEndConvention: MultiByteFileStream lineEnd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: fileName: 'Platypus-schemata/cheddar/platypus-toolbox.exp' fileStream: MultiByteFileStream: '/Users/plantec/Desktop/platypus-cheddar-dev/P...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /platypus-toolbox] Arguments and temporary variables: aCharacter: $s aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /platypus-toolbox/express_diction...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $s tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/express2ch...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $s Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 24598796 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (252@93) handler: nil wasHandled: true keyValue: 115 charCode: 115 scanCode: 1 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(87293952)'platypus-toolbox' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 353.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (377@318) corner: (393@334) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(377@318) mouseUp 24663868 nil] targetOffset: (91.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24663868 377 318 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (377@318) corner: (393@334) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(377@318) mouseUp 24663868 nil] targetOffset: (91.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24663868 377 318 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (377@318) corner: (393@334) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(377@318) mouseUp 24663868 nil] targetOffset: (91.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24663868 377 318 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (377@318) corner: (393@334) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(377@318) mouseUp 24663868 nil] targetOffset: (91.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24663868 377 318 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (377@318) corner: (393@334) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(377@318) mouseUp 24663868 nil] targetOffset: (91.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24663868 377 318 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 24598796 115 0 8 115 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (377@318) corner: (393@334) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(377@318) mouseUp 24663868 nil] targetOffset: (91.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 24663868 377 318 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(569901056...etc... lastStepTime: 24663868 lastStepMessage: nil lastCycleTime: 24663888 alarms: a Heap() lastAlarmTime: 24663868 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(569901056...etc... lastStepTime: 24663868 lastStepMessage: nil lastCycleTime: 24663888 alarms: a Heap() lastAlarmTime: 24663868 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(569901056...etc... lastStepTime: 24663868 lastStepMessage: nil lastCycleTime: 24663888 alarms: a Heap() lastAlarmTime: 24663868 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(569901056...etc... lastStepTime: 24663868 lastStepMessage: nil lastCycleTime: 24663888 alarms: a Heap() lastAlarmTime: 24663868 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: nil color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PlatypusSchemaInstanceReference(Object)>>halt [self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream nextPutAll: self codeString] in [[self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: [[self halt. fileStream lineEndConvention: MultiByteFileStream lineEndDefault. fileStream nextPutAll: self codeString] ensure: [fileStream close]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuSave PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Error: default is multiply defined 31 October 2012 4:25:31.137 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] ClassBuilder(Object)>>error: Receiver: a ClassBuilder Arguments and temporary variables: aString: 'default is multiply defined' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>validateClassvars:from:forSuper: Receiver: a ClassBuilder Arguments and temporary variables: < Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass) ifFalse: [^ nil]. (self validateInstvars: instVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateClassvars: classVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateSubclassFormat: type from: oldClass forSuper: newSuper extra: instVars size) ifFalse: [^ nil]]. needNew := self needsSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. needNew ifNil: [^ nil]. (needNew and: [unsafe not]) ifTrue: [(self tooDangerousClasses includes: oldClass name) ifTrue: [self error: oldClass name , ' cannot be changed']. (oldClass ~~ nil and: [oldClass shouldNotBeRedefined]) ifTrue: [self notify: oldClass name asText allBold , ' should not be redefined. \Proceed to store over it.' withCRs]]. needNew ifTrue: [newClass := self newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. newClass ifNil: [^ nil]. newClass setName: className] ifFalse: [newClass := oldClass]. force := (newClass declare: classVarString) | (newClass sharing: poolString). newCategory := category asSymbol. organization := environ ifNotNil: [environ organization]. oldClass isNil ifFalse: [oldCategory := (organization categoryOfElement: oldClass name) asSymbol]. organization classify: newClass name under: newCategory. newClass environment: environ. newClass := self recompile: force from: oldClass to: newClass mutate: false. (environ at: newClass name ifAbsent: []) == newClass ifFalse: [environ at: newClass name put: newClass. Smalltalk globals flushClassNameCache]. copyOfOldTraitComposition ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition]. copyOfOldClassTraitComposition ifNotNil: [newClass class setTraitComposition: copyOfOldClassTraitComposition]. newClass doneCompiling. oldClass isNil ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass inCategory: newCategory. ^ newClass]. newCategory ~= oldCategory ifTrue: [SystemChangeNotifier uniqueInstance class: newClass recategorizedFrom: oldCategory to: category] ifFalse: [SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass]] in ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable newSuper: PltDictionaryInstance type: #normal classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' unsafe: false oldClass: PltAnonymousVariable instVars: #('domain') classVars: #(#default #default) copyOfOldClass: PltAnonymousVariable copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: #(nil) newCategory: nil oldCategory: nil needNew: nil force: nil organization: nil Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil BlockClosure>>ensure: Receiver: [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateS...etc... Arguments and temporary variables: aBlock: [copyOfOldClass ifNotNil: [copyOfOldClass superclass removeSubclass: ...etc... complete: nil returnValue: nil Receiver's instance variables: outerContext: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariable...etc... startpc: 376 numArgs: 0 ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable env: a SystemDictionary(lots of globals) newSuper: PltDictionaryInstance type: #normal instVarString: 'domain' classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' unsafe: false oldClass: PltAnonymousVariable instVars: #('domain') classVars: #(#default #default) copyOfOldClass: PltAnonymousVariable copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: #(nil) Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable env: a SystemDictionary(lots of globals) newSuper: PltDictionaryInstance type: #normal instVarString: 'domain' classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>superclass:subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: newSuper: PltDictionaryInstance t: #PltAnonymousVariable f: 'domain' d: 'default default' s: '' cat: 'Platypus-PlatypusStatementsSchemaSchema' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil PltDictionaryInstance class(Class)>>subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: PltDictionaryInstance Arguments and temporary variables: t: #PltAnonymousVariable f: 'domain' d: 'default default' s: '' cat: 'Platypus-PlatypusStatementsSchemaSchema' class: nil Receiver's instance variables: superclass: PltSdaiInstance methodDict: a MethodDictionary(#accept:->(PltDictionaryInstance>>#accept: "a Co...etc... format: 132 instanceVariables: nil organization: ('platypus-generated-visiting' accept:) ('platypus-generated-copy...etc... subclasses: an Array(PltAggregateInitializerDomain PltAggregateInitializerEleme...etc... name: #PltDictionaryInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-PlatypusDictionarySchemaSchema' traitComposition: {} localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ PltDictionaryInstance subclass: #PltAnonymousVariable i...etc... method: (UndefinedObject>>#DoIt "a CompiledMethod(1071120384)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceVariable...etc... Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (840@475) argMinVal: 0 argMaxVal: 943650 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (840@475) minVal: 0 maxVal: 943650 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 943650 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/express2ch...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(1060896768)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(1060896768)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 15293728 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (220@116) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(1060896768)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 --- The full stack --- ClassBuilder(Object)>>error: ClassBuilder>>validateClassvars:from:forSuper: [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass) ifFalse: [^ nil]. (self validateInstvars: instVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateClassvars: classVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateSubclassFormat: type from: oldClass forSuper: newSuper extra: instVars size) ifFalse: [^ nil]]. needNew := self needsSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. needNew ifNil: [^ nil]. (needNew and: [unsafe not]) ifTrue: [(self tooDangerousClasses includes: oldClass name) ifTrue: [self error: oldClass name , ' cannot be changed']. (oldClass ~~ nil and: [oldClass shouldNotBeRedefined]) ifTrue: [self notify: oldClass name asText allBold , ' should not be redefined. \Proceed to store over it.' withCRs]]. needNew ifTrue: [newClass := self newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. newClass ifNil: [^ nil]. newClass setName: className] ifFalse: [newClass := oldClass]. force := (newClass declare: classVarString) | (newClass sharing: poolString). newCategory := category asSymbol. organization := environ ifNotNil: [environ organization]. oldClass isNil ifFalse: [oldCategory := (organization categoryOfElement: oldClass name) asSymbol]. organization classify: newClass name under: newCategory. newClass environment: environ. newClass := self recompile: force from: oldClass to: newClass mutate: false. (environ at: newClass name ifAbsent: []) == newClass ifFalse: [environ at: newClass name put: newClass. Smalltalk globals flushClassNameCache]. copyOfOldTraitComposition ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition]. copyOfOldClassTraitComposition ifNotNil: [newClass class setTraitComposition: copyOfOldClassTraitComposition]. newClass doneCompiling. oldClass isNil ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass inCategory: newCategory. ^ newClass]. newCategory ~= oldCategory ifTrue: [SystemChangeNotifier uniqueInstance class: newClass recategorizedFrom: oldCategory to: category] ifFalse: [SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass]] in ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: BlockClosure>>ensure: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: ClassBuilder>>superclass:subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: PltDictionaryInstance class(Class)>>subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "generatedSystemCategoryReference" is nil 31 October 2012 4:30:15.448 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference Receiver: nil Arguments and temporary variables: aMessage: generatedSystemCategoryReference exception: MessageNotUnderstood: receiver of "generatedSystemCategoryReference"...etc... resumeValue: nil Receiver's instance variables: nil [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryReference. sub ifNotNil: [taxonRef insertReferenceSilently: sub]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: taxonRef: a PltSchemaDefinition isch: [: //Platypus_meta_schemas generated cod...etc... sub: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() OrderedCollection>>do: Receiver: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefinition a P...etc... Arguments and temporary variables: aBlock: [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryRef...etc... index: 1 Receiver's instance variables: array: an Array(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefiniti...etc... firstIndex: 1 lastIndex: 6 PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: taxonRef: [: //Platypus_meta_schemas generated...etc... rscr: [: //Platypus_meta_schemas generated cod...etc... founds: an OrderedCollection() Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/express2ch...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(542638080)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(542638080)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 15293728 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (220@116) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(542638080)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (438.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (438@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(542638080)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (856@567) corner: (872@583) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(856@567) mouseOver nil nil] targetOffset: (91.0@5.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 15704080 381 314 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (856@567) corner: (872@583) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(856@567) mouseOver nil nil] targetOffset: (91.0@5.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 15704080 381 314 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (856@567) corner: (872@583) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(856@567) mouseOver nil nil] targetOffset: (91.0@5.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 15704080 381 314 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (856@567) corner: (872@583) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(856@567) mouseOver nil nil] targetOffset: (91.0@5.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 15704080 381 314 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (856@567) corner: (872@583) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(856@567) mouseOver nil nil] targetOffset: (91.0@5.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 15704080 381 314 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 15293728 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (856@567) corner: (872@583) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(856@567) mouseOver nil nil] targetOffset: (91.0@5.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 15704080 381 314 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(1028390912))(an Ov...etc... lastStepTime: 15757144 lastStepMessage: nil lastCycleTime: 15757144 alarms: a Heap() lastAlarmTime: 15757144 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(1028390912))(an Ov...etc... lastStepTime: 15757144 lastStepMessage: nil lastCycleTime: 15757144 alarms: a Heap() lastAlarmTime: 15757144 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(1028390912))(an Ov...etc... lastStepTime: 15757144 lastStepMessage: nil lastCycleTime: 15757144 alarms: a Heap() lastAlarmTime: 15757144 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(1028390912))(an Ov...etc... lastStepTime: 15757144 lastStepMessage: nil lastCycleTime: 15757144 alarms: a Heap() lastAlarmTime: 15757144 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a Sy...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryReference. sub ifNotNil: [taxonRef insertReferenceSilently: sub]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 31 October 2012 4:32:48.663 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_di...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'entity_definition_reference' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1440'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1440'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1440' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1348'] a PltRedef...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1440'] a PltInternalRepresentation['2018...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1440'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2347 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T16:32:48.532000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T16:32:48.532000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T16:32:48.532000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: nil modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: nil modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltSchemaInstance>>checks 31 October 2012 4:34:06.152 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PltSchemaInstance(Object)>>doesNotUnderstand: #checks Receiver: a PltSchemaInstance Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PltSchemaInstance>>checks resumeValue: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T16:34:06.081+00:00' changeDate: '2012-10-31T16:34:06.081000001+00:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 209) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'Platypus_meta_schemas' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_meta_schemas] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>DoIt Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusInternalMetaSchemaInstanceReference aRequestor: a TextMorphForEditView(1070596096) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializeExpressMetaDictionary method: (PlatypusInternalMetaSchemaInstanceReference class>>#DoIt "a CompiledMe...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(1070596096) class: PlatypusInternalMetaSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1070596096) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1070596096) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(1070596096) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(129499136) Arguments and temporary variables: Receiver's instance variables: bounds: (550.0@418.0) corner: (1649.0@831.0) owner: an AlignmentMorph(706740224) submorphs: an Array(a TransformMorph(386924544)) fullBounds: (550@418) corner: (1649@831) color: Color white extension: a MorphExtension (1049362432) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(157286400) scroller: a TransformMorph(386924544) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(273154048) textMorph: a TextMorphForEditView(1070596096) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(129499136) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (550.0@418.0) corner: (1649.0@831.0) owner: an AlignmentMorph(706740224) submorphs: an Array(a TransformMorph(386924544)) fullBounds: (550@418) corner: (1649@831) color: Color white extension: a MorphExtension (1049362432) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(157286400) scroller: a TransformMorph(386924544) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(273154048) textMorph: a TextMorphForEditView(1070596096) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(1070596096) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (1093@146) owner: a TransformMorph(386924544) submorphs: #() fullBounds: (0@0) corner: (1093@146) color: Color black extension: a MorphExtension (79429632) [other: (myDependents -> a DependentsAr...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionary "self initializeExpressMetaD...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(129499136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(129499136) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (550.0@418.0) corner: (1649.0@831.0) owner: an AlignmentMorph(706740224) submorphs: an Array(a TransformMorph(386924544)) fullBounds: (550@418) corner: (1649@831) color: Color white extension: a MorphExtension (1049362432) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(157286400) scroller: a TransformMorph(386924544) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(273154048) textMorph: a TextMorphForEditView(1070596096) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(129499136) Arguments and temporary variables: Receiver's instance variables: bounds: (550.0@418.0) corner: (1649.0@831.0) owner: an AlignmentMorph(706740224) submorphs: an Array(a TransformMorph(386924544)) fullBounds: (550@418) corner: (1649@831) color: Color white extension: a MorphExtension (1049362432) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(157286400) scroller: a TransformMorph(386924544) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(273154048) textMorph: a TextMorphForEditView(1070596096) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(129499136) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(129499136) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(129499136) secondArg: a PluggableTextMorph(129499136) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(129499136) secondArg: a PluggableTextMorph(129499136) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(129499136) category: a KMCategory morph: a PluggableTextMorph(129499136) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(129499136) category: a KMCategory morph: a PluggableTextMorph(129499136) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(129499136) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 6 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil nil nil nil a KMCategoryTarget a KMCategoryTarget a KMCateg...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(129499136) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(129499136) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(129499136) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(129499136) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (550.0@418.0) corner: (1649.0@831.0) owner: an AlignmentMorph(706740224) submorphs: an Array(a TransformMorph(386924544)) fullBounds: (550@418) corner: (1649@831) color: Color white extension: a MorphExtension (1049362432) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(157286400) scroller: a TransformMorph(386924544) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(273154048) textMorph: a TextMorphForEditView(1070596096) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(386924544) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(386924544) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(386924544) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (550@418) corner: (1649@831) owner: a PluggableTextMorph(129499136) submorphs: an Array(a TextMorphForEditView(1070596096)) fullBounds: (550@418) corner: (1649@831) color: Color transparent extension: a MorphExtension (394264576) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-553@ -418)) smoothing: 1 localBounds: (0@0) corner: (1093@146) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TextMorphForEditView(1070596096) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TextMorphForEditView(1070596096) directKeymaps: a KMCategory TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: Receiver: a TextMorphForEditView(1070596096) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (1093@146) owner: a TransformMorph(386924544) submorphs: #() fullBounds: (0@0) corner: (1093@146) color: Color black extension: a MorphExtension (79429632) [other: (myDependents -> a DependentsAr...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionary "self initializeExpressMetaD...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(129499136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a TextMorphForEditView(1070596096) Arguments and temporary variables: anEvent: [keystroke ''] pasteUp: nil Receiver's instance variables: bounds: (0@0) corner: (1093@146) owner: a TransformMorph(386924544) submorphs: #() fullBounds: (0@0) corner: (1093@146) color: Color black extension: a MorphExtension (79429632) [other: (myDependents -> a DependentsAr...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionary "self initializeExpressMetaD...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(129499136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PltSchemaInstance(Object)>>doesNotUnderstand: #checks PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary PlatypusInternalMetaSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusInternalPrimitiveSchemaInstanceReference>>checks 31 October 2012 4:35:42.623 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] PlatypusInternalPrimitiveSchemaInstanceReference(Object)>>doesNotUnderstand: #checks Receiver: [: //Platypus_Express_primitives] Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PlatypusInternalPrimitiveSchemaInstanceReferen...etc... resumeValue: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() identifiersCache: nil namedTypesCache: nil PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionary Receiver: PlatypusInternalPrimitiveSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_Express_primitives] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalPrimitiveSchemaInstanceR...etc... format: 156 instanceVariables: #('identifiersCache' 'namedTypesCache') organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalPrimitiveSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-VW-Compatibility' traitComposition: {} localSelectors: nil PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionaryIfNeeded Receiver: PlatypusInternalPrimitiveSchemaInstanceReference Arguments and temporary variables: candidats: an OrderedCollection() Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalPrimitiveSchemaInstanceR...etc... format: 156 instanceVariables: #('identifiersCache' 'namedTypesCache') organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalPrimitiveSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-VW-Compatibility' traitComposition: {} localSelectors: nil PlatypusSchemaInstanceReference class>>initializePlatypusMetaSchemataIfNeeded Receiver: PlatypusSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusExpressReference methodDict: a MethodDictionary(size 101) format: 152 instanceVariables: #('schemaInstance' 'tokenList' 'modelContentsReferences') organization: ('drag and drop' acceptDroppingMorph:copy: insertLinkableListItem...etc... subclasses: {PlatypusInternalMetaSchemaInstanceReference. PlatypusInternalPrimi...etc... name: #PlatypusSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusSchemaInstanceReference class>>DoIt Receiver: PlatypusSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusExpressReference methodDict: a MethodDictionary(size 101) format: 152 instanceVariables: #('schemaInstance' 'tokenList' 'modelContentsReferences') organization: ('drag and drop' acceptDroppingMorph:copy: insertLinkableListItem...etc... subclasses: {PlatypusInternalMetaSchemaInstanceReference. PlatypusInternalPrimi...etc... name: #PlatypusSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusSchemaInstanceReference aRequestor: a TextMorphForEditView(979894272) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializePlatypusMetaSchemataIfNeeded method: (PlatypusSchemaInstanceReference class>>#DoIt "a CompiledMethod(1777336...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(979894272) class: PlatypusSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(979894272) selectionShowing: true model: a FlatMessageListBrowser editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(979894272) selectionShowing: true model: a FlatMessageListBrowser editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(979894272) selectionShowing: true model: a FlatMessageListBrowser editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(1049100288) Arguments and temporary variables: Receiver's instance variables: bounds: (50.0@407.0) corner: (600.0@673.0) owner: a StandardWindow(895221760) submorphs: an Array(a TransformMorph(238026752)) fullBounds: (50@407) corner: (600@673) color: Color white extension: a MorphExtension (958660608) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a FlatMessageListBrowser open: false accessor: nil scrollBar: a ScrollBar(3145728) scroller: a TransformMorph(238026752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #msgPaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(124256256) textMorph: a TextMorphForEditView(979894272) getTextSelector: #textToDisplay setTextSelector: #compileMethod:notifying: getSelectionSelector: #highlightSearchedString hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (87 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(1049100288) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (50.0@407.0) corner: (600.0@673.0) owner: a StandardWindow(895221760) submorphs: an Array(a TransformMorph(238026752)) fullBounds: (50@407) corner: (600@673) color: Color white extension: a MorphExtension (958660608) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a FlatMessageListBrowser open: false accessor: nil scrollBar: a ScrollBar(3145728) scroller: a TransformMorph(238026752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #msgPaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(124256256) textMorph: a TextMorphForEditView(979894272) getTextSelector: #textToDisplay setTextSelector: #compileMethod:notifying: getSelectionSelector: #highlightSearchedString hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (87 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(979894272) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (542@98) owner: a TransformMorph(238026752) submorphs: #() fullBounds: (0@0) corner: (542@98) color: Color black extension: a MorphExtension (1062469632) [other: (myDependents -> a Dependents...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializePlatypusMetaSchemataIfNeeded "self initializePlaty...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(1049100288) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(1049100288) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (50.0@407.0) corner: (600.0@673.0) owner: a StandardWindow(895221760) submorphs: an Array(a TransformMorph(238026752)) fullBounds: (50@407) corner: (600@673) color: Color white extension: a MorphExtension (958660608) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a FlatMessageListBrowser open: false accessor: nil scrollBar: a ScrollBar(3145728) scroller: a TransformMorph(238026752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #msgPaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(124256256) textMorph: a TextMorphForEditView(979894272) getTextSelector: #textToDisplay setTextSelector: #compileMethod:notifying: getSelectionSelector: #highlightSearchedString hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (87 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(1049100288) Arguments and temporary variables: Receiver's instance variables: bounds: (50.0@407.0) corner: (600.0@673.0) owner: a StandardWindow(895221760) submorphs: an Array(a TransformMorph(238026752)) fullBounds: (50@407) corner: (600@673) color: Color white extension: a MorphExtension (958660608) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a FlatMessageListBrowser open: false accessor: nil scrollBar: a ScrollBar(3145728) scroller: a TransformMorph(238026752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #msgPaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(124256256) textMorph: a TextMorphForEditView(979894272) getTextSelector: #textToDisplay setTextSelector: #compileMethod:notifying: getSelectionSelector: #highlightSearchedString hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (87 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(1049100288) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(1049100288) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(1049100288) secondArg: a PluggableTextMorph(1049100288) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(1049100288) secondArg: a PluggableTextMorph(1049100288) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(1049100288) category: a KMCategory morph: a PluggableTextMorph(1049100288) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(1049100288) category: a KMCategory morph: a PluggableTextMorph(1049100288) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1049100288) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 1 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(a KMCategoryTarget nil nil a KMCategoryTarget a KMCategoryTarge...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1049100288) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1049100288) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1049100288) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(1049100288) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (50.0@407.0) corner: (600.0@673.0) owner: a StandardWindow(895221760) submorphs: an Array(a TransformMorph(238026752)) fullBounds: (50@407) corner: (600@673) color: Color white extension: a MorphExtension (958660608) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a FlatMessageListBrowser open: false accessor: nil scrollBar: a ScrollBar(3145728) scroller: a TransformMorph(238026752) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #msgPaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(124256256) textMorph: a TextMorphForEditView(979894272) getTextSelector: #textToDisplay setTextSelector: #compileMethod:notifying: getSelectionSelector: #highlightSearchedString hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (87 to: 86) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(238026752) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(238026752) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(238026752) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (51@408) corner: (599@672) owner: a PluggableTextMorph(1049100288) submorphs: an Array(a TextMorphForEditView(979894272)) fullBounds: (51@408) corner: (599@672) color: Color transparent extension: a MorphExtension (245366784) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-54@ -408)) smoothing: 1 localBounds: (0@0) corner: (542@98) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TextMorphForEditView(979894272) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TextMorphForEditView(979894272) directKeymaps: a KMCategory --- The full stack --- PlatypusInternalPrimitiveSchemaInstanceReference(Object)>>doesNotUnderstand: #checks PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionary PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionaryIfNeeded PlatypusSchemaInstanceReference class>>initializePlatypusMetaSchemataIfNeeded PlatypusSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Error: default is multiply defined 31 October 2012 4:39:52.738 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] ClassBuilder(Object)>>error: Receiver: a ClassBuilder Arguments and temporary variables: aString: 'default is multiply defined' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>validateClassvars:from:forSuper: Receiver: a ClassBuilder Arguments and temporary variables: < Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass) ifFalse: [^ nil]. (self validateInstvars: instVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateClassvars: classVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateSubclassFormat: type from: oldClass forSuper: newSuper extra: instVars size) ifFalse: [^ nil]]. needNew := self needsSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. needNew ifNil: [^ nil]. (needNew and: [unsafe not]) ifTrue: [(self tooDangerousClasses includes: oldClass name) ifTrue: [self error: oldClass name , ' cannot be changed']. (oldClass ~~ nil and: [oldClass shouldNotBeRedefined]) ifTrue: [self notify: oldClass name asText allBold , ' should not be redefined. \Proceed to store over it.' withCRs]]. needNew ifTrue: [newClass := self newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. newClass ifNil: [^ nil]. newClass setName: className] ifFalse: [newClass := oldClass]. force := (newClass declare: classVarString) | (newClass sharing: poolString). newCategory := category asSymbol. organization := environ ifNotNil: [environ organization]. oldClass isNil ifFalse: [oldCategory := (organization categoryOfElement: oldClass name) asSymbol]. organization classify: newClass name under: newCategory. newClass environment: environ. newClass := self recompile: force from: oldClass to: newClass mutate: false. (environ at: newClass name ifAbsent: []) == newClass ifFalse: [environ at: newClass name put: newClass. Smalltalk globals flushClassNameCache]. copyOfOldTraitComposition ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition]. copyOfOldClassTraitComposition ifNotNil: [newClass class setTraitComposition: copyOfOldClassTraitComposition]. newClass doneCompiling. oldClass isNil ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass inCategory: newCategory. ^ newClass]. newCategory ~= oldCategory ifTrue: [SystemChangeNotifier uniqueInstance class: newClass recategorizedFrom: oldCategory to: category] ifFalse: [SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass]] in ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable newSuper: PltDictionaryInstance type: #normal classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' unsafe: false oldClass: PltAnonymousVariable instVars: #('domain') classVars: #(#default #default) copyOfOldClass: PltAnonymousVariable copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: #(nil) newCategory: nil oldCategory: nil needNew: nil force: nil organization: nil Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil BlockClosure>>ensure: Receiver: [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateS...etc... Arguments and temporary variables: aBlock: [copyOfOldClass ifNotNil: [copyOfOldClass superclass removeSubclass: ...etc... complete: nil returnValue: nil Receiver's instance variables: outerContext: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariable...etc... startpc: 376 numArgs: 0 ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable env: a SystemDictionary(lots of globals) newSuper: PltDictionaryInstance type: #normal instVarString: 'domain' classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' unsafe: false oldClass: PltAnonymousVariable instVars: #('domain') classVars: #(#default #default) copyOfOldClass: PltAnonymousVariable copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: #(nil) Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable env: a SystemDictionary(lots of globals) newSuper: PltDictionaryInstance type: #normal instVarString: 'domain' classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>superclass:subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: newSuper: PltDictionaryInstance t: #PltAnonymousVariable f: 'domain' d: 'default default' s: '' cat: 'Platypus-PlatypusStatementsSchemaSchema' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil PltDictionaryInstance class(Class)>>subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: PltDictionaryInstance Arguments and temporary variables: t: #PltAnonymousVariable f: 'domain' d: 'default default' s: '' cat: 'Platypus-PlatypusStatementsSchemaSchema' class: nil Receiver's instance variables: superclass: PltSdaiInstance methodDict: a MethodDictionary(#accept:->(PltDictionaryInstance>>#accept: "a Co...etc... format: 132 instanceVariables: nil organization: ('platypus-generated-visiting' accept:) ('platypus-generated-copy...etc... subclasses: an Array(PltAggregateInitializerDomain PltAggregateInitializerEleme...etc... name: #PltDictionaryInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-PlatypusDictionarySchemaSchema' traitComposition: {} localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ PltDictionaryInstance subclass: #PltAnonymousVariable i...etc... method: (UndefinedObject>>#DoIt "a CompiledMethod(132907008)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceVariable...etc... Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (840@475) argMinVal: 0 argMaxVal: 943650 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 943650 minVal: 0 aPoint: (840@475) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (840@475) minVal: 0 maxVal: 943650 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 943650 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 431037 readLimit: 943650 writeLimit: 943650 PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a TamHierarchicalListTransformMorph(817889280)) fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(280756224)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a TamHierarchicalListTransformMorph(817889280)) fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(280756224)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 16147352 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (224@118) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a TamHierarchicalListTransformMorph(817889280)) fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(280756224)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 --- The full stack --- ClassBuilder(Object)>>error: ClassBuilder>>validateClassvars:from:forSuper: [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass) ifFalse: [^ nil]. (self validateInstvars: instVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateClassvars: classVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateSubclassFormat: type from: oldClass forSuper: newSuper extra: instVars size) ifFalse: [^ nil]]. needNew := self needsSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. needNew ifNil: [^ nil]. (needNew and: [unsafe not]) ifTrue: [(self tooDangerousClasses includes: oldClass name) ifTrue: [self error: oldClass name , ' cannot be changed']. (oldClass ~~ nil and: [oldClass shouldNotBeRedefined]) ifTrue: [self notify: oldClass name asText allBold , ' should not be redefined. \Proceed to store over it.' withCRs]]. needNew ifTrue: [newClass := self newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. newClass ifNil: [^ nil]. newClass setName: className] ifFalse: [newClass := oldClass]. force := (newClass declare: classVarString) | (newClass sharing: poolString). newCategory := category asSymbol. organization := environ ifNotNil: [environ organization]. oldClass isNil ifFalse: [oldCategory := (organization categoryOfElement: oldClass name) asSymbol]. organization classify: newClass name under: newCategory. newClass environment: environ. newClass := self recompile: force from: oldClass to: newClass mutate: false. (environ at: newClass name ifAbsent: []) == newClass ifFalse: [environ at: newClass name put: newClass. Smalltalk globals flushClassNameCache]. copyOfOldTraitComposition ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition]. copyOfOldClassTraitComposition ifNotNil: [newClass class setTraitComposition: copyOfOldClassTraitComposition]. newClass doneCompiling. oldClass isNil ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass inCategory: newCategory. ^ newClass]. newCategory ~= oldCategory ifTrue: [SystemChangeNotifier uniqueInstance class: newClass recategorizedFrom: oldCategory to: category] ifFalse: [SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass]] in ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: BlockClosure>>ensure: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: ClassBuilder>>superclass:subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: PltDictionaryInstance class(Class)>>subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "generatedSystemCategoryReference" is nil 31 October 2012 4:56:21.774 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference Receiver: nil Arguments and temporary variables: aMessage: generatedSystemCategoryReference exception: MessageNotUnderstood: receiver of "generatedSystemCategoryReference"...etc... resumeValue: nil Receiver's instance variables: nil [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryReference. sub ifNotNil: [taxonRef insertReferenceSilently: sub]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: taxonRef: a PltSchemaDefinition isch: [: //Platypus_meta_schemas generated cod...etc... sub: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() OrderedCollection>>do: Receiver: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefinition a P...etc... Arguments and temporary variables: aBlock: [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryRef...etc... index: 1 Receiver's instance variables: array: an Array(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefiniti...etc... firstIndex: 1 lastIndex: 6 PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: taxonRef: [: //Platypus_meta_schemas generated...etc... rscr: [: //Platypus_meta_schemas generated cod...etc... founds: an OrderedCollection() Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(961806336)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(961806336)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 16147352 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (224@118) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(961806336)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(961806336)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (388@324) corner: (404@340) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(388@324) mouseOver nil nil] targetOffset: (102.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17263495 388 324 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (388@324) corner: (404@340) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(388@324) mouseOver nil nil] targetOffset: (102.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17263495 388 324 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (388@324) corner: (404@340) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(388@324) mouseOver nil nil] targetOffset: (102.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17263495 388 324 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (388@324) corner: (404@340) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(388@324) mouseOver nil nil] targetOffset: (102.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17263495 388 324 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (388@324) corner: (404@340) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(388@324) mouseOver nil nil] targetOffset: (102.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17263495 388 324 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 16147352 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (388@324) corner: (404@340) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(388@324) mouseOver nil nil] targetOffset: (102.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17263495 388 324 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(759169024))(an Ove...etc... lastStepTime: 17323427 lastStepMessage: nil lastCycleTime: 17323427 alarms: a Heap() lastAlarmTime: 17323427 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(759169024))(an Ove...etc... lastStepTime: 17323454 lastStepMessage: nil lastCycleTime: 17323454 alarms: a Heap() lastAlarmTime: 17323454 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(759169024))(an Ove...etc... lastStepTime: 17323454 lastStepMessage: nil lastCycleTime: 17323454 alarms: a Heap() lastAlarmTime: 17323454 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(759169024))(an Ove...etc... lastStepTime: 17323454 lastStepMessage: nil lastCycleTime: 17323454 alarms: a Heap() lastAlarmTime: 17323454 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryReference. sub ifNotNil: [taxonRef insertReferenceSilently: sub]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "generatedSystemCategoryReference" is nil 31 October 2012 5:08:17.801 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference Receiver: nil Arguments and temporary variables: aMessage: generatedSystemCategoryReference exception: MessageNotUnderstood: receiver of "generatedSystemCategoryReference"...etc... resumeValue: nil Receiver's instance variables: nil Message>>sentTo: Receiver: generatedSystemCategoryReference Arguments and temporary variables: receiver: nil Receiver's instance variables: selector: #generatedSystemCategoryReference args: #() lookupClass: UndefinedObject UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference Receiver: nil Arguments and temporary variables: aMessage: generatedSystemCategoryReference exception: MessageNotUnderstood: receiver of "generatedSystemCategoryReference"...etc... resumeValue: MessageNotUnderstood: receiver of "generatedSystemCategoryReferenc...etc... Receiver's instance variables: nil [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryReference. sub ifNotNil: [taxonRef insertReferenceSilently: sub]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [A released Tamaris reference] Arguments and temporary variables: taxonRef: a PltSchemaDefinition isch: [: //Platypus_meta_schemas generated cod...etc... sub: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil OrderedCollection>>do: Receiver: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefinition a P...etc... Arguments and temporary variables: aBlock: [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryRef...etc... index: 1 Receiver's instance variables: array: an Array(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefiniti...etc... firstIndex: 1 lastIndex: 6 PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [A released Tamaris reference] Arguments and temporary variables: taxonRef: [: //Platypus_meta_schemas generated...etc... rscr: [: //Platypus_meta_schemas generated cod...etc... founds: an OrderedCollection() Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [A released Tamaris reference] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [A released Tamaris reference] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [A released Tamaris reference] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(94109696)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(94109696)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 16147352 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (224@118) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(94109696)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(94109696)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (344@325) corner: (360@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (344@325) corner: (360@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(344@325) mouseOver nil nil] targetOffset: (58.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18039204 344 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (344@325) corner: (360@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (344@325) corner: (360@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(344@325) mouseOver nil nil] targetOffset: (58.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18039204 344 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (344@325) corner: (360@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (344@325) corner: (360@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(344@325) mouseOver nil nil] targetOffset: (58.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18039204 344 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (344@325) corner: (360@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (344@325) corner: (360@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(344@325) mouseOver nil nil] targetOffset: (58.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18039204 344 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (344@325) corner: (360@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (344@325) corner: (360@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(344@325) mouseOver nil nil] targetOffset: (58.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18039204 344 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 16147352 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (344@325) corner: (360@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (344@325) corner: (360@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(344@325) mouseOver nil nil] targetOffset: (58.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18039204 344 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(1028390912))(an Ov...etc... lastStepTime: 18039460 lastStepMessage: nil lastCycleTime: 18039458 alarms: a Heap() lastAlarmTime: 18039460 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(1028390912))(an Ov...etc... lastStepTime: 18039460 lastStepMessage: nil lastCycleTime: 18039458 alarms: a Heap() lastAlarmTime: 18039460 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(421003264))(an Ove...etc... lastStepTime: 18039487 lastStepMessage: nil lastCycleTime: 18039487 alarms: a Heap() lastAlarmTime: 18039487 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(421003264))(an Ove...etc... lastStepTime: 18039487 lastStepMessage: nil lastCycleTime: 18039487 alarms: a Heap() lastAlarmTime: 18039487 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference Message>>sentTo: UndefinedObject(Object)>>doesNotUnderstand: #generatedSystemCategoryReference [:isch | | sub | sub := isch tamarisItemRef generatedSystemCategoryReference. sub ifNotNil: [taxonRef insertReferenceSilently: sub]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "rootClassSystemCategory" is nil 31 October 2012 5:08:37.13 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #rootClassSystemCategory Receiver: nil Arguments and temporary variables: aMessage: rootClassSystemCategory exception: MessageNotUnderstood: receiver of "rootClassSystemCategory" is nil resumeValue: nil Receiver's instance variables: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>generatedRootClassSystemCategory Receiver: [A released Tamaris reference] Arguments and temporary variables: Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>generatedRootClassSystemCategoryExists Receiver: [A released Tamaris reference] Arguments and temporary variables: Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>generatedRootClassSystemCategoryReference Receiver: [A released Tamaris reference] Arguments and temporary variables: Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [A released Tamaris reference] Arguments and temporary variables: taxonRef: [: //??? generated code] rscr: nil founds: an OrderedCollection() Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [A released Tamaris reference] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [A released Tamaris reference] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [A released Tamaris reference] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: nil subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: nil interactiveCallArguments: nil schemaInstance: nil tokenList: nil modelContentsReferences: nil TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(563347456) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(563347456) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(423362560) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(105906176) listMorph: a TamHierarchicalListMorph(563347456) editorRow: a TamPaneMorph(420478976) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([A released Tamaris reference]->a Tam...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: 56 localWorkspacePaneMorph: a PluggableTextMorph(2359296) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(292290560) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(972029952)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(972029952)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(563347456) Receiver's instance variables: timeStamp: 16147352 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (224@118) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(972029952)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(563347456) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (154.0@81.0) corner: (545.0@780.0) owner: a TamPaneMorph(488374272) submorphs: an Array(a ScrollBar(704118784) a TamHierarchicalListTransformMorph(...etc... fullBounds: (154@81) corner: (545@780) color: Color white extension: a MorphExtension (820772864) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(590348288) scroller: a TamHierarchicalListTransformMorph(817889280) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(704118784) selectedMorph: a TamIndentingListItemMorph(972029952)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 396.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) result: #(nil) Receiver's instance variables: bounds: (386@325) corner: (402@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (386@325) corner: (402@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(386@325) mouseOver nil nil] targetOffset: (100.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18058464 386 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (386@325) corner: (402@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (386@325) corner: (402@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(386@325) mouseOver nil nil] targetOffset: (100.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18058464 386 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(563347456) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (386@325) corner: (402@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (386@325) corner: (402@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(386@325) mouseOver nil nil] targetOffset: (100.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18058464 386 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (386@325) corner: (402@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (386@325) corner: (402@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(386@325) mouseOver nil nil] targetOffset: (100.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18058464 386 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (386@325) corner: (402@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (386@325) corner: (402@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(386@325) mouseOver nil nil] targetOffset: (100.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18058464 386 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 16147352 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (386@325) corner: (402@341) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (386@325) corner: (402@341) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(563347456) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(386@325) mouseOver nil nil] targetOffset: (100.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18058464 386 325 0 0 0 1) lastKeyScanCode: 2 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a DropListMorph(722993152))(a DropList...etc... lastStepTime: 18058741 lastStepMessage: nil lastCycleTime: 18058741 alarms: a Heap() lastAlarmTime: 18058741 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a DropListMorph(722993152))(a DropList...etc... lastStepTime: 18058741 lastStepMessage: nil lastCycleTime: 18058741 alarms: a Heap() lastAlarmTime: 18058741 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a DropListMorph(722993152))(a DropList...etc... lastStepTime: 18058741 lastStepMessage: nil lastCycleTime: 18058741 alarms: a Heap() lastAlarmTime: 18058741 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1680@950) canvas: a FormCanvas on: DisplayScreen(1680x950x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a DropListMorph(722993152))(a DropList...etc... lastStepTime: 18058741 lastStepMessage: nil lastCycleTime: 18058741 alarms: a Heap() lastAlarmTime: 18058741 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1680@950) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(1067712512) a St...etc... fullBounds: (0@0) corner: (1680@950) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #rootClassSystemCategory PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>generatedRootClassSystemCategory PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>generatedRootClassSystemCategoryExists PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>generatedRootClassSystemCategoryReference PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 31 October 2012 5:11:48.212 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] Text class>>fromString: Receiver: Text Arguments and temporary variables: aString: '...etc... defaultFontStyle: nil fontNumber: nil Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#=->(Text>>#= "a CompiledMethod(1015021568)") #a...etc... format: 134 instanceVariables: #('string' 'runs') organization: ('*Morphic' embeddedMorphs embeddedMorphsFrom:to:) ('*Morphic-Con...etc... subclasses: nil name: #Text classPool: a Dictionary() sharedPools: an OrderedCollection(TextConstants) environment: a SystemDictionary(lots of globals) category: #'Collections-Text' traitComposition: nil localSelectors: nil MultiCompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide: Receiver: a MultiCompositionScanner Arguments and temporary variables: startIndex: 35421 lineRectangle: (0@41408) corner: (142@41420) firstLine: false leftSide: true rightSide: true runLength: 908230 stopCondition: nil Receiver's instance variables: destX: 0 lastIndex: 35421 xTable: #(0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 7...etc... destY: 41408 stopConditions: a TextStopConditions text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 alignment: 0 leftMargin: 0 rightMargin: 142 font: a StrikeFont(Bitmap DejaVu Sans 9 14) line: a TextLine 35421 to: 0 runStopIndex: 943650 spaceCount: 0 spaceWidth: 4 emphasisCode: 0 kern: 0 indentationLevel: 0 wantsColumnBreaks: false presentation: a TextStream presentationLine: a TextLine 35421 to: 0 numOfComposition: 0 baselineY: nil firstDestX: 0 pendingKernX: 0 lastWidth: nil spaceX: 0 lineHeight: 14 baseline: 11 breakableIndex: 35414 lineHeightAtBreak: 14 baselineAtBreak: 11 breakAtSpace: false TextComposer>>composeEachRectangleIn: Receiver: a TextComposer Arguments and temporary variables: rectangles: {(0@41408) corner: (142@41420)} myLine: nil lastChar: nil i: 1 iLimiT: 1 Receiver's instance variables: lines: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21 a TextLine 2...etc... maxRightX: 142 currentY: 41408 scanner: a MultiCompositionScanner possibleSlide: false nowSliding: false prevIndex: 1 prevLines: #() currCharIndex: 35421 startCharIndex: 1 stopCharIndex: 943650 deltaCharIndex: 0 theText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... theContainer: (0@0) corner: (142@9999999) isFirstLine: false theTextStyle: a TextStyle Bitmap DejaVu Sans 9 defaultLineHeight: 12 actualHeight: 12 wantsColumnBreaks: false TextComposer>>composeAllRectangles: Receiver: a TextComposer Arguments and temporary variables: rectangles: {(0@41408) corner: (142@41420)} charIndexBeforeLine: 35421 numberOfLinesBefore: 2588 reasonForStopping: nil i: nil iLimiT: nil Receiver's instance variables: lines: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21 a TextLine 2...etc... maxRightX: 142 currentY: 41408 scanner: a MultiCompositionScanner possibleSlide: false nowSliding: false prevIndex: 1 prevLines: #() currCharIndex: 35421 startCharIndex: 1 stopCharIndex: 943650 deltaCharIndex: 0 theText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... theContainer: (0@0) corner: (142@9999999) isFirstLine: false theTextStyle: a TextStyle Bitmap DejaVu Sans 9 defaultLineHeight: 12 actualHeight: 12 wantsColumnBreaks: false TextComposer>>composeOneLine Receiver: a TextComposer Arguments and temporary variables: rectangles: {(0@41408) corner: (142@41420)} Receiver's instance variables: lines: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21 a TextLine 2...etc... maxRightX: 142 currentY: 41408 scanner: a MultiCompositionScanner possibleSlide: false nowSliding: false prevIndex: 1 prevLines: #() currCharIndex: 35421 startCharIndex: 1 stopCharIndex: 943650 deltaCharIndex: 0 theText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... theContainer: (0@0) corner: (142@9999999) isFirstLine: false theTextStyle: a TextStyle Bitmap DejaVu Sans 9 defaultLineHeight: 12 actualHeight: 12 wantsColumnBreaks: false TextComposer>>composeAllLines Receiver: a TextComposer Arguments and temporary variables: Receiver's instance variables: lines: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21 a TextLine 2...etc... maxRightX: 142 currentY: 41408 scanner: a MultiCompositionScanner possibleSlide: false nowSliding: false prevIndex: 1 prevLines: #() currCharIndex: 35421 startCharIndex: 1 stopCharIndex: 943650 deltaCharIndex: 0 theText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... theContainer: (0@0) corner: (142@9999999) isFirstLine: false theTextStyle: a TextStyle Bitmap DejaVu Sans 9 defaultLineHeight: 12 actualHeight: 12 wantsColumnBreaks: false TextComposer>>multiComposeLinesFrom:to:delta:into:priorLines:atY:textStyle:text:container:wantsColumnBreaks: Receiver: a TextComposer Arguments and temporary variables: argStart: 1 argStop: 943650 argDelta: 0 argLinesCollection: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21...etc... argPriorLines: #() argStartY: 0 argTextStyle: a TextStyle Bitmap DejaVu Sans 9 argText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... argContainer: (0@0) corner: (142@9999999) argWantsColumnBreaks: false Receiver's instance variables: lines: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21 a TextLine 2...etc... maxRightX: 142 currentY: 41408 scanner: a MultiCompositionScanner possibleSlide: false nowSliding: false prevIndex: 1 prevLines: #() currCharIndex: 35421 startCharIndex: 1 stopCharIndex: 943650 deltaCharIndex: 0 theText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... theContainer: (0@0) corner: (142@9999999) isFirstLine: false theTextStyle: a TextStyle Bitmap DejaVu Sans 9 defaultLineHeight: 12 actualHeight: 12 wantsColumnBreaks: false Paragraph>>multiComposeLinesFrom:to:delta:into:priorLines:atY: Receiver: a Paragraph Arguments and temporary variables: start: 1 stop: 943650 delta: 0 lineColl: an OrderedCollection(a TextLine 1 to: 1 a TextLine 2 to: 21 a TextLin...etc... priorLines: #() startingY: 0 newResult: nil Receiver's instance variables: text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 firstCharacterIndex: 1 container: (0@0) corner: (142@9999999) lines: nil positionWhenComposed: (0@0) offsetToEnd: 943649 maxRightX: nil selectionStart: nil selectionStop: nil wantsColumnBreaks: false focused: nil caretRect: nil showCaret: nil findReplaceSelectionRegex: nil secondarySelection: nil extraSelectionBlocks: nil refreshExtraSelection: nil composer: a TextComposer Paragraph>>composeAll Receiver: a Paragraph Arguments and temporary variables: Receiver's instance variables: text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 firstCharacterIndex: 1 container: (0@0) corner: (142@9999999) lines: nil positionWhenComposed: (0@0) offsetToEnd: 943649 maxRightX: nil selectionStart: nil selectionStop: nil wantsColumnBreaks: false focused: nil caretRect: nil showCaret: nil findReplaceSelectionRegex: nil secondarySelection: nil extraSelectionBlocks: nil refreshExtraSelection: nil composer: a TextComposer Paragraph>>compose:style:from:in: Receiver: a Paragraph Arguments and temporary variables: t: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSch...etc... ts: a TextStyle Bitmap DejaVu Sans 9 startingIndex: 1 textContainer: (0@0) corner: (142@9999999) Receiver's instance variables: text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... textStyle: a TextStyle Bitmap DejaVu Sans 9 firstCharacterIndex: 1 container: (0@0) corner: (142@9999999) lines: nil positionWhenComposed: (0@0) offsetToEnd: 943649 maxRightX: nil selectionStart: nil selectionStop: nil wantsColumnBreaks: false focused: nil caretRect: nil showCaret: nil findReplaceSelectionRegex: nil secondarySelection: nil extraSelectionBlocks: nil refreshExtraSelection: nil composer: a TextComposer TextMorphForEditView(TextMorph)>>paragraph Receiver: a TextMorphForEditView(145227776) Arguments and temporary variables: newParagraph: a Paragraph Receiver's instance variables: bounds: (0@0) corner: (142@14) owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (227803136) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... wrapFlag: true paragraph: nil editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: nil acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView>>paragraph Receiver: a TextMorphForEditView(145227776) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (142@14) owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (227803136) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... wrapFlag: true paragraph: nil editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: nil acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView(TextMorph)>>newContents: Receiver: a TextMorphForEditView(145227776) Arguments and temporary variables: stringOrText: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSch...etc... newText: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSche...etc... embeddedMorphs: an IdentitySet() attribs: nil textSize: 0 Receiver's instance variables: bounds: (0@0) corner: (142@14) owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (227803136) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... wrapFlag: true paragraph: nil editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: nil acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView(TextMorph)>>contents:wrappedTo: Receiver: a TextMorphForEditView(145227776) Arguments and temporary variables: stringOrText: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSch...etc... width: 142 Receiver's instance variables: bounds: (0@0) corner: (142@14) owner: nil submorphs: #() fullBounds: nil color: Color black extension: a MorphExtension (227803136) [other: (CreatingParagraph -> true)] borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemas...etc... wrapFlag: true paragraph: nil editor: nil container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: nil acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>setTextBasic: Receiver: a PluggableTextMorph(896270336) Arguments and temporary variables: aText: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInst...etc... Receiver's instance variables: bounds: (0@0) corner: (150@120) owner: nil submorphs: an Array(a TransformMorph(86245376)) fullBounds: nil color: Color transparent extension: a MorphExtension (123994112) borderWidth: 1 borderColor: Color black model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(924057600) scroller: a TransformMorph(86245376) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1046216704) textMorph: nil getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: nil hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>setText: Receiver: a PluggableTextMorph(896270336) Arguments and temporary variables: aText: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInst...etc... Receiver's instance variables: bounds: (0@0) corner: (150@120) owner: nil submorphs: an Array(a TransformMorph(86245376)) fullBounds: nil color: Color transparent extension: a MorphExtension (123994112) borderWidth: 1 borderColor: Color black model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(924057600) scroller: a TransformMorph(86245376) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1046216704) textMorph: nil getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: nil hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>on:text:accept:readSelection:menu: Receiver: a PluggableTextMorph(896270336) Arguments and temporary variables: anObject: a Workspace getTextSel: #contents setTextSel: #acceptContents: getSelectionSel: nil getMenuSel: #codePaneMenu:shifted: Receiver's instance variables: bounds: (0@0) corner: (150@120) owner: nil submorphs: an Array(a TransformMorph(86245376)) fullBounds: nil color: Color transparent extension: a MorphExtension (123994112) borderWidth: 1 borderColor: Color black model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(924057600) scroller: a TransformMorph(86245376) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1046216704) textMorph: nil getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: nil hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph class>>on:text:accept:readSelection:menu: Receiver: PluggableTextMorph Arguments and temporary variables: anObject: a Workspace getTextSel: #contents setTextSel: #acceptContents: getSelectionSel: nil getMenuSel: #codePaneMenu:shifted: Receiver's instance variables: superclass: ScrollPane methodDict: a MethodDictionary(size 166) format: 208 instanceVariables: #('textMorph' 'getTextSelector' 'setTextSelector' 'getSelect...etc... organization: ('*Keymapping-Editors' removeLine) ('*Keymapping-Editors-Override...etc... subclasses: {AcceptableCleanTextMorph. BrowserCommentTextMorph. PluggableTextEd...etc... name: #PluggableTextMorph classPool: a Dictionary(#ShowTextEditingState->true #StylingClass->SHTextStyler...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Morphic-Pluggable Widgets' traitComposition: {} localSelectors: nil Workspace(StringHolder)>>buildTextMorph Receiver: a Workspace Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(375652352) a PluggableTextMorph(89...etc... contents: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaI...etc... bindings: nil acceptDroppedMorphs: false acceptAction: nil mustDeclareVariables: false fileName: nil lineEnding: #cr encoding: 'utf-8' stylingActive: true Workspace>>buildTextMorph Receiver: a Workspace Arguments and temporary variables: morph: nil Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(375652352) a PluggableTextMorph(89...etc... contents: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaI...etc... bindings: nil acceptDroppedMorphs: false acceptAction: nil mustDeclareVariables: false fileName: nil lineEnding: #cr encoding: 'utf-8' stylingActive: true Workspace>>openLabel: Receiver: a Workspace Arguments and temporary variables: labelString: 'Translation of ''Platypus_meta_schemas''' window: a SystemWindow(375652352) pane: nil Receiver's instance variables: dependents: a DependentsArray(a SystemWindow(375652352) a PluggableTextMorph(89...etc... contents: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaI...etc... bindings: nil acceptDroppedMorphs: false acceptAction: nil mustDeclareVariables: false fileName: nil lineEnding: #cr encoding: 'utf-8' stylingActive: true PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: result: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaIns...etc... fileName: 'Platypus-schemata///Platypus_meta_s...etc... fileStream: StandardFileStream: '/Users/plantec/platypus-cheddar-dev/Pharo-1.4/...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(TamListItemReference)>>perform:orSendTo: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: selector: #menuTranslate2Pharo otherTarget: a TamHierarchicalListMorph(563347456) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(603717632)'translate here (t)' Arguments and temporary variables: evt: [(435@423) mouseUp 18122735 nil] selArgCount: 2 Receiver's instance variables: bounds: (372.0@415.0) corner: (534.0@429.0) owner: a MenuMorph(376438784) submorphs: #() fullBounds: (372.0@415.0) corner: (534.0@429.0) color: Color black extension: a MorphExtension (613941248) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'translate here (t)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [: //Platypus_meta_schemas] selector: #perform:orSendTo: arguments: an Array(#menuTranslate2Pharo a TamHierarchicalListMorph(563347456))...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil BlockClosure>>ensure: Receiver: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: startpc: 160 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r100000000000000000000...etc... Arguments and temporary variables: aBlock: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [targe...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: Receiver: a ToggleMenuItemMorph(603717632)'translate here (t)' Arguments and temporary variables: evt: [(435@423) mouseUp 18122735 nil] w: a PasteUpMorph(425197568) [world] Receiver's instance variables: bounds: (372.0@415.0) corner: (534.0@429.0) owner: a MenuMorph(376438784) submorphs: #() fullBounds: (372.0@415.0) corner: (534.0@429.0) color: Color black extension: a MorphExtension (613941248) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'translate here (t)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [: //Platypus_meta_schemas] selector: #perform:orSendTo: arguments: an Array(#menuTranslate2Pharo a TamHierarchicalListMorph(563347456))...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: Receiver: a ToggleMenuItemMorph(603717632)'translate here (t)' Arguments and temporary variables: evt: [(435@423) mouseUp 18122735 nil] Receiver's instance variables: bounds: (372.0@415.0) corner: (534.0@429.0) owner: a MenuMorph(376438784) submorphs: #() fullBounds: (372.0@415.0) corner: (534.0@429.0) color: Color black extension: a MorphExtension (613941248) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'translate here (t)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [: //Platypus_meta_schemas] selector: #perform:orSendTo: arguments: an Array(#menuTranslate2Pharo a TamHierarchicalListMorph(563347456))...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: Receiver: a ToggleMenuItemMorph(603717632)'translate here (t)' Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] Receiver's instance variables: bounds: (372.0@415.0) corner: (534.0@429.0) owner: a MenuMorph(376438784) submorphs: #() fullBounds: (372.0@415.0) corner: (534.0@429.0) color: Color black extension: a MorphExtension (613941248) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'translate here (t)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [: //Platypus_meta_schemas] selector: #perform:orSendTo: arguments: an Array(#menuTranslate2Pharo a TamHierarchicalListMorph(563347456))...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MouseButtonEvent>>sentTo: Receiver: [(435@423) mouseUp 18122735 nil] Arguments and temporary variables: anObject: a ToggleMenuItemMorph(603717632)'translate here (t)' Receiver's instance variables: timeStamp: 18122735 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (435@423) handler: nil wasHandled: true whichButton: 4 ToggleMenuItemMorph(Morph)>>handleEvent: Receiver: a ToggleMenuItemMorph(603717632)'translate here (t)' Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] Receiver's instance variables: bounds: (372.0@415.0) corner: (534.0@429.0) owner: a MenuMorph(376438784) submorphs: #() fullBounds: (372.0@415.0) corner: (534.0@429.0) color: Color black extension: a MorphExtension (613941248) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'translate here (t)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [: //Platypus_meta_schemas] selector: #perform:orSendTo: arguments: an Array(#menuTranslate2Pharo a TamHierarchicalListMorph(563347456))...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] aMorph: a ToggleMenuItemMorph(603717632)'translate here (t)' localEvt: nil index: 1 child: nil morphs: #() inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] aMorph: a ToggleMenuItemMorph(603717632)'translate here (t)' Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: ToggleMenuItemMorph(Morph)>>processEvent:using: Receiver: a ToggleMenuItemMorph(603717632)'translate here (t)' Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (372.0@415.0) corner: (534.0@429.0) owner: a MenuMorph(376438784) submorphs: #() fullBounds: (372.0@415.0) corner: (534.0@429.0) color: Color black extension: a MorphExtension (613941248) font: a StrikeFont(Bitmap DejaVu Sans 9 14) emphasis: 0 contents: 'translate here (t)' hasFocus: false isEnabled: true subMenu: nil isSelected: false target: [: //Platypus_meta_schemas] selector: #perform:orSendTo: arguments: an Array(#menuTranslate2Pharo a TamHierarchicalListMorph(563347456))...etc... icon: nil getStateSelector: nil enablementSelector: nil keyText: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] aMorph: a MenuMorph(376438784) localEvt: [(435@423) mouseUp 18122735 nil] index: 15 child: a ToggleMenuItemMorph(603717632)'translate here (t)' morphs: an Array(a ToggleMenuItemMorph(785645568)'new schema (n)' a ToggleMenuI...etc... inside: false Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] aMorph: a MenuMorph(376438784) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MenuMorph(Morph)>>processEvent:using: Receiver: a MenuMorph(376438784) Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (367.0@260.0) corner: (539.0@482.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(785645568)'new schema (n)' a ToggleMe...etc... fullBounds: (367.0@260.0) corner: (539.0@482.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (391380992) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: nil selectedItem: a ToggleMenuItemMorph(603717632)'translate here (t)' stayUp: false popUpOwner: a ToggleMenuItemMorph(88866816)'express ...' activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(785645568)'new schema (n)...etc... MenuMorph(Morph)>>processEvent: Receiver: a MenuMorph(376438784) Arguments and temporary variables: anEvent: [(435@423) mouseUp 18122735 nil] Receiver's instance variables: bounds: (367.0@260.0) corner: (539.0@482.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(785645568)'new schema (n)' a ToggleMe...etc... fullBounds: (367.0@260.0) corner: (539.0@482.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (391380992) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: nil selectedItem: a ToggleMenuItemMorph(603717632)'translate here (t)' stayUp: false popUpOwner: a ToggleMenuItemMorph(88866816)'express ...' activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(785645568)'new schema (n)...etc... MenuMorph>>handleFocusEvent: Receiver: a MenuMorph(376438784) Arguments and temporary variables: evt: [(435@423) mouseUp 18122735 nil] Receiver's instance variables: bounds: (367.0@260.0) corner: (539.0@482.0) owner: nil submorphs: an Array(a ToggleMenuItemMorph(785645568)'new schema (n)' a ToggleMe...etc... fullBounds: (367.0@260.0) corner: (539.0@482.0) color: (Color r: 0.848 g: 0.848 b: 0.848) extension: a MorphExtension (391380992) [other: (basicColor -> (Color r: 0.745...etc... borderWidth: 2 borderColor: (Color r: 0.595 g: 0.595 b: 0.595) defaultTarget: nil selectedItem: a ToggleMenuItemMorph(603717632)'translate here (t)' stayUp: false popUpOwner: a ToggleMenuItemMorph(88866816)'express ...' activeSubMenu: nil activatorDockingBar: nil embeddable: nil menuItems: an OrderedCollection(a ToggleMenuItemMorph(785645568)'new schema (n)...etc... --- The full stack --- Text class>>fromString: MultiCompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide: TextComposer>>composeEachRectangleIn: TextComposer>>composeAllRectangles: TextComposer>>composeOneLine TextComposer>>composeAllLines TextComposer>>multiComposeLinesFrom:to:delta:into:priorLines:atY:textStyle:text:container:wantsColumnBreaks: Paragraph>>multiComposeLinesFrom:to:delta:into:priorLines:atY: Paragraph>>composeAll Paragraph>>compose:style:from:in: TextMorphForEditView(TextMorph)>>paragraph TextMorphForEditView>>paragraph TextMorphForEditView(TextMorph)>>newContents: TextMorphForEditView(TextMorph)>>contents:wrappedTo: PluggableTextMorph>>setTextBasic: PluggableTextMorph>>setText: PluggableTextMorph>>on:text:accept:readSelection:menu: PluggableTextMorph class>>on:text:accept:readSelection:menu: Workspace(StringHolder)>>buildTextMorph Workspace>>buildTextMorph Workspace>>openLabel: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusInternalMetaSchemaInstanceReference(TamListItemReference)>>perform:orSendTo: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 31 October 2012 5:12:10.738 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_di...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'entity_definition_reference' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1440'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1440'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1440' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1348'] a PltRedef...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1440'] a PltInternalRepresentation['2018...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1440'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2347 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T17:12:10.657000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T17:12:10.657000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T17:12:10.657000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: nil modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: nil modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 31 October 2012 5:12:39.069 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 3 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 8028952c1242f72b6d078b8161f310e3bf0cd365 Date: Tue Jul 3 16:26:14 2012 +0200 By: Esteban Lorenzano Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_di...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'entity_definition_reference' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1440'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1440'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1440' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1348'] a PltRedef...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1440'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1440'] a PltInternalRepresentation['2018...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1440'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2347 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T17:12:38.965000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T17:12:38.965000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-10-31T17:12:38.965000001+00:00' changeDate: '2012-10-30T23:14:34.892+00:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1440'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2100) dataInstancesByEntityIndex: an IdentityDictionary(size 104) dataInstancesByLabelIndex: a Dictionary(size 2100) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2100) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: nil modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: nil modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Space is low 4 November 2012 8:10:18.071 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 5151310c41b08f55b70e9c6250711cb1f3672ce7 Date: 2012-07-18 14:06:15 +0200 By: Camillo Bruni Image: Pharo1.4 [Latest update: #14459] SmalltalkImage>>signalLowSpace Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: an OrderedCollection([self default loadStartupScript] [...etc... OutOfMemory>>defaultAction Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: nil OutOfMemory(Exception)>>pass Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: priorWorld: OutOfMemory priorHand: a PasteUpMorph(425197568) [world] priorEvent: a HandMorph(843055104) ex: nil Receiver's instance variables: bounds: (0@0) corner: (1240@854) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(862978048) a Sys...etc... fullBounds: (0@0) corner: (1240@854) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>cull: Receiver: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ...etc... Arguments and temporary variables: anArg: OutOfMemory Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 78 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a PltDefi...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a P...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a PltDefi...etc... Arguments and temporary variables: tally: 41943040 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a P...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a PltDefi...etc... Arguments and temporary variables: newObject: a PltDefinedTypeReference Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a P...etc... firstIndex: 1 lastIndex: 41943040 PltDefinedTypeReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltDefinedTypeReference Arguments and temporary variables: p: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefined...etc... t: a PltDefinedTypeReference Receiver's instance variables: owner: a PltDefinedType name: 'Core_Units_Table' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltDefinedTypeReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltDefinedTypeReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltDefinedTypeReference a PltDefinedTypeReference a PltDefinedTypeReferen...etc... Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 1 each: a PltDefinedTypeReference indexLimiT: 5 Receiver's instance variables: tally: 3 array: an Array(a PltDefinedTypeReference a PltDefinedTypeReference nil nil a P...etc... PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltIdentifier('Private_Cache_Prot...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltIdentifier('Private_Cache_Prot...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: false validationDate: '2012-11-04T20:04:36.143000001+01:00' changeDate: '2012-11-04T20:04:36.143000002+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 265) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_meta_model' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: false validationDate: '2012-11-04T20:04:36.143000001+01:00' changeDate: '2012-11-04T20:04:36.143000002+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 265) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_meta_model' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /cheddar_meta_model] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Framework_Con...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_meta_model/Caches] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /cheddar_meta_model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Caches/Cache_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Caches' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_meta_model/Caches] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /cheddar_meta_model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Caches/Cache_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Caches' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_meta_model/Caches] Arguments and temporary variables: input: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Framework_Co...etc... aRequestor: a PlatypusStepCodeMorph(503840768) result: a PlatypusExpressParserResult users: a Set([cheddar: /cheddar_mapping] [cheddar: /cheddar_language] [cheddar:...etc... Receiver's instance variables: owner: [cheddar: /cheddar_meta_model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Caches/Cache_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Caches' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Framework_Co...etc... aRequestor: a PlatypusStepCodeMorph(503840768) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(503840768) a TamGenericHi...etc... contents: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Framework...etc... mainWindow: a StandardWindow(609746944) mainPane: a TamPaneMorph(132907008) contentsMorph: a PlatypusStepCodeMorph(503840768) codeRow: a TamPaneMorph(435945472) sourceHandler: [cheddar: /cheddar_meta_model/Caches] codeBtnRow: an AlignmentMorph(57671680) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(428081152) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(398983168) [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(503840768) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Frame...etc... Receiver's instance variables: bounds: (442.0@81.0) corner: (1210.0@667.0) owner: a TamPaneMorph(435945472) submorphs: an Array(a ScrollBar(531628032) a TransformMorph(767557632)) fullBounds: nil color: Color white extension: a MorphExtension (16515072) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(531628032) scroller: a TransformMorph(767557632) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(653787136) textMorph: a PlatypusTextMorphForEditView(381157376) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (690 to: 689) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(503840768) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Frame...etc... Receiver's instance variables: bounds: (442.0@81.0) corner: (1210.0@667.0) owner: a TamPaneMorph(435945472) submorphs: an Array(a ScrollBar(531628032) a TransformMorph(767557632)) fullBounds: nil color: Color white extension: a MorphExtension (16515072) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(531628032) scroller: a TransformMorph(767557632) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(653787136) textMorph: a PlatypusTextMorphForEditView(381157376) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (690 to: 689) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(503840768) Arguments and temporary variables: ok: nil saveSelection: (690 to: 689) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (442.0@81.0) corner: (1210.0@667.0) owner: a TamPaneMorph(435945472) submorphs: an Array(a ScrollBar(531628032) a TransformMorph(767557632)) fullBounds: nil color: Color white extension: a MorphExtension (16515072) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(531628032) scroller: a TransformMorph(767557632) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(653787136) textMorph: a PlatypusTextMorphForEditView(381157376) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (690 to: 689) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(503840768) Arguments and temporary variables: Receiver's instance variables: bounds: (442.0@81.0) corner: (1210.0@667.0) owner: a TamPaneMorph(435945472) submorphs: an Array(a ScrollBar(531628032) a TransformMorph(767557632)) fullBounds: nil color: Color white extension: a MorphExtension (16515072) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(531628032) scroller: a TransformMorph(767557632) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(653787136) textMorph: a PlatypusTextMorphForEditView(381157376) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (690 to: 689) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- SmalltalkImage>>signalLowSpace OutOfMemory>>defaultAction UndefinedObject>>handleSignal: OutOfMemory(Exception)>>pass [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltDefinedTypeReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 4 November 2012 8:11:03.558 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 5151310c41b08f55b70e9c6250711cb1f3672ce7 Date: 2012-07-18 14:06:15 +0200 By: Camillo Bruni Image: Pharo1.4 [Latest update: #14459] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: nil outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil --- The full stack --- MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 4 November 2012 8:11:25.298 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.161 uuid: 8e0c22c3-b48d-4d8d-a7f9-8a75dc246f28 Jul 18 2012, https://git.gitorious.org/cogvm/blessed.git Commit: 5151310c41b08f55b70e9c6250711cb1f3672ce7 Date: 2012-07-18 14:06:15 +0200 By: Camillo Bruni Image: Pharo1.4 [Latest update: #14459] Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 20971520 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a PltDefi...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a P...etc... firstIndex: 1 lastIndex: 10485760 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a PltDefi...etc... Arguments and temporary variables: tally: 10485760 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a P...etc... firstIndex: 1 lastIndex: 10485760 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a PltDefi...etc... Arguments and temporary variables: newObject: a PltDefinedTypeReference Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedTypeReference a PltDefinedType a P...etc... firstIndex: 1 lastIndex: 10485760 PltDefinedTypeReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltDefinedTypeReference Arguments and temporary variables: p: an OrderedCollection(a PltDefinedType a PltDefinedTypeReference a PltDefined...etc... t: a PltDefinedTypeReference Receiver's instance variables: owner: a PltDefinedType name: 'Core_Units_Table' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltDefinedTypeReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltDefinedTypeReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltDefinedTypeReference a PltDefinedTypeReference a PltDefinedTypeReferen...etc... Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 1 each: a PltDefinedTypeReference indexLimiT: 5 Receiver's instance variables: tally: 3 array: an Array(a PltDefinedTypeReference a PltDefinedTypeReference nil nil a P...etc... PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptE...etc... objectsWithErrorIndex: an IdentitySet(a PltDefinedTypeReference a PltDefinedTyp...etc... visited: an IdentityDictionary(size 1155) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: false validationDate: '2012-11-04T20:04:36.143000001+01:00' changeDate: '2012-11-04T20:04:36.143000002+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 291) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_meta_model' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: false validationDate: '2012-11-04T20:04:36.143000001+01:00' changeDate: '2012-11-04T20:04:36.143000002+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 291) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_meta_model' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /cheddar_meta_model] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Framework_Con...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_meta_model/Caches] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: /cheddar_meta_model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Caches/Cache_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Caches' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_meta_model/Caches] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /cheddar_meta_model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Caches/Cache_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Caches' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_meta_model/Caches] Arguments and temporary variables: input: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Framework_Co...etc... aRequestor: a PlatypusStepCodeMorph(503840768) result: a PlatypusExpressParserResult users: a Set([cheddar: /cheddar_mapping] [cheddar: /cheddar_language] [cheddar:...etc... Receiver's instance variables: owner: [cheddar: /cheddar_meta_model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_meta_model/Caches/Cache_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Caches' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Framework_Co...etc... aRequestor: a PlatypusStepCodeMorph(503840768) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(503840768) a TamGenericHi...etc... contents: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Framework...etc... mainWindow: a StandardWindow(609746944) mainPane: a TamPaneMorph(132907008) contentsMorph: a PlatypusStepCodeMorph(503840768) codeRow: a TamPaneMorph(435945472) sourceHandler: [cheddar: /cheddar_meta_model/Caches] codeBtnRow: an AlignmentMorph(57671680) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(428081152) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(398983168) [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(503840768) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Caches; USE FROM Basic_Types; USE FROM Frame...etc... Receiver's instance variables: bounds: (442.0@81.0) corner: (1210.0@667.0) owner: a TamPaneMorph(435945472) submorphs: an Array(a ScrollBar(531628032) a TransformMorph(767557632)) fullBounds: (442@81) corner: (1210@667) color: Color white extension: a MorphExtension (16515072) [other: (kmDispatcher -> a KMDispatcher...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(531628032) scroller: a TransformMorph(767557632) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(653787136) textMorph: a PlatypusTextMorphForEditView(381157376) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (690 to: 689) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltDefinedTypeReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Space is low 7 December 2012 9:22:48.641 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] SmalltalkImage>>signalLowSpace Receiver: Smalltalk Arguments and temporary variables: Receiver's instance variables: globals: a SystemDictionary(lots of globals) deferredStartupActions: an OrderedCollection([self default loadStartupScript] [...etc... OutOfMemory>>defaultAction Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: nil OutOfMemory(Exception)>>pass Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: priorWorld: OutOfMemory priorHand: a PasteUpMorph(425197568) [world] priorEvent: a HandMorph(843055104) ex: nil Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>cull: Receiver: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ...etc... Arguments and temporary variables: anArg: OutOfMemory Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 78 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: OutOfMemory val: nil Receiver's instance variables: sender: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [self updateWithParserResult: result] OutOfMemory(Exception)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: Array signalContext: OutOfMemory(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil OutOfMemory class(Exception class)>>signal Receiver: OutOfMemory Arguments and temporary variables: Receiver's instance variables: superclass: Error methodDict: a MethodDictionary(#defaultAction->(OutOfMemory>>#defaultAction "a ...etc... format: 142 instanceVariables: nil organization: ('handling' defaultAction) ('testing' isResumable) subclasses: nil name: #OutOfMemory classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Kernel-Exceptions' traitComposition: nil localSelectors: nil Array class(Behavior)>>basicNew: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil Array class>>new: Receiver: Array Arguments and temporary variables: sizeRequested: 83886080 Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(#'+*'->(Array>>#'+*' "a CompiledMethod(890765312...etc... format: 6402 instanceVariables: nil organization: ('*Collections-arithmetic' +* preMultiplyByArray: preMultiplyByMa...etc... subclasses: {WeakArray. WeakActionSequence. Cubic} name: #Array classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Sequenceable' traitComposition: {} localSelectors: nil OrderedCollection>>growAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newArray: nil newFirstIndex: nil newLastIndex: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>makeRoomAtFirst Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: tally: 41943040 newFirstIndex: nil newLastIndex: nil offset: nil offsetLimiT: nil Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 OrderedCollection>>addFirst: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a PltEntityDefin...etc... Arguments and temporary variables: newObject: a PltEntityDefinitionReference Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinitionReference a PltEntit...etc... firstIndex: 1 lastIndex: 41943040 PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath Receiver: a PltEntityDefinitionReference Arguments and temporary variables: p: an OrderedCollection(a PltEntityDefinition a PltEntityDefinitionReference a ...etc... t: a PltEntityDefinitionReference Receiver's instance variables: owner: a PltEntityDefinition name: 'Association' ref: nil PlatypusExpressResolverError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressResolverError Arguments and temporary variables: Receiver's instance variables: message: 'unresolved symbol' data: nil path: nil metaData: a PltEntityDefinitionReference PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aVisitorError: a PlatypusExpressResolverError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptI...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 874) schemaInstance: nil resolutionPass: 3 parent: nil [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: k: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptI...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 874) schemaInstance: nil resolutionPass: 3 parent: nil IdentitySet(Set)>>do: Receiver: an IdentitySet(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:k | self registerError: (PlatypusExpressResolverError metaData: k m...etc... index: 3 each: a PltEntityDefinitionReference indexLimiT: 5 Receiver's instance variables: tally: 1 array: an Array(nil nil a PltEntityDefinitionReference nil nil) PlatypusExpressResolver>>checksAll: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aCollection: an Array(a PltSchemaInstance) stop: true prevErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... currErrsSet: an IdentitySet(a PltUsedSchema a PltUsedSchema a PltUsedSchema a P...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptI...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 874) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver>>checks: Receiver: a PlatypusExpressResolver Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressResolverError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressResolver->#acceptI...etc... objectsWithErrorIndex: an IdentitySet(a PltEntityDefinitionReference) visited: an IdentityDictionary(size 874) schemaInstance: nil resolutionPass: 3 parent: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressResolver Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressResolver Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptAggregationType:lower:upper:symbol:flags:...etc... format: 150 instanceVariables: #('resolutionPass' 'parent') organization: ('visit generic' acceptAggregationType:lower:upper:symbol:flags: ...etc... subclasses: nil name: #PlatypusExpressResolver classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>resolvesSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil result: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-06T17:24:23.554+01:00' changeDate: '2012-12-06T17:24:23.729000002+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 300) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_adl' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-06T17:24:23.554+01:00' changeDate: '2012-12-06T17:24:23.729000002+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 300) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_adl' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /cheddar_adl] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_adl/Objects] [cheddar: /...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_types/Basic_Types] Arguments and temporary variables: r: [cheddar: /cheddar_adl] schir: true Receiver's instance variables: owner: [cheddar: /cheddar_types] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_types/Basic_Types/Natura...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Basic_Types' metaData: a PltSchemaDefinition generatedClassRef: nil OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /cheddar_types] [cheddar: /cheddar_config] [cheddar: /chedd...etc... Arguments and temporary variables: aBlock: [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisMod...etc... index: 3 Receiver's instance variables: array: an Array([cheddar: /cheddar_types] [cheddar: /cheddar_config] [cheddar: ...etc... firstIndex: 1 lastIndex: 7 PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_types/Basic_Types] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: true Receiver's instance variables: owner: [cheddar: /cheddar_types] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_types/Basic_Types/Natura...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Basic_Types' metaData: a PltSchemaDefinition generatedClassRef: nil [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_types/Basic_Types] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: /cheddar_types] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_types/Basic_Types/Natura...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Basic_Types' metaData: a PltSchemaDefinition generatedClassRef: nil BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifyi...etc... startpc: 191 numArgs: 0 PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_types/Basic_Types] Arguments and temporary variables: input: a Text for 'SCHEMA Basic_Types; TYPE Natural = INTEGER; WHERE SELF ...etc... aRequestor: a PlatypusStepCodeMorph(309854208) result: a PlatypusExpressParserResult users: a Set([cheddar: /cheddar_adl] [cheddar: /cheddar_config] [cheddar: /ched...etc... Receiver's instance variables: owner: [cheddar: /cheddar_types] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_types/Basic_Types/Natura...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'Basic_Types' metaData: a PltSchemaDefinition generatedClassRef: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA Basic_Types; TYPE Natural = INTEGER; WHERE SELF ...etc... aRequestor: a PlatypusStepCodeMorph(309854208) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(309854208) a TamGenericHi...etc... contents: a Text for 'SCHEMA Basic_Types; TYPE Natural = INTEGER; WHERE SE...etc... mainWindow: a StandardWindow(517734400) mainPane: a TamPaneMorph(1012662272) contentsMorph: a PlatypusStepCodeMorph(309854208) codeRow: a TamPaneMorph(241958912) sourceHandler: [cheddar: /cheddar_types/Basic_Types] codeBtnRow: an AlignmentMorph(563347456) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(309854208) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Basic_Types; TYPE Natural = INTEGER; WHERE ...etc... Receiver's instance variables: bounds: (523.0@81.0) corner: (1250.0@640.0) owner: a TamPaneMorph(241958912) submorphs: an Array(a TransformMorph(581959680)) fullBounds: nil color: Color white extension: a MorphExtension (920387584) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(337641472) scroller: a TransformMorph(581959680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(468189184) textMorph: a PlatypusTextMorphForEditView(211288064) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (132 to: 131) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(309854208) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Basic_Types; TYPE Natural = INTEGER; WHERE ...etc... Receiver's instance variables: bounds: (523.0@81.0) corner: (1250.0@640.0) owner: a TamPaneMorph(241958912) submorphs: an Array(a TransformMorph(581959680)) fullBounds: nil color: Color white extension: a MorphExtension (920387584) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(337641472) scroller: a TransformMorph(581959680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(468189184) textMorph: a PlatypusTextMorphForEditView(211288064) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (132 to: 131) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil --- The full stack --- SmalltalkImage>>signalLowSpace OutOfMemory>>defaultAction UndefinedObject>>handleSignal: OutOfMemory(Exception)>>pass [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ActiveHand := priorHand. ex pass] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OutOfMemory(Exception)>>signal OutOfMemory class(Exception class)>>signal Array class(Behavior)>>basicNew: Array class>>new: OrderedCollection>>growAtFirst OrderedCollection>>makeRoomAtFirst OrderedCollection>>addFirst: PltEntityDefinitionReference(PltEntityInstance)>>inclusiveOwnerPath PlatypusExpressResolverError(PlatypusVisitorError)>>path PlatypusExpressResolver(PlatypusCoreAbstractVisitor)>>registerError: [:k | self registerError: (PlatypusExpressResolverError metaData: k message: 'unresolved symbol')] in PlatypusExpressResolver>>checksAll: IdentitySet(Set)>>do: PlatypusExpressResolver>>checksAll: PlatypusExpressResolver>>checks: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressResolver class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>resolvesSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusStack>>last 7 December 2012 10:44:35.356 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PlatypusStack(Object)>>doesNotUnderstand: #last Receiver: a PlatypusStack Arguments and temporary variables: aMessage: last exception: MessageNotUnderstood: PlatypusStack>>last resumeValue: nil Receiver's instance variables: stack: an Array(a PltModelContents a PltExternalRepresentation['90'] a PltSimpl...etc... stackp: 3 PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: aListOfExpressions: an OrderedCollection() accessorSymbol: #explicitAttributesDo: numberOfAttributes: 1 esize: 0 pos: #(nil nil) value: a PlatypusModelContentsSemanticChecker Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker>>acceptSimpleRecord: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltSimpleRecord entityDef: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord selector: #acceptSimpleRecord: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: owner: a PltExternalRepresentation['90'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection() [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusModelContentsSemanticChecker Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection>>do: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 1 Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 PlatypusModelContentsSemanticChecker>>acceptExternalRepresentation: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltExternalRepresentation['90'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['90'] selector: #acceptExternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['90'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltExternalRepresentation['90'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['90'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['90'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PltExternalRepresentation(Object)>>acceptTry: Receiver: a PltExternalRepresentation['90'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: owner: nil persistentLabel: '90' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRe...etc... [:v | v acceptTry: self] in PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptModelContents: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: v: a PltExternalRepresentation['90'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack OrderedCollection>>do: Receiver: an OrderedCollection(a PltExternalRepresentation['1338'] a PltInternalRepresentation['1011...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 275 Receiver's instance variables: array: an Array(a PltExternalRepresentation['1338'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2340 PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptModelContents: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker>>acceptModelContents: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: owner: a PltSchemaInstance validationResult: true validationDate: '2012-12-07T10:44:35.018+01:00' changeDate: '2012-12-07T10:40:42.551+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltExternalRepresentation['1338'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2093) dataInstancesByEntityIndex: an IdentityDictionary(size 105) dataInstancesByLabelIndex: a Dictionary(size 2093) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2093) PlatypusModelContentsSemanticChecker(PlatypusModelContentsVisitor)>>checks: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: data: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 4139) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PltModelContents>>semanticChecks Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsSemanticChecker Receiver's instance variables: owner: a PltSchemaInstance validationResult: true validationDate: '2012-12-07T10:44:35.018+01:00' changeDate: '2012-12-07T10:40:42.551+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltExternalRepresentation['1338'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2093) dataInstancesByEntityIndex: an IdentityDictionary(size 105) dataInstancesByLabelIndex: a Dictionary(size 2093) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2093) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: a PltSchemaInstance validationResult: true validationDate: '2012-12-07T10:44:35.018+01:00' changeDate: '2012-12-07T10:40:42.551+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltExternalRepresentation['1338'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2093) dataInstancesByEntityIndex: an IdentityDictionary(size 105) dataInstancesByLabelIndex: a Dictionary(size 2093) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2093) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 --- The full stack --- PlatypusStack(Object)>>doesNotUnderstand: #last PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptSimpleRecord: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusModelContentsSemanticChecker>>acceptExternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptModelContents: PlatypusModelContentsSemanticChecker>>acceptModelContents: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusModelContentsVisitor)>>checks: PltModelContents>>semanticChecks PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: ByteString>>inclusiveOwnerPath 7 December 2012 10:52:44.459 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath Receiver: 'AADL_CONFIG' Arguments and temporary variables: aMessage: inclusiveOwnerPath exception: MessageNotUnderstood: ByteString>>inclusiveOwnerPath resumeValue: nil Receiver's instance variables: 'AADL_CONFIG' PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressNamesCheckerError Arguments and temporary variables: Receiver's instance variables: message: 'several schemata with the same name ''AADL_CONFIG''' data: nil path: nil metaData: 'AADL_CONFIG' PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aVisitorError: a PlatypusExpressNamesCheckerError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: k: 'AADL_CONFIG' l: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: 'AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... assoc: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressN...etc... Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: 'AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... each: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... Array(SequenceableCollection)>>do: Receiver: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition) 'AADL_CONFIG'->an...etc... Arguments and temporary variables: aBlock: [:each | each ifNotNil: [aBlock value: each]] index: 2 indexLimiT: 5 Receiver's instance variables: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition) 'AADL_CONFIG'->an...etc... Dictionary>>associationsDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... Dictionary>>keysAndValuesDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpress...etc... Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: e: a PltSchemaInstance index: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a...etc... m: an Array(a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptT...etc... startpc: 28 numArgs: 0 PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PltSchemaInstance(Object)>>acceptTry: Receiver: a PltSchemaInstance Arguments and temporary variables: aVisitor: a PlatypusExpressNamesChecker Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:52:44.445+01:00' changeDate: '2012-12-07T10:52:44.418+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusExpressNamesChecker>>checks: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressNamesChecker Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>semanticChecksSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:52:44.445+01:00' changeDate: '2012-12-07T10:52:44.418+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:52:44.445+01:00' changeDate: '2012-12-07T10:52:44.418+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept...etc... startpc: 191 numArgs: 0 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: input: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (* Defini...etc... aRequestor: a PlatypusStepCodeMorph(28311552) result: a PlatypusExpressParserResult users: a Set([cheddar: /cheddar_mapping] [cheddar: /cheddar_graphical_editor]) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (* Defini...etc... aRequestor: a PlatypusStepCodeMorph(28311552) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(28311552) a TamGenericHie...etc... contents: a Text for ' SCHEMA Editor_Config; END_SCHEMA; SCHEMA aadl_Config; E...etc... mainWindow: a StandardWindow(152305664) mainPane: a TamPaneMorph(731119616) contentsMorph: a PlatypusStepCodeMorph(28311552) codeRow: a TamPaneMorph(1034158080) sourceHandler: [cheddar: /cheddar_config] codeBtnRow: an AlignmentMorph(83099648) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(707788800) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(630456320) [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: acceptedText: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (*...etc... Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: acceptedText: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (*...etc... Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: ok: nil saveSelection: (5004 to: 5003) saveScrollerOffset: (-3@1476) Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents Receiver: a PlatypusTextMorphForEditView(991952896) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (859@2034) owner: a TransformMorph(296222720) submorphs: #() fullBounds: (0@0) corner: (859@2034) color: Color black extension: a MorphExtension (786432) [other: (myDependents -> a DependentsArra...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (* Definit...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(28311552) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusStepEditor(TextEditor)>>accept Receiver: a PlatypusStepEditor Arguments and temporary variables: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(991952896) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>accept: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(991952896) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] aBoolean: false return: [:val | ^ val] asciiValue: 116 actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop: #noop: #noop: #...etc... action: #accept: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(991952896) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] return: [:val | ^ val] asciiValue: 115 honorCommandKeys: true char: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(991952896) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchOn: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] char: nil return: [:val | ^ val] keyEvents: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(991952896) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState --- The full stack --- ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>keysAndValuesDo: PlatypusExpressNamesChecker>>acceptSchemaInstance: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressNamesChecker>>checks: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: ByteString>>inclusiveOwnerPath 7 December 2012 10:53:31.75 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath Receiver: 'AADL_CONFIG' Arguments and temporary variables: aMessage: inclusiveOwnerPath exception: MessageNotUnderstood: ByteString>>inclusiveOwnerPath resumeValue: nil Receiver's instance variables: 'AADL_CONFIG' PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressNamesCheckerError Arguments and temporary variables: Receiver's instance variables: message: 'several schemata with the same name ''AADL_CONFIG''' data: nil path: nil metaData: 'AADL_CONFIG' PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aVisitorError: a PlatypusExpressNamesCheckerError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: k: 'AADL_CONFIG' l: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: 'AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... assoc: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressN...etc... Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: 'AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... each: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... Array(SequenceableCollection)>>do: Receiver: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition) 'AADL_CONFIG'->an...etc... Arguments and temporary variables: aBlock: [:each | each ifNotNil: [aBlock value: each]] index: 2 indexLimiT: 5 Receiver's instance variables: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition) 'AADL_CONFIG'->an...etc... Dictionary>>associationsDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... Dictionary>>keysAndValuesDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpress...etc... Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: e: a PltSchemaInstance index: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a...etc... m: an Array(a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptT...etc... startpc: 28 numArgs: 0 PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PltSchemaInstance(Object)>>acceptTry: Receiver: a PltSchemaInstance Arguments and temporary variables: aVisitor: a PlatypusExpressNamesChecker Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:53:31.734+01:00' changeDate: '2012-12-07T10:53:31.718+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusExpressNamesChecker>>checks: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressNamesChecker Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>semanticChecksSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:53:31.734+01:00' changeDate: '2012-12-07T10:53:31.718+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:53:31.734+01:00' changeDate: '2012-12-07T10:53:31.718+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept...etc... startpc: 191 numArgs: 0 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: input: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (* Defini...etc... aRequestor: a PlatypusStepCodeMorph(28311552) result: a PlatypusExpressParserResult users: a Set([cheddar: /cheddar_mapping] [cheddar: /cheddar_graphical_editor]) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (* Defini...etc... aRequestor: a PlatypusStepCodeMorph(28311552) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(28311552) a TamGenericHie...etc... contents: a Text for ' SCHEMA Editor_Config; END_SCHEMA; SCHEMA aadl_Config; E...etc... mainWindow: a StandardWindow(152305664) mainPane: a TamPaneMorph(731119616) contentsMorph: a PlatypusStepCodeMorph(28311552) codeRow: a TamPaneMorph(1034158080) sourceHandler: [cheddar: /cheddar_config] codeBtnRow: an AlignmentMorph(83099648) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(707788800) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(630456320) [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: acceptedText: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (*...etc... Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: acceptedText: a Text for ' SCHEMA Framework_Config; USE FROM Basic_Types; (*...etc... Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: ok: nil saveSelection: (5004 to: 5003) saveScrollerOffset: (-3@1476) Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (5004 to: 5003) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusExpressEditor(PlatypusCodeMorph)>>accept Receiver: a PlatypusExpressEditor Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(28311552) a TamGenericHie...etc... contents: a Text for ' SCHEMA Editor_Config; END_SCHEMA; SCHEMA aadl_Config; E...etc... mainWindow: a StandardWindow(152305664) mainPane: a TamPaneMorph(731119616) contentsMorph: a PlatypusStepCodeMorph(28311552) codeRow: a TamPaneMorph(1034158080) sourceHandler: [cheddar: /cheddar_config] codeBtnRow: an AlignmentMorph(83099648) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(707788800) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(630456320) PluggableButtonMorph>>performAction: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: event: [(554@65) mouseUp 3157463 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: evt: a PluggableButtonMorph(308019200) m: [(554@65) mouseUp 3157463 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(644349952) a PluggableButtonMorph(546832384) a PluggableBu...etc... Arguments and temporary variables: aBlock: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTru...etc... index: 4 indexLimiT: 6 Receiver's instance variables: an Array(a PluggableButtonMorph(644349952) a PluggableButtonMorph(546832384) a PluggableBu...etc... PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: evt: [(554@65) mouseUp 3157463 nil] all: an Array(a PluggableButtonMorph(644349952) a PluggableButtonMorph(54683238...etc... Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton PluggableButtonMorph(Morph)>>handleMouseUp: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: anEvent: [(554@65) mouseUp 3157463 nil] handler: nil Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton --- The full stack --- ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>keysAndValuesDo: PlatypusExpressNamesChecker>>acceptSchemaInstance: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressNamesChecker>>checks: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: ByteString>>inclusiveOwnerPath 7 December 2012 10:53:35.742 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath Receiver: 'AADL_CONFIG' Arguments and temporary variables: aMessage: inclusiveOwnerPath exception: MessageNotUnderstood: ByteString>>inclusiveOwnerPath resumeValue: nil Receiver's instance variables: 'AADL_CONFIG' PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path Receiver: a PlatypusExpressNamesCheckerError Arguments and temporary variables: Receiver's instance variables: message: 'several schemata with the same name ''AADL_CONFIG''' data: nil path: nil metaData: 'AADL_CONFIG' PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aVisitorError: a PlatypusExpressNamesCheckerError Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: k: 'AADL_CONFIG' l: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: 'AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... assoc: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressN...etc... Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: 'AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDe...etc... each: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... Array(SequenceableCollection)>>do: Receiver: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition) 'AADL_CONFIG'->an...etc... Arguments and temporary variables: aBlock: [:each | each ifNotNil: [aBlock value: each]] index: 2 indexLimiT: 5 Receiver's instance variables: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition) 'AADL_CONFIG'->an...etc... Dictionary>>associationsDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: [:assoc | aBlock value: assoc key value: assoc value] Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... Dictionary>>keysAndValuesDo: Receiver: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a PltSchemaDefiniti...etc... Arguments and temporary variables: aBlock: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpress...etc... Receiver's instance variables: tally: 4 array: an Array('FRAMEWORK_CONFIG'->an OrderedCollection(a PltSchemaDefinition)...etc... PlatypusExpressNamesChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: e: a PltSchemaInstance index: a Dictionary('AADL_CONFIG'->an OrderedCollection(a PltSchemaDefinition a...etc... m: an Array(a PltSchemaDefinition) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptT...etc... startpc: 28 numArgs: 0 PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PltSchemaInstance(Object)>>acceptTry: Receiver: a PltSchemaInstance Arguments and temporary variables: aVisitor: a PlatypusExpressNamesChecker Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:53:35.728+01:00' changeDate: '2012-12-07T10:53:35.71+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusExpressNamesChecker>>checks: Receiver: a PlatypusExpressNamesChecker Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressNamesCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressNamesChecker->#acc...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltSchemaInstance->a PltSchemaInstance ) schemaInstance: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance ownerPath: an OrderedCollection() checker: a PlatypusExpressNamesChecker Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: Receiver: PlatypusExpressNamesChecker Arguments and temporary variables: metaData: a PltSchemaInstance Receiver's instance variables: superclass: PlatypusExpressChecker methodDict: a MethodDictionary(#acceptContextDefinition:->(PlatypusExpressNames...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptContextDefinition: acceptSchemaD...etc... subclasses: nil name: #PlatypusExpressNamesChecker classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltSchemaInstance>>semanticChecksSilently Receiver: a PltSchemaInstance Arguments and temporary variables: checker: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:53:35.728+01:00' changeDate: '2012-12-07T10:53:35.71+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PltSchemaInstance>>verifySilently Receiver: a PltSchemaInstance Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T10:53:35.728+01:00' changeDate: '2012-12-07T10:53:35.71+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(a PltDefinedTyp...etc... schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'cheddar_config' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: nil namesBuilder: a PlatypusNamesBuilder PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: aParserResult: a PlatypusExpressParserResult checker: nil r: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: result: a PlatypusExpressParserResult Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() BlockClosure>>on:do: Receiver: [self updateWithParserResult: result] Arguments and temporary variables: exception: PlatypusParserResultAcceptingError handlerAction: [:ex | (PlatypusParserResultAcceptAbort requestor: aRequestor...etc... handlerActive: true Receiver's instance variables: outerContext: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept...etc... startpc: 191 numArgs: 0 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: Receiver: [cheddar: /cheddar_config] Arguments and temporary variables: input: a Text for 'SCHEMA Framework_Config; USE FROM Basic_Types; (* Definit...etc... aRequestor: a PlatypusStepCodeMorph(28311552) result: a PlatypusExpressParserResult users: a Set([cheddar: /cheddar_mapping] [cheddar: /cheddar_graphical_editor]) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_config/Editor_Config] [c...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA Framework_Config; USE FROM Basic_Types; (* Definit...etc... aRequestor: a PlatypusStepCodeMorph(28311552) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(28311552) a TamGenericHie...etc... contents: a Text for 'SCHEMA Framework_Config; USE FROM Basic_Types; (* Defi...etc... mainWindow: a StandardWindow(152305664) mainPane: a TamPaneMorph(731119616) contentsMorph: a PlatypusStepCodeMorph(28311552) codeRow: a TamPaneMorph(1034158080) sourceHandler: [cheddar: /cheddar_config] codeBtnRow: an AlignmentMorph(83099648) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(707788800) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(630456320) [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Framework_Config; USE FROM Basic_Types; (* ...etc... Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA Framework_Config; USE FROM Basic_Types; (* ...etc... Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: ok: nil saveSelection: (1 to: 0) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(28311552) Arguments and temporary variables: Receiver's instance variables: bounds: (370.0@81.0) corner: (1250.0@571.0) owner: a TamPaneMorph(1034158080) submorphs: an Array(a ScrollBar(56098816) a TransformMorph(296222720)) fullBounds: (370@81) corner: (1250@571) color: Color white extension: a MorphExtension (627310592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(56098816) scroller: a TransformMorph(296222720) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(182452224) textMorph: a PlatypusTextMorphForEditView(991952896) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusExpressEditor(PlatypusCodeMorph)>>accept Receiver: a PlatypusExpressEditor Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(28311552) a TamGenericHie...etc... contents: a Text for 'SCHEMA Framework_Config; USE FROM Basic_Types; (* Defi...etc... mainWindow: a StandardWindow(152305664) mainPane: a TamPaneMorph(731119616) contentsMorph: a PlatypusStepCodeMorph(28311552) codeRow: a TamPaneMorph(1034158080) sourceHandler: [cheddar: /cheddar_config] codeBtnRow: an AlignmentMorph(83099648) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: a TamPaneMorph(707788800) messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: a LayoutFrame errorSplitter: a ProportionalSplitterMorph(630456320) PluggableButtonMorph>>performAction: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: event: [(549@67) mouseUp 3161443 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: evt: a PluggableButtonMorph(308019200) m: [(549@67) mouseUp 3161443 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(644349952) a PluggableButtonMorph(546832384) a PluggableBu...etc... Arguments and temporary variables: aBlock: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTru...etc... index: 4 indexLimiT: 6 Receiver's instance variables: an Array(a PluggableButtonMorph(644349952) a PluggableButtonMorph(546832384) a PluggableBu...etc... PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: evt: [(549@67) mouseUp 3161443 nil] all: an Array(a PluggableButtonMorph(644349952) a PluggableButtonMorph(54683238...etc... Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton PluggableButtonMorph(Morph)>>handleMouseUp: Receiver: a PluggableButtonMorph(308019200) Arguments and temporary variables: anEvent: [(549@67) mouseUp 3161443 nil] handler: nil Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(92012544)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (334495744) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(177209344) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton --- The full stack --- ByteString(Object)>>doesNotUnderstand: #inclusiveOwnerPath PlatypusExpressNamesCheckerError(PlatypusVisitorError)>>path PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>registerError: [:k :l | l size > 1 ifTrue: [self registerError: (PlatypusExpressNamesCheckerError metaData: k message: 'several schemata with the same name ''' , l first key , '''')]] in PlatypusExpressNamesChecker>>acceptSchemaInstance: [:assoc | aBlock value: assoc key value: assoc value] in Dictionary>>keysAndValuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>keysAndValuesDo: PlatypusExpressNamesChecker>>acceptSchemaInstance: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressNamesChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressNamesChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressNamesChecker>>checks: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressNamesChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltUsedSchema>>removeFrom: 7 December 2012 11:14:14.078 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: Receiver: a PltUsedSchema Arguments and temporary variables: aMessage: removeFrom: a PltSchemaDefinition exception: MessageNotUnderstood: PltUsedSchema>>removeFrom: resumeValue: nil Receiver's instance variables: owner: a PltSchemaDefinition name: 'express_toolsbox_function' nativeSchema: nil explicitlyImportedItems: an OrderedCollection() implicitlyImportedItems: an OrderedCollection() PltSchemaDefinition(PltContextDefinition)>>removeElement: Receiver: a PltSchemaDefinition Arguments and temporary variables: aPrimaryElement: a PltUsedSchema Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: a Dictionary('ADA_CONSTANT'->a Set(a PltEntityDefinition) ) types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('ADA_CONSTANT_ADS_CODE'->a Set(a PltFunctionDecl...etc... name: 'cheddar_constants' algorithmes: an OrderedCollection(a PltFunctionDeclaration) entities: an OrderedCollection(a PltEntityDefinition) interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: Receiver: [cheddar: /express2cheddar/cheddar_constants] Arguments and temporary variables: aReference: use from express_toolsbox_function Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/cheddar_constant...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'cheddar_constants' metaData: a PltSchemaDefinition generatedClassRef: nil [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema BlockClosure>>ensure: Receiver: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSil...etc... startpc: 43 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>remove Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete Receiver: use from express_toolsbox_function Arguments and temporary variables: message: ' really remove this link ? ' Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: Receiver: use from express_toolsbox_function Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(1043857408) a Pluggabl...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(760217600) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(586416128) listMorph: a TamHierarchicalListMorph(1043857408) editorRow: a TamPaneMorph(900988928) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/cheddar_co...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(429654016) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(772800512) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $x Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: timeStamp: 4398793 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (256@258) handler: nil wasHandled: true keyValue: 120 charCode: 120 scanCode: 7 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) result: #(nil) Receiver's instance variables: bounds: (304@300) corner: (320@316) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (304@300) corner: (320@316) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(304@300) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4399829 304 300 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (304@300) corner: (320@316) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (304@300) corner: (320@316) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(304@300) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4399829 304 300 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (304@300) corner: (320@316) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (304@300) corner: (320@316) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(304@300) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4399829 304 300 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (304@300) corner: (320@316) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (304@300) corner: (320@316) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(304@300) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4399829 304 300 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (304@300) corner: (320@316) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (304@300) corner: (320@316) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(304@300) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4399829 304 300 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 4398793 120 0 8 120 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (304@300) corner: (320@316) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (304@300) corner: (320@316) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(304@300) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4399829 304 300 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4400026 lastStepMessage: nil lastCycleTime: 4400026 alarms: a Heap() lastAlarmTime: 4400026 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4400026 lastStepMessage: nil lastCycleTime: 4400026 alarms: a Heap() lastAlarmTime: 4400026 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4400026 lastStepMessage: nil lastCycleTime: 4400026 alarms: a Heap() lastAlarmTime: 4400026 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4400026 lastStepMessage: nil lastCycleTime: 4400026 alarms: a Heap() lastAlarmTime: 4400026 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: PltSchemaDefinition(PltContextDefinition)>>removeElement: PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently PlatypusSchemaInterfaceReference(TamListItemReference)>>remove PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltUsedSchema>>removeFrom: 7 December 2012 11:14:21.459 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: Receiver: a PltUsedSchema Arguments and temporary variables: aMessage: removeFrom: a PltSchemaDefinition exception: MessageNotUnderstood: PltUsedSchema>>removeFrom: resumeValue: nil Receiver's instance variables: owner: a PltSchemaDefinition name: 'express_toolsbox_function' nativeSchema: nil explicitlyImportedItems: an OrderedCollection() implicitlyImportedItems: an OrderedCollection() PltSchemaDefinition(PltContextDefinition)>>removeElement: Receiver: a PltSchemaDefinition Arguments and temporary variables: aPrimaryElement: a PltUsedSchema Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: a Dictionary('ADA_CONSTANT'->a Set(a PltEntityDefinition) ) types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('ADA_CONSTANT_ADS_CODE'->a Set(a PltFunctionDecl...etc... name: 'cheddar_constants' algorithmes: an OrderedCollection(a PltFunctionDeclaration) entities: an OrderedCollection(a PltEntityDefinition) interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: Receiver: [cheddar: /express2cheddar/cheddar_constants] Arguments and temporary variables: aReference: use from express_toolsbox_function Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/cheddar_constant...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'cheddar_constants' metaData: a PltSchemaDefinition generatedClassRef: nil [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema BlockClosure>>ensure: Receiver: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSil...etc... startpc: 43 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>remove Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete Receiver: use from express_toolsbox_function Arguments and temporary variables: message: ' really remove this link ? ' Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: Receiver: use from express_toolsbox_function Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(1043857408) a Pluggabl...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(760217600) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(586416128) listMorph: a TamHierarchicalListMorph(1043857408) editorRow: a TamPaneMorph(900988928) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/cheddar_co...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(429654016) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(772800512) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $x Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: timeStamp: 4406046 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (275@255) handler: nil wasHandled: true keyValue: 120 charCode: 120 scanCode: 7 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(822083584)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 488.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) result: #(nil) Receiver's instance variables: bounds: (328@296) corner: (344@312) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (328@296) corner: (344@312) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(328@296) mouseOver nil nil] targetOffset: (14.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4407211 328 296 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (328@296) corner: (344@312) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (328@296) corner: (344@312) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(328@296) mouseOver nil nil] targetOffset: (14.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4407211 328 296 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (328@296) corner: (344@312) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (328@296) corner: (344@312) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(328@296) mouseOver nil nil] targetOffset: (14.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4407211 328 296 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (328@296) corner: (344@312) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (328@296) corner: (344@312) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(328@296) mouseOver nil nil] targetOffset: (14.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4407211 328 296 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (328@296) corner: (344@312) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (328@296) corner: (344@312) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(328@296) mouseOver nil nil] targetOffset: (14.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4407211 328 296 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 4406046 120 0 8 120 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (328@296) corner: (344@312) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (328@296) corner: (344@312) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(328@296) mouseOver nil nil] targetOffset: (14.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4407211 328 296 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4407402 lastStepMessage: nil lastCycleTime: 4407402 alarms: a Heap() lastAlarmTime: 4407402 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4407402 lastStepMessage: nil lastCycleTime: 4407402 alarms: a Heap() lastAlarmTime: 4407402 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4407402 lastStepMessage: nil lastCycleTime: 4407402 alarms: a Heap() lastAlarmTime: 4407402 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4407402 lastStepMessage: nil lastCycleTime: 4407402 alarms: a Heap() lastAlarmTime: 4407402 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: PltSchemaDefinition(PltContextDefinition)>>removeElement: PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently PlatypusSchemaInterfaceReference(TamListItemReference)>>remove PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltUsedSchema>>removeFrom: 7 December 2012 11:15:15.273 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: Receiver: a PltUsedSchema Arguments and temporary variables: aMessage: removeFrom: a PltSchemaDefinition exception: MessageNotUnderstood: PltUsedSchema>>removeFrom: resumeValue: nil Receiver's instance variables: owner: a PltSchemaDefinition name: 'express_toolsbox_function' nativeSchema: nil explicitlyImportedItems: an OrderedCollection() implicitlyImportedItems: an OrderedCollection() PltSchemaDefinition(PltContextDefinition)>>removeElement: Receiver: a PltSchemaDefinition Arguments and temporary variables: aPrimaryElement: a PltUsedSchema Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: a Dictionary('ADA_CONSTANT'->a Set(a PltEntityDefinition) ) types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('ADA_CONSTANT_ADS_CODE'->a Set(a PltFunctionDecl...etc... name: 'cheddar_constants' algorithmes: an OrderedCollection(a PltFunctionDeclaration) entities: an OrderedCollection(a PltEntityDefinition) interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: Receiver: [cheddar: /express2cheddar/cheddar_constants] Arguments and temporary variables: aReference: use from express_toolsbox_function Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/cheddar_constant...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'cheddar_constants' metaData: a PltSchemaDefinition generatedClassRef: nil [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema BlockClosure>>ensure: Receiver: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSil...etc... startpc: 43 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>remove Receiver: use from express_toolsbox_function Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete Receiver: use from express_toolsbox_function Arguments and temporary variables: message: ' really remove this link ? ' Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: Receiver: use from express_toolsbox_function Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(1043857408) a Pluggabl...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(760217600) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(586416128) listMorph: a TamHierarchicalListMorph(1043857408) editorRow: a TamPaneMorph(900988928) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar/cheddar_co...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(429654016) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(772800512) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $x Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(945291264)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 401.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(945291264)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 401.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(1043857408) Receiver's instance variables: timeStamp: 4459237 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (269@256) handler: nil wasHandled: true keyValue: 120 charCode: 120 scanCode: 7 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(945291264)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 401.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(1043857408) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (159.0@81.0) corner: (366.0@644.0) owner: a TamPaneMorph(968884224) submorphs: an Array(a ScrollBar(1070858240) a ScrollBar(110886912) a TamHierarc...etc... fullBounds: (159@81) corner: (366@644) color: Color white extension: a MorphExtension (174325760) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(1070858240) scroller: a TamHierarchicalListTransformMorph(224657408) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(110886912) selectedMorph: a TamIndentingListItemMorph(945291264)'use from express_toolsbox...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 401.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) result: #(nil) Receiver's instance variables: bounds: (322@298) corner: (338@314) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (322@298) corner: (338@314) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(322@298) mouseOver nil nil] targetOffset: (14.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4461015 322 298 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (322@298) corner: (338@314) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (322@298) corner: (338@314) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(322@298) mouseOver nil nil] targetOffset: (14.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4461015 322 298 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(1043857408) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (322@298) corner: (338@314) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (322@298) corner: (338@314) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(322@298) mouseOver nil nil] targetOffset: (14.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4461015 322 298 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (322@298) corner: (338@314) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (322@298) corner: (338@314) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(322@298) mouseOver nil nil] targetOffset: (14.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4461015 322 298 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (322@298) corner: (338@314) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (322@298) corner: (338@314) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(322@298) mouseOver nil nil] targetOffset: (14.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4461015 322 298 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 4459237 120 0 8 120 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (322@298) corner: (338@314) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (322@298) corner: (338@314) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(322@298) mouseOver nil nil] targetOffset: (14.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4461015 322 298 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4461202 lastStepMessage: nil lastCycleTime: 4461202 alarms: a Heap() lastAlarmTime: 4461202 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4461223 lastStepMessage: nil lastCycleTime: 4461223 alarms: a Heap() lastAlarmTime: 4461223 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4461223 lastStepMessage: nil lastCycleTime: 4461223 alarms: a Heap() lastAlarmTime: 4461223 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1280@702) canvas: a FormCanvas on: DisplayScreen(1280x702x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(772800512))...etc... lastStepTime: 4461223 lastStepMessage: nil lastCycleTime: 4461223 alarms: a Heap() lastAlarmTime: 4461223 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1280@702) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sys...etc... fullBounds: (0@0) corner: (1280@702) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: PltSchemaDefinition(PltContextDefinition)>>removeElement: PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently PlatypusSchemaInterfaceReference(TamListItemReference)>>remove PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignement' 7 December 2012 11:20:28.841 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: err: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assigne...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>cull: Receiver: [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. ...etc... Arguments and temporary variables: anArg: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assig...etc... Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>compute: startpc: 55 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'a...etc... Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'a...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'a...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] PlatypusExpressInvalidAttributeException(Exception)>>signal Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignement' Arguments and temporary variables: Receiver's instance variables: messageText: 'invalid attribute name: ''assignement''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException(Exception)>>signal: Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignement' Arguments and temporary variables: signalerText: 'invalid attribute name: ''assignement''' Receiver's instance variables: messageText: 'invalid attribute name: ''assignement''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException class(Exception class)>>signal: Receiver: PlatypusExpressInvalidAttributeException Arguments and temporary variables: signalerText: 'invalid attribute name: ''assignement''' Receiver's instance variables: superclass: PlatypusExpressInterpretorException methodDict: a MethodDictionary() format: 142 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PlatypusExpressInvalidAttributeException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-interpreter' traitComposition: {} localSelectors: nil [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltAnonymousVariable val: a PltExternalRepresentation['83'] PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: Receiver: a PltExternalRepresentation['83'] Arguments and temporary variables: missingBlock: [self interpretor pushVal: v] notMissingBlock: [key := anIdent asUppercase. allAttrIdentif := v getInsta...etc... Receiver's instance variables: owner: nil persistentLabel: '83' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRe...etc... PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltAnonymousVariable val: a PltExternalRepresentation['83'] PlatypusExpressInterpretor>>acceptAttributeQualifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier stackElement: a PlatypusExpressInterpretorStackVar Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier selector: #acceptAttributeQualifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltAttributeQualifier aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [self acceptTry: first. self doQualifiers: quals allButFirst] Arguments and temporary variables: aBlock: [selfStack pop. modelContentsAccessBlock := omc] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>doQualifiers: startpc: 78 numArgs: 0 PlatypusExpressInterpretor>>asValOfSelf:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anInstance: a PltExternalRepresentation['83'] aBlock: [self acceptTry: first. self doQualifiers: quals allButFirst] omc: [anInstance owningModel] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptQualifiedExpression: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression selector: #acceptQualifiedExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltQualifiedExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [:param | self acceptTry: param. args addValue: self pop] in PlatypusExpressInterpretor>>acceptIdentifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: args: a PltQualifiedExpression param: a PlatypusExpressInterpretorCallArguments Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger OrderedCollection>>do: Receiver: an OrderedCollection(a PltQualifiedExpression) Arguments and temporary variables: aBlock: [:param | self acceptTry: param. args addValue: self pop] index: 1 Receiver's instance variables: array: an Array(a PltQualifiedExpression) firstIndex: 1 lastIndex: 1 PlatypusExpressInterpretor>>acceptIdentifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltIdentifier('ToString') args: a PlatypusExpressInterpretorCallArguments Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltIdentifier('ToString') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltIdentifier('ToString') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('ToString') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltIdentifier('ToString') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltIdentifier('ToString') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger --- The full stack --- [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: PlatypusExpressInvalidAttributeException(Exception)>>signal PlatypusExpressInvalidAttributeException(Exception)>>signal: PlatypusExpressInvalidAttributeException class(Exception class)>>signal: [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PlatypusExpressInterpretor>>acceptAttributeQualifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>doQualifiers: PlatypusExpressInterpretor>>acceptQualifiedExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: [:param | self acceptTry: param. args addValue: self pop] in PlatypusExpressInterpretor>>acceptIdentifier: OrderedCollection>>do: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptAssignmentStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignmentStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptDerivedAttribute: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [self compute: anExpression. ^ self pop val] in PlatypusExpressInterpretor>>expression:context:instance: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>expression:context:instance: PlatypusExpressInterpretor>>attributeOrRule:instance: [| int | int := PlatypusExpressInterpretor new. self modelContents ifNotNil: [:mc | mc recordComputedInstances ifTrue: [int modelContents: self modelContents]]. (int attributeOrRule: attrOrRuleOrValue instance: self owner value interpretingContext) ifNotNil: [:result | self addSubReference: (result tamarisStepValueReferenceClass owner: self position: self subReferences size + 1 value: result). TamManager changed: self]] in PlatypusStepReference>>evaluate BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusStepReference>>evaluate PlatypusInstanceEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: MouseClickState>>handleEvent:from: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignment' 7 December 2012 11:21:38.496 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: err: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignm...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>cull: Receiver: [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. ...etc... Arguments and temporary variables: anArg: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assig...etc... Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>compute: startpc: 55 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'a...etc... Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'a...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'a...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] PlatypusExpressInvalidAttributeException(Exception)>>signal Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignment' Arguments and temporary variables: Receiver's instance variables: messageText: 'invalid attribute name: ''assignment''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException(Exception)>>signal: Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'assignment' Arguments and temporary variables: signalerText: 'invalid attribute name: ''assignment''' Receiver's instance variables: messageText: 'invalid attribute name: ''assignment''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException class(Exception class)>>signal: Receiver: PlatypusExpressInvalidAttributeException Arguments and temporary variables: signalerText: 'invalid attribute name: ''assignment''' Receiver's instance variables: superclass: PlatypusExpressInterpretorException methodDict: a MethodDictionary() format: 142 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PlatypusExpressInvalidAttributeException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-interpreter' traitComposition: {} localSelectors: nil [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltAnonymousVariable val: a PltExternalRepresentation['83'] PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: Receiver: a PltExternalRepresentation['83'] Arguments and temporary variables: missingBlock: [self interpretor pushVal: v] notMissingBlock: [key := anIdent asUppercase. allAttrIdentif := v getInsta...etc... Receiver's instance variables: owner: nil persistentLabel: '83' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRe...etc... PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltAnonymousVariable val: a PltExternalRepresentation['83'] PlatypusExpressInterpretor>>acceptAttributeQualifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier stackElement: a PlatypusExpressInterpretorStackVar Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier selector: #acceptAttributeQualifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltAttributeQualifier aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [self acceptTry: first. self doQualifiers: quals allButFirst] Arguments and temporary variables: aBlock: [selfStack pop. modelContentsAccessBlock := omc] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>doQualifiers: startpc: 78 numArgs: 0 PlatypusExpressInterpretor>>asValOfSelf:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anInstance: a PltExternalRepresentation['83'] aBlock: [self acceptTry: first. self doQualifiers: quals allButFirst] omc: [anInstance owningModel] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptQualifiedExpression: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression selector: #acceptQualifiedExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltQualifiedExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [:param | self acceptTry: param. args addValue: self pop] in PlatypusExpressInterpretor>>acceptIdentifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: args: a PltQualifiedExpression param: a PlatypusExpressInterpretorCallArguments Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger OrderedCollection>>do: Receiver: an OrderedCollection(a PltQualifiedExpression) Arguments and temporary variables: aBlock: [:param | self acceptTry: param. args addValue: self pop] index: 1 Receiver's instance variables: array: an Array(a PltQualifiedExpression) firstIndex: 1 lastIndex: 1 PlatypusExpressInterpretor>>acceptIdentifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltIdentifier('ToString') args: a PlatypusExpressInterpretorCallArguments Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltIdentifier('ToString') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltIdentifier('ToString') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('ToString') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltIdentifier('ToString') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltIdentifier('ToString') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger --- The full stack --- [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: PlatypusExpressInvalidAttributeException(Exception)>>signal PlatypusExpressInvalidAttributeException(Exception)>>signal: PlatypusExpressInvalidAttributeException class(Exception class)>>signal: [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PlatypusExpressInterpretor>>acceptAttributeQualifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>doQualifiers: PlatypusExpressInterpretor>>acceptQualifiedExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: [:param | self acceptTry: param. args addValue: self pop] in PlatypusExpressInterpretor>>acceptIdentifier: OrderedCollection>>do: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptAssignmentStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignmentStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptDerivedAttribute: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [self compute: anExpression. ^ self pop val] in PlatypusExpressInterpretor>>expression:context:instance: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>expression:context:instance: PlatypusExpressInterpretor>>attributeOrRule:instance: [| int | int := PlatypusExpressInterpretor new. self modelContents ifNotNil: [:mc | mc recordComputedInstances ifTrue: [int modelContents: self modelContents]]. (int attributeOrRule: attrOrRuleOrValue instance: self owner value interpretingContext) ifNotNil: [:result | self addSubReference: (result tamarisStepValueReferenceClass owner: self position: self subReferences size + 1 value: result). TamManager changed: self]] in PlatypusStepReference>>evaluate BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusStepReference>>evaluate PlatypusInstanceEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: 7 December 2012 12:18:26.183 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: err: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>cull: Receiver: [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. ...etc... Arguments and temporary variables: anArg: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>compute: startpc: 55 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] MessageNotUnderstood(Exception)>>signal Receiver: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: a PlatypusExpressExpression2AdaTranslater signalContext: MessageNotUnderstood(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil message: accept: nil receiver: a PlatypusExpressExpression2AdaTranslater reachedDefaultHandler: true PlatypusExpressExpression2AdaTranslater(Object)>>doesNotUnderstand: #accept: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: aMessage: accept: nil exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... resumeValue: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary() objectsWithErrorIndex: an IdentitySet() resultStream: nil requestor: nil receiverName: nil [| t1 | t1 := PlatypusExpressExpression2AdaTranslater new. t1 accept: arg. ^ self return: (PltStringLiteral val: t1 result printableCode)] in PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode Receiver: a PlatypusExpressInterpretorWrapper Arguments and temporary variables: t1: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: myInterpreter: a PlatypusExpressInterpretor PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode Receiver: a PlatypusExpressInterpretorWrapper Arguments and temporary variables: Receiver's instance variables: myInterpreter: a PlatypusExpressInterpretor PlatypusNativeCodeInterpretor>>evaluateMethod: Receiver: a PlatypusNativeCodeInterpretor Arguments and temporary variables: aMethod: (PlatypusExpressInterpretorWrapper>>#EvaluatePlatypusInterpreterNative...etc... selector: #EvaluatePlatypusInterpreterNativeCode Receiver's instance variables: receiver: a PlatypusExpressInterpretorWrapper requestor: a TamTextMorph(1047789568) source: ' | t | t := PlatypusExpressExpression2AdaTranslater new. t accept:...etc... preparsed: a ReadWriteStream replacementPositions: an OrderedCollection() PlatypusNativeCodeInterpretor>>evaluate:interpretor:requestor: Receiver: a PlatypusNativeCodeInterpretor Arguments and temporary variables: e: a PltNativeCode anInterpretor: a PlatypusExpressInterpretor aRequestor: nil method: (PlatypusExpressInterpretorWrapper>>#EvaluatePlatypusInterpreterNativeC...etc... Receiver's instance variables: receiver: a PlatypusExpressInterpretorWrapper requestor: a TamTextMorph(1047789568) source: ' | t | t := PlatypusExpressExpression2AdaTranslater new. t accept:...etc... preparsed: a ReadWriteStream replacementPositions: an OrderedCollection() PlatypusExpressInterpretor>>acceptNativeCode: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode selector: #acceptNativeCode: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeCode aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptNativeAlgorithm: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeAlgorithm nativeCode: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm selector: #acceptNativeAlgorithm: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeAlgorithm aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltNativeAlgorithm(Object)>>acceptTry: Receiver: a PltNativeAlgorithm Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltNativeStatement implementations: an OrderedCollection(a PltNativeCode a PltNativeCode) PlatypusExpressInterpretor>>acceptNativeStatement: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement selector: #acceptNativeStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltNativeStatement(Object)>>acceptTry: Receiver: a PltNativeStatement Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltFunctionDeclaration source: a PltNativeAlgorithm [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: stmt: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger OrderedCollection>>do: Receiver: an OrderedCollection(a PltNativeStatement) Arguments and temporary variables: aBlock: [:stmt | stmt acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltNativeStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltFunctionDeclaration Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger --- The full stack --- [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MessageNotUnderstood(Exception)>>signal PlatypusExpressExpression2AdaTranslater(Object)>>doesNotUnderstand: #accept: [| t1 | t1 := PlatypusExpressExpression2AdaTranslater new. t1 accept: arg. ^ self return: (PltStringLiteral val: t1 result printableCode)] in PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode PlatypusNativeCodeInterpretor>>evaluateMethod: PlatypusNativeCodeInterpretor>>evaluate:interpretor:requestor: PlatypusExpressInterpretor>>acceptNativeCode: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PlatypusExpressInterpretor>>acceptNativeAlgorithm: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltNativeAlgorithm(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptNativeStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltNativeStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptAssignmentStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignmentStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptDerivedAttribute: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [self compute: anExpression. ^ self pop val] in PlatypusExpressInterpretor>>expression:context:instance: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>expression:context:instance: PlatypusExpressInterpretor>>attributeOrRule:instance: [| int | int := PlatypusExpressInterpretor new. self modelContents ifNotNil: [:mc | mc recordComputedInstances ifTrue: [int modelContents: self modelContents]]. (int attributeOrRule: attrOrRuleOrValue instance: self owner value interpretingContext) ifNotNil: [:result | self addSubReference: (result tamarisStepValueReferenceClass owner: self position: self subReferences size + 1 value: result). TamManager changed: self]] in PlatypusStepReference>>evaluate BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusStepReference>>evaluate PlatypusInstanceEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: MouseClickState>>handleEvent:from: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: 7 December 2012 12:19:42.691 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: err: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>cull: Receiver: [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. ...etc... Arguments and temporary variables: anArg: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>compute: startpc: 55 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] MessageNotUnderstood(Exception)>>signal Receiver: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accept: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: a PlatypusExpressExpression2AdaTranslater signalContext: MessageNotUnderstood(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil message: accept: nil receiver: a PlatypusExpressExpression2AdaTranslater reachedDefaultHandler: true PlatypusExpressExpression2AdaTranslater(Object)>>doesNotUnderstand: #accept: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: aMessage: accept: nil exception: MessageNotUnderstood: PlatypusExpressExpression2AdaTranslater>>accep...etc... resumeValue: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary() objectsWithErrorIndex: an IdentitySet() resultStream: nil requestor: nil receiverName: nil [| t1 | t1 := PlatypusExpressExpression2AdaTranslater new. t1 accept: arg. ^ self return: (PltStringLiteral val: t1 result)] in PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode Receiver: a PlatypusExpressInterpretorWrapper Arguments and temporary variables: t1: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: myInterpreter: a PlatypusExpressInterpretor PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode Receiver: a PlatypusExpressInterpretorWrapper Arguments and temporary variables: Receiver's instance variables: myInterpreter: a PlatypusExpressInterpretor PlatypusNativeCodeInterpretor>>evaluateMethod: Receiver: a PlatypusNativeCodeInterpretor Arguments and temporary variables: aMethod: (PlatypusExpressInterpretorWrapper>>#EvaluatePlatypusInterpreterNative...etc... selector: #EvaluatePlatypusInterpreterNativeCode Receiver's instance variables: receiver: a PlatypusExpressInterpretorWrapper requestor: a TamTextMorph(1045692416) source: ' | t | t := PlatypusExpressExpression2AdaTranslater new. t accept:...etc... preparsed: a ReadWriteStream replacementPositions: an OrderedCollection() PlatypusNativeCodeInterpretor>>evaluate:interpretor:requestor: Receiver: a PlatypusNativeCodeInterpretor Arguments and temporary variables: e: a PltNativeCode anInterpretor: a PlatypusExpressInterpretor aRequestor: nil method: (PlatypusExpressInterpretorWrapper>>#EvaluatePlatypusInterpreterNativeC...etc... Receiver's instance variables: receiver: a PlatypusExpressInterpretorWrapper requestor: a TamTextMorph(1045692416) source: ' | t | t := PlatypusExpressExpression2AdaTranslater new. t accept:...etc... preparsed: a ReadWriteStream replacementPositions: an OrderedCollection() PlatypusExpressInterpretor>>acceptNativeCode: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode selector: #acceptNativeCode: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeCode aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptNativeAlgorithm: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeAlgorithm nativeCode: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm selector: #acceptNativeAlgorithm: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeAlgorithm aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltNativeAlgorithm(Object)>>acceptTry: Receiver: a PltNativeAlgorithm Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltNativeStatement implementations: an OrderedCollection(a PltNativeCode a PltNativeCode) PlatypusExpressInterpretor>>acceptNativeStatement: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement selector: #acceptNativeStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltNativeStatement(Object)>>acceptTry: Receiver: a PltNativeStatement Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltFunctionDeclaration source: a PltNativeAlgorithm [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: stmt: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger OrderedCollection>>do: Receiver: an OrderedCollection(a PltNativeStatement) Arguments and temporary variables: aBlock: [:stmt | stmt acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltNativeStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltFunctionDeclaration Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger --- The full stack --- [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MessageNotUnderstood(Exception)>>signal PlatypusExpressExpression2AdaTranslater(Object)>>doesNotUnderstand: #accept: [| t1 | t1 := PlatypusExpressExpression2AdaTranslater new. t1 accept: arg. ^ self return: (PltStringLiteral val: t1 result)] in PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode PlatypusNativeCodeInterpretor>>evaluateMethod: PlatypusNativeCodeInterpretor>>evaluate:interpretor:requestor: PlatypusExpressInterpretor>>acceptNativeCode: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PlatypusExpressInterpretor>>acceptNativeAlgorithm: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltNativeAlgorithm(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptNativeStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltNativeStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptAssignmentStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignmentStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptDerivedAttribute: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [self compute: anExpression. ^ self pop val] in PlatypusExpressInterpretor>>expression:context:instance: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>expression:context:instance: PlatypusExpressInterpretor>>attributeOrRule:instance: [| int | int := PlatypusExpressInterpretor new. self modelContents ifNotNil: [:mc | mc recordComputedInstances ifTrue: [int modelContents: self modelContents]]. (int attributeOrRule: attrOrRuleOrValue instance: self owner value interpretingContext) ifNotNil: [:result | self addSubReference: (result tamarisStepValueReferenceClass owner: self position: self subReferences size + 1 value: result). TamManager changed: self]] in PlatypusStepReference>>evaluate BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusStepReference>>evaluate PlatypusInstanceEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: MouseClickState>>handleEvent:from: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 7 December 2012 12:23:26.107 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] SmallIdentityDictionary(SmallDictionary)>>at:ifAbsent: Receiver: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acceptSimpleRecord: PlatypusExpres...etc... Arguments and temporary variables: key: PltSimpleRecord aBlock: [self lookUpAndCacheAcceptSelectorOfClass: anObject class] index: nil Receiver's instance variables: keys: {PlatypusStepAbstractVisitor. PlatypusExpressExpression2AdaTranslater} values: #(#acceptSimpleRecord: #acceptMissingValue:) size: 2 PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltSimpleRecord selector: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisit...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: owner: a PltExternalRepresentation['85'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltRedefinedAttributeValue) [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 7 OrderedCollection>>do: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 3 Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 7 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 7 PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: e: a PltExternalRepresentation['85'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltExternalRepresentation['85'] selector: #acceptExternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltExternalRepresentation['85'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisit...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObjectOrCollection: a PltExternalRepresentation['85'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltExternalRepresentation['85'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PltExternalRepresentation(Object)>>acceptTry: Receiver: a PltExternalRepresentation['85'] Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: owner: nil persistentLabel: '85' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRe...etc... [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltExternalRepresentation['85'] a PltRedefinedAttributeValue a PltS...etc... Arguments and temporary variables: aVisitor: a PltExternalRepresentation['85'] el: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltExternalRepresentation['85'] a PltRedefinedAttributeValue ...etc... firstIndex: 1 lastIndex: 5 OrderedCollection>>do: Receiver: an OrderedCollection(a PltExternalRepresentation['85'] a PltRedefinedAttributeValue a PltS...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 1 Receiver's instance variables: array: an Array(a PltExternalRepresentation['85'] a PltRedefinedAttributeValue ...etc... firstIndex: 1 lastIndex: 5 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltExternalRepresentation['85'] a PltRedefinedAttributeValue a PltS...etc... Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltExternalRepresentation['85'] a PltRedefinedAttributeValue ...etc... firstIndex: 1 lastIndex: 5 PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptInternalRepresentation: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: e: a PltInternalRepresentation['84'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltInternalRepresentation['84'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltInternalRepresentation['84'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisit...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['84'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltInternalRepresentation['84'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['84'] Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: owner: nil persistentLabel: '84' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['85'] a PltRedefin...etc... [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltStringLiteral a PltInternalRepresentation['84'] a PltInternalRep...etc... Arguments and temporary variables: aVisitor: a PltInternalRepresentation['84'] el: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltStringLiteral a PltInternalRepresentation['84'] a PltInter...etc... firstIndex: 1 lastIndex: 4 OrderedCollection>>do: Receiver: an OrderedCollection(a PltStringLiteral a PltInternalRepresentation['84'] a PltInternalRep...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 2 Receiver's instance variables: array: an Array(a PltStringLiteral a PltInternalRepresentation['84'] a PltInter...etc... firstIndex: 1 lastIndex: 4 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltStringLiteral a PltInternalRepresentation['84'] a PltInternalRep...etc... Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltStringLiteral a PltInternalRepresentation['84'] a PltInter...etc... firstIndex: 1 lastIndex: 4 PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptSimpleRecord: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: e: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltSimpleRecord selector: #acceptSimpleRecord: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisit...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusStepAbstractVisitor->#acc...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil receiverName: nil PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: owner: a PltExternalRepresentation['83'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltStringLiteral a PltInternalRepresentation...etc... [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection>>do: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 5 Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 --- The full stack --- SmallIdentityDictionary(SmallDictionary)>>at:ifAbsent: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptInternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptSimpleRecord: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptAggregateData: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptAggregateInstance: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltListInstance(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptInternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptSimpleRecord: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptInternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptSimpleRecord: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptAggregateData: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptAggregateInstance: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltListInstance(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptInternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptSimpleRecord: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptInternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptSimpleRecord: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptExternalRepresentation: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptAggregateData: PlatypusExpressExpression2AdaTranslater(PlatypusStepAbstractVisitor)>>acceptAggregateInstance: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2AdaTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PltListInstance(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 7 December 2012 12:50:01.583 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PlatypusExpressExpression2AdaTranslater(Object)>>halt Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary() objectsWithErrorIndex: an IdentitySet() resultStream: nil requestor: nil receiverName: nil PlatypusExpressExpression2AdaTranslater>>translate: Receiver: a PlatypusExpressExpression2AdaTranslater Arguments and temporary variables: a: a PltInternalRepresentation['87'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary() objectsWithErrorIndex: an IdentitySet() resultStream: nil requestor: nil receiverName: nil [| t1 | t1 := PlatypusExpressExpression2AdaTranslater new. ^ self return: (PltStringLiteral val: (t1 translate: self arg))] in PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode Receiver: a PlatypusExpressInterpretorWrapper Arguments and temporary variables: t1: a PlatypusExpressExpression2AdaTranslater Receiver's instance variables: myInterpreter: a PlatypusExpressInterpretor PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode Receiver: a PlatypusExpressInterpretorWrapper Arguments and temporary variables: Receiver's instance variables: myInterpreter: a PlatypusExpressInterpretor PlatypusNativeCodeInterpretor>>evaluateMethod: Receiver: a PlatypusNativeCodeInterpretor Arguments and temporary variables: aMethod: (PlatypusExpressInterpretorWrapper>>#EvaluatePlatypusInterpreterNative...etc... selector: #EvaluatePlatypusInterpreterNativeCode Receiver's instance variables: receiver: a PlatypusExpressInterpretorWrapper requestor: nil source: nil preparsed: nil replacementPositions: nil PlatypusNativeCodeInterpretor>>evaluate:interpretor:requestor: Receiver: a PlatypusNativeCodeInterpretor Arguments and temporary variables: e: a PltNativeCode anInterpretor: a PlatypusExpressInterpretor aRequestor: nil method: (PlatypusExpressInterpretorWrapper>>#EvaluatePlatypusInterpreterNativeC...etc... Receiver's instance variables: receiver: a PlatypusExpressInterpretorWrapper requestor: nil source: nil preparsed: nil replacementPositions: nil PlatypusExpressInterpretor>>acceptNativeCode: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode selector: #acceptNativeCode: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeCode aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor>>acceptNativeAlgorithm: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeAlgorithm nativeCode: a PltNativeCode Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm selector: #acceptNativeAlgorithm: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeAlgorithm aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeAlgorithm Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PltNativeAlgorithm(Object)>>acceptTry: Receiver: a PltNativeAlgorithm Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltNativeStatement implementations: an OrderedCollection(a PltNativeCode a PltNativeCode) PlatypusExpressInterpretor>>acceptNativeStatement: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement selector: #acceptNativeStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltNativeStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PltNativeStatement(Object)>>acceptTry: Receiver: a PltNativeStatement Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltFunctionDeclaration source: a PltNativeAlgorithm [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: stmt: a PltNativeStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil OrderedCollection>>do: Receiver: an OrderedCollection(a PltNativeStatement) Arguments and temporary variables: aBlock: [:stmt | stmt acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltNativeStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltFunctionDeclaration Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil BlockClosure>>on:do: Receiver: [e statements do: [:stmt | stmt acceptTry: self]] Arguments and temporary variables: exception: PlatypusExpressReturnStatementException handlerAction: [] handlerActive: true Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>acceptStatementsContainer: startpc: 34 numArgs: 0 PlatypusExpressInterpretor>>acceptStatementsContainer: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltFunctionDeclaration Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltFunctionDeclaration Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil BlockClosure>>ensure: Receiver: [self acceptStatementsContainer: e] Arguments and temporary variables: aBlock: [self popContext] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: startpc: 28 numArgs: 0 PlatypusExpressInterpretor>>asContext:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: contextInstance: a PltFunctionDeclaration aBlock: [self acceptStatementsContainer: e] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltFunctionDeclaration Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltFunctionDeclaration selector: #acceptAlgorithmDeclaration: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: nil --- The full stack --- PlatypusExpressExpression2AdaTranslater(Object)>>halt PlatypusExpressExpression2AdaTranslater>>translate: [| t1 | t1 := PlatypusExpressExpression2AdaTranslater new. ^ self return: (PltStringLiteral val: (t1 translate: self arg))] in PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode PlatypusExpressInterpretorWrapper>>EvaluatePlatypusInterpreterNativeCode PlatypusNativeCodeInterpretor>>evaluateMethod: PlatypusNativeCodeInterpretor>>evaluate:interpretor:requestor: PlatypusExpressInterpretor>>acceptNativeCode: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PlatypusExpressInterpretor>>acceptNativeAlgorithm: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltNativeAlgorithm(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptNativeStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltNativeStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor(PlatypusStepAbstractVisitor)>>acceptBinaryExpression: PlatypusExpressInterpretor>>acceptPlusExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptAssignmentStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignmentStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptDerivedAttribute: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [self compute: anExpression. ^ self pop val] in PlatypusExpressInterpretor>>expression:context:instance: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>expression:context:instance: PlatypusExpressInterpretor>>attributeOrRule:instance: [| int | int := PlatypusExpressInterpretor new. self modelContents ifNotNil: [:mc | mc recordComputedInstances ifTrue: [int modelContents: self modelContents]]. (int attributeOrRule: attrOrRuleOrValue instance: self owner value interpretingContext) ifNotNil: [:result | self addSubReference: (result tamarisStepValueReferenceClass owner: self position: self subReferences size + 1 value: result). TamManager changed: self]] in PlatypusStepReference>>evaluate BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusStepReference>>evaluate PlatypusInstanceEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: MouseClickState>>handleEvent:from: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Error: default is multiply defined 7 December 2012 1:50:01.655 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] ClassBuilder(Object)>>error: Receiver: a ClassBuilder Arguments and temporary variables: aString: 'default is multiply defined' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>validateClassvars:from:forSuper: Receiver: a ClassBuilder Arguments and temporary variables: < Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass) ifFalse: [^ nil]. (self validateInstvars: instVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateClassvars: classVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateSubclassFormat: type from: oldClass forSuper: newSuper extra: instVars size) ifFalse: [^ nil]]. needNew := self needsSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. needNew ifNil: [^ nil]. (needNew and: [unsafe not]) ifTrue: [(self tooDangerousClasses includes: oldClass name) ifTrue: [self error: oldClass name , ' cannot be changed']. (oldClass ~~ nil and: [oldClass shouldNotBeRedefined]) ifTrue: [self notify: oldClass name asText allBold , ' should not be redefined. \Proceed to store over it.' withCRs]]. needNew ifTrue: [newClass := self newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. newClass ifNil: [^ nil]. newClass setName: className] ifFalse: [newClass := oldClass]. force := (newClass declare: classVarString) | (newClass sharing: poolString). newCategory := category asSymbol. organization := environ ifNotNil: [environ organization]. oldClass isNil ifFalse: [oldCategory := (organization categoryOfElement: oldClass name) asSymbol]. organization classify: newClass name under: newCategory. newClass environment: environ. newClass := self recompile: force from: oldClass to: newClass mutate: false. (environ at: newClass name ifAbsent: []) == newClass ifFalse: [environ at: newClass name put: newClass. Smalltalk globals flushClassNameCache]. copyOfOldTraitComposition ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition]. copyOfOldClassTraitComposition ifNotNil: [newClass class setTraitComposition: copyOfOldClassTraitComposition]. newClass doneCompiling. oldClass isNil ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass inCategory: newCategory. ^ newClass]. newCategory ~= oldCategory ifTrue: [SystemChangeNotifier uniqueInstance class: newClass recategorizedFrom: oldCategory to: category] ifFalse: [SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass]] in ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable newSuper: PltDictionaryInstance type: #normal classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' unsafe: false oldClass: PltAnonymousVariable instVars: #('domain') classVars: #(#default #default) copyOfOldClass: PltAnonymousVariable copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: #(nil) newCategory: nil oldCategory: nil needNew: nil force: nil organization: nil Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil BlockClosure>>ensure: Receiver: [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateS...etc... Arguments and temporary variables: aBlock: [copyOfOldClass ifNotNil: [copyOfOldClass superclass removeSubclass: ...etc... complete: nil returnValue: nil Receiver's instance variables: outerContext: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariable...etc... startpc: 376 numArgs: 0 ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable env: a SystemDictionary(lots of globals) newSuper: PltDictionaryInstance type: #normal instVarString: 'domain' classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' unsafe: false oldClass: PltAnonymousVariable instVars: #('domain') classVars: #(#default #default) copyOfOldClass: PltAnonymousVariable copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: #(nil) Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: className: #PltAnonymousVariable env: a SystemDictionary(lots of globals) newSuper: PltDictionaryInstance type: #normal instVarString: 'domain' classVarString: 'default default' poolString: '' category: 'Platypus-PlatypusStatementsSchemaSchema' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil ClassBuilder>>superclass:subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: newSuper: PltDictionaryInstance t: #PltAnonymousVariable f: 'domain' d: 'default default' s: '' cat: 'Platypus-PlatypusStatementsSchemaSchema' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil PltDictionaryInstance class(Class)>>subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: Receiver: PltDictionaryInstance Arguments and temporary variables: t: #PltAnonymousVariable f: 'domain' d: 'default default' s: '' cat: 'Platypus-PlatypusStatementsSchemaSchema' class: nil Receiver's instance variables: superclass: PltSdaiInstance methodDict: a MethodDictionary(#accept:->(PltDictionaryInstance>>#accept: "a Co...etc... format: 132 instanceVariables: nil organization: ('platypus-generated-visiting' accept:) ('platypus-generated-copy...etc... subclasses: an Array(PltAggregateInitializerDomain PltAggregateInitializerEleme...etc... name: #PltDictionaryInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-PlatypusDictionarySchemaSchema' traitComposition: {} localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ PltDictionaryInstance subclass: #PltAnonymousVariable i...etc... method: (UndefinedObject>>#DoIt "a CompiledMethod(838336512)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceV...etc... logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'PltDictionaryInstance subclass: #PltAnonymousVariable instanceVariable...etc... Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 435073 readLimit: 947686 writeLimit: 947686 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 435073 readLimit: 947686 writeLimit: 947686 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 947686 minVal: 0 aPoint: (694@427) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 947686 minVal: 0 aPoint: (694@427) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 947686 minVal: 0 aPoint: (694@427) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 947686 minVal: 0 aPoint: (694@427) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 947686 minVal: 0 aPoint: (694@427) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (694@427) argMinVal: 0 argMaxVal: 947686 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 947686 minVal: 0 aPoint: (694@427) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (694@427) minVal: 0 maxVal: 947686 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 947686 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 435073 readLimit: 947686 writeLimit: 947686 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchem...etc... position: 435073 readLimit: 947686 writeLimit: 947686 PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(63700992) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(63700992) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(63700992) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(63700992) a PluggableB...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(841220096) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(680001536) listMorph: a TamHierarchicalListMorph(63700992) editorRow: a TamPaneMorph(994574336) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar]->a TamPan...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(477888512) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(866385920) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(63700992) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (261.0@60.0) corner: (559.0@796.0) owner: a TamPaneMorph(1062469632) submorphs: an Array(a ScrollBar(204472320) a TamHierarchicalListTransformMorph(...etc... fullBounds: (261@60) corner: (559@796) color: Color white extension: a MorphExtension (222560256) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(90701824) scroller: a TamHierarchicalListTransformMorph(318242816) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(204472320) selectedMorph: a TamIndentingListItemMorph(385613824)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(63700992) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (261.0@60.0) corner: (559.0@796.0) owner: a TamPaneMorph(1062469632) submorphs: an Array(a ScrollBar(204472320) a TamHierarchicalListTransformMorph(...etc... fullBounds: (261@60) corner: (559@796) color: Color white extension: a MorphExtension (222560256) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(90701824) scroller: a TamHierarchicalListTransformMorph(318242816) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(204472320) selectedMorph: a TamIndentingListItemMorph(385613824)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(63700992) Receiver's instance variables: timeStamp: 3537003 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (311@96) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(63700992) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (261.0@60.0) corner: (559.0@796.0) owner: a TamPaneMorph(1062469632) submorphs: an Array(a ScrollBar(204472320) a TamHierarchicalListTransformMorph(...etc... fullBounds: (261@60) corner: (559@796) color: Color white extension: a MorphExtension (222560256) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(90701824) scroller: a TamHierarchicalListTransformMorph(318242816) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(204472320) selectedMorph: a TamIndentingListItemMorph(385613824)'Platypus_meta_schemas' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 317.0 --- The full stack --- ClassBuilder(Object)>>error: ClassBuilder>>validateClassvars:from:forSuper: [| newCategory oldCategory needNew force organization | unsafe ifFalse: [(self validateSuperclass: newSuper forSubclass: oldClass) ifFalse: [^ nil]. (self validateInstvars: instVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateClassvars: classVars from: oldClass forSuper: newSuper) ifFalse: [^ nil]. (self validateSubclassFormat: type from: oldClass forSuper: newSuper extra: instVars size) ifFalse: [^ nil]]. needNew := self needsSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. needNew ifNil: [^ nil]. (needNew and: [unsafe not]) ifTrue: [(self tooDangerousClasses includes: oldClass name) ifTrue: [self error: oldClass name , ' cannot be changed']. (oldClass ~~ nil and: [oldClass shouldNotBeRedefined]) ifTrue: [self notify: oldClass name asText allBold , ' should not be redefined. \Proceed to store over it.' withCRs]]. needNew ifTrue: [newClass := self newSubclassOf: newSuper type: type instanceVariables: instVars from: oldClass. newClass ifNil: [^ nil]. newClass setName: className] ifFalse: [newClass := oldClass]. force := (newClass declare: classVarString) | (newClass sharing: poolString). newCategory := category asSymbol. organization := environ ifNotNil: [environ organization]. oldClass isNil ifFalse: [oldCategory := (organization categoryOfElement: oldClass name) asSymbol]. organization classify: newClass name under: newCategory. newClass environment: environ. newClass := self recompile: force from: oldClass to: newClass mutate: false. (environ at: newClass name ifAbsent: []) == newClass ifFalse: [environ at: newClass name put: newClass. Smalltalk globals flushClassNameCache]. copyOfOldTraitComposition ifNotNil: [newClass setTraitComposition: copyOfOldTraitComposition]. copyOfOldClassTraitComposition ifNotNil: [newClass class setTraitComposition: copyOfOldClassTraitComposition]. newClass doneCompiling. oldClass isNil ifTrue: [SystemChangeNotifier uniqueInstance classAdded: newClass inCategory: newCategory. ^ newClass]. newCategory ~= oldCategory ifTrue: [SystemChangeNotifier uniqueInstance class: newClass recategorizedFrom: oldCategory to: category] ifFalse: [SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: copyOfOldClass to: newClass]] in ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: BlockClosure>>ensure: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category:unsafe: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:classVariableNames:poolDictionaries:category: ClassBuilder>>superclass:subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: PltDictionaryInstance class(Class)>>subclass:instanceVariableNames:classVariableNames:poolDictionaries:category: UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "schemaDefinition" is nil 7 December 2012 1:51:07.001 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #schemaDefinition Receiver: nil Arguments and temporary variables: aMessage: schemaDefinition exception: MessageNotUnderstood: receiver of "schemaDefinition" is nil resumeValue: nil Receiver's instance variables: nil PltDerivedAttribute(PltEntityInstance)>>schemaDefinition Receiver: a PltDerivedAttribute Arguments and temporary variables: Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarksReferences Receiver: a PltDerivedAttribute Arguments and temporary variables: Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarks Receiver: a PltDerivedAttribute Arguments and temporary variables: Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PlatypusSchemaInstanceTokenizer>>remarksBefore: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>acceptAttribute: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>acceptDerivedAttribute: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltDerivedAttribute selector: #acceptDerivedAttribute: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil [^ self performAcceptFor: anObject] in PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObjectOrCollection: a PltDerivedAttribute aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>tokenize: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anPlatypusDictionaryInstance: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PltDerivedAttribute(PltDictionaryInstance)>>prettyPrintedExpressCode Receiver: a PltDerivedAttribute Arguments and temporary variables: ppTokenList: nil Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PlatypusStepReference>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: a PltDerivedAttribute Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> PlatypusStepReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= TamManager recentsTaxon]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: < Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusStepReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: <> Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... aSetOfRefs: a Set(use from Processors use from Resources use from Parameters [c...etc... chil: nil res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusStepRecordReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CO...etc... firstIndex: 1 lastIndex: 3 PlatypusStepRecordReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... aSetOfRefs: a Set(use from Processors use from Resources use from Parameters [c...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#8...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusStepInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(....etc... aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~=...etc... res: a Set(use from Processors use from Resources use from Parameters [cheddar:...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 83 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CO...etc... firstIndex: 1 lastIndex: 5 PlatypusStepInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... aSetOfRefs: a Set(use from Processors use from Resources use from Parameters [c...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#8...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 83 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamListItemSoftLinkReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: -> express2cheddar' model Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(....etc... aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~=...etc... res: a Set(use from Processors use from Resources use from Parameters [cheddar:...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linkedPath: an OrderedCollection('cheddar' 'express2cheddar' 'express2cheddar''...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#1=SCHEMA_INSTANCE(...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 83 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model/#1=SCHEMA_INS...etc... firstIndex: 1 lastIndex: 2197 TamListItemSoftLinkReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: -> express2cheddar' model Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... aSetOfRefs: a Set(use from Processors use from Resources use from Parameters [c...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#1...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linkedPath: an OrderedCollection('cheddar' 'express2cheddar' 'express2cheddar''...etc... [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamLinksTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [: /] Arguments and temporary variables: aBlock: -> express2cheddar' model aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~=...etc... res: a Set(use from Processors use from Resources use from Parameters [cheddar:...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [: ] listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-...etc... OrderedCollection>>do: Receiver: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-translater-private ->...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 90 Receiver's instance variables: array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... firstIndex: 83 lastIndex: 122 TamLinksTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [: /] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... aSetOfRefs: a Set(use from Processors use from Resources use from Parameters [c...etc... chil: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-tran...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [: ] listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-...etc... [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [: ] Arguments and temporary variables: aBlock: [: /] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~=...etc... res: a Set(use from Processors use from Resources use from Parameters [cheddar:...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: nil listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection([: /] [>do: Receiver: an OrderedCollection([: /] [: /: /] [: />selectDeeplySuchThat:visited: Receiver: [: ] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... aSetOfRefs: a Set(use from Processors use from Resources use from Parameters [c...etc... chil: an OrderedCollection([: /] [...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: nil listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection([: /] [>selectDeeplySuchThat: Receiver: [: ] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= Tam...etc... Receiver's instance variables: owner: nil listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection([: /] [>insertGeneratedCodeTaxon Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: taxonRef: nil rscr: nil founds: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #PltPlatypusMetaSchemasSchemaInstan...etc... Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(63700992) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(63700992) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #schemaDefinition PltDerivedAttribute(PltEntityInstance)>>schemaDefinition PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarksReferences PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarks PlatypusSchemaInstanceTokenizer>>remarksBefore: PlatypusSchemaInstanceTokenizer>>acceptAttribute: PlatypusSchemaInstanceTokenizer>>acceptDerivedAttribute: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusSchemaInstanceTokenizer>>tokenize: PltDerivedAttribute(PltDictionaryInstance)>>prettyPrintedExpressCode PlatypusStepReference>>codeText: PlatypusStepReference>>codeText PlatypusStepReference>>shortName [:e | e shortName = self generatedCodeTaxonLabel and: [e owner ~= TamManager recentsTaxon]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusStepReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusStepRecordReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusStepRecordReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusStepInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusStepInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamListItemSoftLinkReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: TamListItemSoftLinkReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamLinksTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: TamLinksTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusInternalMetaSchemaInstanceReference(PlatypusSchemaInstanceReference)>>keyStroke:from: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "schemaDefinition" is nil 7 December 2012 1:51:18.274 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #schemaDefinition Receiver: nil Arguments and temporary variables: aMessage: schemaDefinition exception: MessageNotUnderstood: receiver of "schemaDefinition" is nil resumeValue: nil Receiver's instance variables: nil PltDerivedAttribute(PltEntityInstance)>>schemaDefinition Receiver: a PltDerivedAttribute Arguments and temporary variables: Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarksReferences Receiver: a PltDerivedAttribute Arguments and temporary variables: Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarks Receiver: a PltDerivedAttribute Arguments and temporary variables: Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PlatypusSchemaInstanceTokenizer>>remarksBefore: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>acceptAttribute: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>acceptDerivedAttribute: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltDerivedAttribute selector: #acceptDerivedAttribute: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil [^ self performAcceptFor: anObject] in PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObjectOrCollection: a PltDerivedAttribute aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>tokenize: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anPlatypusDictionaryInstance: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PltDerivedAttribute(PltDictionaryInstance)>>prettyPrintedExpressCode Receiver: a PltDerivedAttribute Arguments and temporary variables: ppTokenList: nil Receiver's instance variables: owner: nil domain: a PltStringType redeclaring: nil name: 'ads_code' assign: a PltIdentifier('ada_constant_ads_code') PlatypusStepReference>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: a PltDerivedAttribute Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> PlatypusStepReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> [:chl | chl shortName = childShortName and: [aLinkReference ~~ chl and: [chl isLink not]]] in PlatypusStepRecordReference(TamListItemReference)>>findChildReferenceFromPath:forLink: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT...etc... Arguments and temporary variables: < Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CO...etc... firstIndex: 1 lastIndex: 3 OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT...etc... Arguments and temporary variables: aBlock: [:each | (aBlock value: each) ifTrue: [^ each]. nil] index: 2 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CO...etc... firstIndex: 1 lastIndex: 3 OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT...etc... Arguments and temporary variables: aBlock: [:chl | chl shortName = childShortName and: [aLinkReference ~~ chl ...etc... exceptionBlock: [^ nil] Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CO...etc... firstIndex: 1 lastIndex: 3 PlatypusStepRecordReference(TamListItemReference)>>findChildReferenceFromPath:forLink: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: aPathArray: an OrderedCollection('ads_code : STRING := ada_constant_ads_code ( ...etc... aLinkReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' childShortName: 'ads_code : STRING := ada_constant_ads_code ( SELF ); ' child: nil Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil PlatypusStepInstanceReference(TamListItemReference)>>findChildReferenceFromPath:forLink: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F.) ENTITY_INSTANC...etc... Arguments and temporary variables: aPathArray: an OrderedCollection('ADA_CONSTANT(.F.)' 'ads_code : STRING := ada_...etc... aLinkReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' childShortName: 'ADA_CONSTANT(.F.)' child: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 83 subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil PlatypusModelContentsReference(TamListItemReference)>>findChildReferenceFromPath:forLink: Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: aPathArray: an OrderedCollection('#83=( ADA_CONSTANT(.F.) ENTITY_INSTANCE(*) ...etc... aLinkReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' childShortName: '#83=( ADA_CONSTANT(.F.) ENTITY_INSTANCE(*) SDA...NT_DEFINIT...etc... child: [cheddar: /express2cheddar/express2cheddar' model/#83=( ADA_CONSTANT(.F...etc... Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar'...etc... attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: an OrderedCollection(a PltInternalRepresentation['1'] a PltInter...etc... PlatypusSchemaInstanceReference(TamListItemReference)>>findChildReferenceFromPath:forLink: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aPathArray: an OrderedCollection('express2cheddar'' model' '#83=( ADA_CONSTANT...etc... aLinkReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' childShortName: 'express2cheddar'' model' child: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamRootTaxonReference(TamListItemReference)>>findChildReferenceFromPath:forLink: Receiver: [cheddar: ] Arguments and temporary variables: aPathArray: an OrderedCollection('express2cheddar' 'express2cheddar'' model' '#...etc... aLinkReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' childShortName: 'express2cheddar' child: [cheddar: /express2cheddar] Receiver's instance variables: owner: nil listLabel: 'cheddar' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection([cheddar: /platypus-toolbox] [cheddar: /express2...etc... managerItem: a TamManagerItem announcer: an Announcer TamListItemSoftLinkReference class>>linkedFrom: Receiver: TamListItemSoftLinkReference Arguments and temporary variables: aLinkReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' rootTaxonShortName: 'cheddar' managerItem: a TamManagerItem Receiver's instance variables: superclass: TamListItemAbstractLinkReference methodDict: a MethodDictionary(#asStringOrText->(TamListItemSoftLinkReference>>...etc... format: 144 instanceVariables: #('linkedPath') organization: ('accessing' asStringOrText balloonText linkPrefix linked linked:...etc... subclasses: nil name: #TamListItemSoftLinkReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tamaris-Taxonomies' traitComposition: {} localSelectors: nil TamListItemSoftLinkReference>>linked Receiver: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' Arguments and temporary variables: Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linkedPath: an OrderedCollection('cheddar' 'express2cheddar' 'express2cheddar''...etc... TamListItemSoftLinkReference(TamListItemAbstractLinkReference)>>isLinkTo: Receiver: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' Arguments and temporary variables: anItem: [: //Platypus_meta_schemas] Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linkedPath: an OrderedCollection('cheddar' 'express2cheddar' 'express2cheddar''...etc... [:lnk | lnk isLinkTo: aReference] in TamLinksTaxonReference>>insertReference: Receiver: [: /] Arguments and temporary variables: aReference: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' lnk: [: //Platypus_meta_schemas] Receiver's instance variables: owner: [: ] listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-...etc... [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-translater-private ->...etc... Arguments and temporary variables: aBlock: -> 'Cheddar_Debug : Debug_Level := Very_Verbose;' each: [:lnk | lnk isLinkTo: aReference] Receiver's instance variables: array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... firstIndex: 83 lastIndex: 122 OrderedCollection>>do: Receiver: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-translater-private ->...etc... Arguments and temporary variables: aBlock: [:each | (aBlock value: each) ifTrue: [^ each]. nil] index: 97 Receiver's instance variables: array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... firstIndex: 83 lastIndex: 122 OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-translater-private ->...etc... Arguments and temporary variables: aBlock: [:lnk | lnk isLinkTo: aReference] exceptionBlock: [newLnk := TamListItemSoftLinkReference from: aReference. newL...etc... Receiver's instance variables: array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... firstIndex: 83 lastIndex: 122 TamLinksTaxonReference>>insertReference: Receiver: [: /] Arguments and temporary variables: aReference: [: //Platypus_meta_schemas] newLnk: #(nil) Receiver's instance variables: owner: [: ] listLabel: '' localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil contents: an OrderedCollection(-> PlatypusMetaRepositoryBuilder -> Platypus-HW-...etc... TamManager class>>addToRecents: Receiver: TamManager Arguments and temporary variables: aReference: [: //Platypus_meta_schemas] rm: nil Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#acceptDroppingMorph:event:inMorph:->(TamManager...etc... format: 148 instanceVariables: #('mainWindow' 'selectedTaxonomy' 'listBtnRow' 'listBtnRowHe...etc... organization: ('drag and drop' acceptDroppingMorph:event:inMorph: dragPassenger...etc... subclasses: nil name: #TamManager classPool: a Dictionary(#CopyPasteBuffer->a Set() #DroppingArea->nil #InitialEx...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Tamaris-UI' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference(TamListItemReference)>>selectingFrom: Receiver: [: //Platypus_meta_schemas] Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser tempEditor: a StandardWindow(733216768) editor: a TamPaneMorph(729546752) Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamListItemWrapper>>selectingFrom: Receiver: a TamListItemWrapper Arguments and temporary variables: aHierarchicalList: a TamBrowser Receiver's instance variables: item: [: //Platypus_meta_schemas] model: nil TamBrowser>>updateCodeRowFor: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(63700992) a PluggableB...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(841220096) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(680001536) listMorph: a TamHierarchicalListMorph(63700992) editorRow: a TamPaneMorph(994574336) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar]->a TamPan...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(477888512) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(866385920) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelectionFromWrapper: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(63700992) a PluggableB...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(841220096) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(680001536) listMorph: a TamHierarchicalListMorph(63700992) editorRow: a TamPaneMorph(994574336) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /express2cheddar]->a TamPan...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(477888512) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(866385920) worldButtons: nil globalRecentsInput: nil recentsRow: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #schemaDefinition PltDerivedAttribute(PltEntityInstance)>>schemaDefinition PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarksReferences PltDerivedAttribute(PltDictionaryInstance)>>relatedRemarks PlatypusSchemaInstanceTokenizer>>remarksBefore: PlatypusSchemaInstanceTokenizer>>acceptAttribute: PlatypusSchemaInstanceTokenizer>>acceptDerivedAttribute: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusSchemaInstanceTokenizer>>tokenize: PltDerivedAttribute(PltDictionaryInstance)>>prettyPrintedExpressCode PlatypusStepReference>>codeText: PlatypusStepReference>>codeText PlatypusStepReference>>shortName [:chl | chl shortName = childShortName and: [aLinkReference ~~ chl and: [chl isLink not]]] in PlatypusStepRecordReference(TamListItemReference)>>findChildReferenceFromPath:forLink: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: OrderedCollection>>do: OrderedCollection(Collection)>>detect:ifNone: PlatypusStepRecordReference(TamListItemReference)>>findChildReferenceFromPath:forLink: PlatypusStepInstanceReference(TamListItemReference)>>findChildReferenceFromPath:forLink: PlatypusModelContentsReference(TamListItemReference)>>findChildReferenceFromPath:forLink: PlatypusSchemaInstanceReference(TamListItemReference)>>findChildReferenceFromPath:forLink: TamRootTaxonReference(TamListItemReference)>>findChildReferenceFromPath:forLink: TamListItemSoftLinkReference class>>linkedFrom: TamListItemSoftLinkReference>>linked TamListItemSoftLinkReference(TamListItemAbstractLinkReference)>>isLinkTo: [:lnk | lnk isLinkTo: aReference] in TamLinksTaxonReference>>insertReference: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: OrderedCollection>>do: OrderedCollection(Collection)>>detect:ifNone: TamLinksTaxonReference>>insertReference: TamManager class>>addToRecents: PlatypusInternalMetaSchemaInstanceReference(TamListItemReference)>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - TamBrowser>>noteNewSelection: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>setSelectedMorph: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>mouseUp: TamHierarchicalListMorph>>mouseUp: TamHierarchicalListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:51:23.805 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_ex...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'identifier' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1553'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1553'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1553' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1541'] a PltStrin...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1553'] a PltInternalRepresentation['254'...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1553'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2445 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:51:23.732000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:51:23.732000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:51:23.732000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:52:16.688 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_ex...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'identifier' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1553'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1553'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1553' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1541'] a PltStrin...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1553'] a PltInternalRepresentation['254'...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1553'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2445 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:52:16.606000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:52:16.606000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:52:16.606000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:53:10.132 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_ex...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'identifier' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1553'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1553'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1553' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1541'] a PltStrin...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1553'] a PltInternalRepresentation['254'...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1553'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2445 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:10.061000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:10.061000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:10.061000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:53:20.55 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_ex...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'identifier' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1553'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1553'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1553' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1541'] a PltStrin...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1553'] a PltInternalRepresentation['254'...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1553'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2445 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:20.475000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:20.475000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:20.475000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusInternalMetaSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltSchemaInstance>>checks 7 December 2012 1:53:53.85 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PltSchemaInstance(Object)>>doesNotUnderstand: #checks Receiver: a PltSchemaInstance Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PltSchemaInstance>>checks resumeValue: nil Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:53:53.804+01:00' changeDate: '2012-12-07T13:53:53.804000001+01:00' associatedModels: an OrderedCollection() tamarisItemReferencesIndex: a PlatypusWeakIdentityKeyDictionary(size 209) schemata: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a Pl...etc... name: 'Platypus_meta_schemas' metaConceptsIndex: a PlatypusWeakIdentityKeyDictionary() errorsIndex: an IdentityDictionary() namesBuilder: a PlatypusNamesBuilder PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_meta_schemas] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusInternalMetaSchemaInstanceReference class>>DoIt Receiver: PlatypusInternalMetaSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalMetaSchemaInstanceRefere...etc... format: 152 instanceVariables: nil organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalMetaSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusInternalMetaSchemaInstanceReference aRequestor: a TextMorphForEditView(714080256) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializeExpressMetaDictionary method: (PlatypusInternalMetaSchemaInstanceReference class>>#DoIt "a CompiledMe...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(714080256) class: PlatypusInternalMetaSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(714080256) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusInternalMetaSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(714080256) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(714080256) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(844627968) Arguments and temporary variables: Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(349175808) submorphs: an Array(a TransformMorph(28311552)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (692846592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(872415232) scroller: a TransformMorph(28311552) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(988282880) textMorph: a TextMorphForEditView(714080256) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(844627968) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(349175808) submorphs: an Array(a TransformMorph(28311552)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (692846592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(872415232) scroller: a TransformMorph(28311552) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(988282880) textMorph: a TextMorphForEditView(714080256) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(714080256) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (781@146) owner: a TransformMorph(28311552) submorphs: #() fullBounds: (0@0) corner: (781@146) color: Color black extension: a MorphExtension (796655616) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionary "self initializeExpressMetaD...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(844627968) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(844627968) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(349175808) submorphs: an Array(a TransformMorph(28311552)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (692846592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(872415232) scroller: a TransformMorph(28311552) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(988282880) textMorph: a TextMorphForEditView(714080256) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(844627968) Arguments and temporary variables: Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(349175808) submorphs: an Array(a TransformMorph(28311552)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (692846592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(872415232) scroller: a TransformMorph(28311552) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(988282880) textMorph: a TextMorphForEditView(714080256) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(844627968) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(844627968) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(844627968) secondArg: a PluggableTextMorph(844627968) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(844627968) secondArg: a PluggableTextMorph(844627968) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(844627968) category: a KMCategory morph: a PluggableTextMorph(844627968) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(844627968) category: a KMCategory morph: a PluggableTextMorph(844627968) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(844627968) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 7 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(nil nil nil nil a KMCategoryTarget a KMCategoryTarget a KMCateg...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(844627968) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(844627968) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(844627968) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(844627968) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(349175808) submorphs: an Array(a TransformMorph(28311552)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (692846592) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(872415232) scroller: a TransformMorph(28311552) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(988282880) textMorph: a TextMorphForEditView(714080256) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (72 to: 71) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(28311552) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(28311552) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(28311552) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (462@341) corner: (1249@639) owner: a PluggableTextMorph(844627968) submorphs: an Array(a TextMorphForEditView(714080256)) fullBounds: (462@341) corner: (1249@639) color: Color transparent extension: a MorphExtension (35651584) [other: (kmDispatcher -> a KMDispatcher...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-465@ -341)) smoothing: 1 localBounds: (0@0) corner: (781@146) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TextMorphForEditView(714080256) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TextMorphForEditView(714080256) directKeymaps: a KMCategory TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: Receiver: a TextMorphForEditView(714080256) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (781@146) owner: a TransformMorph(28311552) submorphs: #() fullBounds: (0@0) corner: (781@146) color: Color black extension: a MorphExtension (796655616) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionary "self initializeExpressMetaD...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(844627968) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a TextMorphForEditView(714080256) Arguments and temporary variables: anEvent: [keystroke ''] pasteUp: nil Receiver's instance variables: bounds: (0@0) corner: (781@146) owner: a TransformMorph(28311552) submorphs: #() fullBounds: (0@0) corner: (781@146) color: Color black extension: a MorphExtension (796655616) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressMetaDictionary "self initializeExpressMetaD...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(844627968) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PltSchemaInstance(Object)>>doesNotUnderstand: #checks PlatypusInternalMetaSchemaInstanceReference class>>initializeExpressMetaDictionary PlatypusInternalMetaSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:55:05.914 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_ex...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'identifier' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1553'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1553'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1553' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1541'] a PltStrin...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1553'] a PltInternalRepresentation['254'...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1553'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2445 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:55:05.841000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:55:05.841000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:55:05.841000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:55:19.615 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [: //Platypus_meta_schemas/Platypus_ex...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'identifier' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1553'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1553'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1553' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltExternalRepresentation['1541'] a PltStrin...etc... [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1553'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1553'] a PltInternalRepresentation['254'...etc... Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1553'] a PltInternalRepresentation...etc... firstIndex: 1 lastIndex: 2445 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:55:19.538000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:55:19.538000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T13:55:19.538000001+01:00' changeDate: '2012-12-07T12:17:19.667+01:00' headerInstances: an OrderedCollection(a PltFileName a PltFileDescription a PltF...etc... dataInstances: an OrderedCollection(a PltInternalRepresentation['1553'] a PltIn...etc... positionByDataInstanceIndex: an IdentityDictionary(size 2197) dataInstancesByEntityIndex: an IdentityDictionary(size 107) dataInstancesByLabelIndex: a Dictionary(size 2197) recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(size 2197) PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [cheddar: /express2cheddar/express2cheddar' model] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: nil dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: mcr: [cheddar: /express2cheddar/express2cheddar' model] Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar' model] nil nil nil ...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: r: true Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 1:56:13.664 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil [:e | e tamarisItemRef] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>externalSchemaInstancesReferences Receiver: [cheddar: /cheddar_mapping] Arguments and temporary variables: e: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_mapping/package_mapping]...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() [:each | each ifNotNil: [newSet add: (aBlock value: each enclosedSetElement)]] in Set>>collect: Receiver: a Set(a PltSchemaInstance nil) Arguments and temporary variables: aBlock: a SetElement newSet: [:e | e tamarisItemRef] each: a Set([cheddar: /express2cheddar]) Receiver's instance variables: tally: 2 array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... Array(SequenceableCollection)>>do: Receiver: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil n...etc... Arguments and temporary variables: aBlock: [:each | each ifNotNil: [newSet add: (aBlock value: each enclosed...etc... index: 39 indexLimiT: 53 Receiver's instance variables: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil n...etc... Set>>collect: Receiver: a Set(a PltSchemaInstance nil) Arguments and temporary variables: aBlock: [:e | e tamarisItemRef] newSet: a Set([cheddar: /express2cheddar]) Receiver's instance variables: tally: 2 array: an Array(nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>externalSchemaInstancesReferences Receiver: [cheddar: /cheddar_mapping] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_mapping/package_mapping]...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>verifyUsedModelsBeforeChecking Receiver: [cheddar: /cheddar_mapping] Arguments and temporary variables: invalidRefsStr: #(nil) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /cheddar_mapping/package_mapping]...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for 'SCHEMA package_mapping; META FROM express2cheddar_facade; ...etc... aRequestor: a PlatypusStepCodeMorph(745537536) Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(745537536) a TamGenericHi...etc... contents: a Text for 'SCHEMA package_mapping; META FROM express2cheddar_facade...etc... mainWindow: a StandardWindow(875560960) mainPane: a TamPaneMorph(374603776) contentsMorph: a PlatypusStepCodeMorph(745537536) codeRow: a TamPaneMorph(677642240) sourceHandler: [cheddar: /cheddar_mapping] codeBtnRow: an AlignmentMorph(968884224) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(745537536) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA package_mapping; META FROM express2cheddar_fa...etc... Receiver's instance variables: bounds: (461.0@81.0) corner: (1250.0@640.0) owner: a TamPaneMorph(677642240) submorphs: an Array(a ScrollBar(773324800) a TransformMorph(1009254400)) fullBounds: (461@81) corner: (1250@640) color: Color white extension: a MorphExtension (258211840) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(773324800) scroller: a TransformMorph(1009254400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(895483904) textMorph: a PlatypusTextMorphForEditView(622854144) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(745537536) Arguments and temporary variables: acceptedText: a Text for 'SCHEMA package_mapping; META FROM express2cheddar_fa...etc... Receiver's instance variables: bounds: (461.0@81.0) corner: (1250.0@640.0) owner: a TamPaneMorph(677642240) submorphs: an Array(a ScrollBar(773324800) a TransformMorph(1009254400)) fullBounds: (461@81) corner: (1250@640) color: Color white extension: a MorphExtension (258211840) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(773324800) scroller: a TransformMorph(1009254400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(895483904) textMorph: a PlatypusTextMorphForEditView(622854144) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(745537536) Arguments and temporary variables: ok: nil saveSelection: (1 to: 0) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (461.0@81.0) corner: (1250.0@640.0) owner: a TamPaneMorph(677642240) submorphs: an Array(a ScrollBar(773324800) a TransformMorph(1009254400)) fullBounds: (461@81) corner: (1250@640) color: Color white extension: a MorphExtension (258211840) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(773324800) scroller: a TransformMorph(1009254400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(895483904) textMorph: a PlatypusTextMorphForEditView(622854144) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(745537536) Arguments and temporary variables: Receiver's instance variables: bounds: (461.0@81.0) corner: (1250.0@640.0) owner: a TamPaneMorph(677642240) submorphs: an Array(a ScrollBar(773324800) a TransformMorph(1009254400)) fullBounds: (461@81) corner: (1250@640) color: Color white extension: a MorphExtension (258211840) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: a PlatypusExpressEditor open: false accessor: nil scrollBar: a ScrollBar(773324800) scroller: a TransformMorph(1009254400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(895483904) textMorph: a PlatypusTextMorphForEditView(622854144) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: true askBeforeDiscardingEdits: true selectionInterval: (1 to: 0) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusExpressEditor(PlatypusCodeMorph)>>accept Receiver: a PlatypusExpressEditor Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a PlatypusStepCodeMorph(745537536) a TamGenericHi...etc... contents: a Text for 'SCHEMA package_mapping; META FROM express2cheddar_facade...etc... mainWindow: a StandardWindow(875560960) mainPane: a TamPaneMorph(374603776) contentsMorph: a PlatypusStepCodeMorph(745537536) codeRow: a TamPaneMorph(677642240) sourceHandler: [cheddar: /cheddar_mapping] codeBtnRow: an AlignmentMorph(968884224) codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: a TamGenericHierarchicalList messagesBrowserLayoutFrame: nil errorSplitter: nil PluggableButtonMorph>>performAction: Receiver: a PluggableButtonMorph(341573632) Arguments and temporary variables: event: [(550@68) mouseUp 4042234 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(551288832)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (368050176) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(210763776) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(341573632) Arguments and temporary variables: evt: a PluggableButtonMorph(341573632) m: [(550@68) mouseUp 4042234 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(551288832)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (368050176) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(210763776) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(26738688) a PluggableButtonMorph(1004535808) a PluggableBu...etc... Arguments and temporary variables: aBlock: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTru...etc... index: 4 indexLimiT: 6 Receiver's instance variables: an Array(a PluggableButtonMorph(26738688) a PluggableButtonMorph(1004535808) a PluggableBu...etc... PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(341573632) Arguments and temporary variables: evt: [(550@68) mouseUp 4042234 nil] all: an Array(a PluggableButtonMorph(26738688) a PluggableButtonMorph(100453580...etc... Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(551288832)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (368050176) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(210763776) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton PluggableButtonMorph(Morph)>>handleMouseUp: Receiver: a PluggableButtonMorph(341573632) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] handler: nil Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(551288832)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (368050176) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(210763776) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton MouseButtonEvent>>sentTo: Receiver: [(550@68) mouseUp 4042234 nil] Arguments and temporary variables: anObject: a PluggableButtonMorph(341573632) Receiver's instance variables: timeStamp: 4042234 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (550@68) handler: nil wasHandled: true whichButton: 4 PluggableButtonMorph(Morph)>>handleEvent: Receiver: a PluggableButtonMorph(341573632) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(551288832)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (368050176) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(210763776) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton PluggableButtonMorph(Morph)>>handleFocusEvent: Receiver: a PluggableButtonMorph(341573632) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] Receiver's instance variables: bounds: (537.0@55.0) corner: (561.0@79.0) owner: a TamButtonsAlignmentMorph(772800512) submorphs: an Array(an AlignmentMorph(551288832)) fullBounds: (537@55) corner: (561@79) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (368050176) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a PlatypusExpressEditor label: an ImageMorph(210763776) getStateSelector: nil actionSelector: #accept getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #showAcceptButton [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] focusHolder: a PluggableButtonMorph(341573632) result: #(nil) Receiver's instance variables: bounds: (550@68) corner: (566@84) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (550@68) corner: (566@84) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(550@68) mouseOver nil nil] targetOffset: (13.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4042234 550 68 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1388@854) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sta...etc... fullBounds: (0@0) corner: (1388@854) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(550@68) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1388@854) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sta...etc... fullBounds: (0@0) corner: (1388@854) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] focusHolder: a PluggableButtonMorph(341573632) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (550@68) corner: (566@84) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (550@68) corner: (566@84) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(550@68) mouseOver nil nil] targetOffset: (13.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4042234 550 68 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] focusHolder: a PluggableButtonMorph(341573632) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (550@68) corner: (566@84) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (550@68) corner: (566@84) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(550@68) mouseOver nil nil] targetOffset: (13.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4042234 550 68 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] Receiver's instance variables: bounds: (550@68) corner: (566@84) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (550@68) corner: (566@84) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(550@68) mouseOver nil nil] targetOffset: (13.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4042234 550 68 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(550@68) mouseUp 4042234 nil] evt: [(550@68) mouseUp 4042234 nil] ofs: nil Receiver's instance variables: bounds: (550@68) corner: (566@84) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (550@68) corner: (566@84) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(550@68) mouseOver nil nil] targetOffset: (13.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4042234 550 68 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(550@68) mouseUp 4042234 nil] evtBuf: #(1 4042234 550 68 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (550@68) corner: (566@84) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (550@68) corner: (566@84) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(1043857408) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(550@68) mouseOver nil nil] targetOffset: (13.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 4042234 550 68 0 0 0 1) lastKeyScanCode: 126 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1388@854) canvas: a FormCanvas on: DisplayScreen(1388x854x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(875036672))...etc... lastStepTime: 4042355 lastStepMessage: nil lastCycleTime: 4042355 alarms: a Heap() lastAlarmTime: 4042355 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1388@854) canvas: a FormCanvas on: DisplayScreen(1388x854x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(875036672))...etc... lastStepTime: 4042355 lastStepMessage: nil lastCycleTime: 4042355 alarms: a Heap() lastAlarmTime: 4042355 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1388@854) canvas: a FormCanvas on: DisplayScreen(1388x854x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(875036672))...etc... lastStepTime: 4042355 lastStepMessage: nil lastCycleTime: 4042355 alarms: a Heap() lastAlarmTime: 4042355 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1388@854) canvas: a FormCanvas on: DisplayScreen(1388x854x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(875036672))...etc... lastStepTime: 4042355 lastStepMessage: nil lastCycleTime: 4042355 alarms: a Heap() lastAlarmTime: 4042355 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1388@854) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(318767104) a Sta...etc... fullBounds: (0@0) corner: (1388@854) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef [:e | e tamarisItemRef] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>externalSchemaInstancesReferences [:each | each ifNotNil: [newSet add: (aBlock value: each enclosedSetElement)]] in Set>>collect: Array(SequenceableCollection)>>do: Set>>collect: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>externalSchemaInstancesReferences PlatypusSchemaInstanceReference>>verifyUsedModelsBeforeChecking PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:05:59.863 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: p: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltIdentifier('TYPEOF') a PltStringLiteral) Arguments and temporary variables: elementBlock: [:p | self nextPutAll: ' add: '. self acceptTry: p] separatorBlock: [self nextPutAll: ';'] index: 1 indexLimiT: 2 Receiver's instance variables: array: an Array(a PltIdentifier('TYPEOF') a PltStringLiteral) firstIndex: 1 lastIndex: 2 PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('StringAggregateConcatSeparatedBy') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltPlusExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: Receiver: PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: aMetaData: a PltReturnStatement aTranslater: a PlatypusExpressStructure2PharoTranslater aStream: a WriteStream translater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressStatement2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressStateme...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressStatement2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance a PltFunctionDeclaration a PltFunct...etc... namesBuilder: a PlatypusNamesBuilder localTranslationOnly: false schemaInstance: a PltSchemaInstance OrderedCollection>>do: Receiver: an OrderedCollection(a PltReturnStatement) Arguments and temporary variables: aBlock: [:stmt | code := code , (self statementTranslaterClass accept: stm...etc... index: 1 Receiver's instance variables: array: an Array(a PltReturnStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: OrderedCollection(SequenceableCollection)>>do:separatedBy: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(TamListItemReference)>>perform:orSendTo: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:06:29.799 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: p: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltIdentifier('TYPEOF') a PltStringLiteral) Arguments and temporary variables: elementBlock: [:p | self nextPutAll: ' add: '. self acceptTry: p] separatorBlock: [self nextPutAll: ';'] index: 1 indexLimiT: 2 Receiver's instance variables: array: an Array(a PltIdentifier('TYPEOF') a PltStringLiteral) firstIndex: 1 lastIndex: 2 PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('StringAggregateConcatSeparatedBy') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltPlusExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: Receiver: PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: aMetaData: a PltReturnStatement aTranslater: a PlatypusExpressStructure2PharoTranslater aStream: a WriteStream translater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressStatement2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressStateme...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressStatement2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance a PltSchemaDefinition a PltFunction...etc... namesBuilder: a PlatypusNamesBuilder localTranslationOnly: false schemaInstance: a PltSchemaInstance OrderedCollection>>do: Receiver: an OrderedCollection(a PltReturnStatement) Arguments and temporary variables: aBlock: [:stmt | code := code , (self statementTranslaterClass accept: stm...etc... index: 1 Receiver's instance variables: array: an Array(a PltReturnStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: OrderedCollection(SequenceableCollection)>>do:separatedBy: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusInternalPrimitiveSchemaInstanceReference>>checks 7 December 2012 2:08:09.598 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PlatypusInternalPrimitiveSchemaInstanceReference(Object)>>doesNotUnderstand: #checks Receiver: [: //Platypus_Express_primitives] Arguments and temporary variables: aMessage: checks exception: MessageNotUnderstood: PlatypusInternalPrimitiveSchemaInstanceReferen...etc... resumeValue: nil Receiver's instance variables: owner: [: /] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([: //Platy...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() identifiersCache: nil namedTypesCache: nil PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionary Receiver: PlatypusInternalPrimitiveSchemaInstanceReference Arguments and temporary variables: newref: [: //Platypus_Express_primitives] Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalPrimitiveSchemaInstanceR...etc... format: 156 instanceVariables: #('identifiersCache' 'namedTypesCache') organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalPrimitiveSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-VW-Compatibility' traitComposition: {} localSelectors: nil PlatypusInternalPrimitiveSchemaInstanceReference class>>DoIt Receiver: PlatypusInternalPrimitiveSchemaInstanceReference Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusSchemaInstanceReference methodDict: a MethodDictionary(#copy->(PlatypusInternalPrimitiveSchemaInstanceR...etc... format: 156 instanceVariables: #('identifiersCache' 'namedTypesCache') organization: ('copying' copy) ('accessing' expressParserClassName namesBuilder...etc... subclasses: nil name: #PlatypusInternalPrimitiveSchemaInstanceReference classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-VW-Compatibility' traitComposition: {} localSelectors: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: PlatypusInternalPrimitiveSchemaInstanceReference aRequestor: a TextMorphForEditView(486801408) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self initializeExpressPrimitiveDictionary method: (PlatypusInternalPrimitiveSchemaInstanceReference class>>#DoIt "a Compi...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(486801408) class: PlatypusInternalPrimitiveSchemaInstanceReference class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: PlatypusInternalPrimitiveSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(486801408) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: PlatypusInternalPrimitiveSchemaInstanceReference ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(486801408) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(486801408) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(619446272) Arguments and temporary variables: Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(121896960) submorphs: an Array(a TransformMorph(876871680)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (465567744) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(647233536) scroller: a TransformMorph(876871680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(763101184) textMorph: a TextMorphForEditView(486801408) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (82 to: 81) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(619446272) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(121896960) submorphs: an Array(a TransformMorph(876871680)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (465567744) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(647233536) scroller: a TransformMorph(876871680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(763101184) textMorph: a TextMorphForEditView(486801408) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (82 to: 81) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(486801408) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (781@146) owner: a TransformMorph(876871680) submorphs: #() fullBounds: (0@0) corner: (781@146) color: Color black extension: a MorphExtension (569376768) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressPrimitiveDictionary "self initializeExpress...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(619446272) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(619446272) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(121896960) submorphs: an Array(a TransformMorph(876871680)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (465567744) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(647233536) scroller: a TransformMorph(876871680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(763101184) textMorph: a TextMorphForEditView(486801408) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (82 to: 81) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(619446272) Arguments and temporary variables: Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(121896960) submorphs: an Array(a TransformMorph(876871680)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (465567744) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(647233536) scroller: a TransformMorph(876871680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(763101184) textMorph: a TextMorphForEditView(486801408) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (82 to: 81) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(619446272) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(619446272) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(619446272) secondArg: a PluggableTextMorph(619446272) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(619446272) secondArg: a PluggableTextMorph(619446272) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(619446272) category: a KMCategory morph: a PluggableTextMorph(619446272) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(619446272) category: a KMCategory morph: a PluggableTextMorph(619446272) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(619446272) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 1 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(a KMCategoryTarget nil nil a KMCategoryTarget a KMCategoryTarge...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(619446272) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(619446272) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(619446272) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(619446272) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (462.0@341.0) corner: (1249.0@639.0) owner: an AlignmentMorph(121896960) submorphs: an Array(a TransformMorph(876871680)) fullBounds: (462@341) corner: (1249@639) color: Color white extension: a MorphExtension (465567744) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(647233536) scroller: a TransformMorph(876871680) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(763101184) textMorph: a TextMorphForEditView(486801408) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (82 to: 81) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(876871680) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(876871680) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(876871680) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (462@341) corner: (1249@639) owner: a PluggableTextMorph(619446272) submorphs: an Array(a TextMorphForEditView(486801408)) fullBounds: (462@341) corner: (1249@639) color: Color transparent extension: a MorphExtension (884211712) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-465@ -341)) smoothing: 1 localBounds: (0@0) corner: (781@146) KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TextMorphForEditView(486801408) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TextMorphForEditView(486801408) directKeymaps: a KMCategory TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: Receiver: a TextMorphForEditView(486801408) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (781@146) owner: a TransformMorph(876871680) submorphs: #() fullBounds: (0@0) corner: (781@146) color: Color black extension: a MorphExtension (569376768) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressPrimitiveDictionary "self initializeExpress...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(619446272) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil TextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a TextMorphForEditView(486801408) Arguments and temporary variables: anEvent: [keystroke ''] pasteUp: nil Receiver's instance variables: bounds: (0@0) corner: (781@146) owner: a TransformMorph(876871680) submorphs: #() fullBounds: (0@0) corner: (781@146) color: Color black extension: a MorphExtension (569376768) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initializeExpressPrimitiveDictionary "self initializeExpress...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(619446272) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PlatypusInternalPrimitiveSchemaInstanceReference(Object)>>doesNotUnderstand: #checks PlatypusInternalPrimitiveSchemaInstanceReference class>>initializeExpressPrimitiveDictionary PlatypusInternalPrimitiveSchemaInstanceReference class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:08:39.309 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: p: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltIdentifier('TYPEOF') a PltStringLiteral) Arguments and temporary variables: elementBlock: [:p | self nextPutAll: ' add: '. self acceptTry: p] separatorBlock: [self nextPutAll: ';'] index: 1 indexLimiT: 2 Receiver's instance variables: array: an Array(a PltIdentifier('TYPEOF') a PltStringLiteral) firstIndex: 1 lastIndex: 2 PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('StringAggregateConcatSeparatedBy') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltPlusExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: Receiver: PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: aMetaData: a PltReturnStatement aTranslater: a PlatypusExpressStructure2PharoTranslater aStream: a WriteStream translater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressStatement2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressStateme...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressStatement2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance a PltFunctionDeclaration a PltFunct...etc... namesBuilder: a PlatypusNamesBuilder localTranslationOnly: false schemaInstance: a PltSchemaInstance OrderedCollection>>do: Receiver: an OrderedCollection(a PltReturnStatement) Arguments and temporary variables: aBlock: [:stmt | code := code , (self statementTranslaterClass accept: stm...etc... index: 1 Receiver's instance variables: array: an Array(a PltReturnStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: OrderedCollection(SequenceableCollection)>>do:separatedBy: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 2:09:26.226 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [HelloWorld: /HelloWorld/HelloWorld] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'Hello' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection() [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1']) Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1'] nil nil nil nil nil nil nil ni...etc... firstIndex: 1 lastIndex: 1 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T14:09:26.160000002+01:00' changeDate: '2012-11-09T22:39:13.914+01:00' headerInstances: an OrderedCollection() dataInstances: an OrderedCollection(a PltInternalRepresentation['1']) positionByDataInstanceIndex: an IdentityDictionary(a PltInternalRepresentation[...etc... dataInstancesByEntityIndex: an IdentityDictionary(a PltEntityDefinition->a Set(...etc... dataInstancesByLabelIndex: a Dictionary('1'->a PltInternalRepresentation['1'] )...etc... recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(a PltInternalRepresentation['1']...etc... PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T14:09:26.160000002+01:00' changeDate: '2012-11-09T22:39:13.914+01:00' headerInstances: an OrderedCollection() dataInstances: an OrderedCollection(a PltInternalRepresentation['1']) positionByDataInstanceIndex: an IdentityDictionary(a PltInternalRepresentation[...etc... dataInstancesByEntityIndex: an IdentityDictionary(a PltEntityDefinition->a Set(...etc... dataInstancesByLabelIndex: a Dictionary('1'->a PltInternalRepresentation['1'] )...etc... recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(a PltInternalRepresentation['1']...etc... PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T14:09:26.160000002+01:00' changeDate: '2012-11-09T22:39:13.914+01:00' headerInstances: an OrderedCollection() dataInstances: an OrderedCollection(a PltInternalRepresentation['1']) positionByDataInstanceIndex: an IdentityDictionary(a PltInternalRepresentation[...etc... dataInstancesByEntityIndex: an IdentityDictionary(a PltEntityDefinition->a Set(...etc... dataInstancesByLabelIndex: a Dictionary('1'->a PltInternalRepresentation['1'] )...etc... recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(a PltInternalRepresentation['1']...etc... PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [HelloWorld: /HelloWorld/HelloWorld' model] Arguments and temporary variables: Receiver's instance variables: owner: [HelloWorld: /HelloWorld] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: 1 dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [HelloWorld: /HelloWorld/HelloWorld' model] Arguments and temporary variables: Receiver's instance variables: owner: [HelloWorld: /HelloWorld] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: 1 dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [HelloWorld: /HelloWorld] Arguments and temporary variables: mcr: [HelloWorld: /HelloWorld/HelloWorld' model] Receiver's instance variables: owner: [HelloWorld: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWor...etc... OrderedCollection>>do: Receiver: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([HelloWorld: /HelloWorld/HelloWorld' model] nil nil nil nil nil...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [HelloWorld: /HelloWorld] Arguments and temporary variables: Receiver's instance variables: owner: [HelloWorld: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWor...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [HelloWorld: /HelloWorld] Arguments and temporary variables: r: true Receiver's instance variables: owner: [HelloWorld: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWor...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "tamarisItemRef" is nil 7 December 2012 2:09:29.953 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef Receiver: nil Arguments and temporary variables: aMessage: tamarisItemRef exception: MessageNotUnderstood: receiver of "tamarisItemRef" is nil resumeValue: nil Receiver's instance variables: nil PlatypusModelContentsResolver>>acceptEntityDefinitionReference: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference found: nil chosen: [HelloWorld: /HelloWorld/HelloWorld] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference selector: #acceptEntityDefinitionReference: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinitionReference aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltEntityDefinitionReference Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltEntityDefinitionReference(Object)>>acceptTry: Receiver: a PltEntityDefinitionReference Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil name: 'Hello' ref: nil PlatypusModelContentsResolver>>acceptInternalRepresentation: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] selector: #acceptInternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltInternalRepresentation['1'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltInternalRepresentation(Object)>>acceptTry: Receiver: a PltInternalRepresentation['1'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil persistentLabel: '1' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil definition: a PltEntityDefinitionReference parameters: an OrderedCollection() [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: v: a PltInternalRepresentation['1'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents OrderedCollection>>do: Receiver: an OrderedCollection(a PltInternalRepresentation['1']) Arguments and temporary variables: aBlock: [:v | v acceptTry: self] index: 1 Receiver's instance variables: array: an Array(a PltInternalRepresentation['1'] nil nil nil nil nil nil nil ni...etc... firstIndex: 1 lastIndex: 1 PlatypusModelContentsResolver>>acceptModelContents: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents selector: #acceptModelContents: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>accep...etc... startpc: 28 numArgs: 0 PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObjectOrCollection: a PltModelContents aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: anObject: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PlatypusModelContentsResolver>>acceptTry: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: e: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents(Object)>>acceptTry: Receiver: a PltModelContents Arguments and temporary variables: aVisitor: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T14:09:29.889000002+01:00' changeDate: '2012-11-09T22:39:13.914+01:00' headerInstances: an OrderedCollection() dataInstances: an OrderedCollection(a PltInternalRepresentation['1']) positionByDataInstanceIndex: an IdentityDictionary(a PltInternalRepresentation[...etc... dataInstancesByEntityIndex: an IdentityDictionary(a PltEntityDefinition->a Set(...etc... dataInstancesByLabelIndex: a Dictionary('1'->a PltInternalRepresentation['1'] )...etc... recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(a PltInternalRepresentation['1']...etc... PlatypusModelContentsResolver>>checks: Receiver: a PlatypusModelContentsResolver Arguments and temporary variables: aMetaData: a PltModelContents Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsResolver->#a...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(a PltEntityDefinitionReference->a PltEntityDefin...etc... modelContents: a PltModelContents PltModelContents>>resolves Receiver: a PltModelContents Arguments and temporary variables: checker: a PlatypusModelContentsResolver Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T14:09:29.889000002+01:00' changeDate: '2012-11-09T22:39:13.914+01:00' headerInstances: an OrderedCollection() dataInstances: an OrderedCollection(a PltInternalRepresentation['1']) positionByDataInstanceIndex: an IdentityDictionary(a PltInternalRepresentation[...etc... dataInstancesByEntityIndex: an IdentityDictionary(a PltEntityDefinition->a Set(...etc... dataInstancesByLabelIndex: a Dictionary('1'->a PltInternalRepresentation['1'] )...etc... recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(a PltInternalRepresentation['1']...etc... PltModelContents>>verifySilently Receiver: a PltModelContents Arguments and temporary variables: Receiver's instance variables: owner: nil validationResult: true validationDate: '2012-12-07T14:09:29.889000002+01:00' changeDate: '2012-11-09T22:39:13.914+01:00' headerInstances: an OrderedCollection() dataInstances: an OrderedCollection(a PltInternalRepresentation['1']) positionByDataInstanceIndex: an IdentityDictionary(a PltInternalRepresentation[...etc... dataInstancesByEntityIndex: an IdentityDictionary(a PltEntityDefinition->a Set(...etc... dataInstancesByLabelIndex: a Dictionary('1'->a PltInternalRepresentation['1'] )...etc... recordComputedInstances: false entitiesByInstanceIndex: an IdentityDictionary(a PltInternalRepresentation['1']...etc... PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently Receiver: [HelloWorld: /HelloWorld/HelloWorld' model] Arguments and temporary variables: Receiver's instance variables: owner: [HelloWorld: /HelloWorld] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: 1 dataInstances: nil PlatypusModelContentsReference>>verifySilently Receiver: [HelloWorld: /HelloWorld/HelloWorld' model] Arguments and temporary variables: Receiver's instance variables: owner: [HelloWorld: /HelloWorld] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: nil subReferences: nil attrOrRuleOrValue: nil useP21Syntax: true modelContents: a PltModelContents folder: nil newLabelCounter: 1 dataInstances: nil [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [HelloWorld: /HelloWorld] Arguments and temporary variables: mcr: [HelloWorld: /HelloWorld/HelloWorld' model] Receiver's instance variables: owner: [HelloWorld: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWor...etc... OrderedCollection>>do: Receiver: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld' model]) Arguments and temporary variables: aBlock: [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] index: 1 Receiver's instance variables: array: an Array([HelloWorld: /HelloWorld/HelloWorld' model] nil nil nil nil nil...etc... firstIndex: 1 lastIndex: 1 PlatypusSchemaInstanceReference>>verifyModelContentsSilently Receiver: [HelloWorld: /HelloWorld] Arguments and temporary variables: Receiver's instance variables: owner: [HelloWorld: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWor...etc... PlatypusSchemaInstanceReference>>verifySilently Receiver: [HelloWorld: /HelloWorld] Arguments and temporary variables: r: true Receiver's instance variables: owner: [HelloWorld: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWorld]) interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([HelloWorld: /HelloWorld/HelloWor...etc... --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #tamarisItemRef PlatypusModelContentsResolver>>acceptEntityDefinitionReference: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltEntityDefinitionReference(Object)>>acceptTry: PlatypusModelContentsResolver>>acceptInternalRepresentation: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltInternalRepresentation(Object)>>acceptTry: [:v | v acceptTry: self] in PlatypusModelContentsResolver>>acceptModelContents: OrderedCollection>>do: PlatypusModelContentsResolver>>acceptModelContents: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsResolver(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PlatypusModelContentsResolver>>acceptTry: PltModelContents(Object)>>acceptTry: PlatypusModelContentsResolver>>checks: PltModelContents>>resolves PltModelContents>>verifySilently PlatypusModelContentsReference(PlatypusStepReference)>>verifySilently PlatypusModelContentsReference>>verifySilently [:mcr | mcr removeSubReferencesSilently. mcr verifySilently] in PlatypusSchemaInstanceReference>>verifyModelContentsSilently OrderedCollection>>do: PlatypusSchemaInstanceReference>>verifyModelContentsSilently PlatypusSchemaInstanceReference>>verifySilently - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:10:15.174 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: p: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltIdentifier('TYPEOF') a PltStringLiteral) Arguments and temporary variables: elementBlock: [:p | self nextPutAll: ' add: '. self acceptTry: p] separatorBlock: [self nextPutAll: ';'] index: 1 indexLimiT: 2 Receiver's instance variables: array: an Array(a PltIdentifier('TYPEOF') a PltStringLiteral) firstIndex: 1 lastIndex: 2 PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('StringAggregateConcatSeparatedBy') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltPlusExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: Receiver: PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: aMetaData: a PltReturnStatement aTranslater: a PlatypusExpressStructure2PharoTranslater aStream: a WriteStream translater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressStatement2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressStateme...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressStatement2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance a PltFunctionDeclaration a PltFunct...etc... namesBuilder: a PlatypusNamesBuilder localTranslationOnly: false schemaInstance: a PltSchemaInstance OrderedCollection>>do: Receiver: an OrderedCollection(a PltReturnStatement) Arguments and temporary variables: aBlock: [:stmt | code := code , (self statementTranslaterClass accept: stm...etc... index: 1 Receiver's instance variables: array: an Array(a PltReturnStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: OrderedCollection(SequenceableCollection)>>do:separatedBy: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(TamListItemReference)>>perform:orSendTo: [| selArgCount | (selArgCount := selector numArgs) = 0 ifTrue: [target perform: selector] ifFalse: [selArgCount = arguments size ifTrue: [target perform: selector withArguments: arguments] ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]. self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:10:46.295 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: p: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltIdentifier('TYPEOF') a PltStringLiteral) Arguments and temporary variables: elementBlock: [:p | self nextPutAll: ' add: '. self acceptTry: p] separatorBlock: [self nextPutAll: ';'] index: 1 indexLimiT: 2 Receiver's instance variables: array: an Array(a PltIdentifier('TYPEOF') a PltStringLiteral) firstIndex: 1 lastIndex: 2 PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('StringAggregateConcatSeparatedBy') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltPlusExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: Receiver: PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: aMetaData: a PltReturnStatement aTranslater: a PlatypusExpressStructure2PharoTranslater aStream: a WriteStream translater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressStatement2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressStateme...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressStatement2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance a PltFunctionDeclaration a PltFunct...etc... namesBuilder: a PlatypusNamesBuilder localTranslationOnly: false schemaInstance: a PltSchemaInstance OrderedCollection>>do: Receiver: an OrderedCollection(a PltReturnStatement) Arguments and temporary variables: aBlock: [:stmt | code := code , (self statementTranslaterClass accept: stm...etc... index: 1 Receiver's instance variables: array: an Array(a PltReturnStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: OrderedCollection(SequenceableCollection)>>do:separatedBy: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:12:27.868 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptInExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltInExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltInExpression selector: #acceptInExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltInExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltInExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltInExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptOrExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression selector: #acceptOrExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltOrExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptOrExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression selector: #acceptOrExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltOrExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptOrExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression selector: #acceptOrExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltOrExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltOrExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltOrExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptInExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptOrExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptOrExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptOrExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "namesBuilder" is nil 7 December 2012 2:14:04.216 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder Receiver: nil Arguments and temporary variables: aMessage: namesBuilder exception: MessageNotUnderstood: receiver of "namesBuilder" is nil resumeValue: nil Receiver's instance variables: nil PltFunctionDeclaration(PltEntityInstance)>>namesBuilder Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PltFunctionDeclaration(PltEntityInstance)>>generatedClassName Receiver: a PltFunctionDeclaration Arguments and temporary variables: Receiver's instance variables: owner: a PltIdentifier('TYPEOF') namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('P'->a Set(a PltParameterDefinition) ) name: 'TYPEOF' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection() statements: an OrderedCollection(a PltNativeStatement a PltNullStatement) formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltSetType PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('TYPEOF') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: p: a PltIdentifier('TYPEOF') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltIdentifier('TYPEOF') a PltStringLiteral) Arguments and temporary variables: elementBlock: [:p | self nextPutAll: ' add: '. self acceptTry: p] separatorBlock: [self nextPutAll: ';'] index: 1 indexLimiT: 2 Receiver's instance variables: array: an Array(a PltIdentifier('TYPEOF') a PltStringLiteral) firstIndex: 1 lastIndex: 2 PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('StringAggregateConcatSeparatedBy') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltIdentifier('StringAggregateConcatSeparatedBy') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptBinaryExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVis...etc... startpc: 28 numArgs: 0 PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressExpression2Smallta...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStatement2PharoTranslater receiverName: nil PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: Receiver: PlatypusExpressExpression2PharoTranslater Arguments and temporary variables: aMetaData: a PltPlusExpression aTranslater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressExpression2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressExpress...etc... format: 148 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressExpression2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: e: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement selector: #acceptReturnStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltReturnStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: anObject: a PltReturnStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStatement2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: a PlatypusExpressStructure2PharoTranslater PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: Receiver: PlatypusExpressStatement2PharoTranslater Arguments and temporary variables: aMetaData: a PltReturnStatement aTranslater: a PlatypusExpressStructure2PharoTranslater aStream: a WriteStream translater: a PlatypusExpressStatement2PharoTranslater Receiver's instance variables: superclass: PlatypusExpressStatement2SmalltalkTranslater methodDict: a MethodDictionary(#acceptNativeAlgorithm:->(PlatypusExpressStateme...etc... format: 146 instanceVariables: nil organization: ('visit dictionary schema' acceptNativeAlgorithm:) subclasses: nil name: #PlatypusExpressStatement2PharoTranslater classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-translater-private' traitComposition: {} localSelectors: nil [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance a PltSchemaDefinition a PltFunction...etc... namesBuilder: a PlatypusNamesBuilder localTranslationOnly: false schemaInstance: a PltSchemaInstance OrderedCollection>>do: Receiver: an OrderedCollection(a PltReturnStatement) Arguments and temporary variables: aBlock: [:stmt | code := code , (self statementTranslaterClass accept: stm...etc... index: 1 Receiver's instance variables: array: an Array(a PltReturnStatement nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #namesBuilder PltFunctionDeclaration(PltEntityInstance)>>namesBuilder PltFunctionDeclaration(PltEntityInstance)>>generatedClassName PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: [:p | self nextPutAll: ' add: '. self acceptTry: p] in PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: OrderedCollection(SequenceableCollection)>>do:separatedBy: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptIdentifier: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater(PlatypusExpressExpression2SmalltalkTranslater)>>acceptBinaryExpression: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressExpression2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressExpression2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater: PlatypusExpressStatement2PharoTranslater(PlatypusExpressStatement2SmalltalkTranslater)>>acceptReturnStatement: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStatement2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStatement2PharoTranslater class(PlatypusExpressTranslater class)>>accept:fromTranslater:resultStream: [:stmt | code := code , (self statementTranslaterClass accept: stmt fromTranslater: self resultStream: (WriteStream on: String new)) result] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildAlgorithmCodeFrom: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doAlgorithmDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptFunctionDeclaration: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaDefinition: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:sch | sch acceptTry: self] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: OrderedCollection>>do: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusStack>>last 7 December 2012 10:22:30.224 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PlatypusStack(Object)>>doesNotUnderstand: #last Receiver: a PlatypusStack Arguments and temporary variables: aMessage: last exception: MessageNotUnderstood: PlatypusStack>>last resumeValue: nil Receiver's instance variables: stack: an Array(a PltModelContents a PltInternalRepresentation['147'] a PltInte...etc... stackp: 15 PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: aListOfExpressions: an OrderedCollection(a PltTrueConstant) accessorSymbol: #explicitAttributesDo: numberOfAttributes: 2 esize: 1 pos: #(nil nil) value: a PlatypusModelContentsSemanticChecker Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker>>acceptSimpleRecord: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltSimpleRecord entityDef: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord selector: #acceptSimpleRecord: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: owner: a PltExternalRepresentation['134'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltTrueConstant) [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusModelContentsSemanticChecker Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection>>do: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 1 Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 PlatypusModelContentsSemanticChecker>>acceptExternalRepresentation: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] selector: #acceptExternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltExternalRepresentation['134'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [self acceptTry: value] Arguments and temporary variables: aBlock: [domainStack pop] complete: nil returnValue: nil Receiver's instance variables: outerContext: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue...etc... startpc: 237 numArgs: 0 [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltExplicitAttribute aSet: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTru...etc... done: a Set() attr: #(true) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: Receiver: a PltEntityDefinition Arguments and temporary variables: < Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltExplicitAttribute) Arguments and temporary variables: aBlock: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBl...etc... index: 1 Receiver's instance variables: array: an Array(a PltExplicitAttribute nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>explicitAttributesDo:separatedBy: Receiver: a PltEntityDefinition Arguments and temporary variables: < Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(true) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'sdai_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'sdai_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('HANDLED'->a Set(a PltDerivedAttribute) 'SELF'->...etc... whereRules: an OrderedCollection() name: 'dictionary_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltDerivedAttribute) supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('HANDLED'->a Set(a PltDerivedAttribute) 'SELF'->...etc... whereRules: an OrderedCollection() name: 'dictionary_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltDerivedAttribute) supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'expression' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'expression' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('LEFT_EXPR'->a Set(a PltExplicitAttribute) 'OP_S...etc... whereRules: an OrderedCollection() name: 'binary_expression' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 --- The full stack --- PlatypusStack(Object)>>doesNotUnderstand: #last PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptSimpleRecord: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusModelContentsSemanticChecker>>acceptExternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusStack>>last 7 December 2012 10:22:42.385 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PlatypusStack(Object)>>doesNotUnderstand: #last Receiver: a PlatypusStack Arguments and temporary variables: aMessage: last exception: MessageNotUnderstood: PlatypusStack>>last resumeValue: nil Receiver's instance variables: stack: an Array(a PltModelContents a PltInternalRepresentation['147'] a PltInte...etc... stackp: 15 PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: aListOfExpressions: an OrderedCollection(a PltTrueConstant) accessorSymbol: #explicitAttributesDo: numberOfAttributes: 2 esize: 1 pos: #(nil nil) value: a PlatypusModelContentsSemanticChecker Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker>>acceptSimpleRecord: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltSimpleRecord entityDef: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord selector: #acceptSimpleRecord: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: owner: a PltExternalRepresentation['134'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltTrueConstant) [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusModelContentsSemanticChecker Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection>>do: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 1 Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PlatypusModelContentsSemanticChecker Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 5 PlatypusModelContentsSemanticChecker>>acceptExternalRepresentation: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: e: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] selector: #acceptExternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)...etc... startpc: 28 numArgs: 0 PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltExternalRepresentation['134'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: anObject: a PltExternalRepresentation['134'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack BlockClosure>>ensure: Receiver: [self acceptTry: value] Arguments and temporary variables: aBlock: [domainStack pop] complete: nil returnValue: nil Receiver's instance variables: outerContext: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue...etc... startpc: 237 numArgs: 0 [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: Receiver: a PlatypusModelContentsSemanticChecker Arguments and temporary variables: < Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltModelContents->#acceptModelCon...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 465) modelContents: nil currInstance: a PltSimpleRecord domainStack: a PlatypusStack [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltExplicitAttribute aSet: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTru...etc... done: a Set() attr: #(true) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: Receiver: a PltEntityDefinition Arguments and temporary variables: < Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltExplicitAttribute) Arguments and temporary variables: aBlock: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBl...etc... index: 1 Receiver's instance variables: array: an Array(a PltExplicitAttribute nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>explicitAttributesDo:separatedBy: Receiver: a PltEntityDefinition Arguments and temporary variables: < Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(true) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('OWNER'->a Set(a PltExplicitAttribute) 'SELF'->a...etc... whereRules: an OrderedCollection() name: 'entity_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute) supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'sdai_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'sdai_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('HANDLED'->a Set(a PltDerivedAttribute) 'SELF'->...etc... whereRules: an OrderedCollection() name: 'dictionary_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltDerivedAttribute) supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('HANDLED'->a Set(a PltDerivedAttribute) 'SELF'->...etc... whereRules: an OrderedCollection() name: 'dictionary_instance' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltDerivedAttribute) supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'expression' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifT...etc... aSepBlock: [] aSet: a Set() attrs: nil done: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltEntityDefinition) ) whereRules: an OrderedCollection() name: 'expression' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: Receiver: a PltEntityDefinition Arguments and temporary variables: aBlock: a PltEntityDefinitionReference aSepBlock: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ...etc... aSet: [] done: a Set() st: #(false) Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('LEFT_EXPR'->a Set(a PltExplicitAttribute) 'OP_S...etc... whereRules: an OrderedCollection() name: 'binary_expression' independent: false subtypes: an OrderedCollection(a PltEntityDefinitionReference a PltEntityDefini...etc... uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: a PltSupertypeConstraint OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinitionReference) Arguments and temporary variables: aBlock: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: ...etc... index: 1 Receiver's instance variables: array: an Array(a PltEntityDefinitionReference) firstIndex: 1 lastIndex: 1 --- The full stack --- PlatypusStack(Object)>>doesNotUnderstand: #last PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptSimpleRecord: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusModelContentsSemanticChecker>>acceptExternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: BlockClosure>>ensure: [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: [:attr | (aSet includes: attr) ifFalse: [done := true. aBlock value: attr. aSet add: attr]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:attr | attr isPltExplicitAttribute ifTrue: [pos := pos + 1. aBlock value: attr]. pos < count ifTrue: [aSepBlock value]] in PltEntityDefinition>>explicitAttributesDo:separatedBy: OrderedCollection>>do: PltEntityDefinition>>explicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: [:st | st ref ifNotNil: [(st ref inheritedExplicitAttributesDo: aBlock separatedBy: aSepBlock doneFor: aSet) ifTrue: [done := true]]] in PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: OrderedCollection>>do: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy:doneFor: PltEntityDefinition>>inheritedExplicitAttributesDo:separatedBy: PltEntityDefinition>>inheritedExplicitAttributesDo: PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: PlatypusModelContentsSemanticChecker>>acceptInternalRepresentation: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusModelContentsSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: [self acceptTry: value] in [:attr | (value := aListOfExpressions at: pos) isPltMissingValue ifTrue: [value isPltRedefinedAttributeValue ifFalse: [attr optionalFlag ifFalse: [self registerError: (PlatypusModelContentsSemanticCheckerError metaData: visitPath top message: 'entity ''' , currInstance definition name , ''' mandatory attribute with missing value')]]] ifFalse: [domainStack push: attr domain -> ('attribute ''' , attr name , ''''). [self acceptTry: value] ensure: [domainStack pop]]. pos := pos + 1] in PlatypusModelContentsSemanticChecker>>checksValues:attributesAccessor:numberOfAttributes: -- and more not shown --------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltBooleanType>>adaIdentUsingContext: 7 December 2012 11:15:18.547 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PltBooleanType(Object)>>doesNotUnderstand: #adaIdentUsingContext: Receiver: a PltBooleanType Arguments and temporary variables: aMessage: adaIdentUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PltBooleanType>>adaIdentUsingContext: resumeValue: nil Receiver's instance variables: owner: a PltListType [:etype866648064 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: etype866648064; yourself)) includes: 'RECORD_AND_CLASS.ADA_CLASS') ifTrue: [self code: (((self code pltPlus: ' ) of ') pltPlus: (etype866648064 ptrTypeUsingContext: self class context)) pltPlus: ';\n')] ifFalse: [self code: (((self code pltPlus: ' ) of ') pltPlus: (etype866648064 adaIdentUsingContext: self class context)) pltPlus: ';\n')]] in ChdConstrainedArrayTypeAdsCodeFunction>>invoke Receiver: a ChdConstrainedArrayTypeAdsCodeFunction Arguments and temporary variables: etype866648064: a PltBooleanType Receiver's instance variables: a: a PlatypusComplexInstance code: 'type Data_From_Simulation_Table is Array ( Data_From_Simulation''Range' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltBooleanType Receiver's instance variables: statementsBlock: [:etype866648064 | ((PltTYPEOFFunction invokeFromValues: (Orde...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltBooleanType oneArgStatementsBlock: [:etype866648064 | ((PltTYPEOFFunction invokeFromValues:...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdConstrainedArrayTypeAdsCodeFunction>>invoke Receiver: a ChdConstrainedArrayTypeAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: a: a PlatypusComplexInstance code: 'type Data_From_Simulation_Table is Array ( Data_From_Simulation''Range' ChdConstrainedArrayTypeAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdConstrainedArrayTypeAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdConstrainedArrayTypeAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#a->(ChdConstrainedArrayTypeAdsCodeFunction>>#a ...etc... format: 134 instanceVariables: #('a' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdConstrainedArrayTypeAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-CheddarTypesSchema' traitComposition: {} localSelectors: nil ChdConstrainedArrayType>>adsCodeUsingContext:receiver: Receiver: a ChdConstrainedArrayType Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Data_From_Simulation_Table' domain: a PltListType maxIdx: nil interfaces: an OrderedCollection() minIdx: 'Data_From_Simulation''Range' Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdConstrainedArrayType Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdConstrainedArrayType) [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1011351552; yourself)) ifTrue: [self ads ifTrue: [self code: (c1011351552 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1011351552 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltAt: no975699968) statementsBlock: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1011351552; yourself)) ifTrue: [self ads ifTrue: [self code: (c1011351552 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1011351552 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c1011351552: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: true result: 'type Data_From_Simulation is (\n\tWorst_Case,\n\tBest_Case,\n\tAverage...etc... code: 'type Data_From_Simulation is (\n\tWorst_Case,\n\tBest_Case,\n\tAverage_C...etc... contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFro...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction inv...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltAt: no975699968) statementsBlock: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1011351552; yourself)) ifTrue: [self ads ifTrue: [self code: (c1011351552 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1011351552 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no975699968: 2 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: true result: 'type Data_From_Simulation is (\n\tWorst_Case,\n\tBest_Case,\n\tAverage...etc... code: 'type Data_From_Simulation is (\n\tWorst_Case,\n\tBest_Case,\n\tAverage_C...etc... contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... p: 2 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... p: 2 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... start: 1 stop: 2 p: 2 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... start: 1 stop: 2 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: true result: 'type Data_From_Simulation is (\n\tWorst_Case,\n\tBest_Case,\n\tAverage...etc... code: 'type Data_From_Simulation is (\n\tWorst_Case,\n\tBest_Case,\n\tAverage_C...etc... contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdsCodeFunction>>invoke Receiver: a ChdAdaPackageAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil classes: an OrderedCollection() constList: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInst...etc... privateClasses: an OrderedCollection() constrainedArrays: an OrderedCollection(a PlatypusComplexInstance) ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#classes->(ChdAdaPackageAdsCodeFunction>>#classe...etc... format: 142 instanceVariables: #('pkg' 'result' 'classes' 'constList' 'privateClasses' 'con...etc... organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: nil localSelectors: nil ChdAdaPackage>>adsCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance...etc... constants: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInst...etc... identifiersCache: nil name: 'Editor_Config' algorithmes: an OrderedCollection() entities: an OrderedCollection() interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) [:no208666624 | self ads ifTrue: [self body: ((self pkgs pltAt: no208666624) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no208666624) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: no208666624: 3 Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no208666624 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 3 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no208666624 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 3 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no208666624 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... start: 1 stop: 33 p: 3 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no208666624 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... start: 1 stop: 33 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 --- The full stack --- PltBooleanType(Object)>>doesNotUnderstand: #adaIdentUsingContext: [:etype866648064 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: etype866648064; yourself)) includes: 'RECORD_AND_CLASS.ADA_CLASS') ifTrue: [self code: (((self code pltPlus: ' ) of ') pltPlus: (etype866648064 ptrTypeUsingContext: self class context)) pltPlus: ';\n')] ifFalse: [self code: (((self code pltPlus: ' ) of ') pltPlus: (etype866648064 adaIdentUsingContext: self class context)) pltPlus: ';\n')]] in ChdConstrainedArrayTypeAdsCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: ChdConstrainedArrayTypeAdsCodeFunction>>invoke ChdConstrainedArrayTypeAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdConstrainedArrayType>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1011351552; yourself)) ifTrue: [self ads ifTrue: [self code: (c1011351552 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1011351552 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltAt: no975699968) statementsBlock: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1011351552; yourself)) ifTrue: [self ads ifTrue: [self code: (c1011351552 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1011351552 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no975699968 | PlatypusCoreAliasStatement alias: (self contents pltAt: no975699968) statementsBlock: [:c1011351552 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1011351552; yourself)) ifTrue: [self ads ifTrue: [self code: (c1011351552 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1011351552 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdsCodeFunction>>invoke ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:no208666624 | self ads ifTrue: [self body: ((self pkgs pltAt: no208666624) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no208666624) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltEntityDefinition>>refedByPointerUsingContext: 11 January 2013 1:11:44.627 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PltEntityDefinition(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PltEntityDefinition Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PltEntityDefinition>>refedByPointerUsingContex...etc... resumeValue: nil Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Memory_Requirements' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil [:no958922752 | self result: (((self result pltPlus: ' ') pltPlus: (((self rec attributesUsingContext: self class context) pltAt: no958922752) nameUsingContext: self class context)) pltPlus: ' : '). self domain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (((self rec attributesUsingContext: self class context) pltAt: no958922752) domainUsingContext: self class context); yourself)). ((self domain handledUsingContext: self class context) refedByPointerUsingContext: self class context) ifTrue: [self result: ((self result pltPlus: ((self domain handledUsingContext: self class context) ptrTypeUsingContext: self class context)) pltPlus: ';\n')] ifFalse: [self result: ((self result pltPlus: (self domain adaRefIdentUsingContext: self class context)) pltPlus: ';\n')]] in ChdRecordAdsCodeFunction>>invoke Receiver: a ChdRecordAdsCodeFunction Arguments and temporary variables: no958922752: 1 Receiver's instance variables: rec: a PlatypusComplexInstance result: '\n-- --------= Partition_Memory_Element =--------\n \ntype Partition_M...etc... domain: a PlatypusComplexInstance [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... start: 1 stop: 4 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... start: 1 stop: 4 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdRecordAdsCodeFunction>>invoke Receiver: a ChdRecordAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: rec: a PlatypusComplexInstance result: '\n-- --------= Partition_Memory_Element =--------\n \ntype Partition_M...etc... domain: a PlatypusComplexInstance ChdRecordAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdRecordAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdRecordAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#domain->(ChdRecordAdsCodeFunction>>#domain "a C...etc... format: 136 instanceVariables: #('rec' 'result' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdRecordAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdRecord>>adsCodeUsingContext:receiver: Receiver: a ChdRecord Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Partition_Memory_Element' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdRecord Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdRecord) [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c88342528: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: '\n-- --------= Part_HM_Ext_Type =--------\n \ntype Part_HM_Ext_Type is\n...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromV...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invok...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no52690944: 42 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: '\n-- --------= Part_HM_Ext_Type =--------\n \ntype Part_HM_Ext_Type is\n...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... p: 42 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... p: 42 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... start: 1 stop: 66 p: 42 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... start: 1 stop: 66 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: '\n-- --------= Part_HM_Ext_Type =--------\n \ntype Part_HM_Ext_Type is\n...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdsCodeFunction>>invoke Receiver: a ChdAdaPackageAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil classes: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... constList: an OrderedCollection() privateClasses: an OrderedCollection() constrainedArrays: an OrderedCollection() ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#classes->(ChdAdaPackageAdsCodeFunction>>#classe...etc... format: 142 instanceVariables: #('pkg' 'result' 'classes' 'constList' 'privateClasses' 'con...etc... organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adsCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Partition' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: no508821504) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no508821504) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: no508821504: 29 Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 29 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 29 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... start: 1 stop: 36 p: 29 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... start: 1 stop: 36 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil --- The full stack --- PltEntityDefinition(Object)>>doesNotUnderstand: #refedByPointerUsingContext: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlus: (((self rec attributesUsingContext: self class context) pltAt: no958922752) nameUsingContext: self class context)) pltPlus: ' : '). self domain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (((self rec attributesUsingContext: self class context) pltAt: no958922752) domainUsingContext: self class context); yourself)). ((self domain handledUsingContext: self class context) refedByPointerUsingContext: self class context) ifTrue: [self result: ((self result pltPlus: ((self domain handledUsingContext: self class context) ptrTypeUsingContext: self class context)) pltPlus: ';\n')] ifFalse: [self result: ((self result pltPlus: (self domain adaRefIdentUsingContext: self class context)) pltPlus: ';\n')]] in ChdRecordAdsCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdRecordAdsCodeFunction>>invoke ChdRecordAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdRecord>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdsCodeFunction>>invoke ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: no508821504) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no508821504) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: ChdAdaListType>>refedByPointerUsingContext: 11 January 2013 1:23:52.937 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] ChdAdaListType(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a ChdAdaListType Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: ChdAdaListType>>refedByPointerUsingContext: resumeValue: nil Receiver's instance variables: owner: a PltExplicitAttribute elementType: a PltEntityDefinitionReference upperBound: nil isGeneralType: false lowerBound: nil uniqueFlag: false [:no958922752 | self result: (((self result pltPlus: ' ') pltPlus: (((self rec attributesUsingContext: self class context) pltAt: no958922752) nameUsingContext: self class context)) pltPlus: ' : '). self domain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (((self rec attributesUsingContext: self class context) pltAt: no958922752) domainUsingContext: self class context); yourself)). ((self domain handledUsingContext: self class context) refedByPointerUsingContext: self class context) ifTrue: [self result: ((self result pltPlus: ((self domain handledUsingContext: self class context) ptrTypeUsingContext: self class context)) pltPlus: ';\n')] ifFalse: [self result: ((self result pltPlus: (self domain adaRefIdentUsingContext: self class context)) pltPlus: ';\n')]] in ChdRecordAdsCodeFunction>>invoke Receiver: a ChdRecordAdsCodeFunction Arguments and temporary variables: no958922752: 2 Receiver's instance variables: rec: a PlatypusComplexInstance result: '\n-- --------= Partition_Memory_Element =--------\n \ntype Partition_M...etc... domain: a ChdAdaListType [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... p: 2 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... p: 2 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... start: 1 stop: 4 p: 2 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlu...etc... start: 1 stop: 4 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdRecordAdsCodeFunction>>invoke Receiver: a ChdRecordAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: rec: a PlatypusComplexInstance result: '\n-- --------= Partition_Memory_Element =--------\n \ntype Partition_M...etc... domain: a ChdAdaListType ChdRecordAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdRecordAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdRecordAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#domain->(ChdRecordAdsCodeFunction>>#domain "a C...etc... format: 136 instanceVariables: #('rec' 'result' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdRecordAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdRecord>>adsCodeUsingContext:receiver: Receiver: a ChdRecord Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Partition_Memory_Element' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdRecord Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdRecord) [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c88342528: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: '\n-- --------= Part_HM_Ext_Type =--------\n \ntype Part_HM_Ext_Type is\n...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromV...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invok...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no52690944: 42 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: '\n-- --------= Part_HM_Ext_Type =--------\n \ntype Part_HM_Ext_Type is\n...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... p: 42 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... p: 42 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... start: 1 stop: 66 p: 42 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... start: 1 stop: 66 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: '\n-- --------= Part_HM_Ext_Type =--------\n \ntype Part_HM_Ext_Type is\n...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdsCodeFunction>>invoke Receiver: a ChdAdaPackageAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil classes: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... constList: an OrderedCollection() privateClasses: an OrderedCollection() constrainedArrays: an OrderedCollection() ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#classes->(ChdAdaPackageAdsCodeFunction>>#classe...etc... format: 142 instanceVariables: #('pkg' 'result' 'classes' 'constList' 'privateClasses' 'con...etc... organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adsCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Partition' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: no508821504) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no508821504) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: no508821504: 24 Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 24 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 24 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... start: 1 stop: 36 p: 24 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... start: 1 stop: 36 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil --- The full stack --- ChdAdaListType(Object)>>doesNotUnderstand: #refedByPointerUsingContext: [:no958922752 | self result: (((self result pltPlus: ' ') pltPlus: (((self rec attributesUsingContext: self class context) pltAt: no958922752) nameUsingContext: self class context)) pltPlus: ' : '). self domain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (((self rec attributesUsingContext: self class context) pltAt: no958922752) domainUsingContext: self class context); yourself)). ((self domain handledUsingContext: self class context) refedByPointerUsingContext: self class context) ifTrue: [self result: ((self result pltPlus: ((self domain handledUsingContext: self class context) ptrTypeUsingContext: self class context)) pltPlus: ';\n')] ifFalse: [self result: ((self result pltPlus: (self domain adaRefIdentUsingContext: self class context)) pltPlus: ';\n')]] in ChdRecordAdsCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdRecordAdsCodeFunction>>invoke ChdRecordAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdRecord>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdsCodeFunction>>invoke ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: no508821504) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no508821504) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: ChdAdaListType>>refedByPointerUsingContext: 11 January 2013 1:27:25.294 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] ChdAdaListType(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a ChdAdaListType Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: ChdAdaListType>>refedByPointerUsingContext: resumeValue: nil Receiver's instance variables: owner: a PltExplicitAttribute elementType: a PltEntityDefinitionReference upperBound: nil isGeneralType: false lowerBound: nil uniqueFlag: false ChdExplicitAttributePutFunction>>invoke Receiver: a ChdExplicitAttributePutFunction Arguments and temporary variables: Receiver's instance variables: attr: a PltExplicitAttribute code: 'put("ModExt: "); ' prfx: '' domain: a ChdAdaListType ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributePutFunction Arguments and temporary variables: values: an OrderedCollection(a PltExplicitAttribute) algo: a ChdExplicitAttributePutFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributePutFunction>>#attr "...etc... format: 138 instanceVariables: #('attr' 'code' 'prfx' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributePutFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:attr707002368 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr707002368; yourself))) pltPlus: '\n')] in [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no496500736) statementsBlock: [:attr707002368 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr707002368; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: attr707002368: a PltExplicitAttribute Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in ARINC_653_Module) is \nbegin\n\tput("System_HM_Ta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:attr707002368 | self code: (((self code pltPlus: '\t') ...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:attr707002368 | self code: (((self code pltPlus: '\t...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no496500736) statementsBlock: [:attr707002368 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr707002368; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: no496500736: 8 Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in ARINC_653_Module) is \nbegin\n\tput("System_HM_Ta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 8 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 8 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 11 p: 8 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 11 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in ARINC_653_Module) is \nbegin\n\tput("System_HM_Ta...etc... ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassPutCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassPutCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassPutCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassPutCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClassAdbCodeFunction>>invoke Receiver: a ChdAdaClassAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: nil ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassAdbCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adbCodeUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'ARINC_653_Module' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil isPrivate: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c88342528: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromV...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invok...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no52690944: 1 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... start: 1 stop: 25 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt...etc... start: 1 stop: 25 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdbCodeFunction>>invoke Receiver: a ChdAdaPackageAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdAdaPackageAdbCodeFunction>>#fr...etc... format: 134 instanceVariables: #('pkg' 'result') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adbCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Module_Schema' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: no508821504) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no508821504) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: no508821504: 14 Receiver's instance variables: ads: false code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: ...etc... p: 14 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil --- The full stack --- ChdAdaListType(Object)>>doesNotUnderstand: #refedByPointerUsingContext: ChdExplicitAttributePutFunction>>invoke ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:attr707002368 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr707002368; yourself))) pltPlus: '\n')] in [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no496500736) statementsBlock: [:attr707002368 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr707002368; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no496500736 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no496500736) statementsBlock: [:attr707002368 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr707002368; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaClassPutCodeFunction>>invoke ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClassAdbCodeFunction>>invoke ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adbCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no52690944 | PlatypusCoreAliasStatement alias: (self contents pltAt: no52690944) statementsBlock: [:c88342528 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c88342528; yourself)) ifTrue: [self ads ifTrue: [self code: (c88342528 adsCodeUsingContext: self class context)] ifFalse: [self code: (c88342528 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdbCodeFunction>>invoke ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adbCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:no508821504 | self ads ifTrue: [self body: ((self pkgs pltAt: no508821504) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no508821504) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isEmpty" is nil 11 January 2013 1:28:04.561 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isEmpty Receiver: nil Arguments and temporary variables: aMessage: isEmpty exception: MessageNotUnderstood: receiver of "isEmpty" is nil resumeValue: nil Receiver's instance variables: nil TamBrowser>>localSearchListItemByName Receiver: a TamBrowser Arguments and temporary variables: pattern: nil Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>searchListItemByName Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>menuSearch Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $f tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $f Receiver's instance variables: bounds: (161.0@68.0) corner: (413.0@954.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (413@954) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(58195968)'ARINC653' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 378.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (413.0@954.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (413@954) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(58195968)'ARINC653' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 378.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 8264568 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (598@384) handler: nil wasHandled: true keyValue: 102 charCode: 102 scanCode: 3 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (413.0@954.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (413@954) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(58195968)'ARINC653' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 378.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (413.0@954.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (413@954) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(58195968)'ARINC653' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 378.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (780@441) corner: (796@457) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(780@441) mouseOver nil nil] targetOffset: (15.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 8267667 780 441 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1624@1006) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sys...etc... fullBounds: (0@0) corner: (1624@1006) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1624@1006) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sys...etc... fullBounds: (0@0) corner: (1624@1006) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (780@441) corner: (796@457) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(780@441) mouseOver nil nil] targetOffset: (15.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 8267667 780 441 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (756@428) corner: (772@444) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (756@428) corner: (772@444) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(764@437) mouseOver nil nil] targetOffset: (15.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 8268055 770 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (756@428) corner: (772@444) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (756@428) corner: (772@444) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(764@437) mouseOver nil nil] targetOffset: (15.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 8268055 770 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (756@428) corner: (772@444) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (756@428) corner: (772@444) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(764@437) mouseOver nil nil] targetOffset: (15.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 8268055 770 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 8264568 102 0 8 102 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (756@428) corner: (772@444) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (756@428) corner: (772@444) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(756@433) mouseOver nil nil] targetOffset: (15.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 8268097 756 433 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1624@1006) canvas: a FormCanvas on: DisplayScreen(1624x1006x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(85721088))(an Over...etc... lastStepTime: 8268097 lastStepMessage: nil lastCycleTime: 8268097 alarms: a Heap() lastAlarmTime: 8268097 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1624@1006) canvas: a FormCanvas on: DisplayScreen(1624x1006x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(85721088))(an Over...etc... lastStepTime: 8268122 lastStepMessage: nil lastCycleTime: 8268122 alarms: a Heap() lastAlarmTime: 8268122 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1624@1006) canvas: a FormCanvas on: DisplayScreen(1624x1006x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(85721088))(an Over...etc... lastStepTime: 8268122 lastStepMessage: nil lastCycleTime: 8268122 alarms: a Heap() lastAlarmTime: 8268122 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1624@1006) canvas: a FormCanvas on: DisplayScreen(1624x1006x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(85721088))(an Over...etc... lastStepTime: 8268122 lastStepMessage: nil lastCycleTime: 8268122 alarms: a Heap() lastAlarmTime: 8268122 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1624@1006) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sys...etc... fullBounds: (0@0) corner: (1624@1006) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isEmpty TamBrowser>>localSearchListItemByName TamBrowser>>searchListItemByName TamBrowser>>menuSearch TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE PlatypusExpressInvalidAttributeException: invalid attribute name: 'tail_attributes' 12 January 2013 3:11:07.356 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: err: PlatypusExpressInvalidAttributeException: invalid attribute name: 'tail_at...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>cull: Receiver: [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. ...etc... Arguments and temporary variables: anArg: PlatypusExpressInvalidAttributeException: invalid attribute name: 'tail_...etc... Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>compute: startpc: 55 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 't...etc... Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 't...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] PlatypusExpressInvalidAttributeException(Exception)>>signal Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'tail_attributes' Arguments and temporary variables: Receiver's instance variables: messageText: 'invalid attribute name: ''tail_attributes''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException(Exception)>>signal: Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'tail_attributes' Arguments and temporary variables: signalerText: 'invalid attribute name: ''tail_attributes''' Receiver's instance variables: messageText: 'invalid attribute name: ''tail_attributes''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException class(Exception class)>>signal: Receiver: PlatypusExpressInvalidAttributeException Arguments and temporary variables: signalerText: 'invalid attribute name: ''tail_attributes''' Receiver's instance variables: superclass: PlatypusExpressInterpretorException methodDict: a MethodDictionary() format: 142 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PlatypusExpressInvalidAttributeException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-interpreter' traitComposition: {} localSelectors: nil [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltAnonymousVariable val: a PltExternalRepresentation['851'] PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: Receiver: a PltExternalRepresentation['851'] Arguments and temporary variables: missingBlock: [self interpretor pushVal: v] notMissingBlock: [key := anIdent asUppercase. allAttrIdentif := v getInsta...etc... Receiver's instance variables: owner: nil persistentLabel: '851' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRe...etc... PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltAnonymousVariable val: a PltExternalRepresentation['851'] PlatypusExpressInterpretor>>acceptAttributeQualifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier stackElement: a PlatypusExpressInterpretorStackVar Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier selector: #acceptAttributeQualifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltAttributeQualifier aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [self acceptTry: first. self doQualifiers: quals allButFirst] Arguments and temporary variables: aBlock: [selfStack pop. modelContentsAccessBlock := omc] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>doQualifiers: startpc: 78 numArgs: 0 PlatypusExpressInterpretor>>asValOfSelf:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anInstance: a PltExternalRepresentation['851'] aBlock: [self acceptTry: first. self doQualifiers: quals allButFirst] omc: [anInstance owningModel] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptQualifiedExpression: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression selector: #acceptQualifiedExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltQualifiedExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltQualifiedExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltQualifiedExpression(Object)>>acceptTry: Receiver: a PltQualifiedExpression Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltLocalVariable cachedDomain: a PltGenericType qualifiers: an OrderedCollection(a PltAttributeQualifier) head: a PltIdentifier('typ') PlatypusExpressInterpretor>>declareLocalVariable: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltLocalVariable domain: nil value: nil varValue: a PlatypusExpressInterpretorStackVar Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [:lo | anInterpretor declareLocalVariable: lo] in PltFunctionDeclaration(PltStatementsContainer)>>initializeContextInInterpretor: Receiver: a PltFunctionDeclaration Arguments and temporary variables: anInterpretor: a PltLocalVariable lo: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltSchemaDefinition namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('CODE'->a Set(a PltLocalVariable) 'DISCRIM_ATTR'...etc... name: 'discriminated_type_xml_io_record_code' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection(a PltLocalVariable a PltLocalVariable a PltLocalVa...etc... statements: an OrderedCollection(a PltAssignmentStatement a PltRepeatStatement ...etc... formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltStringType OrderedCollection>>do: Receiver: an OrderedCollection(a PltLocalVariable a PltLocalVariable a PltLocalVariable a PltLocalVa...etc... Arguments and temporary variables: aBlock: [:lo | anInterpretor declareLocalVariable: lo] index: 7 Receiver's instance variables: array: an Array(a PltLocalVariable a PltLocalVariable a PltLocalVariable a PltL...etc... firstIndex: 1 lastIndex: 7 PltFunctionDeclaration(PltStatementsContainer)>>initializeContextInInterpretor: Receiver: a PltFunctionDeclaration Arguments and temporary variables: anInterpretor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltSchemaDefinition namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('CODE'->a Set(a PltLocalVariable) 'DISCRIM_ATTR'...etc... name: 'discriminated_type_xml_io_record_code' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection(a PltLocalVariable a PltLocalVariable a PltLocalVa...etc... statements: an OrderedCollection(a PltAssignmentStatement a PltRepeatStatement ...etc... formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltStringType PltFunctionDeclaration(PltAlgorithmDeclaration)>>initializeContextInInterpretor: Receiver: a PltFunctionDeclaration Arguments and temporary variables: anInterpretor: a PlatypusExpressInterpretor args: an OrderedCollection() stackVal: a PlatypusExpressInterpretorCallArguments Receiver's instance variables: owner: a PltSchemaDefinition namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('CODE'->a Set(a PltLocalVariable) 'DISCRIM_ATTR'...etc... name: 'discriminated_type_xml_io_record_code' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection(a PltLocalVariable a PltLocalVariable a PltLocalVa...etc... statements: an OrderedCollection(a PltAssignmentStatement a PltRepeatStatement ...etc... formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltStringType PlatypusExpressInterpretorContext>>initializeContextInInterpretor: Receiver: a PlatypusExpressInterpretorContext Arguments and temporary variables: anInterpretor: a PlatypusExpressInterpretor Receiver's instance variables: contextInstance: a PltFunctionDeclaration dataIndex: an IdentityDictionary(a PltLocalVariable->a PlatypusExpressInterpret...etc... PlatypusExpressInterpretor>>pushContext: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anInterpretorContext: a PlatypusExpressInterpretorContext Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltFunctionDeclaration(PltEntityInstance)>>pushContextInInterpretor: Receiver: a PltFunctionDeclaration Arguments and temporary variables: anInterpretor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltSchemaDefinition namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection() identifiersCache: a Dictionary('CODE'->a Set(a PltLocalVariable) 'DISCRIM_ATTR'...etc... name: 'discriminated_type_xml_io_record_code' algorithmes: an OrderedCollection() entities: an OrderedCollection() locals: an OrderedCollection(a PltLocalVariable a PltLocalVariable a PltLocalVa...etc... statements: an OrderedCollection(a PltAssignmentStatement a PltRepeatStatement ...etc... formalParameters: an OrderedCollection(a PltParameterDefinition) returnType: a PltStringType PlatypusExpressInterpretor>>asContext:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: contextInstance: a PltFunctionDeclaration aBlock: [self acceptStatementsContainer: e] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger --- The full stack --- [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: PlatypusExpressInvalidAttributeException(Exception)>>signal PlatypusExpressInvalidAttributeException(Exception)>>signal: PlatypusExpressInvalidAttributeException class(Exception class)>>signal: [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PlatypusExpressInterpretor>>acceptAttributeQualifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>doQualifiers: PlatypusExpressInterpretor>>acceptQualifiedExpression: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltQualifiedExpression(Object)>>acceptTry: PlatypusExpressInterpretor>>declareLocalVariable: [:lo | anInterpretor declareLocalVariable: lo] in PltFunctionDeclaration(PltStatementsContainer)>>initializeContextInInterpretor: OrderedCollection>>do: PltFunctionDeclaration(PltStatementsContainer)>>initializeContextInInterpretor: PltFunctionDeclaration(PltAlgorithmDeclaration)>>initializeContextInInterpretor: PlatypusExpressInterpretorContext>>initializeContextInInterpretor: PlatypusExpressInterpretor>>pushContext: PltFunctionDeclaration(PltEntityInstance)>>pushContextInInterpretor: PlatypusExpressInterpretor>>asContext:while: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltFunctionDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptDerivedAttribute: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [self compute: anExpression. ^ self pop val] in PlatypusExpressInterpretor>>expression:context:instance: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>expression:context:instance: PlatypusExpressInterpretor>>attributeOrRule:instance: [| int | int := PlatypusExpressInterpretor new. self modelContents ifNotNil: [:mc | mc recordComputedInstances ifTrue: [int modelContents: self modelContents]]. (int attributeOrRule: attrOrRuleOrValue instance: self owner value interpretingContext) ifNotNil: [:result | self addSubReference: (result tamarisStepValueReferenceClass owner: self position: self subReferences size + 1 value: result). TamManager changed: self]] in PlatypusStepReference>>evaluate BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusStepReference>>evaluate PlatypusInstanceEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "elementTag" is nil 12 January 2013 3:22:57.033 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #elementTag Receiver: nil Arguments and temporary variables: aMessage: elementTag exception: MessageNotUnderstood: receiver of "elementTag" is nil resumeValue: nil Receiver's instance variables: nil PlatypusExpressEditor>>highlight: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aText: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... h: nil Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil [^ super contents: (self highlight: aText)] in PlatypusExpressEditor(PlatypusCodeHolder)>>contents: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aText: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil BlockClosure>>ensure: Receiver: [^ super contents: (self highlight: aText)] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressEditor(PlatypusCodeHolder)>>contents: startpc: 40 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [^ super contents: (self highlight: aText)] oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressEditor(PlatypusCodeHolder)>>contents: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aText: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil PlatypusExpressEditor(StringHolder)>>acceptContents: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aString: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity...etc... Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... aRequestor: a PlatypusStepCodeMorph(717488128) Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(717488128) Arguments and temporary variables: acceptedText: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_e...etc... Receiver's instance variables: bounds: (493.0@155.0) corner: (1218.0@854.0) owner: nil submorphs: an Array(a TransformMorph(989593600)) fullBounds: (493@155) corner: (1218@854) color: Color white extension: a MorphExtension (255328256) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: nil open: false accessor: nil scrollBar: a ScrollBar(745275392) scroller: a TransformMorph(989593600) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(875823104) textMorph: a PlatypusTextMorphForEditView(619970560) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (574 to: 573) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(717488128) Arguments and temporary variables: acceptedText: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_e...etc... Receiver's instance variables: bounds: (493.0@155.0) corner: (1218.0@854.0) owner: nil submorphs: an Array(a TransformMorph(989593600)) fullBounds: (493@155) corner: (1218@854) color: Color white extension: a MorphExtension (255328256) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: nil open: false accessor: nil scrollBar: a ScrollBar(745275392) scroller: a TransformMorph(989593600) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(875823104) textMorph: a PlatypusTextMorphForEditView(619970560) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (574 to: 573) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(717488128) Arguments and temporary variables: ok: nil saveSelection: (574 to: 573) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (493.0@155.0) corner: (1218.0@854.0) owner: nil submorphs: an Array(a TransformMorph(989593600)) fullBounds: (493@155) corner: (1218@854) color: Color white extension: a MorphExtension (255328256) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: nil open: false accessor: nil scrollBar: a ScrollBar(745275392) scroller: a TransformMorph(989593600) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(875823104) textMorph: a PlatypusTextMorphForEditView(619970560) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (574 to: 573) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(717488128) Arguments and temporary variables: Receiver's instance variables: bounds: (493.0@155.0) corner: (1218.0@854.0) owner: nil submorphs: an Array(a TransformMorph(989593600)) fullBounds: (493@155) corner: (1218@854) color: Color white extension: a MorphExtension (255328256) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: Color black model: nil open: false accessor: nil scrollBar: a ScrollBar(745275392) scroller: a TransformMorph(989593600) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(875823104) textMorph: a PlatypusTextMorphForEditView(619970560) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (574 to: 573) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusStepEditor(TextEditor)>>accept Receiver: a PlatypusStepEditor Arguments and temporary variables: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>accept: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] aBoolean: false return: [:val | ^ val] asciiValue: 116 actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop: #noop: #noop: #...etc... action: #accept: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] return: [:val | ^ val] asciiValue: 115 honorCommandKeys: true char: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchOn: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] char: nil return: [:val | ^ val] keyEvents: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: Receiver: a PlatypusStepEditor Arguments and temporary variables: aBlock: [self dispatchOn: aKeyboardEvent] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: Receiver: a PlatypusStepEditor Arguments and temporary variables: anAction: [self dispatchOn: aKeyboardEvent] aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>keystroke: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(619970560) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: interactionBlock: [editor keystroke: evt] oldEditor: a PlatypusStepEditor oldParagraph: a Paragraph oldText: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity...etc... Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: interActionBlock: [editor keystroke: evt] Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: evt: [keystroke ''] action: nil Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: Receiver: NOCController Arguments and temporary variables: aBlock: [self basicKeyStroke: evt] aTextMorph: a PlatypusTextMorphForEditView(619970560) evt: [keystroke ''] editor: a PlatypusStepEditor stringHolder: a PlatypusExpressEditor completionAllowed: false controller: nil Receiver's instance variables: superclass: NECController methodDict: a MethodDictionary(#contextClass->(NOCController>>#contextClass "a ...etc... format: 144 instanceVariables: #('expanded' 'contextClass') organization: ('accessing' menuMorph) ('as yet unclassified' expand expanded re...etc... subclasses: nil name: #NOCController classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NOCompletion-Model' traitComposition: {} localSelectors: nil uniqueInstance: a NOCController ToolRegistry>>codeCompletionAround:textMorph:keyStroke: Receiver: a ToolRegistry Arguments and temporary variables: aBlock: [self basicKeyStroke: evt] aTextMorph: a PlatypusTextMorphForEditView(619970560) evt: [keystroke ''] Receiver's instance variables: tools: an IdentityDictionary(#basicInspector->BasicInspector #browser->[self de...etc... inspectorsMap: an IdentityDictionary(#CompiledMethod->#CompiledMethodInspector ...etc... PlatypusTextMorphForEditView(TextMorph)>>keyStroke: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: evt: [keystroke ''] view: a PlatypusStepCodeMorph(717488128) Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: anEvent: [keystroke ''] pasteUp: nil Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a PlatypusTextMorphForEditView(619970560) Receiver's instance variables: timeStamp: 2037195 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (126@337) handler: nil wasHandled: false keyValue: 115 charCode: 115 scanCode: 1 PlatypusTextMorphForEditView(Morph)>>handleEvent: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: Receiver: a PlatypusTextMorphForEditView(619970560) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (717@274) owner: a TransformMorph(989593600) submorphs: #() fullBounds: (0@0) corner: (717@274) color: Color black extension: a MorphExtension (702545920) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION all_ada_discriminated_types : LIST OF ada_entity; ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(717488128) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a PlatypusTextMorphForEditView(619970560) result: #(nil) Receiver's instance variables: bounds: (480@485) corner: (496@501) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (480@485) corner: (496@501) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(480@485) mouseOver nil nil] targetOffset: (121@252) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 2041059 620 494 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(42729472) a Stan...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #elementTag PlatypusExpressEditor>>highlight: [^ super contents: (self highlight: aText)] in PlatypusExpressEditor(PlatypusCodeHolder)>>contents: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressEditor(PlatypusCodeHolder)>>contents: PlatypusExpressEditor(StringHolder)>>acceptContents: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE SubscriptOutOfBounds: 5 12 January 2013 4:11:25.895 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>errorSubscriptBounds: Receiver: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusComplex...etc... Arguments and temporary variables: index: 5 Receiver's instance variables: array: an Array(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusC...etc... firstIndex: 1 lastIndex: 4 OrderedCollection>>ensureBoundsFrom:to: Receiver: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusComplex...etc... Arguments and temporary variables: fromIndex: 5 toIndex: 5 Receiver's instance variables: array: an Array(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusC...etc... firstIndex: 1 lastIndex: 4 OrderedCollection>>at: Receiver: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusComplex...etc... Arguments and temporary variables: anInteger: 5 Receiver's instance variables: array: an Array(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusC...etc... firstIndex: 1 lastIndex: 4 OrderedCollection(Collection)>>pltAt: Receiver: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusComplex...etc... Arguments and temporary variables: anIndex: 5 Receiver's instance variables: array: an Array(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusC...etc... firstIndex: 1 lastIndex: 4 [:no234618880 | self code: (((self code pltPlus: '\nprocedure Initialize(obj : out ') pltPlus: ((self alldts pltAt: no234618880) nameUsingContext: self class context)) pltPlus: '_io);')] in ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: no234618880: 5 Receiver's instance variables: test: '' code: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... interfaces: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaIn...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no234618880 | self code: (((self code pltPlus: '\nprocedure Initial...etc... p: 5 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no234618880 | self code: (((self code pltPlus: '\nprocedure Initial...etc... p: 5 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no234618880 | self code: (((self code pltPlus: '\nprocedure Initial...etc... start: 1 stop: 41 p: 5 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no234618880 | self code: (((self code pltPlus: '\nprocedure Initial...etc... start: 1 stop: 41 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: test: '' code: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... interfaces: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaIn...etc... ChdXmlArchitectureIoAdsPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke Receiver: ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#allcls->(ChdXmlArchitectureIoAdsPackageCodeFunc...etc... format: 144 instanceVariables: #('test' 'code' 'pkgs' 'allcls' 'allrecs' 'alldts' 'interfac...etc... organization: ('platypus-generated-accessing' allcls allcls: alldts alldts: all...etc... subclasses: nil name: #ChdXmlArchitectureIoAdsPackageCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-XmlReaderSchema' traitComposition: nil localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(870318080) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(424411136)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(870318080) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(870318080) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (432@34) owner: a TransformMorph(171442176) submorphs: #() fullBounds: (0@0) corner: (432@34) color: Color black extension: a MorphExtension (952893440) [other: (blinkStart -> 4929088) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run ' wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(973864960) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(973864960) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(973864960) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(973864960) secondArg: a PluggableTextMorph(973864960) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(973864960) secondArg: a PluggableTextMorph(973864960) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(973864960) category: a KMCategory morph: a PluggableTextMorph(973864960) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) --- The full stack --- OrderedCollection(Object)>>errorSubscriptBounds: OrderedCollection>>ensureBoundsFrom:to: OrderedCollection>>at: OrderedCollection(Collection)>>pltAt: [:no234618880 | self code: (((self code pltPlus: '\nprocedure Initialize(obj : out ') pltPlus: ((self alldts pltAt: no234618880) nameUsingContext: self class context)) pltPlus: '_io);')] in ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke ChdXmlArchitectureIoAdsPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "elementTag" is nil 12 January 2013 8:08:38.594 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #elementTag Receiver: nil Arguments and temporary variables: aMessage: elementTag exception: MessageNotUnderstood: receiver of "elementTag" is nil resumeValue: nil Receiver's instance variables: nil PlatypusExpressEditor>>highlight: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aText: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code (...etc... h: nil Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil [^ super contents: (self highlight: aText)] in PlatypusExpressEditor(PlatypusCodeHolder)>>contents: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aText: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code (...etc... Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil BlockClosure>>ensure: Receiver: [^ super contents: (self highlight: aText)] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressEditor(PlatypusCodeHolder)>>contents: startpc: 40 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [^ super contents: (self highlight: aText)] oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressEditor(PlatypusCodeHolder)>>contents: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aText: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code (...etc... Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil PlatypusExpressEditor(StringHolder)>>acceptContents: Receiver: a PlatypusExpressEditor Arguments and temporary variables: aString: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code...etc... Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: Receiver: a PlatypusExpressEditor Arguments and temporary variables: input: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code (...etc... aRequestor: a PlatypusStepCodeMorph(96731136) Receiver's instance variables: dependents: nil contents: nil mainWindow: nil mainPane: nil contentsMorph: nil codeRow: nil sourceHandler: nil codeBtnRow: nil codeBtnRowHeight: 30 codeButtons: nil messagesBrowserHeight: 65 messagesBrowserRow: nil messagesBrowser: nil messagesBrowserLayoutFrame: nil errorSplitter: nil [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(96731136) Arguments and temporary variables: acceptedText: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize...etc... Receiver's instance variables: bounds: (522.0@68.0) corner: (1157.0@821.0) owner: nil submorphs: an Array(a TransformMorph(368836608)) fullBounds: (522@68) corner: (1157@821) color: Color white extension: a MorphExtension (707264512) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: nil open: false accessor: nil scrollBar: a ScrollBar(124518400) scroller: a TransformMorph(368836608) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(255066112) textMorph: a PlatypusTextMorphForEditView(1071906816) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (427 to: 426) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil BlockClosure>>ensure: Receiver: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perfo...etc... Arguments and temporary variables: aBlock: [unstyledAcceptText := nil] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel startpc: 65 numArgs: 0 PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel Receiver: a PlatypusStepCodeMorph(96731136) Arguments and temporary variables: acceptedText: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize...etc... Receiver's instance variables: bounds: (522.0@68.0) corner: (1157.0@821.0) owner: nil submorphs: an Array(a TransformMorph(368836608)) fullBounds: (522@68) corner: (1157@821) color: Color white extension: a MorphExtension (707264512) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: nil open: false accessor: nil scrollBar: a ScrollBar(124518400) scroller: a TransformMorph(368836608) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(255066112) textMorph: a PlatypusTextMorphForEditView(1071906816) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (427 to: 426) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic Receiver: a PlatypusStepCodeMorph(96731136) Arguments and temporary variables: ok: nil saveSelection: (427 to: 426) saveScrollerOffset: (-3@0) Receiver's instance variables: bounds: (522.0@68.0) corner: (1157.0@821.0) owner: nil submorphs: an Array(a TransformMorph(368836608)) fullBounds: (522@68) corner: (1157@821) color: Color white extension: a MorphExtension (707264512) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: nil open: false accessor: nil scrollBar: a ScrollBar(124518400) scroller: a TransformMorph(368836608) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(255066112) textMorph: a PlatypusTextMorphForEditView(1071906816) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (427 to: 426) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusStepCodeMorph(PluggableTextMorph)>>accept Receiver: a PlatypusStepCodeMorph(96731136) Arguments and temporary variables: Receiver's instance variables: bounds: (522.0@68.0) corner: (1157.0@821.0) owner: nil submorphs: an Array(a TransformMorph(368836608)) fullBounds: (522@68) corner: (1157@821) color: Color white extension: a MorphExtension (707264512) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: nil open: false accessor: nil scrollBar: a ScrollBar(124518400) scroller: a TransformMorph(368836608) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #contentsMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(255066112) textMorph: a PlatypusTextMorphForEditView(1071906816) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (427 to: 426) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusStepEditor(TextEditor)>>accept Receiver: a PlatypusStepEditor Arguments and temporary variables: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>accept: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] aBoolean: false return: [:val | ^ val] asciiValue: 116 actions: #(#noop: #cursorHome: #noop: #noop: #cursorEnd: #noop: #noop: #noop: #...etc... action: #accept: Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] return: [:val | ^ val] asciiValue: 115 honorCommandKeys: true char: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>dispatchOn: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] char: nil return: [:val | ^ val] keyEvents: nil Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: Receiver: a PlatypusStepEditor Arguments and temporary variables: aBlock: [self dispatchOn: aKeyboardEvent] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: Receiver: a PlatypusStepEditor Arguments and temporary variables: anAction: [self dispatchOn: aKeyboardEvent] aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState PlatypusStepEditor(TextEditor)>>keystroke: Receiver: a PlatypusStepEditor Arguments and temporary variables: aKeyboardEvent: [keystroke ''] Receiver's instance variables: morph: a PlatypusTextMorphForEditView(1071906816) selectionShowing: true model: a PlatypusExpressEditor editingState: a PlatypusEditingState [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: interactionBlock: [editor keystroke: evt] oldEditor: a PlatypusStepEditor oldParagraph: a Paragraph oldText: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code...etc... Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: interActionBlock: [editor keystroke: evt] Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: evt: [keystroke ''] action: nil Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: Receiver: NOCController Arguments and temporary variables: aBlock: [self basicKeyStroke: evt] aTextMorph: a PlatypusTextMorphForEditView(1071906816) evt: [keystroke ''] editor: a PlatypusStepEditor stringHolder: a PlatypusExpressEditor completionAllowed: false controller: nil Receiver's instance variables: superclass: NECController methodDict: a MethodDictionary(#contextClass->(NOCController>>#contextClass "a ...etc... format: 144 instanceVariables: #('expanded' 'contextClass') organization: ('accessing' menuMorph) ('as yet unclassified' expand expanded re...etc... subclasses: nil name: #NOCController classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NOCompletion-Model' traitComposition: {} localSelectors: nil uniqueInstance: a NOCController ToolRegistry>>codeCompletionAround:textMorph:keyStroke: Receiver: a ToolRegistry Arguments and temporary variables: aBlock: [self basicKeyStroke: evt] aTextMorph: a PlatypusTextMorphForEditView(1071906816) evt: [keystroke ''] Receiver's instance variables: tools: an IdentityDictionary(#basicInspector->BasicInspector #browser->[self de...etc... inspectorsMap: an IdentityDictionary(#CompiledMethod->#CompiledMethodInspector ...etc... PlatypusTextMorphForEditView(TextMorph)>>keyStroke: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: evt: [keystroke ''] view: a PlatypusStepCodeMorph(96731136) Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: anEvent: [keystroke ''] pasteUp: nil Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a PlatypusTextMorphForEditView(1071906816) Receiver's instance variables: timeStamp: 19182014 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (201@266) handler: nil wasHandled: false keyValue: 115 charCode: 115 scanCode: 1 PlatypusTextMorphForEditView(Morph)>>handleEvent: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: Receiver: a PlatypusTextMorphForEditView(1071906816) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (0@0) corner: (627@306) owner: a TransformMorph(368836608) submorphs: #() fullBounds: (0@0) corner: (627@306) color: Color black extension: a MorphExtension (80740352) [other: (blinkStart -> 19157280) (kmDis...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for ' FUNCTION discriminated_type_xml_io_record_initialize_code ( ...etc... wrapFlag: true paragraph: a Paragraph editor: a PlatypusStepEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PlatypusStepCodeMorph(96731136) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a PlatypusTextMorphForEditView(1071906816) result: #(nil) Receiver's instance variables: bounds: (727@335) corner: (743@351) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: nil eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(727@335) mouseOver nil nil] targetOffset: (165@155) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19180830 727 335 0 0 0 1) lastKeyScanCode: 1 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #elementTag PlatypusExpressEditor>>highlight: [^ super contents: (self highlight: aText)] in PlatypusExpressEditor(PlatypusCodeHolder)>>contents: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressEditor(PlatypusCodeHolder)>>contents: PlatypusExpressEditor(StringHolder)>>acceptContents: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE NotFound: [:each | each class = TransformMorph] not found in Array 12 January 2013 8:13:34.361 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] Array(Collection)>>errorNotFound: Receiver: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) Arguments and temporary variables: anObject: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) [self errorNotFound: aBlock] in Array(Collection)>>detect: Receiver: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) Arguments and temporary variables: aBlock: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) Array(Collection)>>detect:ifNone: Receiver: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) Arguments and temporary variables: aBlock: [:each | each class = TransformMorph] exceptionBlock: [self errorNotFound: aBlock] Receiver's instance variables: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) Array(Collection)>>detect: Receiver: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) Arguments and temporary variables: aBlock: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>allItems Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480640 lastKeystrokes: 't' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>basicKeyPressed: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: aChar: $t nextSelection: 0 milliSeconds: 19480640 slowKeyStroke: true nextSelectionNode: nil oldSelection: 0 list: nil Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480640 lastKeystrokes: 't' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: event: [keystroke 't'] args: nil aCharacter: $t Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480640 lastKeystrokes: 't' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: anEvent: [keystroke 't'] handler: nil Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480640 lastKeystrokes: 't' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 KeyboardEvent>>sentTo: Receiver: [keystroke 't'] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(222822400) Receiver's instance variables: timeStamp: 19480638 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 0 position: (989@172) handler: nil wasHandled: true keyValue: 116 charCode: 116 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: anEvent: [keystroke 't'] Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480803 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItem aBlock: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(798228480)) TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>allItems Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480803 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>basicKeyPressed: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: aChar: $y nextSelection: 0 milliSeconds: 19480803 slowKeyStroke: false nextSelectionNode: nil oldSelection: 0 list: nil Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480803 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: event: [keystroke 'y'] args: nil aCharacter: $y Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19480803 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 763 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(222822400) Arguments and temporary variables: anEvent: [keystroke 'y'] handler: nil Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(154927104) submorphs: an Array(a ScrollBar(684457984) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (185597952) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(249823232) scroller: a TamHierarchicalListTransformMorph(798228480) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(684457984) selectedMorph: a TamIndentingListItemMorph(459800576)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil las anEvent: [keystroke 't'] focusHolder: a TamHierarchicalListMorph(222822400) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (981@163) corner: (997@179) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (981@163) corner: (997@179) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(222822400) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] Receiver's instance variables: bounds: (981@163) corner: (997@179) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (981@163) corner: (997@179) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(222822400) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] evt: [keystroke 't'] ofs: nil Receiver's instance variables: bounds: (981@163) corner: (997@179) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (981@163) corner: (997@179) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(222822400) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke 't'] evtBuf: #(2 19480638 116 0 0 116 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (981@163) corner: (997@179) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (981@163) corner: (997@179) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(222822400) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480885 lastStepMessage: nil lastCycleTime: 19480885 alarms: a Heap() lastAlarmTime: 19480885 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480885 lastStepMessage: nil lastCycleTime: 19480885 alarms: a Heap() lastAlarmTime: 19480885 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480885 lastStepMessage: nil lastCycleTime: 19480885 alarms: a Heap() lastAlarmTime: 19480885 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480885 lastStepMessage: nil lastCycleTime: 19480885 alarms: a Heap() lastAlarmTime: 19480885 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- Array(Collection)>>errorNotFound: [self errorNotFound: aBlock] in Array(Collection)>>detect: Array(Collection)>>detect:ifNone: Array(Collection)>>detect: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>allItems TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>basicKeyPressed: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 'y'] evt: [keystroke 'y'] ofs: nil Receiver's instance variables: bounds: (981@163) corner: (997@179) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (981@163) corner: (997@179) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(222822400) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke 'y'] evtBuf: #(2 19480803 121 0 0 121 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (981@163) corner: (997@179) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (981@163) corner: (997@179) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(222822400) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(989@172) mouseOver nil nil] targetOffset: (288.0@11.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19479741 989 172 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480934 lastStepMessage: nil lastCycleTime: 19480934 alarms: a Heap() lastAlarmTime: 19480934 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480934 lastStepMessage: nil lastCycleTime: 19480968 alarms: a Heap() lastAlarmTime: 19480934 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480934 lastStepMessage: nil lastCycleTime: 19480968 alarms: a Heap() lastAlarmTime: 19480934 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(640155648))...etc... lastStepTime: 19480934 lastStepMessage: nil lastCycleTime: 19480968 alarms: a Heap() lastAlarmTime: 19480934 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- Array(Collection)>>errorNotFound: [self errorNotFound: aBlock] in Array(Collection)>>detect: Array(Collection)>>detect:ifNone: Array(Collection)>>detect: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>allItems TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>basicKeyPressed: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE NotFound: [:each | each class = TransformMorph] not found in Array 12 January 2013 8:22:01.805 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] Array(Collection)>>errorNotFound: Receiver: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) Arguments and temporary variables: anObject: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) [self errorNotFound: aBlock] in Array(Collection)>>detect: Receiver: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) Arguments and temporary variables: aBlock: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) Array(Collection)>>detect:ifNone: Receiver: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) Arguments and temporary variables: aBlock: [:each | each class = TransformMorph] exceptionBlock: [self errorNotFound: aBlock] Receiver's instance variables: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) Array(Collection)>>detect: Receiver: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) Arguments and temporary variables: aBlock: [:each | each class = TransformMorph] Receiver's instance variables: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(475529216)) TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>allItems Receiver: a TamHierarchicalListMorph(65536000) Arguments and temporary variables: Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(1071382528) submorphs: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (971505664) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(92536832) scroller: a TamHierarchicalListTransformMorph(475529216) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(337641472) selectedMorph: a TamIndentingListItemMorph(714342400)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19988137 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 1047 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>basicKeyPressed: Receiver: a TamHierarchicalListMorph(65536000) Arguments and temporary variables: aChar: $t nextSelection: 0 milliSeconds: 19987897 slowKeyStroke: true nextSelectionNode: nil oldSelection: 0 list: nil Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(1071382528) submorphs: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (971505664) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(92536832) scroller: a TamHierarchicalListTransformMorph(475529216) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(337641472) selectedMorph: a TamIndentingListItemMorph(714342400)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19988137 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 1047 TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(65536000) Arguments and temporary variables: event: [keystroke 't'] args: nil aCharacter: $t Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(1071382528) submorphs: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (971505664) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(92536832) scroller: a TamHierarchicalListTransformMorph(475529216) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(337641472) selectedMorph: a TamIndentingListItemMorph(714342400)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19988137 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 1047 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(65536000) Arguments and temporary variables: anEvent: [keystroke 't'] handler: nil Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(1071382528) submorphs: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (971505664) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(92536832) scroller: a TamHierarchicalListTransformMorph(475529216) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(337641472) selectedMorph: a TamIndentingListItemMorph(714342400)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19988137 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 1047 KeyboardEvent>>sentTo: Receiver: [keystroke 't'] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(65536000) Receiver's instance variables: timeStamp: 19987893 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 0 position: (964@702) handler: nil wasHandled: true keyValue: 116 charCode: 116 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(65536000) Arguments and temporary variables: anEvent: [keystroke 't'] Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(1071382528) submorphs: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (971505664) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(92536832) scroller: a TamHierarchicalListTransformMorph(475529216) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(337641472) selectedMorph: a TamIndentingListItemMorph(714342400)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19988137 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 1047 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(65536000) Arguments and temporary variables: anEvent: [keystroke 'y'] Receiver's instance variables: bounds: (522.0@756.0) corner: (1157.0@821.0) owner: a TamPaneMorph(1071382528) submorphs: an Array(a ScrollBar(337641472) a TamHierarchicalListTransformMorph(...etc... fullBounds: (522@756) corner: (1157@821) color: Color transparent extension: a MorphExtension (971505664) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: Color black model: a TamGenericHierarchicalList open: false accessor: nil scrollBar: a ScrollBar(92536832) scroller: a TamHierarchicalListTransformMorph(475529216) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(337641472) selectedMorph: a TamIndentingListItemMorph(714342400)'record_and_class\discrimi...etc... getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 19988137 lastKeystrokes: 'ty' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 1047 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] focusHolder: a TamHierarchicalListMorph(65536000) result: #(nil) Receiver's instance variables: bounds: (956@693) corner: (972@709) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (956@693) corner: (972@709) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(65536000) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(964@702) mouseOver nil nil] targetOffset: (321.0@35.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19986667 964 702 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) an EditorFindReplaceDialogWindow(...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) an EditorFindReplaceDialogWindow(...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] focusHolder: a TamHierarchicalListMorph(65536000) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (956@693) corner: (972@709) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (956@693) corner: (972@709) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(65536000) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(964@702) mouseOver nil nil] targetOffset: (321.0@35.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19986667 964 702 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] focusHolder: a TamHierarchicalListMorph(65536000) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (956@693) corner: (972@709) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (956@693) corner: (972@709) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(65536000) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(964@702) mouseOver nil nil] targetOffset: (321.0@35.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19986667 964 702 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] Receiver's instance variables: bounds: (956@693) corner: (972@709) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (956@693) corner: (972@709) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(65536000) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(964@702) mouseOver nil nil] targetOffset: (321.0@35.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: FForm(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19986667 964 702 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke 't'] evt: [keystroke 't'] ofs: nil Receiver's instance variables: bounds: (956@693) corner: (972@709) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (956@693) corner: (972@709) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(65536000) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(964@702) mouseOver nil nil] targetOffset: (321.0@35.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19986667 964 702 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke 't'] evtBuf: #(2 19987893 116 0 0 116 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (956@693) corner: (972@709) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (956@693) corner: (972@709) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(65536000) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(964@702) mouseOver nil nil] targetOffset: (321.0@35.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 19986667 964 702 0 0 0 1) lastKeyScanCode: 16 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#toggleSelected 468189184))(3...etc... lastStepTime: 19988304 lastStepMessage: nil lastCycleTime: 19988304 alarms: a Heap() lastAlarmTime: 19988304 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#toggleSelected 468189184))(3...etc... lastStepTime: 19988304 lastStepMessage: nil lastCycleTime: 19988304 alarms: a Heap() lastAlarmTime: 19988304 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#toggleSelected 468189184))(3...etc... lastStepTime: 19988342 lastStepMessage: nil lastCycleTime: 19988342 alarms: a Heap() lastAlarmTime: 19988342 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> 3PButton(#toggleSelected 468189184))(3...etc... lastStepTime: 19988342 lastStepMessage: nil lastCycleTime: 19988342 alarms: a Heap() lastAlarmTime: 19988342 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) an EditorFindReplaceDialogWindow(...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- Array(Collection)>>errorNotFound: [self errorNotFound: aBlock] in Array(Collection)>>detect: Array(Collection)>>detect:ifNone: Array(Collection)>>detect: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>allItems TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>basicKeyPressed: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE ShouldNotImplement: #add: should not have been implemented in ByteString 12 January 2013 9:53:34.233 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] ByteString(Object)>>shouldNotImplement Receiver: '' Arguments and temporary variables: Receiver's instance variables: '' ByteString(ArrayedCollection)>>add: Receiver: '' Arguments and temporary variables: newObject: nil Receiver's instance variables: '' UndefinedObject(Object)>>pltPlus: Receiver: nil Arguments and temporary variables: aCollectionOrNumber: '\tobj.discriminant := Time_Unit_Event_Type''first;' result: '' Receiver's instance variables: nil ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: typ: a PlatypusComplexInstance code: '' s: nil discrimAttr: a PlatypusComplexInstance attrs: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute a Plt...etc... ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attrs->(ChdDiscriminatedTypeAttributesXmlIoReco...etc... format: 140 instanceVariables: #('typ' 'code' 's' 'discrimAttr' 'attrs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: nil localSelectors: nil ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: typ: a PlatypusComplexInstance ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdDiscriminatedTypeXmlIoRecordIn...etc... format: 132 instanceVariables: #('typ') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: nil localSelectors: nil [:no297795584 | self code: (self code pltPlus: (ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction invokeFromValues: (OrderedCollection new add: (self alldts pltAt: no297795584); yourself)))] in ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: no297795584: 1 Receiver's instance variables: code: '------------------------------------------------------------------------...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no297795584 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no297795584 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no297795584 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... start: 1 stop: 4 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no297795584 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... start: 1 stop: 4 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: code: '------------------------------------------------------------------------...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... ChdXmlArchitectureIoAdbPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke Receiver: ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#allcls->(ChdXmlArchitectureIoAdbPackageCodeFunc...etc... format: 138 instanceVariables: #('code' 'allcls' 'allrecs' 'alldts') organization: ('platypus-generated-accessing' allcls allcls: alldts alldts: all...etc... subclasses: nil name: #ChdXmlArchitectureIoAdbPackageCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-XmlReaderSchema' traitComposition: nil localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: false code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(false) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(870318080) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(180092928)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(870318080) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(870318080) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (432@34) owner: a TransformMorph(171442176) submorphs: #() fullBounds: (0@0) corner: (432@34) color: Color black extension: a MorphExtension (952893440) [other: (blinkStart -> 25451762) (kmDi...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run ' wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(973864960) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(973864960) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(973864960) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(973864960) secondArg: a PluggableTextMorph(973864960) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(973864960) secondArg: a PluggableTextMorph(973864960) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 --- The full stack --- ByteString(Object)>>shouldNotImplement ByteString(ArrayedCollection)>>add: UndefinedObject(Object)>>pltPlus: ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction>>invoke ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction>>invoke ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:no297795584 | self code: (self code pltPlus: (ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction invokeFromValues: (OrderedCollection new add: (self alldts pltAt: no297795584); yourself)))] in ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke ChdXmlArchitectureIoAdbPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>initValueUsingContext: 12 January 2013 9:59:19.541 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: initValueUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>initValueUsingContext...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a PltEnumerationType a PltDictionaryInstance a Pl...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: initValueUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a PltEnumerationType a PltDictionaryInstance a Pl...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a PltEntityInstance a PltSdaiInstance a PltDictionaryInstance a PltEn...etc... Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a PltEntityInstance a PltSdaiInstance a PltDictionaryInstance a...etc... firstIndex: 1 lastIndex: 4 PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a PltEnumerationType a PltDictionaryInstance a Pl...etc... ChdUnmappedTypeReference>>initValueUsingContext:receiver: Receiver: a ChdUnmappedTypeReference Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: ref: a PltEnumerationType Message>>sendTo: Receiver: initValueUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdUnmappedTypeReference Receiver's instance variables: selector: #initValueUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedTypeReference a PltDefinedType a Chd...etc... ChdExplicitAttributeXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdExplicitAttributeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: attr: a PlatypusComplexInstance code: '' domain: a PlatypusComplexInstance init: nil ChdExplicitAttributeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdExplicitAttributeXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributeXmlIoRecordInitializ...etc... format: 138 instanceVariables: #('attr' 'code' 'domain' 'init') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributeXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: typ: a PlatypusComplexInstance code: '' s: nil discrimAttr: a PlatypusComplexInstance attrs: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute) ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attrs->(ChdDiscriminatedTypeAttributesXmlIoReco...etc... format: 140 instanceVariables: #('typ' 'code' 's' 'discrimAttr' 'attrs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: typ: a PlatypusComplexInstance ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdDiscriminatedTypeXmlIoRecordIn...etc... format: 132 instanceVariables: #('typ') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction invokeFromValues: (OrderedCollection new add: (self alldts pltAt: no286261248); yourself)))] in ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: no286261248: 3 Receiver's instance variables: code: '------------------------------------------------------------------------...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... p: 3 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... p: 3 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... start: 1 stop: 4 p: 3 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... start: 1 stop: 4 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: code: '------------------------------------------------------------------------...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... ChdXmlArchitectureIoAdbPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke Receiver: ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#allcls->(ChdXmlArchitectureIoAdbPackageCodeFunc...etc... format: 138 instanceVariables: #('code' 'allcls' 'allrecs' 'alldts') organization: ('platypus-generated-accessing' allcls allcls: alldts alldts: all...etc... subclasses: nil name: #ChdXmlArchitectureIoAdbPackageCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-XmlReaderSchema' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: false code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(false) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(870318080) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(168820736)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(870318080) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (1 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(870318080) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (432@34) owner: a TransformMorph(171442176) submorphs: #() fullBounds: (0@0) corner: (432@34) color: Color black extension: a MorphExtension (952893440) [other: (blinkStart -> 25798145) (kmDi...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run ' wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(973864960) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #initValueUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: ChdUnmappedTypeReference>>initValueUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: ChdExplicitAttributeXmlIoRecordInitializeCodeFunction>>invoke ChdExplicitAttributeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction>>invoke ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction>>invoke ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction invokeFromValues: (OrderedCollection new add: (self alldts pltAt: no286261248); yourself)))] in ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke ChdXmlArchitectureIoAdbPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>initValueUsingContext: 12 January 2013 10:08:22.302 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: initValueUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>initValueUsingContext...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a PltEnumerationType a PltDictionaryInstance a Pl...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: initValueUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a PltEnumerationType a PltDictionaryInstance a Pl...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a PltEntityInstance a PltSdaiInstance a PltDictionaryInstance a PltEn...etc... Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a PltEntityInstance a PltSdaiInstance a PltDictionaryInstance a...etc... firstIndex: 1 lastIndex: 4 PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a PltEnumerationType a PltDictionaryInstance a Pl...etc... ChdUnmappedTypeReference>>initValueUsingContext:receiver: Receiver: a ChdUnmappedTypeReference Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: ref: a PltEnumerationType Message>>sendTo: Receiver: initValueUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdUnmappedTypeReference Receiver's instance variables: selector: #initValueUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedTypeReference a PltDefinedType a Chd...etc... ChdExplicitAttributeXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdExplicitAttributeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: attr: a PlatypusComplexInstance code: '' domain: a PlatypusComplexInstance init: nil ChdExplicitAttributeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdExplicitAttributeXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributeXmlIoRecordInitializ...etc... format: 138 instanceVariables: #('attr' 'code' 'domain' 'init') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributeXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: typ: a PlatypusComplexInstance code: '' s: nil discrimAttr: a PlatypusComplexInstance attrs: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute) ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attrs->(ChdDiscriminatedTypeAttributesXmlIoReco...etc... format: 140 instanceVariables: #('typ' 'code' 's' 'discrimAttr' 'attrs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction>>invoke Receiver: a ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: Receiver's instance variables: typ: a PlatypusComplexInstance ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdDiscriminatedTypeXmlIoRecordIn...etc... format: 132 instanceVariables: #('typ') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction invokeFromValues: (OrderedCollection new add: (self alldts pltAt: no286261248); yourself)))] in ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: no286261248: 2 Receiver's instance variables: code: '------------------------------------------------------------------------...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... p: 2 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... p: 2 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... start: 1 stop: 4 p: 2 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedT...etc... start: 1 stop: 4 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: code: '------------------------------------------------------------------------...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... ChdXmlArchitectureIoAdbPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke Receiver: ChdXmlArchitectureIoAdbPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#allcls->(ChdXmlArchitectureIoAdbPackageCodeFunc...etc... format: 138 instanceVariables: #('code' 'allcls' 'allrecs' 'alldts') organization: ('platypus-generated-accessing' allcls allcls: alldts alldts: all...etc... subclasses: nil name: #ChdXmlArchitectureIoAdbPackageCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-XmlReaderSchema' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: false code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(false) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(870318080) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(1018953728)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(870318080) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (485.0@598.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (485@598) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(870318080) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (432@34) owner: a TransformMorph(171442176) submorphs: #() fullBounds: (0@0) corner: (432@34) color: Color black extension: a MorphExtension (952893440) [other: (blinkStart -> 26339218) (kmDi...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run ' wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(973864960) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #initValueUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: ChdUnmappedTypeReference>>initValueUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #initValueUsingContext: ChdExplicitAttributeXmlIoRecordInitializeCodeFunction>>invoke ChdExplicitAttributeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction>>invoke ChdDiscriminatedTypeAttributesXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction>>invoke ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:no286261248 | self code: (self code pltPlus: (ChdDiscriminatedTypeXmlIoRecordInitializeCodeFunction invokeFromValues: (OrderedCollection new add: (self alldts pltAt: no286261248); yourself)))] in ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdXmlArchitectureIoAdbPackageCodeFunction>>invoke ChdXmlArchitectureIoAdbPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "computedDomain" is nil 13 January 2013 1:07:57.867 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #computedDomain Receiver: nil Arguments and temporary variables: aMessage: computedDomain exception: MessageNotUnderstood: receiver of "computedDomain" is nil resumeValue: nil Receiver's instance variables: nil PltDefinedType>>staticDomain Receiver: a PltDefinedType Arguments and temporary variables: Receiver's instance variables: owner: a PltDefinedTypeReference identifiersCache: nil whereRules: an OrderedCollection() name: 'Natural' domain: nil PltDefinedType(PltDictionaryInstance)>>computedDomain Receiver: a PltDefinedType Arguments and temporary variables: Receiver's instance variables: owner: a PltDefinedTypeReference identifiersCache: nil whereRules: an OrderedCollection() name: 'Natural' domain: nil PltDefinedTypeReference(PltDictionaryInstanceReference)>>computedDomain Receiver: a PltDefinedTypeReference Arguments and temporary variables: Receiver's instance variables: owner: a PltDefinedType name: 'Natural' ref: a PltDefinedType PltConstantDefinition>>staticDomain Receiver: a PltConstantDefinition Arguments and temporary variables: Receiver's instance variables: owner: a PltSchemaDefinition domain: a PltDefinedTypeReference name: 'Max_Tasks_For_A_Resource' initializer: a PltIntegerLiteral PltConstantDefinition(PltDictionaryInstance)>>computedDomain Receiver: a PltConstantDefinition Arguments and temporary variables: Receiver's instance variables: owner: a PltSchemaDefinition domain: a PltDefinedTypeReference name: 'Max_Tasks_For_A_Resource' initializer: a PltIntegerLiteral PlatypusExpressSemanticChecker>>checksAssignOf:to:from: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: expr: a PltIntegerLiteral anAssignableOrAttribute: a PltConstantDefinition e: a PltConstantDefinition infered: a PltIntegerType static: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptConstantDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition selector: #acceptConstantDefinition: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltConstantDefinition aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltConstantDefinition(Object)>>acceptTry: Receiver: a PltConstantDefinition Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltSchemaDefinition domain: a PltDefinedTypeReference name: 'Max_Tasks_For_A_Resource' initializer: a PltIntegerLiteral PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptIdentifier: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('Max_Tasks_For_A_Resource') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltIdentifier(Object)>>acceptTry: Receiver: a PltIdentifier('Max_Tasks_For_A_Resource') Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltDefinedType cachedDomain: nil name: 'Max_Tasks_For_A_Resource' contextsStack: nil parameters: nil ref: a PltConstantDefinition PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptPopulationDependentBound: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound selector: #acceptPopulationDependentBound: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltPopulationDependentBound aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltPopulationDependentBound(Object)>>acceptTry: Receiver: a PltPopulationDependentBound Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltListType boundValue: a PltIdentifier('Max_Tasks_For_A_Resource') PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptAggregationType:lower:upper:symbol:flags: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType l: a PltIntegerBound u: a PltPopulationDependentBound subtype: #list aCollection: #() Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptVariableSizeAggregationType:symbol:flags: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType aSymbol: #list aCollection: #() Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptListType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptListType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType selector: #acceptListType: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltListType aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #computedDomain PltDefinedType>>staticDomain PltDefinedType(PltDictionaryInstance)>>computedDomain PltDefinedTypeReference(PltDictionaryInstanceReference)>>computedDomain PltConstantDefinition>>staticDomain PltConstantDefinition(PltDictionaryInstance)>>computedDomain PlatypusExpressSemanticChecker>>checksAssignOf:to:from: PlatypusExpressSemanticChecker>>acceptConstantDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltConstantDefinition(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptIdentifier: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptPopulationDependentBound: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltPopulationDependentBound(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptAggregationType:lower:upper:symbol:flags: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptVariableSizeAggregationType:symbol:flags: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptListType: PlatypusExpressSemanticChecker>>acceptListType: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltListType(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDefinedType: PlatypusExpressSemanticChecker>>acceptDefinedType: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltDefinedType(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressSemanticChecker>>acceptContextDefinition: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressSemanticChecker>>acceptSchemaDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker>>acceptSchemaInstance: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressSemanticChecker>>checks: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "errorQualifier" is nil 13 January 2013 1:08:50.021 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #errorQualifier Receiver: nil Arguments and temporary variables: aMessage: errorQualifier exception: MessageNotUnderstood: receiver of "errorQualifier" is nil resumeValue: nil Receiver's instance variables: nil PlatypusExpressSemanticChecker>>checksAssignOf:to:from: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: expr: a PltIntegerLiteral anAssignableOrAttribute: a PltConstantDefinition e: a PltConstantDefinition infered: a PltIntegerType static: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptConstantDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition selector: #acceptConstantDefinition: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltConstantDefinition aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltConstantDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltConstantDefinition(Object)>>acceptTry: Receiver: a PltConstantDefinition Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltSchemaDefinition domain: a PltDefinedTypeReference name: 'Max_Tasks_For_A_Resource' initializer: a PltIntegerLiteral PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptIdentifier: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') selector: #acceptIdentifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltIdentifier('Max_Tasks_For_A_Resource') aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltIdentifier('Max_Tasks_For_A_Resource') Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltIdentifier(Object)>>acceptTry: Receiver: a PltIdentifier('Max_Tasks_For_A_Resource') Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltDefinedType cachedDomain: nil name: 'Max_Tasks_For_A_Resource' contextsStack: nil parameters: nil ref: a PltConstantDefinition PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptPopulationDependentBound: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound selector: #acceptPopulationDependentBound: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltPopulationDependentBound aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPopulationDependentBound Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltPopulationDependentBound(Object)>>acceptTry: Receiver: a PltPopulationDependentBound Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltListType boundValue: a PltIdentifier('Max_Tasks_For_A_Resource') PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptAggregationType:lower:upper:symbol:flags: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType l: a PltIntegerBound u: a PltPopulationDependentBound subtype: #list aCollection: #() Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptVariableSizeAggregationType:symbol:flags: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType aSymbol: #list aCollection: #() Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptListType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptListType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType selector: #acceptListType: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltListType aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PltListType(Object)>>acceptTry: Receiver: a PltListType Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltDefinedType elementType: a PltEntityDefinitionReference upperBound: a PltPopulationDependentBound isGeneralType: false lowerBound: a PltIntegerBound uniqueFlag: false PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDefinedType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltDefinedType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptDefinedType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltDefinedType errPathStack: nil errMess: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 285) schemaInstance: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #errorQualifier PlatypusExpressSemanticChecker>>checksAssignOf:to:from: PlatypusExpressSemanticChecker>>acceptConstantDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltConstantDefinition(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptIdentifier: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptPopulationDependentBound: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltPopulationDependentBound(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptAggregationType:lower:upper:symbol:flags: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptVariableSizeAggregationType:symbol:flags: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptListType: PlatypusExpressSemanticChecker>>acceptListType: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltListType(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDefinedType: PlatypusExpressSemanticChecker>>acceptDefinedType: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltDefinedType(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressSemanticChecker>>acceptContextDefinition: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressSemanticChecker>>acceptSchemaDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker>>acceptSchemaInstance: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressSemanticChecker>>checks: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isCompatibleWith:" is nil 13 January 2013 1:10:06.583 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isCompatibleWith: Receiver: nil Arguments and temporary variables: aMessage: isCompatibleWith: a PltNumberType exception: MessageNotUnderstood: receiver of "isCompatibleWith:" is nil resumeValue: nil Receiver's instance variables: nil PlatypusExpressSemanticChecker>>checksBound:messagePrefix:from: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltPopulationDependentBound aString: 'upper bound' parent: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptAggregationType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType low: nil upper: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptListType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType selector: #acceptListType: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltListType aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltListType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PltListType(Object)>>acceptTry: Receiver: a PltListType Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltDefinedType elementType: a PltEntityDefinitionReference upperBound: a PltPopulationDependentBound isGeneralType: false lowerBound: a PltIntegerBound uniqueFlag: false PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDefinedType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltDefinedType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptDefinedType: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltDefinedType errPathStack: nil errMess: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDefinedType selector: #acceptDefinedType: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDefinedType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltDefinedType aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDefinedType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDefinedType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PltDefinedType(Object)>>acceptTry: Receiver: a PltDefinedType Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('SELF'->a Set(a PltDefinedType) ) whereRules: an OrderedCollection() name: 'Resource_Accesses_Table' domain: a PltListType [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType a PltDefinedType) Arguments and temporary variables: aVisitor: a PltDefinedType el: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedType a PltDefinedType a PltDefined...etc... firstIndex: 1 lastIndex: 4 OrderedCollection>>do: Receiver: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType a PltDefinedType) Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 3 Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedType a PltDefinedType a PltDefined...etc... firstIndex: 1 lastIndex: 4 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType a PltDefinedType) Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltDefinedType a PltDefinedType a PltDefinedType a PltDefined...etc... firstIndex: 1 lastIndex: 4 PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptContextDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptContextDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptSchemaDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltSchemaDefinition selector: #acceptSchemaDefinition: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltSchemaDefinition aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PltSchemaDefinition(Object)>>acceptTry: Receiver: a PltSchemaDefinition Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: a Dictionary('CRITICAL_SECTION'->a Set(a PltEntityDefinition) ...etc... types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: a Dictionary('IMMEDIATE_PRIORITY_CEILING_PROTOCOL'->a Set(a P...etc... name: 'Resources' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PltEntityDefinition a PltEntityDefinition a Pl...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefinition a P...etc... Arguments and temporary variables: aVisitor: a PltSchemaDefinition el: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefiniti...etc... firstIndex: 1 lastIndex: 20 OrderedCollection>>do: Receiver: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefinition a P...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 6 Receiver's instance variables: array: an Array(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefiniti...etc... firstIndex: 1 lastIndex: 20 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefinition a P...etc... Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltSchemaDefinition a PltSchemaDefinition a PltSchemaDefiniti...etc... firstIndex: 1 lastIndex: 20 PlatypusExpressSemanticChecker>>acceptSchemaInstance: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection(a PlatypusExpressSemanticCheckerError) acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 291) schemaInstance: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isCompatibleWith: PlatypusExpressSemanticChecker>>checksBound:messagePrefix:from: PlatypusExpressSemanticChecker>>acceptAggregationType: PlatypusExpressSemanticChecker>>acceptListType: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltListType(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDefinedType: PlatypusExpressSemanticChecker>>acceptDefinedType: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltDefinedType(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressSemanticChecker>>acceptContextDefinition: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressSemanticChecker>>acceptSchemaDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker>>acceptSchemaInstance: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressSemanticChecker>>checks: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently [:schir | r ifTrue: [schir recursivelyDo: [:ref | ref emphasisModel: nil]. schir verifySilently] ifFalse: [schir schemaInstance addError: (PlatypusExpressResolverError metaData: schir schemaInstance message: 'Used model named "' , self schemaInstance name , '" has errors')]] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: OrderedCollection>>do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusExpressEditor(PlatypusCodeMorph)>>accept PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE PlatypusExpressInvalidAttributeException: invalid attribute name: 'owner' 14 January 2013 5:56:41.709 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: err: PlatypusExpressInvalidAttributeException: invalid attribute name: 'owner' Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>cull: Receiver: [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. ...etc... Arguments and temporary variables: anArg: PlatypusExpressInvalidAttributeException: invalid attribute name: 'owner...etc... Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>compute: startpc: 55 numArgs: 1 [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'o...etc... Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] BlockClosure>>ensure: Receiver: [(self tempAt: 2) cull: exception] Arguments and temporary variables: aBlock: [self tempAt: 3 put: true] complete: nil returnValue: nil Receiver's instance variables: outerContext: MethodContext(ContextPart)>>handleSignal: startpc: 98 numArgs: 0 MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'o...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>compute: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [anExpressionOrStatement acceptTry: self] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'o...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'o...etc... val: nil Receiver's instance variables: sender: [untilControl := e untilControl. skip := false. [e incrControl ifNi...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self...etc... MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'o...etc... val: nil Receiver's instance variables: sender: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpress...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [skip ifFalse: [stmt acceptTry: self]] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: PlatypusExpressInvalidAttributeException: invalid attribute name: 'o...etc... val: nil Receiver's instance variables: sender: PlatypusExpressInterpretor>>acceptStatementsContainer: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [e statements do: [:stmt | stmt acceptTry: self]] PlatypusExpressInvalidAttributeException(Exception)>>signal Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'owner' Arguments and temporary variables: Receiver's instance variables: messageText: 'invalid attribute name: ''owner''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException(Exception)>>signal: Receiver: PlatypusExpressInvalidAttributeException: invalid attribute name: 'owner' Arguments and temporary variables: signalerText: 'invalid attribute name: ''owner''' Receiver's instance variables: messageText: 'invalid attribute name: ''owner''' tag: nil signaler: a PlatypusExpressInterpretorStackVar signalContext: PlatypusExpressInvalidAttributeException(Exception)>>signal handlerContext: BlockClosure>>on:do: outerContext: nil PlatypusExpressInvalidAttributeException class(Exception class)>>signal: Receiver: PlatypusExpressInvalidAttributeException Arguments and temporary variables: signalerText: 'invalid attribute name: ''owner''' Receiver's instance variables: superclass: PlatypusExpressInterpretorException methodDict: a MethodDictionary() format: 142 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PlatypusExpressInvalidAttributeException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-interpreter' traitComposition: {} localSelectors: nil [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltLocalVariable val: a PltExternalRepresentation[''] PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: Receiver: a PltExternalRepresentation[''] Arguments and temporary variables: missingBlock: [self interpretor pushVal: v] notMissingBlock: [key := anIdent asUppercase. allAttrIdentif := v getInsta...etc... Receiver's instance variables: owner: nil persistentLabel: '' owningModel: nil instanceScope: nil computed: true scope: nil records: an OrderedCollection(a PltSimpleRecord) PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: Receiver: a PlatypusExpressInterpretorStackVar Arguments and temporary variables: < Receiver's instance variables: interpretor: a PlatypusExpressInterpretor var: a PltLocalVariable val: a PltExternalRepresentation[''] PlatypusExpressInterpretor>>acceptAttributeQualifier: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier stackElement: a PlatypusExpressInterpretorStackVar Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier selector: #acceptAttributeQualifier: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltAttributeQualifier aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [self acceptTry: first. self doQualifiers: quals allButFirst] Arguments and temporary variables: aBlock: [selfStack pop. modelContentsAccessBlock := omc] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor>>doQualifiers: startpc: 78 numArgs: 0 PlatypusExpressInterpretor>>asValOfSelf:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anInstance: a PltExternalRepresentation[''] aBlock: [self acceptTry: first. self doQualifiers: quals allButFirst] omc: [schi interpreterScope] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>doQualifiers: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: quals: an OrderedCollection(a PltAttributeQualifier) first: a PltAttributeQualifier Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptAssignable: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAssignable Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAssignable selector: #acceptAssignable: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAssignable Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltAssignable aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAssignable Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAssignable Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PltAssignable(Object)>>acceptTry: Receiver: a PltAssignable Arguments and temporary variables: aVisitor: a PlatypusExpressInterpretor Receiver's instance variables: owner: a PltProcedureDeclaration qualifiers: an OrderedCollection(a PltAttributeQualifier) head: a PltIdentifier('idtype') PlatypusExpressInterpretor>>acceptAssignmentStatement: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: e: a PltAssignmentStatement rightValue: a PltExternalRepresentation[''] currStackElement: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAssignmentStatement selector: #acceptAssignmentStatement: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObject: a PltAssignmentStatement Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTr...etc... startpc: 28 numArgs: 0 PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressInterpretor Arguments and temporary variables: anObjectOrCollection: a PltAssignmentStatement aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PltAggregateInitializer->#acceptA...etc... objectsWithErrorIndex: an IdentitySet() modelContentsAccessBlock: [anInstance owningModel] stack: a PlatypusStack contextsStack: a PlatypusStack argsStack: a PlatypusStack requestor: nil splitMarkStack: an OrderedCollection() checksAssignments: true selfStack: a PlatypusStack debugger: a PlatypusExpressDebugger --- The full stack --- [:err | PlatypusExpressDebugger interpretor: self statementOrExpression: visitPath top. err signal] in PlatypusExpressInterpretor>>compute: BlockClosure>>cull: [(self tempAt: 2) cull: exception] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: PlatypusExpressInvalidAttributeException(Exception)>>signal PlatypusExpressInvalidAttributeException(Exception)>>signal: PlatypusExpressInvalidAttributeException class(Exception class)>>signal: [key := anIdent asUppercase. allAttrIdentif := v getInstanceAttributeIdentification: [:a | a name asUppercase = key]. allAttrIdentif isNil ifTrue: [PlatypusExpressInvalidAttributeException signal: 'invalid attribute name: ''' , anIdent , '''']. self pushAttribute: allAttrIdentif definition entityInstance: v] in PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: PlatypusExpressInterpretorStackVar(PlatypusExpressInterpretorStackElement)>>pushAttribute: PlatypusExpressInterpretor>>acceptAttributeQualifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: [self acceptTry: first. self doQualifiers: quals allButFirst] in PlatypusExpressInterpretor>>doQualifiers: BlockClosure>>ensure: PlatypusExpressInterpretor>>asValOfSelf:while: PlatypusExpressInterpretor>>doQualifiers: PlatypusExpressInterpretor>>acceptAssignable: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignable(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptAssignmentStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAssignmentStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltProcedureDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptProcedureCallStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltProcedureCallStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e thenStatements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptIfStatement: OrderedCollection>>do: [e thenStatements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptIfStatement: PltTrueConstant>>ifTrueConstant:ifFalseConstant: PlatypusExpressInterpretor>>acceptIfStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIfStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptAliasStatement: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptAliasStatement: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAliasStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltAliasStatement(Object)>>acceptTry: [skip ifFalse: [stmt acceptTry: self]] in [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]] in [e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] in [untilControl := e untilControl. skip := false. [e incrControl ifNil: [while := true] ifNotNil: [while := e incrControl acceptTry: self]. while and: [e whileControl ifNil: [while := true] ifNotNil: [e whileControl acceptTry: self. while := self popVal isPltTrueConstant]]] whileTrue: [[e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] on: PlatypusExpressEscapeStatementException do: [^ nil]. skip := false. untilControl ifNotNil: [untilControl acceptTry: self. self popVal isPltTrueConstant ifTrue: [^ nil]]]. nil] in PlatypusExpressInterpretor>>acceptRepeatStatement: BlockClosure>>on:do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]] in [e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] in [untilControl := e untilControl. skip := false. [e incrControl ifNil: [while := true] ifNotNil: [while := e incrControl acceptTry: self]. while and: [e whileControl ifNil: [while := true] ifNotNil: [e whileControl acceptTry: self. while := self popVal isPltTrueConstant]]] whileTrue: [[e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] on: PlatypusExpressEscapeStatementException do: [^ nil]. skip := false. untilControl ifNotNil: [untilControl acceptTry: self. self popVal isPltTrueConstant ifTrue: [^ nil]]]. nil] in PlatypusExpressInterpretor>>acceptRepeatStatement: OrderedCollection>>do: [e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] in [untilControl := e untilControl. skip := false. [e incrControl ifNil: [while := true] ifNotNil: [while := e incrControl acceptTry: self]. while and: [e whileControl ifNil: [while := true] ifNotNil: [e whileControl acceptTry: self. while := self popVal isPltTrueConstant]]] whileTrue: [[e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] on: PlatypusExpressEscapeStatementException do: [^ nil]. skip := false. untilControl ifNotNil: [untilControl acceptTry: self. self popVal isPltTrueConstant ifTrue: [^ nil]]]. nil] in PlatypusExpressInterpretor>>acceptRepeatStatement: BlockClosure>>on:do: [untilControl := e untilControl. skip := false. [e incrControl ifNil: [while := true] ifNotNil: [while := e incrControl acceptTry: self]. while and: [e whileControl ifNil: [while := true] ifNotNil: [e whileControl acceptTry: self. while := self popVal isPltTrueConstant]]] whileTrue: [[e statements do: [:stmt | [skip ifFalse: [stmt acceptTry: self]] on: PlatypusExpressSkipStatementException do: [skip := true]]] on: PlatypusExpressEscapeStatementException do: [^ nil]. skip := false. untilControl ifNotNil: [untilControl acceptTry: self. self popVal isPltTrueConstant ifTrue: [^ nil]]]. nil] in PlatypusExpressInterpretor>>acceptRepeatStatement: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptRepeatStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltRepeatStatement(Object)>>acceptTry: [:stmt | stmt acceptTry: self] in [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: OrderedCollection>>do: [e statements do: [:stmt | stmt acceptTry: self]] in PlatypusExpressInterpretor>>acceptStatementsContainer: BlockClosure>>on:do: PlatypusExpressInterpretor>>acceptStatementsContainer: [self acceptStatementsContainer: e] in PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: BlockClosure>>ensure: PlatypusExpressInterpretor>>asContext:while: PlatypusExpressInterpretor>>acceptAlgorithmDeclaration: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltProcedureDeclaration(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptIdentifier: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltIdentifier(Object)>>acceptTry: PlatypusExpressInterpretor>>acceptProcedureCallStatement: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressInterpretor(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressInterpretor>>acceptTry: PltProcedureCallStatement(Object)>>acceptTry: [anExpressionOrStatement acceptTry: self] in PlatypusExpressInterpretor>>compute: BlockClosure>>on:do: PlatypusExpressInterpretor>>compute: [:r | | schi | schi := r schemaInstance. modelContentsAccessBlock := [schi interpreterScope]. self compute: r] in PlatypusExpressInterpretor>>compute:in:to:notifying:ifFail:logged: OrderedCollection>>do: PlatypusExpressInterpretor>>compute:in:to:notifying:ifFail:logged: PlatypusExpressInterpretor>>evaluate:in:to:notifying:ifFail:logged: [args ifNotEmpty: [:a | self arguments: args trimBoth unparenthetically]. call := self name , args , ';'. ^ PlatypusExpressInterpretor new evaluate: call in: self owner to: nil notifying: nil ifFail: [] logged: false] in PltProcedureDeclaration(PltStatementsContainer)>>evaluate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PltProcedureDeclaration(PltStatementsContainer)>>evaluate: PltProcedureDeclaration(PltStatementsContainer)>>evaluate PlatypusProcedureReference(PlatypusSchemaElementReference)>>evaluate PlatypusExpressEditor>>evaluate PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 14 January 2013 6:02:16.188 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] IdentityDictionary(Dictionary)>>at:put: Receiver: an IdentityDictionary(#alias->PlatypusOpenKeywordToken #as->PlatypusKeywordToken #begin->P...etc... Arguments and temporary variables: key: #abstract anObject: PlatypusKeywordToken index: nil assoc: nil Receiver's instance variables: tally: 59 array: {#constant->PlatypusOpenKeywordToken. #inverse->PlatypusGroupKeywordToke...etc... [:symbol | tokensClassByTokenSymbolMap at: symbol put: PlatypusKeywordToken] in PlatypusExpressTokenClassifier>>initialize Receiver: a PlatypusExpressTokenClassifier Arguments and temporary variables: symbol: #abstract Receiver's instance variables: stringEvaluatedConditionsList: an OrderedCollection() characterEvaluatedConditionsList: an OrderedCollection() tokensClassByTokenValueMap: a Dictionary('('->PlatypusOpenDelimToken ')'->Platy...etc... tokensClassByTokenSymbolMap: an IdentityDictionary(#alias->PlatypusOpenKeywordT...etc... Array(SequenceableCollection)>>do: Receiver: #(#meta #reference #constE #use #skip #fixed #while #to #return #optional #pi #of #by #oth...etc... Arguments and temporary variables: aBlock: [:symbol | tokensClassByTokenSymbolMap at: symbol put: PlatypusKeywordT...etc... index: 21 indexLimiT: 25 Receiver's instance variables: #(#meta #reference #constE #use #skip #fixed #while #to #return #optional #pi #of #by #oth...etc... PlatypusExpressTokenClassifier>>initialize Receiver: a PlatypusExpressTokenClassifier Arguments and temporary variables: Receiver's instance variables: stringEvaluatedConditionsList: an OrderedCollection() characterEvaluatedConditionsList: an OrderedCollection() tokensClassByTokenValueMap: a Dictionary('('->PlatypusOpenDelimToken ')'->Platy...etc... tokensClassByTokenSymbolMap: an IdentityDictionary(#alias->PlatypusOpenKeywordT...etc... PlatypusExpressTokenClassifier class(Behavior)>>new Receiver: PlatypusExpressTokenClassifier Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusTokenClassifier methodDict: a MethodDictionary(#builtinFunctionsSymbols->(PlatypusExpressTokenC...etc... format: 138 instanceVariables: nil organization: ('accessing' builtinFunctionsSymbols builtinProceduresSymbols) ('...etc... subclasses: nil name: #PlatypusExpressTokenClassifier classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-CodeTokens' traitComposition: {} localSelectors: nil PlatypusSchemaInstanceTokenizer>>initialize Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: nil visitPath: nil visitErrors: nil acceptSelectorsMap: nil objectsWithErrorIndex: nil tokenList: a PlatypusTokenList tokenClassifier: nil literalEncoder: nil PlatypusSchemaInstanceTokenizer class(Behavior)>>new Receiver: PlatypusSchemaInstanceTokenizer Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusStepAbstractVisitor methodDict: a MethodDictionary(size 106) format: 148 instanceVariables: #('tokenList' 'tokenClassifier' 'literalEncoder') organization: ('visit aggregate data schema' acceptAggregateInitializer: accept...etc... subclasses: nil name: #PlatypusSchemaInstanceTokenizer classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PltBooleanType(PltDictionaryInstance)>>prettyPrintedExpressCode Receiver: a PltBooleanType Arguments and temporary variables: ppTokenList: nil Receiver's instance variables: owner: a PltExplicitAttribute PltBooleanType(PltDictionaryInstance)>>annotation Receiver: a PltBooleanType Arguments and temporary variables: Receiver's instance variables: owner: a PltExplicitAttribute [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional ']. strm nextPutAll: (self domain ifNil: ['?'] ifNotNil: [:d | d annotation])] in PltExplicitAttribute>>annotation Receiver: a PltExplicitAttribute Arguments and temporary variables: strm: a WriteStream d: a PltBooleanType Receiver's instance variables: owner: a PltEntityDefinition domain: a PltBooleanType redeclaring: nil name: 'instantiable' optionalFlag: false String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional...etc... stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional...etc... Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PltExplicitAttribute>>annotation Receiver: a PltExplicitAttribute Arguments and temporary variables: Receiver's instance variables: owner: a PltEntityDefinition domain: a PltBooleanType redeclaring: nil name: 'instantiable' optionalFlag: false PlatypusModelContentsStepWriter>>acceptParameter:entity:attribute:fromSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: aParameter: a PltTrueConstant definition: a PltEntityDefinition anExplicitAttribute: a PltExplicitAttribute fromSimpleRecord: true ann: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [:v :a | self acceptParameter: v entity: definition attribute: a fromSimpleRecord: fromSimpleRecord] in PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: definition: a PltTrueConstant fromSimpleRecord: a PltExplicitAttribute v: a PltEntityDefinition a: true Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil OrderedCollection(SequenceableCollection)>>with:do:separatedBy: Receiver: an OrderedCollection(a PltMissingValue a PltListInstance a PltListInstance a PltListInstan...etc... Arguments and temporary variables: otherCollection: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttri...etc... twoArgBlock: [:v :a | self acceptParameter: v entity: definition attribut...etc... separatorBlock: [p21Syntax ifTrue: [outStream nextPutAll: ', ']] index: 6 indexLimiT: 7 Receiver's instance variables: array: an Array(a PltMissingValue a PltListInstance a PltListInstance a PltList...etc... firstIndex: 1 lastIndex: 7 PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: parameters: an OrderedCollection(a PltMissingValue a PltListInstance a PltListI...etc... definition: a PltEntityDefinition fromSimpleRecord: true attrs: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute a Plt...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter>>acceptSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: e: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltSimpleRecord selector: #acceptSimpleRecord: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter Receiver's instance variables: owner: a PltExternalRepresentation['1714'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltMissingValue a PltListInstance a PltListI...etc... [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry:separatedBy: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusModelContentsStepWriter Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 7 OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: elementBlock: [:el | el acceptTry: aVisitor] separatorBlock: [self nextPutAll: String cr , String tab] index: 7 indexLimiT: 7 Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 7 OrderedCollection(Collection)>>acceptTry:separatedBy: Receiver: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimpleReco...etc... Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter aBlock: [self nextPutAll: String cr , String tab] Receiver's instance variables: array: an Array(a PltSimpleRecord a PltSimpleRecord a PltSimpleRecord a PltSimp...etc... firstIndex: 1 lastIndex: 7 PlatypusModelContentsStepWriter>>acceptExternalInstance: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: e: a PltExternalRepresentation['1714'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter>>acceptExternalRepresentation: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: e: a PltExternalRepresentation['1714'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltExternalRepresentation['1714'] selector: #acceptExternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltExternalRepresentation['1714'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObjectOrCollection: a PltExternalRepresentation['1714'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltExternalRepresentation['1714'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PltExternalRepresentation(Object)>>acceptTry: Receiver: a PltExternalRepresentation['1714'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter Receiver's instance variables: owner: nil persistentLabel: '1714' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord a PltSimpleRecord a PltSimpleRe...etc... [:el | el acceptTry: aVisitor] in Array(Collection)>>acceptTry:separatedBy: Receiver: an Array(a PltExternalRepresentation['1714']) Arguments and temporary variables: aVisitor: a PltExternalRepresentation['1714'] el: a PlatypusModelContentsStepWriter Receiver's instance variables: an Array(a PltExternalRepresentation['1714']) Array(SequenceableCollection)>>do:separatedBy: Receiver: an Array(a PltExternalRepresentation['1714']) Arguments and temporary variables: elementBlock: [:el | el acceptTry: aVisitor] separatorBlock: [outStream nextPut: Character cr] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a PltExternalRepresentation['1714']) Array(Collection)>>acceptTry:separatedBy: Receiver: an Array(a PltExternalRepresentation['1714']) Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter aBlock: [outStream nextPut: Character cr] Receiver's instance variables: an Array(a PltExternalRepresentation['1714']) PlatypusModelContentsStepWriter>>stream:modelContents:values:p21Syntax: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anOutputStream: a WriteStream aModelContents: a PltModelContents values: an Array(a PltExternalRepresentation['1714']) useP21Syntax: false Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil --- The full stack --- IdentityDictionary(Dictionary)>>at:put: [:symbol | tokensClassByTokenSymbolMap at: symbol put: PlatypusKeywordToken] in PlatypusExpressTokenClassifier>>initialize Array(SequenceableCollection)>>do: PlatypusExpressTokenClassifier>>initialize PlatypusExpressTokenClassifier class(Behavior)>>new PlatypusSchemaInstanceTokenizer>>initialize PlatypusSchemaInstanceTokenizer class(Behavior)>>new PltBooleanType(PltDictionaryInstance)>>prettyPrintedExpressCode PltBooleanType(PltDictionaryInstance)>>annotation [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional ']. strm nextPutAll: (self domain ifNil: ['?'] ifNotNil: [:d | d annotation])] in PltExplicitAttribute>>annotation String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PltExplicitAttribute>>annotation PlatypusModelContentsStepWriter>>acceptParameter:entity:attribute:fromSimpleRecord: [:v :a | self acceptParameter: v entity: definition attribute: a fromSimpleRecord: fromSimpleRecord] in PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: OrderedCollection(SequenceableCollection)>>with:do:separatedBy: PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: PlatypusModelContentsStepWriter>>acceptSimpleRecord: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry:separatedBy: OrderedCollection(SequenceableCollection)>>do:separatedBy: OrderedCollection(Collection)>>acceptTry:separatedBy: PlatypusModelContentsStepWriter>>acceptExternalInstance: PlatypusModelContentsStepWriter>>acceptExternalRepresentation: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in Array(Collection)>>acceptTry:separatedBy: Array(SequenceableCollection)>>do:separatedBy: Array(Collection)>>acceptTry:separatedBy: PlatypusModelContentsStepWriter>>stream:modelContents:values:p21Syntax: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:strm | PlatypusModelContentsStepWriter new stream: strm modelContents: self modelContents values: (Array with: val) p21Syntax: p21Syntax] in PlatypusStepInstanceReference(PlatypusStepReference)>>codeText: String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepInstanceReference(PlatypusStepReference)>>codeText: PlatypusStepInstanceReference(PlatypusStepReference)>>codeText [:strm | | lab | [lab := self value persistentLabel] on: Error do: []. lab ifNotNil: [lab ifNotEmpty: [(self modelContents includesInstance: self value) ifFalse: [strm nextPutAll: '** Changed or removed** ']]]. strm nextPutAll: (self codeText asString contractTo: 100)] in PlatypusStepInstanceReference>>shortName String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepInstanceReference>>shortName [:chl | chl shortName = childShortName and: [aLinkReference ~~ chl and: [chl isLink not]]] in PlatypusModelContentsReference(TamListItemReference)>>findChildReferenceFromPath:forLink: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: OrderedCollection>>do: OrderedCollection(Collection)>>detect:ifNone: PlatypusModelContentsReference(TamListItemReference)>>findChildReferenceFromPath:forLink: PlatypusSchemaInstanceReference(TamListItemReference)>>findChildReferenceFromPath:forLink: TamRootTaxonReference(TamListItemReference)>>findChildReferenceFromPath:forLink: TamListItemSoftLinkReference class>>linkedFrom: TamListItemSoftLinkReference>>linked TamListItemSoftLinkReference(TamListItemAbstractLinkReference)>>isLinkTo: [:lnk | lnk isLinkTo: aReference] in TamLinksTaxonReference>>insertReference: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: OrderedCollection>>do: OrderedCollection(Collection)>>detect:ifNone: TamLinksTaxonReference>>insertReference: TamManager class>>addToRecents: PlatypusEntityReference(TamListItemReference)>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: TamBrowser>>noteNewSelection: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>setSelectedMorph: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>mouseUp: TamHierarchicalListMorph>>mouseUp: TamHierarchicalListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 14 January 2013 6:06:06.317 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] [self popFromVisitPath] in PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil MethodContext(ContextPart)>>resume: Receiver: PlatypusSchemaInstanceTokenizer>>tokenize: Arguments and temporary variables: value: a PlatypusSchemaInstanceTokenizer ctxt: BlockClosure>>ensure: unwindBlock: [self popFromVisitPath] Receiver's instance variables: sender: PltStringType(PltDictionaryInstance)>>prettyPrintedExpressCode pc: 31 stackp: 1 method: (PlatypusSchemaInstanceTokenizer>>#tokenize: "a CompiledMethod(81788928...etc... closureOrNil: nil receiver: a PlatypusSchemaInstanceTokenizer BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: true returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObjectOrCollection: a PltStringType aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anObject: a PltStringType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PlatypusSchemaInstanceTokenizer>>tokenize: Receiver: a PlatypusSchemaInstanceTokenizer Arguments and temporary variables: anPlatypusDictionaryInstance: a PltStringType Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusSchemaInstanceTokenizer->...etc... objectsWithErrorIndex: an IdentitySet() tokenList: a PlatypusTokenList tokenClassifier: a PlatypusExpressTokenClassifier literalEncoder: nil PltStringType(PltDictionaryInstance)>>prettyPrintedExpressCode Receiver: a PltStringType Arguments and temporary variables: ppTokenList: nil Receiver's instance variables: owner: a PltExplicitAttribute width: nil fixedWidth: false PltStringType(PltDictionaryInstance)>>annotation Receiver: a PltStringType Arguments and temporary variables: Receiver's instance variables: owner: a PltExplicitAttribute width: nil fixedWidth: false [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional ']. strm nextPutAll: (self domain ifNil: ['?'] ifNotNil: [:d | d annotation])] in PltExplicitAttribute>>annotation Receiver: a PltExplicitAttribute Arguments and temporary variables: strm: a WriteStream d: a PltStringType Receiver's instance variables: owner: a PltEntityDefinition domain: a PltStringType redeclaring: nil name: 'suffix' optionalFlag: true String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional...etc... stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional...etc... Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PltExplicitAttribute>>annotation Receiver: a PltExplicitAttribute Arguments and temporary variables: Receiver's instance variables: owner: a PltEntityDefinition domain: a PltStringType redeclaring: nil name: 'suffix' optionalFlag: true PlatypusModelContentsStepWriter>>acceptParameter:entity:attribute:fromSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: aParameter: a PltMissingValue definition: a PltEntityDefinition anExplicitAttribute: a PltExplicitAttribute fromSimpleRecord: true ann: nil Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [:v :a | self acceptParameter: v entity: definition attribute: a fromSimpleRecord: fromSimpleRecord] in PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: definition: a PltMissingValue fromSimpleRecord: a PltExplicitAttribute v: a PltEntityDefinition a: true Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil OrderedCollection(SequenceableCollection)>>with:do:separatedBy: Receiver: an OrderedCollection(a PltStringLiteral a PltMissingValue a PltTrueConstant a PltTrueConst...etc... Arguments and temporary variables: otherCollection: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttri...etc... twoArgBlock: [:v :a | self acceptParameter: v entity: definition attribut...etc... separatorBlock: [p21Syntax ifTrue: [outStream nextPutAll: ', ']] index: 2 indexLimiT: 4 Receiver's instance variables: array: an Array(a PltStringLiteral a PltMissingValue a PltTrueConstant a PltTru...etc... firstIndex: 1 lastIndex: 4 PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: parameters: an OrderedCollection(a PltStringLiteral a PltMissingValue a PltTrue...etc... definition: a PltEntityDefinition fromSimpleRecord: true attrs: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute a Plt...etc... Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter>>acceptSimpleRecord: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: e: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltSimpleRecord selector: #acceptSimpleRecord: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObjectOrCollection: a PltSimpleRecord aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltSimpleRecord Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PltSimpleRecord(Object)>>acceptTry: Receiver: a PltSimpleRecord Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter Receiver's instance variables: owner: a PltExternalRepresentation['3845'] definition: a PltEntityDefinitionReference parameters: an OrderedCollection(a PltStringLiteral a PltMissingValue a PltTrue...etc... [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry:separatedBy: Receiver: an OrderedCollection(a PltSimpleRecord) Arguments and temporary variables: aVisitor: a PltSimpleRecord el: a PlatypusModelContentsStepWriter Receiver's instance variables: array: an Array(a PltSimpleRecord nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: an OrderedCollection(a PltSimpleRecord) Arguments and temporary variables: elementBlock: [:el | el acceptTry: aVisitor] separatorBlock: [self nextPutAll: String cr , String tab] index: 1 indexLimiT: 1 Receiver's instance variables: array: an Array(a PltSimpleRecord nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 OrderedCollection(Collection)>>acceptTry:separatedBy: Receiver: an OrderedCollection(a PltSimpleRecord) Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter aBlock: [self nextPutAll: String cr , String tab] Receiver's instance variables: array: an Array(a PltSimpleRecord nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 PlatypusModelContentsStepWriter>>acceptExternalInstance: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: e: a PltExternalRepresentation['3845'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter>>acceptExternalRepresentation: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: e: a PltExternalRepresentation['3845'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltExternalRepresentation['3845'] selector: #acceptExternalRepresentation: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltExternalRepresentation['3845'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acc...etc... startpc: 28 numArgs: 0 PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObjectOrCollection: a PltExternalRepresentation['3845'] aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anObject: a PltExternalRepresentation['3845'] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil PltExternalRepresentation(Object)>>acceptTry: Receiver: a PltExternalRepresentation['3845'] Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter Receiver's instance variables: owner: nil persistentLabel: '3845' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: an OrderedCollection(a PltSimpleRecord) [:el | el acceptTry: aVisitor] in Array(Collection)>>acceptTry:separatedBy: Receiver: an Array(a PltExternalRepresentation['3845']) Arguments and temporary variables: aVisitor: a PltExternalRepresentation['3845'] el: a PlatypusModelContentsStepWriter Receiver's instance variables: an Array(a PltExternalRepresentation['3845']) Array(SequenceableCollection)>>do:separatedBy: Receiver: an Array(a PltExternalRepresentation['3845']) Arguments and temporary variables: elementBlock: [:el | el acceptTry: aVisitor] separatorBlock: [outStream nextPut: Character cr] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a PltExternalRepresentation['3845']) Array(Collection)>>acceptTry:separatedBy: Receiver: an Array(a PltExternalRepresentation['3845']) Arguments and temporary variables: aVisitor: a PlatypusModelContentsStepWriter aBlock: [outStream nextPut: Character cr] Receiver's instance variables: an Array(a PltExternalRepresentation['3845']) PlatypusModelContentsStepWriter>>stream:modelContents:values:p21Syntax: Receiver: a PlatypusModelContentsStepWriter Arguments and temporary variables: anOutputStream: a WriteStream aModelContents: a PltModelContents values: an Array(a PltExternalRepresentation['3845']) useP21Syntax: false Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusModelContentsStepWriter->...etc... objectsWithErrorIndex: an IdentitySet() outStream: a WriteStream p21Syntax: false tokenClassifier: a PlatypusExpressTokenClassifier modelContents: a PltModelContents annote: nil [:strm | PlatypusModelContentsStepWriter new stream: strm modelContents: self modelContents values: (Array with: val) p21Syntax: p21Syntax] in PlatypusStepInstanceReference(PlatypusStepReference)>>codeText: Receiver: [cheddar: /express2cheddar/express2cheddar' model/#3845=(ADA_INTERFACE ( prefix: 'framew...etc... Arguments and temporary variables: p21Syntax: a WriteStream val: false strm: a PltExternalRepresentation['3845'] Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar' model] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 3463 subReferences: nil attrOrRuleOrValue: nil --- The full stack --- [self popFromVisitPath] in PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: MethodContext(ContextPart)>>resume: BlockClosure>>ensure: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusSchemaInstanceTokenizer(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusSchemaInstanceTokenizer>>tokenize: PltStringType(PltDictionaryInstance)>>prettyPrintedExpressCode PltStringType(PltDictionaryInstance)>>annotation [:strm | self optionalFlag ifTrue: [strm nextPutAll: 'optional ']. strm nextPutAll: (self domain ifNil: ['?'] ifNotNil: [:d | d annotation])] in PltExplicitAttribute>>annotation String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PltExplicitAttribute>>annotation PlatypusModelContentsStepWriter>>acceptParameter:entity:attribute:fromSimpleRecord: [:v :a | self acceptParameter: v entity: definition attribute: a fromSimpleRecord: fromSimpleRecord] in PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: OrderedCollection(SequenceableCollection)>>with:do:separatedBy: PlatypusModelContentsStepWriter>>acceptAllParameters:definition:fromSimpleRecord: PlatypusModelContentsStepWriter>>acceptSimpleRecord: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: PltSimpleRecord(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry:separatedBy: OrderedCollection(SequenceableCollection)>>do:separatedBy: OrderedCollection(Collection)>>acceptTry:separatedBy: PlatypusModelContentsStepWriter>>acceptExternalInstance: PlatypusModelContentsStepWriter>>acceptExternalRepresentation: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusModelContentsStepWriter(PlatypusCoreAbstractVisitor)>>acceptTry: PltExternalRepresentation(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in Array(Collection)>>acceptTry:separatedBy: Array(SequenceableCollection)>>do:separatedBy: Array(Collection)>>acceptTry:separatedBy: PlatypusModelContentsStepWriter>>stream:modelContents:values:p21Syntax: [:strm | PlatypusModelContentsStepWriter new stream: strm modelContents: self modelContents values: (Array with: val) p21Syntax: p21Syntax] in PlatypusStepInstanceReference(PlatypusStepReference)>>codeText: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepInstanceReference(PlatypusStepReference)>>codeText: PlatypusStepInstanceReference(PlatypusStepReference)>>codeText [:strm | | lab | [lab := self value persistentLabel] on: Error do: []. lab ifNotNil: [lab ifNotEmpty: [(self modelContents includesInstance: self value) ifFalse: [strm nextPutAll: '** Changed or removed** ']]]. strm nextPutAll: (self codeText asString contractTo: 100)] in PlatypusStepInstanceReference>>shortName String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepInstanceReference>>shortName [:chl | chl shortName = childShortName and: [aLinkReference ~~ chl and: [chl isLink not]]] in PlatypusModelContentsReference(TamListItemReference)>>findChildReferenceFromPath:forLink: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: OrderedCollection>>do: OrderedCollection(Collection)>>detect:ifNone: PlatypusModelContentsReference(TamListItemReference)>>findChildReferenceFromPath:forLink: PlatypusSchemaInstanceReference(TamListItemReference)>>findChildReferenceFromPath:forLink: TamRootTaxonReference(TamListItemReference)>>findChildReferenceFromPath:forLink: TamListItemSoftLinkReference class>>linkedFrom: TamListItemSoftLinkReference>>linked TamListItemSoftLinkReference(TamListItemAbstractLinkReference)>>isLinkTo: [:lnk | lnk isLinkTo: aReference] in TamLinksTaxonReference>>insertReference: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in OrderedCollection(Collection)>>detect:ifNone: OrderedCollection>>do: OrderedCollection(Collection)>>detect:ifNone: TamLinksTaxonReference>>insertReference: TamManager class>>addToRecents: PlatypusEntityReference(TamListItemReference)>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: TamBrowser>>noteNewSelection: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>setSelectedMorph: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>mouseUp: TamHierarchicalListMorph>>mouseUp: TamHierarchicalListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Error: Instances of UndefinedObject are not indexable 14 January 2013 6:57:15.586 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>error: Receiver: nil Arguments and temporary variables: aString: 'Instances of UndefinedObject are not indexable' Receiver's instance variables: nil UndefinedObject(Object)>>errorNotIndexable Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil UndefinedObject(Object)>>at: Receiver: nil Arguments and temporary variables: index: 7 Receiver's instance variables: nil PltExternalRepresentation>>at: Receiver: a PltExternalRepresentation['1360'] Arguments and temporary variables: pos: 7 Receiver's instance variables: owner: nil persistentLabel: '1360' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: nil [v at: position] in PlatypusStepInstanceReference(PlatypusStepReference)>>at: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,#1360,#1318,#676,#...etc... Arguments and temporary variables: position: 7 v: a PltExternalRepresentation['1360'] Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: Receiver: a PltExternalRepresentation['1360'] Arguments and temporary variables: missingBlock: [v] notMissingBlock: [v at: position] Receiver's instance variables: owner: nil persistentLabel: '1360' owningModel: a PltModelContents instanceScope: nil computed: false scope: nil records: nil PlatypusStepInstanceReference(PlatypusStepReference)>>at: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,#1360,#1318,#676,#...etc... Arguments and temporary variables: position: 7 v: a PltExternalRepresentation['1360'] Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 2 subReferences: <> PlatypusStepRecordReference>>value Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(PlatypusStepReference)>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: nil Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(PlatypusStepReference)>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(TamListItemReference)>>listLabel Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(TamListItemReference)>>asStringOrText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(TamListItemReference)>>asString Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(TamListItemReference)>><= Receiver: <> Arguments and temporary variables: another: [cheddar: /express2cheddar/express2cheddar_facade] Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes/(#583,...etc... listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> TamBrowserHistoryItem>><= Receiver: a TamBrowserHistoryItem Arguments and temporary variables: other: a TamBrowserHistoryItem Receiver's instance variables: listItemReference: <> [:a :b | a <= b] in Array(ArrayedCollection)>>sort Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: a: a TamBrowserHistoryItem b: a TamBrowserHistoryItem Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeFirst:middle:last:into:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: first: 1 middle: 1 last: 2 dst: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... aBlock: [:a :b | a <= b] i1: 1 i2: 2 val1: a TamBrowserHistoryItem val2: a TamBrowserHistoryItem out: 0 Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: first: 1 last: 2 src: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... dst: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... aBlock: [:a :b | a <= b] middle: 1 Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: first: 1 last: 3 src: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... dst: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... aBlock: [:a :b | a <= b] middle: 2 Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: first: 1 last: 5 src: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... dst: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... aBlock: [:a :b | a <= b] middle: 3 Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: first: 1 last: 10 src: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... dst: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... aBlock: [:a :b | a <= b] middle: 5 Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: first: 1 last: 20 src: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... dst: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHisto...etc... aBlock: [:a :b | a <= b] middle: 10 Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>mergeSortFrom:to:by: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: startIndex: 1 stopIndex: 20 aBlock: [:a :b | a <= b] Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>sort: Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: aSortBlock: [:a :b | a <= b] Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Array(ArrayedCollection)>>sort Receiver: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... Arguments and temporary variables: Receiver's instance variables: an Array(a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrowserHistoryItem a TamBrow...etc... TamBrowserHistoryList(AbstractHistoryList)>>recents Receiver: a TamBrowserHistoryList Arguments and temporary variables: Receiver's instance variables: items: an OrderedCollection(a TamBrowserHistoryItem a TamBrowserHistoryItem a T...etc... currentIndex: 20 canAppendItem: true historyMaxSize: 20 TamBrowserHistoryList(AbstractHistoryList)>>canShowRecents Receiver: a TamBrowserHistoryList Arguments and temporary variables: Receiver's instance variables: items: an OrderedCollection(a TamBrowserHistoryItem a TamBrowserHistoryItem a T...etc... currentIndex: 20 canAppendItem: true historyMaxSize: 20 TamBrowser>>canShowRecents Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil PluggableButtonMorph>>update: Receiver: a PluggableButtonMorph(897318912) Arguments and temporary variables: aParameter: #canShowRecents state: false cc: nil Receiver's instance variables: bounds: (323.0@42.0) corner: (347.0@66.0) owner: a TamButtonsAlignmentMorph(422051840) submorphs: an Array(an AlignmentMorph(970719232)) fullBounds: (323@42) corner: (347@66) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (923795456) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamBrowser label: an ImageMorph(766509056) getStateSelector: nil actionSelector: #recentsTree getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #canShowRecents [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm getEnabledSelector]] in TamButtonsAlignmentMorph>>updateIfNeeded Receiver: a TamButtonsAlignmentMorph(422051840) Arguments and temporary variables: sm: a PluggableButtonMorph(897318912) Receiver's instance variables: bounds: (95.0@40.0) corner: (455.0@68.0) owner: an AlignmentMorph(663224320) submorphs: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(14...etc... fullBounds: (95@40) corner: (455@68) color: Color transparent extension: a MorphExtension (434896896) borderWidth: 0 borderColor: Color transparent Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(143130624) a PluggableBu...etc... Arguments and temporary variables: aBlock: [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm ge...etc... index: 11 indexLimiT: 16 Receiver's instance variables: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(143130624) a PluggableBu...etc... TamButtonsAlignmentMorph(Morph)>>submorphsDo: Receiver: a TamButtonsAlignmentMorph(422051840) Arguments and temporary variables: aBlock: [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm ge...etc... Receiver's instance variables: bounds: (95.0@40.0) corner: (455.0@68.0) owner: an AlignmentMorph(663224320) submorphs: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(14...etc... fullBounds: (95@40) corner: (455@68) color: Color transparent extension: a MorphExtension (434896896) borderWidth: 0 borderColor: Color transparent TamButtonsAlignmentMorph>>updateIfNeeded Receiver: a TamButtonsAlignmentMorph(422051840) Arguments and temporary variables: Receiver's instance variables: bounds: (95.0@40.0) corner: (455.0@68.0) owner: an AlignmentMorph(663224320) submorphs: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(14...etc... fullBounds: (95@40) corner: (455@68) color: Color transparent extension: a MorphExtension (434896896) borderWidth: 0 borderColor: Color transparent TamButtonsAlignmentMorph>>step Receiver: a TamButtonsAlignmentMorph(422051840) Arguments and temporary variables: Receiver's instance variables: bounds: (95.0@40.0) corner: (455.0@68.0) owner: an AlignmentMorph(663224320) submorphs: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(14...etc... fullBounds: (95@40) corner: (455@68) color: Color transparent extension: a MorphExtension (434896896) borderWidth: 0 borderColor: Color transparent TamButtonsAlignmentMorph(Morph)>>stepAt: Receiver: a TamButtonsAlignmentMorph(422051840) Arguments and temporary variables: millisecondClockValue: 5478170 Receiver's instance variables: bounds: (95.0@40.0) corner: (455.0@68.0) owner: an AlignmentMorph(663224320) submorphs: an Array(a PluggableButtonMorph(692584448) a PluggableButtonMorph(14...etc... fullBounds: (95@40) corner: (455@68) color: Color transparent extension: a MorphExtension (434896896) borderWidth: 0 borderColor: Color transparent StepMessage(MorphicAlarm)>>value: Receiver: StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(422051840))(a TamButtonsAlignmentMorph(...etc... Arguments and temporary variables: anArgument: 5478170 nArgs: 0 Receiver's instance variables: receiver: a TamButtonsAlignmentMorph(422051840) selector: #stepAt: arguments: nil scheduledTime: 5478127 numArgs: 1 stepTime: nil WorldState>>runLocalStepMethodsIn: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] now: 5478170 morphToStep: a TamButtonsAlignmentMorph(422051840) stepTime: 100 priorWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(870318080...etc... lastStepTime: 5478396 lastStepMessage: nil lastCycleTime: 5478396 alarms: a Heap() lastAlarmTime: 5478396 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>runStepMethodsIn: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] queue: SharedQueue with 0 items nextInQueue: nil Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(870318080...etc... lastStepTime: 5478396 lastStepMessage: nil lastCycleTime: 5478396 alarms: a Heap() lastAlarmTime: 5478396 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- UndefinedObject(Object)>>error: UndefinedObject(Object)>>errorNotIndexable UndefinedObject(Object)>>at: PltExternalRepresentation>>at: [v at: position] in PlatypusStepInstanceReference(PlatypusStepReference)>>at: PltExternalRepresentation(PltEntityInstance)>>ifMissing:ifNotMissing: PlatypusStepInstanceReference(PlatypusStepReference)>>at: PlatypusStepRecordReference>>value PlatypusStepRecordReference(PlatypusStepReference)>>codeText: PlatypusStepRecordReference(PlatypusStepReference)>>codeText PlatypusStepRecordReference>>shortName PlatypusStepRecordReference(TamListItemReference)>>listLabel PlatypusStepRecordReference(TamListItemReference)>>asStringOrText PlatypusStepRecordReference(TamListItemReference)>>asString PlatypusStepRecordReference(TamListItemReference)>><= TamBrowserHistoryItem>><= [:a :b | a <= b] in Array(ArrayedCollection)>>sort Array(ArrayedCollection)>>mergeFirst:middle:last:into:by: Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Array(ArrayedCollection)>>mergeSortFrom:to:src:dst:by: Array(ArrayedCollection)>>mergeSortFrom:to:by: Array(ArrayedCollection)>>sort: Array(ArrayedCollection)>>sort TamBrowserHistoryList(AbstractHistoryList)>>recents TamBrowserHistoryList(AbstractHistoryList)>>canShowRecents TamBrowser>>canShowRecents PluggableButtonMorph>>update: [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm getEnabledSelector]] in TamButtonsAlignmentMorph>>updateIfNeeded Array(SequenceableCollection)>>do: TamButtonsAlignmentMorph(Morph)>>submorphsDo: TamButtonsAlignmentMorph>>updateIfNeeded TamButtonsAlignmentMorph>>step TamButtonsAlignmentMorph(Morph)>>stepAt: StepMessage(MorphicAlarm)>>value: WorldState>>runLocalStepMethodsIn: WorldState>>runStepMethodsIn: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PasteUpMorph>>runStepMethods WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:37:26.876 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>initialize Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'ChdExpress2cheddarSchemaInstance initialize.' aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ ChdExpress2cheddarSchemaInstance initialize method: (UndefinedObject>>#DoIt "a CompiledMethod(638582784)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'ChdExpress2cheddarSchemaInstance initialize.' Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044291 readLimit: 1044292 writeLimit: 1044292 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044291 readLimit: 1044292 writeLimit: 1044292 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044292 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044292 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044292 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044292 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044292 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (636@452) argMinVal: 0 argMaxVal: 1044292 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044292 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (636@452) minVal: 0 maxVal: 1044292 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 1044292 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044291 readLimit: 1044292 writeLimit: 1044292 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044291 readLimit: 1044292 writeLimit: 1044292 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaInstance ...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(413401088)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(413401088)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 15024790 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (256@87) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(413401088)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(413401088)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>initialize UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:42:32.785 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>initialize Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'ChdExpress2cheddarSchemaInstance initialize.' aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ ChdExpress2cheddarSchemaInstance initialize method: (UndefinedObject>>#DoIt "a CompiledMethod(323747840)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'ChdExpress2cheddarSchemaInstance initialize.' Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (636@452) argMinVal: 0 argMaxVal: 1044270 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (636@452) minVal: 0 maxVal: 1044270 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 1044270 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaInstance ...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(391380992)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(391380992)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 15330358 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (287@89) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(391380992)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(391380992)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>initialize UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:43:51.164 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>DoItIn: Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: ThisContext: ChdExpress2cheddarSchemaInstance class>>initialize Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: ChdExpress2cheddarSchemaInstance class>>initialize receiver: ChdExpress2cheddarSchemaInstance aRequestor: a TextMorphForEditView(944504832) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoItIn: ThisContext ^ self singleton buildIndexes method: (ChdExpress2cheddarSchemaInstance class>>#DoItIn: "a CompiledMethod(219...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(944504832) class: ChdExpress2cheddarSchemaInstance class category: nil context: ChdExpress2cheddarSchemaInstance class>>initialize parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: ChdExpress2cheddarSchemaInstance ctxt: ChdExpress2cheddarSchemaInstance class>>initialize Receiver's instance variables: morph: a TextMorphForEditView(944504832) selectionShowing: true model: a Debugger editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: ChdExpress2cheddarSchemaInstance ctxt: ChdExpress2cheddarSchemaInstance class>>initialize Receiver's instance variables: morph: a TextMorphForEditView(944504832) selectionShowing: true model: a Debugger editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(944504832) selectionShowing: true model: a Debugger editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(1038876672) Arguments and temporary variables: Receiver's instance variables: bounds: (218.0@324.0) corner: (1054.0@673.0) owner: an AlignmentMorph(203161600) submorphs: an Array(a TransformMorph(230948864)) fullBounds: (218@324) corner: (1054@673) color: Color white extension: a MorphExtension (923271168) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Debugger open: false accessor: nil scrollBar: a ScrollBar(1066663936) scroller: a TransformMorph(230948864) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(117178368) textMorph: a TextMorphForEditView(944504832) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(1038876672) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (218.0@324.0) corner: (1054.0@673.0) owner: an AlignmentMorph(203161600) submorphs: an Array(a TransformMorph(230948864)) fullBounds: (218@324) corner: (1054@673) color: Color white extension: a MorphExtension (923271168) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Debugger open: false accessor: nil scrollBar: a ScrollBar(1066663936) scroller: a TransformMorph(230948864) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(117178368) textMorph: a TextMorphForEditView(944504832) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(944504832) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (830@82) owner: a TransformMorph(230948864) submorphs: #() fullBounds: (0@0) corner: (830@82) color: Color black extension: a MorphExtension (1027080192) [other: (myDependents -> a Dependents...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initialize self reinitializeSingleton. self singleton build...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(1038876672) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(1038876672) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (218.0@324.0) corner: (1054.0@673.0) owner: an AlignmentMorph(203161600) submorphs: an Array(a TransformMorph(230948864)) fullBounds: (218@324) corner: (1054@673) color: Color white extension: a MorphExtension (923271168) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Debugger open: false accessor: nil scrollBar: a ScrollBar(1066663936) scroller: a TransformMorph(230948864) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(117178368) textMorph: a TextMorphForEditView(944504832) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(1038876672) Arguments and temporary variables: Receiver's instance variables: bounds: (218.0@324.0) corner: (1054.0@673.0) owner: an AlignmentMorph(203161600) submorphs: an Array(a TransformMorph(230948864)) fullBounds: (218@324) corner: (1054@673) color: Color white extension: a MorphExtension (923271168) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Debugger open: false accessor: nil scrollBar: a ScrollBar(1066663936) scroller: a TransformMorph(230948864) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(117178368) textMorph: a TextMorphForEditView(944504832) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(1038876672) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(1038876672) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(1038876672) secondArg: a PluggableTextMorph(1038876672) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(1038876672) secondArg: a PluggableTextMorph(1038876672) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(1038876672) category: a KMCategory morph: a PluggableTextMorph(1038876672) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(1038876672) category: a KMCategory morph: a PluggableTextMorph(1038876672) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1038876672) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 5 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(a KMCategoryTarget nil nil nil a KMCategoryTarget a KMCategoryT...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1038876672) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1038876672) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(1038876672) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(1038876672) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (218.0@324.0) corner: (1054.0@673.0) owner: an AlignmentMorph(203161600) submorphs: an Array(a TransformMorph(230948864)) fullBounds: (218@324) corner: (1054@673) color: Color white extension: a MorphExtension (923271168) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Debugger open: false accessor: nil scrollBar: a ScrollBar(1066663936) scroller: a TransformMorph(230948864) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(117178368) textMorph: a TextMorphForEditView(944504832) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(230948864) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(230948864) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(230948864) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (218.0@324.0) corner: (1054.0@673.0) owner: a PluggableTextMorph(1038876672) submorphs: an Array(a TextMorphForEditView(944504832)) fullBounds: (218.0@324.0) corner: (1054.0@673.0) color: Color transparent extension: a MorphExtension (238288896) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-221.0@ -324....etc... smoothing: 1 localBounds: (0@0) corner: (830@82) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>DoItIn: Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:45:07.974 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | (PlatypusPharoSmalltalk at: schi) singleton context: aContext] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>context: Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: aContext: #PTsCheddarTypesSchemaInstance schi: a PlatypusCoreRunningContext Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: nil altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: nil altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: a PlatypusCoreRunningContext Array(SequenceableCollection)>>do: Receiver: #(#PltPlatypusMetaSchemasSchemaInstance #PTsCheddarTypesSchemaInstance #PtsTbxPlatypustool...etc... Arguments and temporary variables: aBlock: [:schi | (PlatypusPharoSmalltalk at: schi) singleton context: aContext]...etc... index: 2 indexLimiT: 3 Receiver's instance variables: #(#PltPlatypusMetaSchemasSchemaInstance #PTsCheddarTypesSchemaInstance #PtsTbxPlatypustool...etc... ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>context: Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: aContext: a PlatypusCoreRunningContext Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: nil altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: nil altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: a PlatypusCoreRunningContext ChdExpress2cheddarSchemaInstance>>context: Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: aContext: a PlatypusCoreRunningContext Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: nil altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: nil altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: a PlatypusCoreRunningContext ChdExpress2cheddarRepository(PlatypusCoreRepository)>>asSchemaInstanceContext Receiver: a ChdExpress2cheddarRepository Arguments and temporary variables: Receiver's instance variables: instanceByOidIndex: a Dictionary() oidByInstanceIndex: an IdentityDictionary() header: nil metaDataSchemaInstance: a ChdExpress2cheddarSchemaInstance ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: nil Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(870318080) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(184287232)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(870318080) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(870318080) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (447.0@616.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (447@616) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (447.0@616.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (447@616) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(870318080) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (394@18) owner: a TransformMorph(171442176) submorphs: #() fullBounds: (0@0) corner: (394@18) color: Color black extension: a MorphExtension (952893440) [other: (blinkStart -> 15537441) (kmDi...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run' wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(973864960) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (45.0@431.0) corner: (447.0@616.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (447@616) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(973864960) Arguments and temporary variables: Receiver's instance variables: bounds: (45.0@431.0) corner: (447.0@616.0) owner: a SystemWindow(554172416) submorphs: an Array(a TransformMorph(171442176)) fullBounds: (45@431) corner: (447@616) color: Color white extension: a MorphExtension (849084416) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(1001652224) scroller: a TransformMorph(171442176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(57671680) textMorph: a TextMorphForEditView(870318080) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(973864960) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(973864960) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(973864960) secondArg: a PluggableTextMorph(973864960) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(973864960) secondArg: a PluggableTextMorph(973864960) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(973864960) category: a KMCategory morph: a PluggableTextMorph(973864960) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(973864960) category: a KMCategory morph: a PluggableTextMorph(973864960) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(973864960) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 2 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget nil a ...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(973864960) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(973864960) directKeymaps: a KMCategory --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | (PlatypusPharoSmalltalk at: schi) singleton context: aContext] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>context: Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>context: ChdExpress2cheddarSchemaInstance>>context: ChdExpress2cheddarRepository(PlatypusCoreRepository)>>asSchemaInstanceContext ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:48:04.728 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>initialize Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'ChdExpress2cheddarSchemaInstance initialize.' aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ ChdExpress2cheddarSchemaInstance initialize method: (UndefinedObject>>#DoIt "a CompiledMethod(878706688)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'ChdExpress2cheddarSchemaInstance initialize.' Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (636@452) argMinVal: 0 argMaxVal: 1044270 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (636@452) minVal: 0 maxVal: 1044270 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 1044270 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaInstance ...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 15661931 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (250@94) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>initialize UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:50:20.338 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>initialize Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'ChdExpress2cheddarSchemaInstance initialize.' aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ ChdExpress2cheddarSchemaInstance initialize method: (UndefinedObject>>#DoIt "a CompiledMethod(878706688)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'ChdExpress2cheddarSchemaInstance initialize.' Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (636@452) argMinVal: 0 argMaxVal: 1044270 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1044270 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (636@452) minVal: 0 maxVal: 1044270 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 1044270 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1044269 readLimit: 1044270 writeLimit: 1044270 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaInstance ...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 15661931 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (250@94) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (385.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (385@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(951582720)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>initialize UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 9:50:42.007 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>DoIt Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: ChdExpress2cheddarSchemaInstance aRequestor: a TextMorphForEditView(360185856) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ self singleton buildIndexes method: (ChdExpress2cheddarSchemaInstance class>>#DoIt "a CompiledMethod(682360...etc... value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(360185856) class: ChdExpress2cheddarSchemaInstance class category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: ChdExpress2cheddarSchemaInstance ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(360185856) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: ChdExpress2cheddarSchemaInstance ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(360185856) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(360185856) selectionShowing: true model: a Browser editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(187957248) Arguments and temporary variables: Receiver's instance variables: bounds: (53.0@283.0) corner: (741.0@526.0) owner: an AlignmentMorph(916455424) submorphs: an Array(a TransformMorph(453771264)) fullBounds: (53@283) corner: (741@526) color: Color white extension: a MorphExtension (338952192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(215744512) scroller: a TransformMorph(453771264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(340000768) textMorph: a TextMorphForEditView(360185856) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(187957248) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (53.0@283.0) corner: (741.0@526.0) owner: an AlignmentMorph(916455424) submorphs: an Array(a TransformMorph(453771264)) fullBounds: (53@283) corner: (741@526) color: Color white extension: a MorphExtension (338952192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(215744512) scroller: a TransformMorph(453771264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(340000768) textMorph: a TextMorphForEditView(360185856) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(360185856) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (682@82) owner: a TransformMorph(453771264) submorphs: #() fullBounds: (0@0) corner: (682@82) color: Color black extension: a MorphExtension (442761216) [other: (myDependents -> a DependentsA...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'initialize self reinitializeSingleton. self singleton build...etc... wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(187957248) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(187957248) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (53.0@283.0) corner: (741.0@526.0) owner: an AlignmentMorph(916455424) submorphs: an Array(a TransformMorph(453771264)) fullBounds: (53@283) corner: (741@526) color: Color white extension: a MorphExtension (338952192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(215744512) scroller: a TransformMorph(453771264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(340000768) textMorph: a TextMorphForEditView(360185856) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(187957248) Arguments and temporary variables: Receiver's instance variables: bounds: (53.0@283.0) corner: (741.0@526.0) owner: an AlignmentMorph(916455424) submorphs: an Array(a TransformMorph(453771264)) fullBounds: (53@283) corner: (741@526) color: Color white extension: a MorphExtension (338952192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(215744512) scroller: a TransformMorph(453771264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(340000768) textMorph: a TextMorphForEditView(360185856) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(187957248) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(187957248) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(187957248) secondArg: a PluggableTextMorph(187957248) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(187957248) secondArg: a PluggableTextMorph(187957248) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(187957248) category: a KMCategory morph: a PluggableTextMorph(187957248) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) Set>>do: Receiver: a Set(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOfIt on Cmd + N do [:mo...etc... Arguments and temporary variables: aBlock: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener ...etc... index: 4 each: #doIt on Cmd + D do [:morph | morph doIt] indexLimiT: 11 Receiver's instance variables: tally: 6 array: an Array(#inspectIt on Cmd + I do [:morph | morph inspectIt] #sendersOf...etc... KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) aBlock: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: Receiver: a KMCategoryTarget Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aListener: a KMDispatcher anAction: [^ self] Receiver's instance variables: target: a PluggableTextMorph(187957248) category: a KMCategory morph: a PluggableTextMorph(187957248) [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: a KMCategoryTarget aTarget: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(187957248) directKeymaps: a KMCategory Set>>do: Receiver: a Set(a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCategoryTarget a KMCate...etc... Arguments and temporary variables: aBlock: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self ...etc... index: 7 each: a KMCategoryTarget indexLimiT: 11 Receiver's instance variables: tally: 5 array: an Array(a KMCategoryTarget nil nil a KMCategoryTarget nil nil a KMCateg...etc... KMDispatcher>>dispatch: Receiver: a KMDispatcher Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) association: nil match: nil Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(187957248) directKeymaps: a KMCategory KMDispatcher>>matchEvent: Receiver: a KMDispatcher Arguments and temporary variables: keyboardEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(187957248) directKeymaps: a KMCategory KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set(a KMCategoryTarget a KMCategoryTarget) morph: a PluggableTextMorph(187957248) directKeymaps: a KMCategory PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a PluggableTextMorph(187957248) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (53.0@283.0) corner: (741.0@526.0) owner: an AlignmentMorph(916455424) submorphs: an Array(a TransformMorph(453771264)) fullBounds: (53@283) corner: (741@526) color: Color white extension: a MorphExtension (338952192) [other: (kmDispatcher -> a KMDispatche...etc... borderWidth: 0 borderColor: Color black model: a Browser open: false accessor: nil scrollBar: a ScrollBar(215744512) scroller: a TransformMorph(453771264) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(340000768) textMorph: a TextMorphForEditView(360185856) getTextSelector: #contents setTextSelector: #contents:notifying: getSelectionSelector: #contentsSelection hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (69 to: 68) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil KMTarget>>dispatchOwnerKeystroke: Receiver: a KMTarget Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: realTarget: nil morph: a TransformMorph(453771264) targetSelector: #yourself directKeymaps: nil perInstanceCategories: nil KMDispatcher>>dispatchKeystroke: Receiver: a KMDispatcher Arguments and temporary variables: aKeyEvent: [keystroke ''] Receiver's instance variables: target: a KMTarget buffer: an OrderedCollection() shortcut: currentEvent: [keystroke ''] targets: a Set() morph: a TransformMorph(453771264) directKeymaps: a KMCategory TransformMorph(Morph)>>dispatchKeystrokeForEvent: Receiver: a TransformMorph(453771264) Arguments and temporary variables: evt: [keystroke ''] Receiver's instance variables: bounds: (53@283) corner: (741@526) owner: a PluggableTextMorph(187957248) submorphs: an Array(a TextMorphForEditView(360185856)) fullBounds: (53@283) corner: (741@526) color: Color transparent extension: a MorphExtension (461111296) [other: (kmDispatcher -> a KMDispatche...etc... transform: a MorphicTransform(angle = 0.0; scale = 1.0; offset = (-56@ -283)) smoothing: 1 localBounds: (0@0) corner: (682@82) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingContext: 14 January 2013 9:52:14.273 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingCo...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a PltEntityDefinition a ChdUnmappedEntityDefinition) Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a PltEntityDefinition a ChdUnmappedEntityDefinition nil nil nil...etc... firstIndex: 1 lastIndex: 2 PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... ChdExplicitAttributePutFunction>>invoke Receiver: a ChdExplicitAttributePutFunction Arguments and temporary variables: Receiver's instance variables: attr: a PltExplicitAttribute code: 'put("poilaupubix_id: "); ' prfx: '' domain: a PlatypusComplexInstance ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributePutFunction Arguments and temporary variables: values: an OrderedCollection(a PltExplicitAttribute) algo: a ChdExplicitAttributePutFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributePutFunction>>#attr "...etc... format: 138 instanceVariables: #('attr' 'code' 'prfx' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributePutFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:attr458227712 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr458227712; yourself))) pltPlus: '\n')] in [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no247726080) statementsBlock: [:attr458227712 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr458227712; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: attr458227712: a PltExplicitAttribute Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in PortType) is \nbegin\n' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:attr458227712 | self code: (((self code pltPlus: '\t') ...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:attr458227712 | self code: (((self code pltPlus: '\t...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no247726080) statementsBlock: [:attr458227712 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr458227712; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: no247726080: 1 Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in PortType) is \nbegin\n' [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 5 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 5 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in PortType) is \nbegin\n' ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassPutCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassPutCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassPutCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassPutCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClassAdbCodeFunction>>invoke Receiver: a ChdAdaClassAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: nil ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassAdbCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adbCodeUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'PortType' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil isPrivate: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c909377536; yourself)) ifTrue: [self ads ifTrue: [self code: (c909377536 adsCodeUsingContext: self class context)] ifFalse: [self code: (c909377536 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltAt: no873725952) statementsBlock: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c909377536; yourself)) ifTrue: [self ads ifTrue: [self code: (c909377536 adsCodeUsingContext: self class context)] ifFalse: [self code: (c909377536 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c909377536: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '\n-- --------= PartitionType =--------\n\nprocedure Initialize(obj : o...etc... code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFrom...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invo...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltAt: no873725952) statementsBlock: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c909377536; yourself)) ifTrue: [self ads ifTrue: [self code: (c909377536 adsCodeUsingContext: self class context)] ifFalse: [self code: (c909377536 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no873725952: 25 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '\n-- --------= PartitionType =--------\n\nprocedure Initialize(obj : o...etc... code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... p: 25 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... p: 25 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... start: 1 stop: 36 p: 25 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltA...etc... start: 1 stop: 36 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '\n-- --------= PartitionType =--------\n\nprocedure Initialize(obj : o...etc... code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdbCodeFunction>>invoke Receiver: a ChdAdaPackageAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdAdaPackageAdbCodeFunction>>#fr...etc... format: 134 instanceVariables: #('pkg' 'result') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adbCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Partition' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: true Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: ChdExplicitAttributePutFunction>>invoke ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:attr458227712 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr458227712; yourself))) pltPlus: '\n')] in [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no247726080) statementsBlock: [:attr458227712 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr458227712; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no247726080 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no247726080) statementsBlock: [:attr458227712 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr458227712; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaClassPutCodeFunction>>invoke ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClassAdbCodeFunction>>invoke ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adbCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c909377536; yourself)) ifTrue: [self ads ifTrue: [self code: (c909377536 adsCodeUsingContext: self class context)] ifFalse: [self code: (c909377536 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltAt: no873725952) statementsBlock: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c909377536; yourself)) ifTrue: [self ads ifTrue: [self code: (c909377536 adsCodeUsingContext: self class context)] ifFalse: [self code: (c909377536 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no873725952 | PlatypusCoreAliasStatement alias: (self contents pltAt: no873725952) statementsBlock: [:c909377536 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c909377536; yourself)) ifTrue: [self ads ifTrue: [self code: (c909377536 adsCodeUsingContext: self class context)] ifFalse: [self code: (c909377536 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdbCodeFunction>>invoke ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adbCodeUsingContext:receiver: Message>>sendTo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:no974913536 | self ads ifTrue: [self body: ((self pkgs pltAt: no974913536) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no974913536) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusExpressSemanticCheckerError class>>message:path: 14 January 2013 10:02:30.404 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusExpressSemanticCheckerError class(Object)>>doesNotUnderstand: #message:path: Receiver: PlatypusExpressSemanticCheckerError Arguments and temporary variables: aMessage: message: 'domain incompatibility in binary expression, lhs domain : e...etc... exception: MessageNotUnderstood: PlatypusExpressSemanticCheckerError class>>mes...etc... resumeValue: nil Receiver's instance variables: superclass: PlatypusVisitorError methodDict: a MethodDictionary() format: 138 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #PlatypusExpressSemanticCheckerError classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-visitors' traitComposition: {} localSelectors: nil PlatypusExpressSemanticChecker>>checksBinaryOperator:testBlock: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltPlusExpression aBlock: [:domain1 :domain2 | (domain1 isPltNumberType and: [domain2 isPltNum...etc... linfered: a PltEntityDefinition rinfered: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptPlusExpression: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPlusExpression selector: #acceptPlusExpression: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltPlusExpression aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltPlusExpression Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PltPlusExpression(Object)>>acceptTry: Receiver: a PltPlusExpression Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltDerivedAttribute cachedDomain: nil rightExpr: a PltIdentifier('ada_interface') parenthesis: nil leftExpr: a PltQualifiedExpression PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDerivedAttribute: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptDerivedAttribute: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDerivedAttribute selector: #acceptDerivedAttribute: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltDerivedAttribute aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltDerivedAttribute Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PltDerivedAttribute(Object)>>acceptTry: Receiver: a PltDerivedAttribute Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltEntityDefinition domain: a PltListType redeclaring: a PltAttributeReference name: 'ads_interfaces_list' assign: a PltPlusExpression [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltDerivedAttribute a PltDerivedAttribute) Arguments and temporary variables: aVisitor: a PltDerivedAttribute el: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltDerivedAttribute a PltDerivedAttribute nil nil nil nil nil...etc... firstIndex: 1 lastIndex: 2 OrderedCollection>>do: Receiver: an OrderedCollection(a PltDerivedAttribute a PltDerivedAttribute) Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 1 Receiver's instance variables: array: an Array(a PltDerivedAttribute a PltDerivedAttribute nil nil nil nil nil...etc... firstIndex: 1 lastIndex: 2 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltDerivedAttribute a PltDerivedAttribute) Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltDerivedAttribute a PltDerivedAttribute nil nil nil nil nil...etc... firstIndex: 1 lastIndex: 2 PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptEntityDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptEntityDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltEntityDefinition selector: #acceptEntityDefinition: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acce...etc... startpc: 28 numArgs: 0 PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObjectOrCollection: a PltEntityDefinition aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltEntityDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PltEntityDefinition(Object)>>acceptTry: Receiver: a PltEntityDefinition Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: a Dictionary('ADS_INTERFACES_LIST'->a Set(a PltDerivedAttribu...etc... whereRules: an OrderedCollection() name: 'cheddar_xml_id_type' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltDerivedAttribute a PltDerivedAttribute) supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: nil [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinition a PltEntityDefinition a P...etc... Arguments and temporary variables: aVisitor: a PltEntityDefinition el: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinition a PltEntityDefiniti...etc... firstIndex: 1 lastIndex: 33 OrderedCollection>>do: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinition a PltEntityDefinition a P...etc... Arguments and temporary variables: aBlock: [:el | el acceptTry: aVisitor] index: 15 Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinition a PltEntityDefiniti...etc... firstIndex: 1 lastIndex: 33 OrderedCollection(Collection)>>acceptTry: Receiver: an OrderedCollection(a PltEntityDefinition a PltEntityDefinition a PltEntityDefinition a P...etc... Arguments and temporary variables: aVisitor: a PlatypusExpressSemanticChecker Receiver's instance variables: array: an Array(a PltEntityDefinition a PltEntityDefinition a PltEntityDefiniti...etc... firstIndex: 1 lastIndex: 33 PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptContextDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptContextDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker>>acceptSchemaDefinition: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: e: a PltSchemaDefinition Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressSemanticChecker Arguments and temporary variables: anObject: a PltSchemaDefinition selector: #acceptSchemaDefinition: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressSemanticChecker->#...etc... objectsWithErrorIndex: an IdentitySet() visited: an IdentityDictionary(size 9220) schemaInstance: nil --- The full stack --- PlatypusExpressSemanticCheckerError class(Object)>>doesNotUnderstand: #message:path: PlatypusExpressSemanticChecker>>checksBinaryOperator:testBlock: PlatypusExpressSemanticChecker>>acceptPlusExpression: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltPlusExpression(Object)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptDerivedAttribute: PlatypusExpressSemanticChecker>>acceptDerivedAttribute: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltDerivedAttribute(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptEntityDefinition: PlatypusExpressSemanticChecker>>acceptEntityDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltEntityDefinition(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptContextDefinition: PlatypusExpressSemanticChecker>>acceptContextDefinition: PlatypusExpressSemanticChecker(PlatypusStepAbstractVisitor)>>acceptSchemaDefinition: PlatypusExpressSemanticChecker>>acceptSchemaDefinition: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaDefinition(Object)>>acceptTry: [:el | el acceptTry: aVisitor] in OrderedCollection(Collection)>>acceptTry: OrderedCollection>>do: OrderedCollection(Collection)>>acceptTry: PlatypusExpressSemanticChecker>>acceptSchemaInstance: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressSemanticChecker(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressSemanticChecker(PlatypusStepOnePassAbstractVisitor)>>acceptTry: PltSchemaInstance(Object)>>acceptTry: PlatypusExpressSemanticChecker>>checks: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks:owners: PlatypusExpressSemanticChecker class(PlatypusExpressChecker class)>>checks: PltSchemaInstance>>semanticChecksSilently PltSchemaInstance>>verifySilently PlatypusSchemaInstanceReference>>verifySilently PlatypusSchemaReference(PlatypusExpressReference)>>updateWithParserResult: [self updateWithParserResult: result] in PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: BlockClosure>>on:do: PlatypusSchemaReference(PlatypusExpressReference)>>accept:notifying: PlatypusExpressEditor(PlatypusCodeMorph)>>contents:notifying: [^ setTextSelector isNil or: [setTextSelector numArgs = 2 ifTrue: [model perform: setTextSelector with: acceptedText with: self] ifFalse: [model perform: setTextSelector with: acceptedText]]] in PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel BlockClosure>>ensure: PlatypusStepCodeMorph(PluggableTextMorph)>>acceptTextInModel PlatypusStepCodeMorph(PluggableTextMorph)>>acceptBasic PlatypusStepCodeMorph(PluggableTextMorph)>>accept PlatypusTextMorphForEditView(TextMorphForEditView)>>acceptContents PlatypusStepEditor(TextEditor)>>accept PlatypusStepEditor(TextEditor)>>accept: PlatypusStepEditor(TextEditor)>>performCmdActionsWith:shifted:return: PlatypusStepEditor(TextEditor)>>dispatchCommandOn:return: PlatypusStepEditor(TextEditor)>>dispatchOn: [self dispatchOn: aKeyboardEvent] in PlatypusStepEditor(TextEditor)>>keystroke: PlatypusStepEditor(TextEditor)>>handleKeystrokeAction: PlatypusStepEditor(TextEditor)>>handleEditionAction:fromKeyboardEvent: PlatypusStepEditor(TextEditor)>>keystroke: [editor keystroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleInteraction: PlatypusTextMorphForEditView(TextMorphForEditView)>>handleInteraction: PlatypusTextMorphForEditView(TextMorph)>>basicKeyStroke: [self basicKeyStroke: evt] in PlatypusTextMorphForEditView(TextMorph)>>keyStroke: NOCController class(NECController class)>>codeCompletionAround:textMorph:keyStroke: ToolRegistry>>codeCompletionAround:textMorph:keyStroke: PlatypusTextMorphForEditView(TextMorph)>>keyStroke: PlatypusTextMorphForEditView(TextMorphForEditView)>>keyStroke: PlatypusTextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: PlatypusTextMorphForEditView(Morph)>>handleEvent: PlatypusTextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "singleton" is nil 14 January 2013 10:06:31.073 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #singleton Receiver: nil Arguments and temporary variables: aMessage: singleton exception: MessageNotUnderstood: receiver of "singleton" is nil resumeValue: nil Receiver's instance variables: nil [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: nil schi: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil Array(SequenceableCollection)>>do: Receiver: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} Arguments and temporary variables: aBlock: [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] index: 2 indexLimiT: 3 Receiver's instance variables: {PltPlatypusMetaSchemasSchemaInstance. nil. PtsTbxPlatypustoolboxSchemaInstance} ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: codeStream: a WriteStream Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: schemaInstance: nil Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes Receiver: a ChdExpress2cheddarSchemaInstance Arguments and temporary variables: < Receiver's instance variables: metaData: nil owner: nil metaDataByClassNameIndex: an IdentityDictionary() altMetaDataByClassNameIndex: nil classNamesByMetaDataNameIndex: an IdentityDictionary() altClassNamesByMetaDataNameIndex: nil splitMarkStack: an OrderedCollection() context: nil ChdExpress2cheddarSchemaInstance class>>initialize Receiver: ChdExpress2cheddarSchemaInstance Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreSchemaInstance methodDict: a MethodDictionary(#context->(ChdExpress2cheddarSchemaInstance>>#co...etc... format: 146 instanceVariables: #('context') organization: ('platypus-generated-accessing' externalSchemaInstanceClassNames ...etc... subclasses: nil name: #ChdExpress2cheddarSchemaInstance classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarSchemaInstance' traitComposition: {} localSelectors: nil singleton: a ChdExpress2cheddarSchemaInstance UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'ChdExpress2cheddarSchemaInstance initialize.' aContext: nil receiver: nil aRequestor: nil failBlock: [^ nil] logFlag: true methodNode: DoIt ^ ChdExpress2cheddarSchemaInstance initialize method: (UndefinedObject>>#DoIt "a CompiledMethod(747896832)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadStream requestor: nil class: UndefinedObject category: nil context: nil parser: a Parser Compiler class>>evaluate:for:notifying:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil aController: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:for:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' anObject: nil logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil Compiler class>>evaluate:logged: Receiver: Compiler Arguments and temporary variables: textOrString: 'ChdExpress2cheddarSchemaInstance initialize.' logFlag: true Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#compile:in:classified:notifying:ifFail:->(Compi...etc... format: 142 instanceVariables: #('sourceStream' 'requestor' 'class' 'category' 'context' 'p...etc... organization: ('error handling' interactive notify: notify:at:) ('public access...etc... subclasses: nil name: #Compiler classPool: a Dictionary() sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Compiler-Kernel' traitComposition: nil localSelectors: nil [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: 'ChdExpress2cheddarSchemaInstance initialize.' Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1048007 readLimit: 1048008 writeLimit: 1048008 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1048007 readLimit: 1048008 writeLimit: 1048008 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048008 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048008 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048008 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048008 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(869793792)") closureOrNil: nil receiver: [aBlock value] ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048008 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: argString: 'Reading a stream' argPoint: (636@452) argMinVal: 0 argMaxVal: 1048008 argWorkBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048008 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: 'Reading a stream' aPoint: (636@452) minVal: 0 maxVal: 1048008 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 152 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('*Morphic' defaultMorphicAction) ('accessing' maxVal minVal poin...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'UIManager-Support' traitComposition: nil localSelectors: nil ByteString(String)>>displayProgressFrom:to:during: Receiver: 'Reading a stream' Arguments and temporary variables: minVal: 0 maxVal: 1048008 workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... Receiver's instance variables: 'Reading a stream' ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: announcement: 'Reading a stream' val: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1048007 readLimit: 1048008 writeLimit: 1048008 ReadWriteStream(PositionableStream)>>fileIn Receiver: a ReadWriteStream Arguments and temporary variables: Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 1048007 readLimit: 1048008 writeLimit: 1048008 PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaInstance ...etc... Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 16768316 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (227@89) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #singleton [:schi | codeStream nextPutAll: schi singleton expressSchemaCode] in ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode Array(SequenceableCollection)>>do: ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>completeExpressSchemaCode ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>parsedMetaSchemaInstance ChdExpress2cheddarSchemaInstance(PlatypusCoreSchemaInstance)>>buildIndexes ChdExpress2cheddarSchemaInstance class>>initialize UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 14 January 2013 10:08:17.025 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusExpressStructure2PharoTranslater(Object)>>halt Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance selector: nil clsName: 'ChdExpress2cheddarSchemaInstance' code: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance clsName: 'ChdExpress2cheddarSchemaInstance' Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schem...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure...etc... startpc: 60 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassName...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance aTranslater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance translater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aTranslator: a PlatypusToPharoTranslater Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection([cheddar: /express2cheddar/expres...etc... TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 16939111 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (228@90) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (287.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(906493952) a ScrollBar(1020264448) a TamHierarc...etc... fullBounds: (161@68) corner: (287@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(87293952)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 416.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (228@90) corner: (244@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(228@90) mouseOver nil nil] targetOffset: (67.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 16936127 228 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (228@90) corner: (244@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(228@90) mouseOver nil nil] targetOffset: (67.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 16936127 228 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (228@90) corner: (244@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(228@90) mouseOver nil nil] targetOffset: (67.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 16936127 228 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (228@90) corner: (244@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(228@90) mouseOver nil nil] targetOffset: (67.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 16936127 228 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (228@90) corner: (244@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(228@90) mouseOver nil nil] targetOffset: (67.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 16936127 228 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 16939111 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (228@90) corner: (244@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(228@90) mouseOver nil nil] targetOffset: (67.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 16936127 228 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(157286400))(an Ove...etc... lastStepTime: 16940069 lastStepMessage: nil lastCycleTime: 16940066 alarms: a Heap() lastAlarmTime: 16940069 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(157286400))(an Ove...etc... lastStepTime: 16940069 lastStepMessage: nil lastCycleTime: 16940066 alarms: a Heap() lastAlarmTime: 16940069 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- PlatypusExpressStructure2PharoTranslater(Object)>>halt PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 14 January 2013 10:13:35.988 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusExpressStructure2PharoTranslater(Object)>>halt Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance selector: nil clsName: 'ChdExpress2cheddarSchemaInstance' code: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance clsName: 'ChdExpress2cheddarSchemaInstance' Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schem...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure...etc... startpc: 60 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassName...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance aTranslater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance translater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aTranslator: a PlatypusToPharoTranslater Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: result: nil fileName: nil fileStream: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $t aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $t aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $t tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $t Receiver's instance variables: bounds: (161.0@68.0) corner: (282.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (282@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(773062656)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (282.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (282@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(773062656)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 17258079 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (218@88) handler: nil wasHandled: true keyValue: 116 charCode: 116 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (282.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (282@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(773062656)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (282.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (282@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(773062656)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (218@88) corner: (234@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (218@88) corner: (234@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(218@88) mouseOver nil nil] targetOffset: (10.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17256669 218 88 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (218@88) corner: (234@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (218@88) corner: (234@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(218@88) mouseOver nil nil] targetOffset: (10.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17256669 218 88 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (218@88) corner: (234@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (218@88) corner: (234@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(218@88) mouseOver nil nil] targetOffset: (10.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17256669 218 88 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (218@88) corner: (234@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (218@88) corner: (234@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(218@88) mouseOver nil nil] targetOffset: (10.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17256669 218 88 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (218@88) corner: (234@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (218@88) corner: (234@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(218@88) mouseOver nil nil] targetOffset: (10.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17256669 218 88 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 17258079 116 0 8 116 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (218@88) corner: (234@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (218@88) corner: (234@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(218@88) mouseOver nil nil] targetOffset: (10.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17256669 218 88 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a SystemWindow(1053032448))(a SystemWi...etc... lastStepTime: 17258715 lastStepMessage: nil lastCycleTime: 17258715 alarms: a Heap() lastAlarmTime: 17258715 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a SystemWindow(1053032448))(a SystemWi...etc... lastStepTime: 17258715 lastStepMessage: nil lastCycleTime: 17258715 alarms: a Heap() lastAlarmTime: 17258715 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- PlatypusExpressStructure2PharoTranslater(Object)>>halt PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>menuTranslate2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltUsedSchema>>removeFrom: 14 January 2013 10:14:30.12 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: Receiver: a PltUsedSchema Arguments and temporary variables: aMessage: removeFrom: a PltSchemaDefinition exception: MessageNotUnderstood: PltUsedSchema>>removeFrom: resumeValue: nil Receiver's instance variables: owner: a PltSchemaDefinition name: 'cheddar_types' nativeSchema: a PltSchemaDefinition explicitlyImportedItems: an OrderedCollection() implicitlyImportedItems: an OrderedCollection() PltSchemaDefinition(PltContextDefinition)>>removeElement: Receiver: a PltSchemaDefinition Arguments and temporary variables: aPrimaryElement: a PltUsedSchema Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: a Dictionary() types: an OrderedCollection() constants: an OrderedCollection(a PltConstantDefinition a PltConstantDefinition...etc... identifiersCache: a Dictionary('ADA_PACKAGE_NAMED'->a Set(a PltFunctionDeclarat...etc... name: 'express2cheddar_facade' algorithmes: an OrderedCollection(a PltFunctionDeclaration a PltFunctionDeclara...etc... entities: an OrderedCollection() interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: Receiver: [cheddar: /express2cheddar/express2cheddar_facade] Arguments and temporary variables: aReference: use from cheddar_types Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'express2cheddar_facade' metaData: a PltSchemaDefinition generatedClassRef: nil [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from cheddar_types Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema BlockClosure>>ensure: Receiver: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSil...etc... startpc: 43 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently Receiver: use from cheddar_types Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>remove Receiver: use from cheddar_types Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete Receiver: use from cheddar_types Arguments and temporary variables: message: ' really remove this link ? ' Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: Receiver: use from cheddar_types Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $x tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $x Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(812908544)'use from cheddar_types' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(812908544)'use from cheddar_types' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 17310884 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (308@145) handler: nil wasHandled: true keyValue: 120 charCode: 120 scanCode: 7 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(812908544)'use from cheddar_types' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(812908544)'use from cheddar_types' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (359@185) corner: (375@201) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (359@185) corner: (375@201) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(359@185) mouseOver nil nil] targetOffset: (12.0@6.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17312338 359 185 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (359@185) corner: (375@201) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (359@185) corner: (375@201) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(359@185) mouseOver nil nil] targetOffset: (12.0@6.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17312338 359 185 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (359@185) corner: (375@201) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (359@185) corner: (375@201) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(359@185) mouseOver nil nil] targetOffset: (12.0@6.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17312338 359 185 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (359@185) corner: (375@201) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (359@185) corner: (375@201) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(359@185) mouseOver nil nil] targetOffset: (12.0@6.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17312338 359 185 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (359@185) corner: (375@201) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (359@185) corner: (375@201) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(359@185) mouseOver nil nil] targetOffset: (12.0@6.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17312338 359 185 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 17310884 120 0 8 120 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (359@185) corner: (375@201) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (359@185) corner: (375@201) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(359@185) mouseOver nil nil] targetOffset: (12.0@6.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17312338 359 185 0 0 0 1) lastKeyScanCode: 7 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(339214336))(an Ove...etc... lastStepTime: 17312979 lastStepMessage: nil lastCycleTime: 17312979 alarms: a Heap() lastAlarmTime: 17312979 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(339214336))(an Ove...etc... lastStepTime: 17313006 lastStepMessage: nil lastCycleTime: 17313006 alarms: a Heap() lastAlarmTime: 17313006 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(339214336))(an Ove...etc... lastStepTime: 17313006 lastStepMessage: nil lastCycleTime: 17313006 alarms: a Heap() lastAlarmTime: 17313006 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(339214336))(an Ove...etc... lastStepTime: 17313006 lastStepMessage: nil lastCycleTime: 17313006 alarms: a Heap() lastAlarmTime: 17313006 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- PltUsedSchema(Object)>>doesNotUnderstand: #removeFrom: PltSchemaDefinition(PltContextDefinition)>>removeElement: PlatypusSchemaReference(PlatypusExpressReference)>>removeChildSilently: [owner ifNotNil: [owner removeChildSilently: self]. self destroy] in PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusSchemaInterfaceReference(TamListItemReference)>>removeSilently PlatypusSchemaInterfaceReference(TamListItemReference)>>remove PlatypusSchemaInterfaceReference(TamListItemAbstractLinkReference)>>menuDelete PlatypusSchemaInterfaceReference(TamListItemReference)>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 14 January 2013 10:19:48.531 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusExpressStructure2PharoTranslater(Object)>>halt Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance selector: nil clsName: 'ChdExpress2cheddarSchemaInstance' code: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance clsName: 'ChdExpress2cheddarSchemaInstance' Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schem...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure...etc... startpc: 60 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassName...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance aTranslater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance translater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aTranslator: a PlatypusToPharoTranslater Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 17630465 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (343@90) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 402.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (343@90) corner: (359@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(343@90) mouseOver nil nil] targetOffset: (182.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17627234 343 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (343@90) corner: (359@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(343@90) mouseOver nil nil] targetOffset: (182.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17627234 343 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (343@90) corner: (359@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(343@90) mouseOver nil nil] targetOffset: (182.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17627234 343 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (343@90) corner: (359@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(343@90) mouseOver nil nil] targetOffset: (182.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17627234 343 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (343@90) corner: (359@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(343@90) mouseOver nil nil] targetOffset: (182.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17627234 343 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 17630465 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (343@90) corner: (359@106) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(343@90) mouseOver nil nil] targetOffset: (182.0@22.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17627234 343 90 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(157286400))(an Ove...etc... lastStepTime: 17631259 lastStepMessage: nil lastCycleTime: 17631259 alarms: a Heap() lastAlarmTime: 17631259 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(339214336))(an Ove...etc... lastStepTime: 17631304 lastStepMessage: nil lastCycleTime: 17631304 alarms: a Heap() lastAlarmTime: 17631304 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- PlatypusExpressStructure2PharoTranslater(Object)>>halt PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 14 January 2013 10:21:11.011 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusExpressStructure2PharoTranslater(Object)>>halt Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance selector: nil clsName: 'ChdExpress2cheddarSchemaInstance' code: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance clsName: 'ChdExpress2cheddarSchemaInstance' Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schem...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure...etc... startpc: 60 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassName...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance aTranslater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance translater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aTranslator: a PlatypusToPharoTranslater Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 17712945 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (260@89) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(682622976)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 341.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (260@89) corner: (276@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (260@89) corner: (276@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(260@89) mouseOver nil nil] targetOffset: (99.0@21.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17709655 260 89 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (260@89) corner: (276@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (260@89) corner: (276@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(260@89) mouseOver nil nil] targetOffset: (99.0@21.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17709655 260 89 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (260@89) corner: (276@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (260@89) corner: (276@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(260@89) mouseOver nil nil] targetOffset: (99.0@21.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17709655 260 89 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (260@89) corner: (276@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (260@89) corner: (276@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(260@89) mouseOver nil nil] targetOffset: (99.0@21.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17709655 260 89 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (260@89) corner: (276@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (260@89) corner: (276@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(260@89) mouseOver nil nil] targetOffset: (99.0@21.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17709655 260 89 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 17712945 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (260@89) corner: (276@105) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (260@89) corner: (276@105) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(260@89) mouseOver nil nil] targetOffset: (99.0@21.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: false temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 17709655 260 89 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(157286400))(an Ove...etc... lastStepTime: 17713754 lastStepMessage: nil lastCycleTime: 17713754 alarms: a Heap() lastAlarmTime: 17713754 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> an OverflowRowMorph(157286400))(an Ove...etc... lastStepTime: 17713754 lastStepMessage: nil lastCycleTime: 17713754 alarms: a Heap() lastAlarmTime: 17713754 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- PlatypusExpressStructure2PharoTranslater(Object)>>halt PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE Halt 14 January 2013 10:28:13.921 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusExpressStructure2PharoTranslater(Object)>>halt Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance selector: nil clsName: 'ChdExpress2cheddarSchemaInstance' code: #(nil) Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance clsName: 'ChdExpress2cheddarSchemaInstance' Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance selector: #acceptSchemaInstance: Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [^ self performAcceptFor: anObject] Arguments and temporary variables: aBlock: [self popFromVisitPath] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisi...etc... startpc: 28 numArgs: 0 PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObjectOrCollection: a PltSchemaInstance aBlock: [^ self performAcceptFor: anObject] Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: anObject: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: e: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance BlockClosure>>ensure: Receiver: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schem...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure...etc... startpc: 60 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassName...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: Receiver: a PlatypusExpressStructure2PharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance Receiver's instance variables: logClient: nil logLevel: #NoLog visitPath: a PlatypusStack visitErrors: an OrderedCollection() acceptSelectorsMap: a SmallIdentityDictionary(PlatypusExpressStructure2Smalltal...etc... objectsWithErrorIndex: an IdentitySet() resultStream: a WriteStream requestor: nil translationsDone: a Set(a PltSchemaInstance) namesBuilder: a PlatypusNamesBuilder localTranslationOnly: nil schemaInstance: a PltSchemaInstance PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance aTranslater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: Receiver: a PlatypusToPharoTranslater Arguments and temporary variables: aMetaData: a PltSchemaInstance translater: a PlatypusExpressStructure2PharoTranslater Receiver's instance variables: a PlatypusToPharoTranslater PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aTranslator: a PlatypusToPharoTranslater Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: src: nil Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusSchemaInstanceReference>>keyStroke:from: Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: aCharacter: $T aListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $T tamuggableListMorph: a TamHierarchicalListMorph(879493120) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(879493120) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(663224320) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(422051840) listMorph: a TamHierarchicalListMorph(879493120) editorRow: a TamPaneMorph(736624640) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_adl]->a TamPaneMor...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(815005696) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(608436224) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $T Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(148111360)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 375.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(148111360)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 375.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(879493120) Receiver's instance variables: timeStamp: 18135990 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 72 position: (315@91) handler: nil wasHandled: true keyValue: 84 charCode: 84 scanCode: 17 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(148111360)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 375.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(879493120) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (161.0@68.0) corner: (461.0@825.0) owner: a TamPaneMorph(804519936) submorphs: an Array(a ScrollBar(1020264448) a TamHierarchicalListTransformMorph...etc... fullBounds: (161@68) corner: (461@825) color: Color white extension: a MorphExtension (559677440) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(906493952) scroller: a TamHierarchicalListTransformMorph(60293120) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(1020264448) selectedMorph: a TamIndentingListItemMorph(148111360)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 375.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) result: #(nil) Receiver's instance variables: bounds: (315@91) corner: (331@107) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (315@91) corner: (331@107) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(315@91) mouseOver nil nil] targetOffset: (154.0@23.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18133399 315 91 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: true Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(231735296) a Sta...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (315@91) corner: (331@107) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (315@91) corner: (331@107) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(315@91) mouseOver nil nil] targetOffset: (154.0@23.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18133399 315 91 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(879493120) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (315@91) corner: (331@107) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (315@91) corner: (331@107) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(315@91) mouseOver nil nil] targetOffset: (154.0@23.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18133399 315 91 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (315@91) corner: (331@107) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (315@91) corner: (331@107) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(315@91) mouseOver nil nil] targetOffset: (154.0@23.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18133399 315 91 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (315@91) corner: (331@107) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (315@91) corner: (331@107) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(315@91) mouseOver nil nil] targetOffset: (154.0@23.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18133399 315 91 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 18135990 84 0 9 84 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (315@91) corner: (331@107) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (315@91) corner: (331@107) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(879493120) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(315@91) mouseOver nil nil] targetOffset: (154.0@23.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 18133399 315 91 0 0 0 1) lastKeyScanCode: 17 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 9 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a DropListMorph(965214208))(a DropList...etc... lastStepTime: 18136675 lastStepMessage: nil lastCycleTime: 18136673 alarms: a Heap() lastAlarmTime: 18136675 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a DropListMorph(965214208))(a DropList...etc... lastStepTime: 18136675 lastStepMessage: nil lastCycleTime: 18136673 alarms: a Heap() lastAlarmTime: 18136675 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- PlatypusExpressStructure2PharoTranslater(Object)>>halt PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>buildExternalsSchemaInstancesMethodFromSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>doSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptSchemaInstance: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>performAcceptFor: [^ self performAcceptFor: anObject] in PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: BlockClosure>>ensure: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>asVisitPathTop:while: PlatypusExpressStructure2PharoTranslater(PlatypusCoreAbstractVisitor)>>acceptTry: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>acceptTry: [self acceptTry: aMetaData. self fileOutDoIt: (self qualifiedClassNameOf: aMetaData schemaInstance) , ' initialize.'. ^ self finalResult] in PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: PlatypusExpressStructure2PharoTranslater(PlatypusExpressStructure2SmalltalkTranslater)>>translate: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate:withStructureTranslater: PlatypusToPharoTranslater(PlatypusAbstractTranslaterInterface)>>translate: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateWithTranslator: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translated2Pharo PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: OrderedCollection>>useP21Syntax 14 January 2013 10:29:51.871 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax Receiver: an OrderedCollection() Arguments and temporary variables: aMessage: useP21Syntax exception: MessageNotUnderstood: OrderedCollection>>useP21Syntax resumeValue: nil Receiver's instance variables: array: #(nil nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 0 PlatypusStepReference>>useP21Syntax Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:e | e shortName = self generatedCodeTaxonLabel] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusStepReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: <> Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: nil res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection() interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(FUNCTION) stopNode: PlatypusSemicolonToken(;) name: 'all_ada_classes' metaData: a PltFunctionDeclaration generatedClassRef: nil subContents: <> OrderedCollection>>do: Receiver: <> Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: <> PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection() interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(FUNCTION) stopNode: PlatypusSemicolonToken(;) name: 'all_ada_classes' metaData: a PltFunctionDeclaration generatedClassRef: nil subContents: <> [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #functions localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #functionsReferences Array(SequenceableCollection)>>do: Receiver: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_named] [cheddar: /e...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 3 indexLimiT: 8 Receiver's instance variables: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_named] [cheddar: /e...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_na...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #functions localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #functionsReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from express2cheddar_facade Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[interface]] [chedd...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar_facade/[interface]] ...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from express2cheddar_facade Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[i...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_domains/[interface]] Arguments and temporary variables: aBlock: use from express2cheddar_facade aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from express2cheddar_facade use from express_dictionar...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 indexLimiT: 6 Receiver's instance variables: an Array(use from ada_interface use from express2cheddar_facade use from express_dictionar...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_domains/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from ada_interface use from express2cheddar_facade use from ...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_domains Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/cheddar_domains/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/cheddar_domains/[interface]] [cheddar: /ex...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/cheddar_domains/[interface]] [chedda...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_domains Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/cheddar_domains/[interfac...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_constants/[interface]] Arguments and temporary variables: aBlock: use from cheddar_domains aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from cheddar_domains use from express2cheddar_facade u...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 indexLimiT: 6 Receiver's instance variables: an Array(use from ada_interface use from cheddar_domains use from express2cheddar_facade u...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_constants/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from ada_interface use from cheddar_domains use from express...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_constants Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/cheddar_constants/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/cheddar_constants/[interface]] [cheddar: /...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/cheddar_constants/[interface]] [ched...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_constants Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/cheddar_constants/[interf...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/package/[interface]] Arguments and temporary variables: aBlock: use from cheddar_constants aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from cheddar_constants use from cheddar_domains use fr...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 indexLimiT: 9 Receiver's instance variables: an Array(use from ada_interface use from cheddar_constants use from cheddar_domains use fr...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/package/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from ada_interface use from cheddar_constants use from chedd...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from Package Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/package/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/package/[interface]] [cheddar: /express2ch...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/package/[interface]] [cheddar: /expr...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from Package Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/package/[interface]] [che...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[interface]] Arguments and temporary variables: aBlock: use from Package aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from Package use from cheddar_domains use from discriminated_type use from ex...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 indexLimiT: 7 Receiver's instance variables: an Array(use from Package use from cheddar_domains use from discriminated_type use from ex...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from Package use from cheddar_domains use from discriminated...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade] Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'express2cheddar_facade' metaData: a PltSchemaDefinition generatedClassRef: nil OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[interface]] [chedd...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar_facade/[interface]] ...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[i...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'express2cheddar_facade' metaData: a PltSchemaDefinition generatedClassRef: nil --- The full stack --- OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax PlatypusStepReference>>useP21Syntax PlatypusStepReference>>codeText PlatypusStepReference>>shortName [:e | e shortName = self generatedCodeTaxonLabel] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusStepReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: OrderedCollection>>useP21Syntax 14 January 2013 10:30:50.717 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax Receiver: an OrderedCollection() Arguments and temporary variables: aMessage: useP21Syntax exception: MessageNotUnderstood: OrderedCollection>>useP21Syntax resumeValue: nil Receiver's instance variables: array: #(nil nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 0 PlatypusStepReference>>useP21Syntax Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:strm | self longNameOn: strm] in PlatypusStepReference(TamListItemReference)>>longName Receiver: <> Arguments and temporary variables: strm: a WriteStream Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:strm | self longNameOn: strm] stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:strm | self longNameOn: strm] Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepReference(TamListItemReference)>>longName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference(TamListItemReference)>>printOn: Receiver: <> Arguments and temporary variables: aStream: a LimitedWriteStream Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:s | self printOn: s] in PlatypusStepReference(Object)>>printStringLimitedTo: Receiver: <> Arguments and temporary variables: s: a LimitedWriteStream Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> String class(SequenceableCollection class)>>streamContents:limitedTo: Receiver: String Arguments and temporary variables: blockWithArg: [:s | self printOn: s] sizeLimit: 50000 stream: a LimitedWriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepReference(Object)>>printStringLimitedTo: Receiver: <> Arguments and temporary variables: limit: 50000 limitedString: nil Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference(Object)>>printString Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference(Object)>>name Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:e | e name = aName] in [:t | (map := t item findDeeplySuchThat: [:e | e name = aName]) notNil] in Platypus class(Tamaris class)>>itemNamed: Receiver: Platypus Arguments and temporary variables: < Receiver's instance variables: superclass: Tamaris methodDict: a MethodDictionary() format: 148 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #Platypus classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'SqPlatypus-HW-tamaris' traitComposition: {} localSelectors: nil PlatypusStepReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: <> Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusFunctionReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection() interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(FUNCTION) stopNode: PlatypusSemicolonToken(;) name: 'all_ada_classes' metaData: a PltFunctionDeclaration generatedClassRef: nil subContents: <> OrderedCollection>>do: Receiver: <> Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 1 Receiver's instance variables: array: <> PlatypusFunctionReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection() interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(FUNCTION) stopNode: PlatypusSemicolonToken(;) name: 'all_ada_classes' metaData: a PltFunctionDeclaration generatedClassRef: nil subContents: <> [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #functions localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #functionsReferences Array(SequenceableCollection)>>do: Receiver: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_named] [cheddar: /e...etc... Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 3 indexLimiT: 8 Receiver's instance variables: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_named] [cheddar: /e...etc... PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #functions localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #functionsReferences [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: use from express2cheddar_facade Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[interface]] [chedd...etc... Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 2 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar_facade/[interface]] ...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: use from express2cheddar_facade Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_domains/[interface]] Arguments and temporary variables: aBlock: use from express2cheddar_facade aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from express2cheddar_facade use from express_dictionar...etc... Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 2 indexLimiT: 6 Receiver's instance variables: an Array(use from ada_interface use from express2cheddar_facade use from express_dictionar...etc... PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_domains/[interface]] Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: use from cheddar_domains Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/cheddar_domains/[interface]] aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/cheddar_domains/[interface]] [cheddar: /ex...etc... Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/cheddar_domains/[interface]] [chedda...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: use from cheddar_domains Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_constants/[interface]] Arguments and temporary variables: aBlock: use from cheddar_domains aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from cheddar_domains use from express2cheddar_facade u...etc... Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 2 indexLimiT: 6 Receiver's instance variables: an Array(use from ada_interface use from cheddar_domains use from express2cheddar_facade u...etc... PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_constants/[interface]] Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: use from cheddar_constants Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/cheddar_constants/[interface]] aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/cheddar_constants/[interface]] [cheddar: /...etc... Arguments and temporary variables: aBlock: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifN...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/cheddar_constants/[interface]] [ched...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: use from cheddar_constants Arguments and temporary variables: aBlock: [:e | e name = aName] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... res: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/package/[interface]] Arguments and temporary variables: aBlock: use from cheddar_constants aSetOfRefs: [:e | e name = aName] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: #(nil) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences --- The full stack --- OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax PlatypusStepReference>>useP21Syntax PlatypusStepReference>>codeText PlatypusStepReference>>shortName PlatypusStepReference(TamListItemReference)>>longNameOn: [:strm | self longNameOn: strm] in PlatypusStepReference(TamListItemReference)>>longName String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepReference(TamListItemReference)>>longName PlatypusStepReference(TamListItemReference)>>printOn: [:s | self printOn: s] in PlatypusStepReference(Object)>>printStringLimitedTo: String class(SequenceableCollection class)>>streamContents:limitedTo: PlatypusStepReference(Object)>>printStringLimitedTo: PlatypusStepReference(Object)>>printString PlatypusStepReference(Object)>>name [:e | e name = aName] in [:t | (map := t item findDeeplySuchThat: [:e | e name = aName]) notNil] in Platypus class(Tamaris class)>>itemNamed: PlatypusStepReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusFunctionReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusFunctionReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in PlatypusSchemaInstanceReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInstanceReference(TamListItemReference)>>findDeeplySuchThat:visited: [:sr | (res := sr findDeeplySuchThat: aBlock visited: aSetOfRefs) ifNotNil: [^ res]] in TamRootTaxonReference(TamListItemReference)>>findDeeplySuchThat:visited: OrderedCollection>>do: TamRootTaxonReference(TamListItemReference)>>findDeeplySuchThat:visited: TamRootTaxonReference(TamListItemReference)>>findDeeplySuchThat: [:t | (map := t item findDeeplySuchThat: [:e | e name = aName]) notNil] in Platypus class(Tamaris class)>>itemNamed: [:each | (aBlock value: each) ifTrue: [^ each]. nil] in SortedCollection(Collection)>>detect:ifNone: SortedCollection(OrderedCollection)>>do: SortedCollection(Collection)>>detect:ifNone: SortedCollection(Collection)>>detect: Platypus class(Tamaris class)>>itemNamed: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE User Interrupt 14 January 2013 10:31:14.956 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] Array(SequenceableCollection)>>indexOf:startingAt:ifAbsent: Receiver: #(#'Announcements-Core' #'Announcements-Help' #'Announcements-Tests-Core' #'Announcements-...etc... Arguments and temporary variables: anElement: #'Chd-CheddarDomainsSchema' start: 1 exceptionBlock: [^ Array new] index: 354 indexLimiT: 597 Receiver's instance variables: #(#'Announcements-Core' #'Announcements-Help' #'Announcements-Tests-Core' #'Announcements-...etc... Array(SequenceableCollection)>>indexOf:ifAbsent: Receiver: #(#'Announcements-Core' #'Announcements-Help' #'Announcements-Tests-Core' #'Announcements-...etc... Arguments and temporary variables: anElement: #'Chd-CheddarDomainsSchema' exceptionBlock: [^ Array new] Receiver's instance variables: #(#'Announcements-Core' #'Announcements-Help' #'Announcements-Tests-Core' #'Announcements-...etc... SystemOrganizer(Categorizer)>>listAtCategoryNamed: Receiver: ('Announcements-Core' Announcement AnnouncementSet AnnouncementSubscription Announcer Lega...etc... Arguments and temporary variables: categoryName: #'Chd-CheddarDomainsSchema' i: nil Receiver's instance variables: categoryArray: #(#'Announcements-Core' #'Announcements-Help' #'Announcements-Te...etc... categoryStops: #(8 11 17 18 23 27 37 41 46 50 57 58 60 65 68 77 78 89 96 106 12...etc... elementArray: #(#Announcement #AnnouncementSet #AnnouncementSubscription #Annou...etc... environment: nil ChdCheddarDomainsSchemaDefinition class(Class)>>category Receiver: ChdCheddarDomainsSchemaDefinition Arguments and temporary variables: result: nil symbol: #'Chd-CheddarDomainsSchema' Receiver's instance variables: superclass: PlatypusCoreSchema methodDict: a MethodDictionary(#context->(ChdCheddarDomainsSchemaDefinition>>#c...etc... format: 134 instanceVariables: nil organization: ('platypus-generated-meta-data-accessing' schemaInstanceClassName...etc... subclasses: nil name: #ChdCheddarDomainsSchemaDefinition classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-CheddarDomainsSchema' traitComposition: {} localSelectors: nil singleton: a ChdCheddarDomainsSchemaDefinition PackageInfo>>includesClass: Receiver: a PackageInfo(xtra-platypus) Arguments and temporary variables: aClass: ChdCheddarDomainsSchemaDefinition Receiver's instance variables: packageName: 'xtra-platypus' methodCategoryPrefix: '*xtra-platypus' [:mgr | (mgr packageInfo includesClass: aClass) ifTrue: [aBlock value: mgr]] in MCWorkingCopy class(MCPackageManager class)>>managersForClass:do: Receiver: MCWorkingCopy Arguments and temporary variables: aClass: a MCWorkingCopy(xtra-platypus) aBlock: ChdCheddarDomainsSchemaDefinition mgr: [:mgr | mgr modified: true] Receiver's instance variables: superclass: MCPackageManager methodDict: a MethodDictionary(#adopt:->(MCWorkingCopy>>#adopt: "a CompiledMeth...etc... format: 144 instanceVariables: #('versionInfo' 'ancestry' 'counter' 'repositoryGroup' 'requ...etc... organization: ('*metacello-mc' metacelloPackageNameWithBranch) ('accessing' anc...etc... subclasses: nil name: #MCWorkingCopy classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Monticello-Versioning' traitComposition: {} localSelectors: nil registry: a Dictionary(size 278) [:association | aBlock value: association value] in Dictionary>>valuesDo: Receiver: a Dictionary(size 278) Arguments and temporary variables: aBlock: a MCPackage(xtra-platypus)->a MCWorkingCopy(xtra-platypus) association: [:mgr | (mgr packageInfo includesClass: aClass) ifTrue: [aBlock ...etc... Receiver's instance variables: tally: 278 array: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCo...etc... [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Receiver: a Dictionary(size 278) Arguments and temporary variables: aBlock: a MCPackage(xtra-platypus)->a MCWorkingCopy(xtra-platypus) each: [:association | aBlock value: association value] Receiver's instance variables: tally: 278 array: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCo...etc... Array(SequenceableCollection)>>do: Receiver: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCompletion) nil nil ...etc... Arguments and temporary variables: aBlock: [:each | each ifNotNil: [aBlock value: each]] index: 449 indexLimiT: 463 Receiver's instance variables: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCompletion) nil nil ...etc... Dictionary>>associationsDo: Receiver: a Dictionary(size 278) Arguments and temporary variables: aBlock: [:association | aBlock value: association value] Receiver's instance variables: tally: 278 array: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCo...etc... Dictionary>>valuesDo: Receiver: a Dictionary(size 278) Arguments and temporary variables: aBlock: [:mgr | (mgr packageInfo includesClass: aClass) ifTrue: [aBlock value...etc... Receiver's instance variables: tally: 278 array: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCo...etc... Dictionary>>do: Receiver: a Dictionary(size 278) Arguments and temporary variables: aBlock: [:mgr | (mgr packageInfo includesClass: aClass) ifTrue: [aBlock value...etc... Receiver's instance variables: tally: 278 array: an Array(nil nil nil nil a MCPackage(NOCompletion)->a MCWorkingCopy(NOCo...etc... MCWorkingCopy class(MCPackageManager class)>>managersForClass:do: Receiver: MCWorkingCopy Arguments and temporary variables: aClass: ChdCheddarDomainsSchemaDefinition aBlock: [:mgr | mgr modified: true] Receiver's instance variables: superclass: MCPackageManager methodDict: a MethodDictionary(#adopt:->(MCWorkingCopy>>#adopt: "a CompiledMeth...etc... format: 144 instanceVariables: #('versionInfo' 'ancestry' 'counter' 'repositoryGroup' 'requ...etc... organization: ('*metacello-mc' metacelloPackageNameWithBranch) ('accessing' anc...etc... subclasses: nil name: #MCWorkingCopy classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Monticello-Versioning' traitComposition: {} localSelectors: nil registry: a Dictionary(size 278) MCWorkingCopy class(MCPackageManager class)>>managersForClass:category:do: Receiver: MCWorkingCopy Arguments and temporary variables: aClass: ChdCheddarDomainsSchemaDefinition methodCategory: #'platypus-generated-entities' aBlock: [:mgr | mgr modified: true] Receiver's instance variables: superclass: MCPackageManager methodDict: a MethodDictionary(#adopt:->(MCWorkingCopy>>#adopt: "a CompiledMeth...etc... format: 144 instanceVariables: #('versionInfo' 'ancestry' 'counter' 'repositoryGroup' 'requ...etc... organization: ('*metacello-mc' metacelloPackageNameWithBranch) ('accessing' anc...etc... subclasses: nil name: #MCWorkingCopy classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Monticello-Versioning' traitComposition: {} localSelectors: nil registry: a Dictionary(size 278) MCWorkingCopy class(MCPackageManager class)>>managersForClass:selector:do: Receiver: MCWorkingCopy Arguments and temporary variables: aClass: ChdCheddarDomainsSchemaDefinition aSelector: #entityDefinition27 aBlock: [:mgr | mgr modified: true] Receiver's instance variables: superclass: MCPackageManager methodDict: a MethodDictionary(#adopt:->(MCWorkingCopy>>#adopt: "a CompiledMeth...etc... format: 144 instanceVariables: #('versionInfo' 'ancestry' 'counter' 'repositoryGroup' 'requ...etc... organization: ('*metacello-mc' metacelloPackageNameWithBranch) ('accessing' anc...etc... subclasses: nil name: #MCWorkingCopy classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Monticello-Versioning' traitComposition: {} localSelectors: nil registry: a Dictionary(size 278) MCWorkingCopy class(MCPackageManager class)>>methodModified: Receiver: MCWorkingCopy Arguments and temporary variables: anEvent: Modified Event for item: (ChdCheddarDomainsSchemaDefinition>>#entityDe...etc... Receiver's instance variables: superclass: MCPackageManager methodDict: a MethodDictionary(#adopt:->(MCWorkingCopy>>#adopt: "a CompiledMeth...etc... format: 144 instanceVariables: #('versionInfo' 'ancestry' 'counter' 'repositoryGroup' 'requ...etc... organization: ('*metacello-mc' metacelloPackageNameWithBranch) ('accessing' anc...etc... subclasses: nil name: #MCWorkingCopy classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Monticello-Versioning' traitComposition: {} localSelectors: nil registry: a Dictionary(size 278) WeakMessageSend>>valueWithArguments: Receiver: WeakMessageSend(#methodModified: -> MCWorkingCopy) Arguments and temporary variables: anArray: an Array(Modified Event for item: (ChdCheddarDomainsSchemaDefinition>>...etc... Receiver's instance variables: selector: #methodModified: shouldBeNil: #() arguments: a WeakArray() [answer := each valueWithArguments: anArray] in WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom: Receiver: #(WeakMessageSend(#methodChanged: -> TestCase) WeakMessageSend(#event: -> Smalltalk) WeakM...etc... Arguments and temporary variables: < Receiver's instance variables: #(WeakMessageSend(#methodChanged: -> TestCase) WeakMessageSend(#event: -> Smalltalk) WeakM...etc... BlockClosure>>on:do: Receiver: [answer := each valueWithArguments: anArray] Arguments and temporary variables: exception: an ExceptionSet handlerAction: [:exc | self valueWithArguments: anArray startingFrom: index + ...etc... handlerActive: true Receiver's instance variables: outerContext: WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom...etc... startpc: 84 numArgs: 0 WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom: Receiver: #(WeakMessageSend(#methodChanged: -> TestCase) WeakMessageSend(#event: -> Smalltalk) WeakM...etc... Arguments and temporary variables: < Receiver's instance variables: #(WeakMessageSend(#methodChanged: -> TestCase) WeakMessageSend(#event: -> Smalltalk) WeakM...etc... WeakActionSequenceTrappingErrors>>valueWithArguments: Receiver: #(WeakMessageSend(#methodChanged: -> TestCase) WeakMessageSend(#event: -> Smalltalk) WeakM...etc... Arguments and temporary variables: anArray: an Array(Modified Event for item: (ChdCheddarDomainsSchemaDefinition>>...etc... Receiver's instance variables: #(WeakMessageSend(#methodChanged: -> TestCase) WeakMessageSend(#event: -> Smalltalk) WeakM...etc... SystemEventManager(Object)>>triggerEvent:withArguments: Receiver: a SystemEventManager Arguments and temporary variables: anEventSelector: 'methodModifiedEvent:' anArgumentList: an Array(Modified Event for item: (ChdCheddarDomainsSchemaDefin...etc... Receiver's instance variables: actionMap: an IdentityDictionary(#categoryAddedEvent:->#(WeakMessageSend(#event...etc... SystemEventManager(Object)>>triggerEvent:with: Receiver: a SystemEventManager Arguments and temporary variables: anEventSelector: 'methodModifiedEvent:' anObject: Modified Event for item: (ChdCheddarDomainsSchemaDefinition>>#entityD...etc... Receiver's instance variables: actionMap: an IdentityDictionary(#categoryAddedEvent:->#(WeakMessageSend(#event...etc... ModifiedMethodEvent(AbstractEvent)>>trigger: Receiver: Modified Event for item: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a Compil...etc... Arguments and temporary variables: anEventManager: a SystemEventManager Receiver's instance variables: item: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a CompiledMethod...etc... itemKind: #method environment: a Dictionary(#class->ChdCheddarDomainsSchemaDefinition #requestor-...etc... oldItem: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a CompiledMet...etc... oldProtocol: #'platypus-generated-entities' newProtocol: #'platypus-generated-entities' SystemChangeNotifier>>trigger: Receiver: a SystemChangeNotifier Arguments and temporary variables: event: Modified Event for item: (ChdCheddarDomainsSchemaDefinition>>#entityDefi...etc... Receiver's instance variables: eventSource: a SystemEventManager silenceLevel: 0 SystemChangeNotifier>>methodChangedFrom:to:selector:inClass:oldProtocol:newProtocol:requestor: Receiver: a SystemChangeNotifier Arguments and temporary variables: oldMethod: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a CompiledM...etc... newMethod: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a CompiledM...etc... aSymbol: #entityDefinition27 aClass: ChdCheddarDomainsSchemaDefinition oldProtocol: #'platypus-generated-entities' newProtocol: #'platypus-generated-entities' requestor: nil Receiver's instance variables: eventSource: a SystemEventManager silenceLevel: 0 ChdCheddarDomainsSchemaDefinition class(ClassDescription)>>addAndClassifySelector:withMethod:inProtocol:notifying: Receiver: ChdCheddarDomainsSchemaDefinition Arguments and temporary variables: selector: #entityDefinition27 compiledMethod: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a Comp...etc... category: #'platypus-generated-entities' requestor: nil priorMethodOrNil: (ChdCheddarDomainsSchemaDefinition>>#entityDefinition27 "a Co...etc... oldProtocol: #'platypus-generated-entities' newProtocol: #'platypus-generated-entities' Receiver's instance variables: superclass: PlatypusCoreSchema methodDict: a MethodDictionary(#context->(ChdCheddarDomainsSchemaDefinition>>#c...etc... format: 134 instanceVariables: nil organization: ('platypus-generated-meta-data-accessing' schemaInstanceClassName...etc... subclasses: nil name: #ChdCheddarDomainsSchemaDefinition classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-CheddarDomainsSchema' traitComposition: {} localSelectors: nil singleton: a ChdCheddarDomainsSchemaDefinition ChdCheddarDomainsSchemaDefinition class(ClassDescription)>>compile:classified:withStamp:notifying:logSource: Receiver: ChdCheddarDomainsSchemaDefinition Arguments and temporary variables: text: a Text for 'entityDefinition27 ^ #(#ada_set_type #ChdAdaSetType) ' category: #'platypus-generated-entities' changeStamp: '' requestor: nil logSource: true methodAndNode: a CompiledMethodWithNode Receiver's instance variables: superclass: PlatypusCoreSchema methodDict: a MethodDictionary(#context->(ChdCheddarDomainsSchemaDefinition>>#c...etc... format: 134 instanceVariables: nil organization: ('platypus-generated-meta-data-accessing' schemaInstanceClassName...etc... subclasses: nil name: #ChdCheddarDomainsSchemaDefinition classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-CheddarDomainsSchema' traitComposition: {} localSelectors: nil singleton: a ChdCheddarDomainsSchemaDefinition ChdCheddarDomainsSchemaDefinition class(ClassDescription)>>compile:classified:withStamp:notifying: Receiver: ChdCheddarDomainsSchemaDefinition Arguments and temporary variables: text: a Text for 'entityDefinition27 ^ #(#ada_set_type #ChdAdaSetType) ' category: #'platypus-generated-entities' changeStamp: '' requestor: nil Receiver's instance variables: superclass: PlatypusCoreSchema methodDict: a MethodDictionary(#context->(ChdCheddarDomainsSchemaDefinition>>#c...etc... format: 134 instanceVariables: nil organization: ('platypus-generated-meta-data-accessing' schemaInstanceClassName...etc... subclasses: nil name: #ChdCheddarDomainsSchemaDefinition classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-CheddarDomainsSchema' traitComposition: {} localSelectors: nil singleton: a ChdCheddarDomainsSchemaDefinition ClassCategoryReader>>scanFrom: Receiver: a ClassCategoryReader Arguments and temporary variables: aStream: a ReadWriteStream methodText: a Text for 'entityDefinition27 ^ #(#ada_set_type #ChdAdaSetType) ...etc... Receiver's instance variables: class: ChdCheddarDomainsSchemaDefinition category: #'platypus-generated-entities' changeStamp: '' [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: an Array(a ClassCategoryReader) chunk: nil Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 306466 readLimit: 1048164 writeLimit: 1048164 BlockClosure>>on:do: Receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: sel...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: [:bar | [self atEnd] whileFalse: [bar value: self position. ...etc... startpc: 146 numArgs: 0 [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: Receiver: a ReadWriteStream Arguments and temporary variables: val: [:barValArg | | barVal return newBarSize | barVal := barValArg. return :...etc... bar: an Array(a ClassCategoryReader) Receiver's instance variables: collection: ' PlatypusCoreSchemaInstance subclass: #ChdExpress2cheddarSchemaIns...etc... position: 306466 readLimit: 1048164 writeLimit: 1048164 [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048164 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [[result := workBlock value: progress] on: ProgressNotification...etc... startpc: 87 numArgs: 0 [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048164 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 81 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signaler: 'Reading a stream' signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | [self atEnd] whileFalse: [bar value: self position. se...etc... maxVal: 1048164 minVal: 0 aPoint: (636@452) progressTitle: 'Reading a stream' MorphicUIManager>>progressInitiationExceptionDefaultAction: Receiver: a MorphicUIManager Arguments and temporary variables: anException: ProgressInitiationException Receiver's instance variables: interactiveParser: nil --- The full stack --- Array(SequenceableCollection)>>indexOf:startingAt:ifAbsent: Array(SequenceableCollection)>>indexOf:ifAbsent: SystemOrganizer(Categorizer)>>listAtCategoryNamed: ChdCheddarDomainsSchemaDefinition class(Class)>>category PackageInfo>>includesClass: [:mgr | (mgr packageInfo includesClass: aClass) ifTrue: [aBlock value: mgr]] in MCWorkingCopy class(MCPackageManager class)>>managersForClass:do: [:association | aBlock value: association value] in Dictionary>>valuesDo: [:each | each ifNotNil: [aBlock value: each]] in Dictionary>>associationsDo: Array(SequenceableCollection)>>do: Dictionary>>associationsDo: Dictionary>>valuesDo: Dictionary>>do: MCWorkingCopy class(MCPackageManager class)>>managersForClass:do: MCWorkingCopy class(MCPackageManager class)>>managersForClass:category:do: MCWorkingCopy class(MCPackageManager class)>>managersForClass:selector:do: MCWorkingCopy class(MCPackageManager class)>>methodModified: WeakMessageSend>>valueWithArguments: [answer := each valueWithArguments: anArray] in WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom: BlockClosure>>on:do: WeakActionSequenceTrappingErrors>>valueWithArguments:startingFrom: WeakActionSequenceTrappingErrors>>valueWithArguments: SystemEventManager(Object)>>triggerEvent:withArguments: SystemEventManager(Object)>>triggerEvent:with: ModifiedMethodEvent(AbstractEvent)>>trigger: SystemChangeNotifier>>trigger: SystemChangeNotifier>>methodChangedFrom:to:selector:inClass:oldProtocol:newProtocol:requestor: ChdCheddarDomainsSchemaDefinition class(ClassDescription)>>addAndClassifySelector:withMethod:inProtocol:notifying: ChdCheddarDomainsSchemaDefinition class(ClassDescription)>>compile:classified:withStamp:notifying:logSource: ChdCheddarDomainsSchemaDefinition class(ClassDescription)>>compile:classified:withStamp:notifying: ClassCategoryReader>>scanFrom: [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] in [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [:bar | [self atEnd] whileFalse: [bar value: self position. self skipSeparators. [| chunk | val := (self peekFor: $!) ifTrue: [(self class evaluatorClass evaluate: self nextChunk logged: false) scanFrom: self] ifFalse: [chunk := self nextChunk. self checkForPreamble: chunk. self class evaluatorClass evaluate: chunk logged: true]] on: InMidstOfFileinNotification do: [:ex | ex resume: true]. self skipStyleChunk]. self close] in ReadWriteStream(PositionableStream)>>fileInAnnouncing: [result := workBlock value: progress] in [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph uniqueInstance labelAt: progress put: ex extraParam]. ex resume]] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction MorphicUIManager>>progressInitiationExceptionDefaultAction: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressFrom:to:during: ReadWriteStream(PositionableStream)>>fileInAnnouncing: ReadWriteStream(PositionableStream)>>fileIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: OrderedCollection>>useP21Syntax 14 January 2013 10:32:40.309 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax Receiver: an OrderedCollection() Arguments and temporary variables: aMessage: useP21Syntax exception: MessageNotUnderstood: OrderedCollection>>useP21Syntax resumeValue: nil Receiver's instance variables: array: #(nil nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 0 PlatypusStepReference>>useP21Syntax Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:e | e shortName = self generatedCodeTaxonLabel] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon Receiver: [cheddar: /express2cheddar] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: ] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil schemaInstance: a PltSchemaInstance tokenList: a PlatypusTokenList modelContentsReferences: an OrderedCollection() PlatypusStepReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: <> Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: nil res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection() interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(FUNCTION) stopNode: PlatypusSemicolonToken(;) name: 'all_ada_classes' metaData: a PltFunctionDeclaration generatedClassRef: nil subContents: <> OrderedCollection>>do: Receiver: <> Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: <> PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] Arguments and temporary variables: < Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection() interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(FUNCTION) stopNode: PlatypusSemicolonToken(;) name: 'all_ada_classes' metaData: a PltFunctionDeclaration generatedClassRef: nil subContents: <> [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #functions localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #functionsReferences Array(SequenceableCollection)>>do: Receiver: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_named] [cheddar: /e...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 3 indexLimiT: 8 Receiver's instance variables: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_named] [cheddar: /e...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array([cheddar: /express2cheddar/express2cheddar_facade/ada_package_na...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #functions localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #functionsReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from express2cheddar_facade Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/[functions]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[interface]] [chedd...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar_facade/[interface]] ...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from express2cheddar_facade Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[i...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_domains/[interface]] Arguments and temporary variables: aBlock: use from express2cheddar_facade aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from express2cheddar_facade use from express_dictionar...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 indexLimiT: 6 Receiver's instance variables: an Array(use from ada_interface use from express2cheddar_facade use from express_dictionar...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_domains/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from ada_interface use from express2cheddar_facade use from ...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_domains] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_domains Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/cheddar_domains/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/cheddar_domains/[interface]] [cheddar: /ex...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/cheddar_domains/[interface]] [chedda...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_domains Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/cheddar_domains/[interfac...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_constants/[interface]] Arguments and temporary variables: aBlock: use from cheddar_domains aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from cheddar_domains use from express2cheddar_facade u...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 indexLimiT: 6 Receiver's instance variables: an Array(use from ada_interface use from cheddar_domains use from express2cheddar_facade u...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/cheddar_constants/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from ada_interface use from cheddar_domains use from express...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/cheddar_constants] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_constants Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/cheddar_constants/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/cheddar_constants/[interface]] [cheddar: /...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/cheddar_constants/[interface]] [ched...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from cheddar_constants Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/cheddar_constants/[interf...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/package/[interface]] Arguments and temporary variables: aBlock: use from cheddar_constants aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from ada_interface use from cheddar_constants use from cheddar_domains use fr...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 2 indexLimiT: 9 Receiver's instance variables: an Array(use from ada_interface use from cheddar_constants use from cheddar_domains use fr...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/package/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from ada_interface use from cheddar_constants use from chedd...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/package] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from Package Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/package/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/package/[interface]] [cheddar: /express2ch...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/package/[interface]] [cheddar: /expr...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: use from Package Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/package/[interface]] [che...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil linked: a PltUsedSchema [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[interface]] Arguments and temporary variables: aBlock: use from Package aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences Array(SequenceableCollection)>>do: Receiver: an Array(use from Package use from cheddar_domains use from discriminated_type use from ex...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 indexLimiT: 7 Receiver's instance variables: an Array(use from Package use from cheddar_domains use from discriminated_type use from ex...etc... PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade/[interface]] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an Array(use from Package use from cheddar_domains use from discriminated...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade] listLabel: #interface localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil listSelector: #schemaInterfacesReferences [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade] Arguments and temporary variables: aBlock: [cheddar: /express2cheddar/express2cheddar_facade/[interface]] aSetOfRefs: [:e | e shortName = self generatedCodeTaxonLabel] res: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platypus_dic...etc... sr: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'express2cheddar_facade' metaData: a PltSchemaDefinition generatedClassRef: nil OrderedCollection>>do: Receiver: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[interface]] [chedd...etc... Arguments and temporary variables: aBlock: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetO...etc... index: 1 Receiver's instance variables: array: an Array([cheddar: /express2cheddar/express2cheddar_facade/[interface]] ...etc... firstIndex: 1 lastIndex: 3 PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: Receiver: [cheddar: /express2cheddar/express2cheddar_facade] Arguments and temporary variables: aBlock: [:e | e shortName = self generatedCodeTaxonLabel] aSetOfRefs: a Set([tamaris-internal: /platypus-meta/Platypus_meta_schemas/Platy...etc... chil: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_facade/[i...etc... res: an Array(an OrderedCollection()) Receiver's instance variables: owner: [cheddar: /express2cheddar] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil subReferences: an OrderedCollection([cheddar: /express2cheddar/express2cheddar_...etc... interactiveCallArguments: nil startNode: PlatypusPrimaryElementOpenKeywordToken(SCHEMA) stopNode: PlatypusSemicolonToken(;) name: 'express2cheddar_facade' metaData: a PltSchemaDefinition generatedClassRef: nil --- The full stack --- OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax PlatypusStepReference>>useP21Syntax PlatypusStepReference>>codeText PlatypusStepReference>>shortName [:e | e shortName = self generatedCodeTaxonLabel] in PlatypusSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusStepReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusFunctionReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInterfaceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: Array(SequenceableCollection)>>do: PlatypusExpressSubListReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaReference(TamListItemReference)>>selectDeeplySuchThat:visited: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in PlatypusSchemaInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: PlatypusSchemaInstanceReference(TamListItemReference)>>selectDeeplySuchThat:visited: [:sr | res := res , (sr selectDeeplySuchThat: aBlock visited: aSetOfRefs)] in TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: OrderedCollection>>do: TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat:visited: TamRootTaxonReference(TamListItemReference)>>selectDeeplySuchThat: PlatypusSchemaInstanceReference(PlatypusExpressReference)>>insertGeneratedCodeTaxon PlatypusSchemaInstanceReference(PlatypusExpressReference)>>translateAndFileItIn PlatypusSchemaInstanceReference(PlatypusExpressReference)>>keyStroke:from: PlatypusSchemaInstanceReference>>keyStroke:from: TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: OrderedCollection>>useP21Syntax 14 January 2013 10:33:32.17 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax Receiver: an OrderedCollection() Arguments and temporary variables: aMessage: useP21Syntax exception: MessageNotUnderstood: OrderedCollection>>useP21Syntax resumeValue: nil Receiver's instance variables: array: #(nil nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 0 PlatypusStepReference>>useP21Syntax Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> PlatypusStepInstanceReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: <> [:strm | self longNameOn: strm] in PlatypusStepInstanceReference(TamListItemReference)>>longName Receiver: <> Arguments and temporary variables: strm: a WriteStream Receiver's instance variables: owner: <> String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:strm | self longNameOn: strm] stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:strm | self longNameOn: strm] Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepInstanceReference(TamListItemReference)>>longName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: <> PlatypusStepInstanceReference(TamListItemReference)>>printOn: Receiver: <> Arguments and temporary variables: aStream: a LimitedWriteStream Receiver's instance variables: owner: <> LimitedWriteStream(Stream)>>print: Receiver: a LimitedWriteStream Arguments and temporary variables: < Receiver's instance variables: collection: 'an OrderedCollection([...etc... position: 22 readLimit: 0 writeLimit: 100 limit: 19984 limitBlock: [^ stream contents] [:element | aStream print: element] in OrderedCollection(Collection)>>printElementsOn: Receiver: <> Arguments and temporary variables: < Receiver's instance variables: array: <> OrderedCollection(SequenceableCollection)>>do:separatedBy: Receiver: <> Arguments and temporary variables: elementBlock: [:element | aStream print: element] separatorBlock: [aStream space] index: 1 indexLimiT: 89 Receiver's instance variables: array: <> OrderedCollection(Collection)>>printElementsOn: Receiver: <> Arguments and temporary variables: aStream: a LimitedWriteStream Receiver's instance variables: array: <> OrderedCollection(Collection)>>printOn: Receiver: <> Arguments and temporary variables: aStream: a LimitedWriteStream Receiver's instance variables: array: <> [:s | self printOn: s] in OrderedCollection(Object)>>printStringLimitedTo: Receiver: <> Arguments and temporary variables: s: a LimitedWriteStream Receiver's instance variables: array: <> String class(SequenceableCollection class)>>streamContents:limitedTo: Receiver: String Arguments and temporary variables: blockWithArg: [:s | self printOn: s] sizeLimit: 19984 stream: a LimitedWriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil OrderedCollection(Object)>>printStringLimitedTo: Receiver: <> Arguments and temporary variables: limit: 19984 limitedString: nil Receiver's instance variables: array: <> [:title :index | indent timesRepeat: [aStream tab]. aStream nextPutAll: title; nextPut: $:; space; tab; nextPutAll: ((self instVarAt: index) printStringLimitedTo: (sizeLimit - 3 - title size max: 1)); cr] in PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: Receiver: <> Arguments and temporary variables: aStream: 'subReferences' sizeLimit: 8 indent: a WriteStream title: 20000 index: 0 Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> Array(SequenceableCollection)>>withIndexDo: Receiver: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... Arguments and temporary variables: elementAndIndexBlock: [:title :index | indent timesRepeat: [aStream tab]. a...etc... index: 8 indexLimiT: 9 Receiver's instance variables: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... Array(SequenceableCollection)>>doWithIndex: Receiver: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... Arguments and temporary variables: elementAndIndexBlock: [:title :index | indent timesRepeat: [aStream tab]. a...etc... Receiver's instance variables: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: Receiver: <> Arguments and temporary variables: aStream: a WriteStream sizeLimit: 20000 indent: 0 Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> [:aStream | self longPrintOn: aStream limitedTo: aLimitValue indent: 0] in PlatypusStepReference(Object)>>longPrintStringLimitedTo: Receiver: <> Arguments and temporary variables: aLimitValue: a WriteStream aStream: 20000 Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:aStream | self longPrintOn: aStream limitedTo: aLimitValue ...etc... stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:aStream | self longPrintOn: aStream limitedTo: aLimitValue ...etc... Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepReference(Object)>>longPrintStringLimitedTo: Receiver: <> Arguments and temporary variables: aLimitValue: 20000 str: nil Receiver's instance variables: owner: [cheddar: /express2cheddar/express2cheddar_facade/all_ada_classes] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 1 subReferences: <> Inspector>>selection Receiver: an Inspector Arguments and temporary variables: basicIndex: nil Receiver's instance variables: contents: a Text for '> Inspector>>toggleIndex: Receiver: an Inspector Arguments and temporary variables: anInteger: 2 Receiver's instance variables: contents: a Text for '> PluggableListMorph>>changeModelSelection: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: anInteger: 2 Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph>>mouseUpOnSingle: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: event: [(268@700) mouseUp 18454692 nil] row: 2 mdr: 2 Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph>>mouseUp: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: evt: [(268@700) mouseUp 18454692 nil] Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph(Morph)>>handleMouseUp: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: anEvent: [(268@700) mouseUp 18454692 nil] handler: nil Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MouseButtonEvent>>sentTo: Receiver: [(268@700) mouseUp 18454692 nil] Arguments and temporary variables: anObject: a PluggableListMorph(146538496) Receiver's instance variables: timeStamp: 18454692 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (268@700) handler: nil wasHandled: true whichButton: 4 PluggableListMorph(Morph)>>handleEvent: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: anEvent: [(268@700) mouseUp 18454692 nil] Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(268@700) mouseUp 18454692 nil] aMorph: a PluggableListMorph(146538496) localEvt: [(268@700) mouseUp 18454692 nil] index: 4 child: a TransformMorph(419430400) morphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMorph...etc... inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(268@700) mouseUp 18454692 nil] aMorph: a PluggableListMorph(146538496) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: PluggableListMorph(Morph)>>processEvent:using: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: anEvent: [(268@700) mouseUp 18454692 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph(Morph)>>processEvent: Receiver: a PluggableListMorph(146538496) Arguments and temporary variables: anEvent: [(268@700) mouseUp 18454692 nil] Receiver's instance variables: bounds: (217.0@678.0) corner: (382.0@809.0) owner: a SystemWindow(792461312) submorphs: an Array(a ScrollBar(305659904) a ScrollBar(177209344) a TransformMo...etc... fullBounds: (217@678) corner: (382@809) color: Color white extension: a MorphExtension (655097856) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(177209344) scroller: a TransformMorph(419430400) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(305659904) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(339476480) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil --- The full stack --- OrderedCollection(Object)>>doesNotUnderstand: #useP21Syntax PlatypusStepReference>>useP21Syntax PlatypusStepReference>>codeText PlatypusStepReference>>shortName PlatypusStepReference(TamListItemReference)>>longNameOn: PlatypusStepInstanceReference(TamListItemReference)>>longNameOn: [:strm | self longNameOn: strm] in PlatypusStepInstanceReference(TamListItemReference)>>longName String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepInstanceReference(TamListItemReference)>>longName PlatypusStepInstanceReference(TamListItemReference)>>printOn: LimitedWriteStream(Stream)>>print: [:element | aStream print: element] in OrderedCollection(Collection)>>printElementsOn: OrderedCollection(SequenceableCollection)>>do:separatedBy: OrderedCollection(Collection)>>printElementsOn: OrderedCollection(Collection)>>printOn: [:s | self printOn: s] in OrderedCollection(Object)>>printStringLimitedTo: String class(SequenceableCollection class)>>streamContents:limitedTo: OrderedCollection(Object)>>printStringLimitedTo: [:title :index | indent timesRepeat: [aStream tab]. aStream nextPutAll: title; nextPut: $:; space; tab; nextPutAll: ((self instVarAt: index) printStringLimitedTo: (sizeLimit - 3 - title size max: 1)); cr] in PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: Array(SequenceableCollection)>>withIndexDo: Array(SequenceableCollection)>>doWithIndex: PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: [:aStream | self longPrintOn: aStream limitedTo: aLimitValue indent: 0] in PlatypusStepReference(Object)>>longPrintStringLimitedTo: String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepReference(Object)>>longPrintStringLimitedTo: Inspector>>selection Inspector>>toggleIndex: PluggableListMorph>>changeModelSelection: PluggableListMorph>>mouseUpOnSingle: PluggableListMorph>>mouseUp: PluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableListMorph(Morph)>>processEvent:using: PluggableListMorph(Morph)>>processEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PluggableListMorph>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: MouseClickState>>handleEvent:from: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingContext: 14 January 2013 10:38:02.456 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingCo...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a PltEntityDefinition a ChdUnmappedEntityDefinition) Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a PltEntityDefinition a ChdUnmappedEntityDefinition nil nil nil...etc... firstIndex: 1 lastIndex: 2 PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... ChdExplicitAttributePutFunction>>invoke Receiver: a ChdExplicitAttributePutFunction Arguments and temporary variables: Receiver's instance variables: attr: a PltExplicitAttribute code: 'put("private_xml_id: "); ' prfx: '' domain: a PlatypusComplexInstance ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributePutFunction Arguments and temporary variables: values: an OrderedCollection(a PltExplicitAttribute) algo: a ChdExplicitAttributePutFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributePutFunction>>#attr "...etc... format: 138 instanceVariables: #('attr' 'code' 'prfx' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributePutFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')] in [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: attr947650560: a PltExplicitAttribute Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in Generic_Object) is \nbegin\n' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') ...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: no737148928: 1 Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in Generic_Object) is \nbegin\n' [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 3 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 3 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in Generic_Object) is \nbegin\n' ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassPutCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassPutCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassPutCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassPutCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClassAdbCodeFunction>>invoke Receiver: a ChdAdaClassAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: nil ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassAdbCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adbCodeUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Generic_Object' independent: false subtypes: nil uniquenessRules: an OrderedCollection(a PltUniquenessRule) instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint isPrivate: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c1061683200: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFro...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction inv...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no1026031616: 1 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 2 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 2 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdbCodeFunction>>invoke Receiver: a ChdAdaPackageAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdAdaPackageAdbCodeFunction>>#fr...etc... format: 134 instanceVariables: #('pkg' 'result') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adbCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PlatypusComplexInstance a PltDefinedType a PltDef...etc... constants: an OrderedCollection() identifiersCache: nil name: 'Objects' algorithmes: an OrderedCollection(a PltFunctionDeclaration) entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema) remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: ChdExplicitAttributePutFunction>>invoke ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')] in [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaClassPutCodeFunction>>invoke ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClassAdbCodeFunction>>invoke ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adbCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdbCodeFunction>>invoke ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adbCodeUsingContext:receiver: Message>>sendTo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt: no1008992256) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1008992256) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "hierarchyLevel" is nil 14 January 2013 10:43:01.455 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #hierarchyLevel Receiver: nil Arguments and temporary variables: aMessage: hierarchyLevel exception: MessageNotUnderstood: receiver of "hierarchyLevel" is nil resumeValue: nil Receiver's instance variables: nil TamBrowser>>canSelectUpLevel Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(742391808) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(528482304) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(284950528) listMorph: a TamHierarchicalListMorph(742391808) editorRow: a TamPaneMorph(599523328) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /cheddar_mapping/enumeratio...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(686555136) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(471334912) worldButtons: nil globalRecentsInput: nil recentsRow: nil PluggableButtonMorph>>update: Receiver: a PluggableButtonMorph(870842368) Arguments and temporary variables: aParameter: #canSelectUpLevel state: false cc: nil Receiver's instance variables: bounds: (422.0@129.0) corner: (446.0@153.0) owner: a TamButtonsAlignmentMorph(284950528) submorphs: an Array(an AlignmentMorph(954728448)) fullBounds: (422@129) corner: (446@153) color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (897318912) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamBrowser label: an ImageMorph(740032512) getStateSelector: nil actionSelector: #selectUpLevel getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: #canSelectUpLevel [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm getEnabledSelector]] in TamButtonsAlignmentMorph>>updateIfNeeded Receiver: a TamButtonsAlignmentMorph(284950528) Arguments and temporary variables: sm: a PluggableButtonMorph(870842368) Receiver's instance variables: bounds: (146.0@127.0) corner: (506.0@155.0) owner: an AlignmentMorph(528482304) submorphs: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(4...etc... fullBounds: (146@127) corner: (506@155) color: Color transparent extension: a MorphExtension (297795584) borderWidth: 0 borderColor: Color transparent Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(467664896) a PluggableB...etc... Arguments and temporary variables: aBlock: [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm ge...etc... index: 13 indexLimiT: 16 Receiver's instance variables: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(467664896) a PluggableB...etc... TamButtonsAlignmentMorph(Morph)>>submorphsDo: Receiver: a TamButtonsAlignmentMorph(284950528) Arguments and temporary variables: aBlock: [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm ge...etc... Receiver's instance variables: bounds: (146.0@127.0) corner: (506.0@155.0) owner: an AlignmentMorph(528482304) submorphs: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(4...etc... fullBounds: (146@127) corner: (506@155) color: Color transparent extension: a MorphExtension (297795584) borderWidth: 0 borderColor: Color transparent TamButtonsAlignmentMorph>>updateIfNeeded Receiver: a TamButtonsAlignmentMorph(284950528) Arguments and temporary variables: Receiver's instance variables: bounds: (146.0@127.0) corner: (506.0@155.0) owner: an AlignmentMorph(528482304) submorphs: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(4...etc... fullBounds: (146@127) corner: (506@155) color: Color transparent extension: a MorphExtension (297795584) borderWidth: 0 borderColor: Color transparent TamButtonsAlignmentMorph>>step Receiver: a TamButtonsAlignmentMorph(284950528) Arguments and temporary variables: Receiver's instance variables: bounds: (146.0@127.0) corner: (506.0@155.0) owner: an AlignmentMorph(528482304) submorphs: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(4...etc... fullBounds: (146@127) corner: (506@155) color: Color transparent extension: a MorphExtension (297795584) borderWidth: 0 borderColor: Color transparent TamButtonsAlignmentMorph(Morph)>>stepAt: Receiver: a TamButtonsAlignmentMorph(284950528) Arguments and temporary variables: millisecondClockValue: 19024040 Receiver's instance variables: bounds: (146.0@127.0) corner: (506.0@155.0) owner: an AlignmentMorph(528482304) submorphs: an Array(a PluggableButtonMorph(1017118720) a PluggableButtonMorph(4...etc... fullBounds: (146@127) corner: (506@155) color: Color transparent extension: a MorphExtension (297795584) borderWidth: 0 borderColor: Color transparent StepMessage(MorphicAlarm)>>value: Receiver: StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(284950528))(a TamButtonsAlignmentMorph(...etc... Arguments and temporary variables: anArgument: 19024040 nArgs: 0 Receiver's instance variables: receiver: a TamButtonsAlignmentMorph(284950528) selector: #stepAt: arguments: nil scheduledTime: 19023973 numArgs: 1 stepTime: nil WorldState>>runLocalStepMethodsIn: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] now: 19024040 morphToStep: a TamButtonsAlignmentMorph(284950528) stepTime: 600 priorWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(100820582...etc... lastStepTime: 19024361 lastStepMessage: nil lastCycleTime: 19024361 alarms: a Heap() lastAlarmTime: 19024361 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>runStepMethodsIn: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] queue: SharedQueue with 0 items nextInQueue: nil Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(100820582...etc... lastStepTime: 19024361 lastStepMessage: nil lastCycleTime: 19024361 alarms: a Heap() lastAlarmTime: 19024361 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>runStepMethods Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(863764480) a Stand...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(100820582...etc... lastStepTime: 19024381 lastStepMessage: nil lastCycleTime: 19024381 alarms: a Heap() lastAlarmTime: 19024381 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1272@904) canvas: a FormCanvas on: DisplayScreen(1272x904x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#onBlinkCursor -> a TextMorphForEditView(100820582...etc... lastStepTime: 19024381 lastStepMessage: nil lastCycleTime: 19024381 alarms: a Heap() lastAlarmTime: 19024381 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1272@904) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a SystemWindow(863764480) a Stand...etc... fullBounds: (0@0) corner: (1272@904) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #hierarchyLevel TamBrowser>>canSelectUpLevel PluggableButtonMorph>>update: [:sm | (sm respondsTo: #getEnabledSelector) ifTrue: [sm update: sm getEnabledSelector]] in TamButtonsAlignmentMorph>>updateIfNeeded Array(SequenceableCollection)>>do: TamButtonsAlignmentMorph(Morph)>>submorphsDo: TamButtonsAlignmentMorph>>updateIfNeeded TamButtonsAlignmentMorph>>step TamButtonsAlignmentMorph(Morph)>>stepAt: StepMessage(MorphicAlarm)>>value: WorldState>>runLocalStepMethodsIn: WorldState>>runStepMethodsIn: PasteUpMorph>>runStepMethods WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingContext: 14 January 2013 11:09:22.706 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingCo...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a PltEntityDefinition a ChdUnmappedEntityDefinition) Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a PltEntityDefinition a ChdUnmappedEntityDefinition nil nil nil...etc... firstIndex: 1 lastIndex: 2 PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... ChdExplicitAttributePutFunction>>invoke Receiver: a ChdExplicitAttributePutFunction Arguments and temporary variables: Receiver's instance variables: attr: a PltExplicitAttribute code: 'put("poilaupubix_id: "); ' prfx: '' domain: a PlatypusComplexInstance ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributePutFunction Arguments and temporary variables: values: an OrderedCollection(a PltExplicitAttribute) algo: a ChdExplicitAttributePutFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributePutFunction>>#attr "...etc... format: 138 instanceVariables: #('attr' 'code' 'prfx' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributePutFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')] in [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: attr947650560: a PltExplicitAttribute Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in PortType) is \nbegin\n' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') ...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: no737148928: 1 Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in PortType) is \nbegin\n' [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 5 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 5 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in PortType) is \nbegin\n' ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassPutCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassPutCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassPutCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassPutCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClassAdbCodeFunction>>invoke Receiver: a ChdAdaClassAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: nil ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassAdbCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adbCodeUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'PortType' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil isPrivate: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c1061683200: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '\n-- --------= PartitionType =--------\n\nprocedure Initialize(obj : o...etc... code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFro...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction inv...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no1026031616: 25 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '\n-- --------= PartitionType =--------\n\nprocedure Initialize(obj : o...etc... code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 25 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 25 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 36 p: 25 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 36 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '\n-- --------= PartitionType =--------\n\nprocedure Initialize(obj : o...etc... code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdbCodeFunction>>invoke Receiver: a ChdAdaPackageAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdAdaPackageAdbCodeFunction>>#fr...etc... format: 134 instanceVariables: #('pkg' 'result') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adbCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Partition' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: true Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: ChdExplicitAttributePutFunction>>invoke ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')] in [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaClassPutCodeFunction>>invoke ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClassAdbCodeFunction>>invoke ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adbCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdbCodeFunction>>invoke ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adbCodeUsingContext:receiver: Message>>sendTo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt: no1008992256) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1008992256) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingContext: 14 January 2013 11:19:00.631 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>refedByPointerUsingCo...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: refedByPointerUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a PltEntityDefinition a ChdUnmappedEntityDefinition) Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a PltEntityDefinition a ChdUnmappedEntityDefinition nil nil nil...etc... firstIndex: 1 lastIndex: 2 PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedEntityDefinition a PltEntityDefiniti...etc... ChdExplicitAttributePutFunction>>invoke Receiver: a ChdExplicitAttributePutFunction Arguments and temporary variables: Receiver's instance variables: attr: a PltExplicitAttribute code: 'put("poilaupubix_id: "); ' prfx: '' domain: a PlatypusComplexInstance ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributePutFunction Arguments and temporary variables: values: an OrderedCollection(a PltExplicitAttribute) algo: a ChdExplicitAttributePutFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributePutFunction>>#attr "...etc... format: 138 instanceVariables: #('attr' 'code' 'prfx' 'domain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributePutFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')] in [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: attr947650560: a PltExplicitAttribute Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in Generic_Object) is \nbegin\n' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') ...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: no737148928: 1 Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in Generic_Object) is \nbegin\n' [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 3 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicit...etc... start: 1 stop: 3 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaClassPutCodeFunction>>invoke Receiver: a ChdAdaClassPutCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: 'procedure Put(obj : in Generic_Object) is \nbegin\n' ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassPutCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassPutCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassPutCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassPutCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClassAdbCodeFunction>>invoke Receiver: a ChdAdaClassAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: nil ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaClassAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaClassAdbCodeFunction>>#cip "a Compi...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adbCodeUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Generic_Object' independent: false subtypes: nil uniquenessRules: an OrderedCollection(a PltUniquenessRule) instantiable: false complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: a PltSupertypeConstraint isPrivate: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c1061683200: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFro...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction inv...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no1026031616: 1 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 2 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 2 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ads: false result: '' code: '' contents: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdbCodeFunction>>invoke Receiver: a ChdAdaPackageAdbCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdbCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdbCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#fromValues:->(ChdAdaPackageAdbCodeFunction>>#fr...etc... format: 134 instanceVariables: #('pkg' 'result') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdbCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adbCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PlatypusComplexInstance a PltDefinedType a PltDef...etc... constants: an OrderedCollection() identifiersCache: nil name: 'Objects' algorithmes: an OrderedCollection(a PltFunctionDeclaration) entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema) remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: false Message>>sendTo: Receiver: adbCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adbCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #refedByPointerUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #refedByPointerUsingContext: ChdExplicitAttributePutFunction>>invoke ChdExplicitAttributePutFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')] in [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no737148928 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no737148928) statementsBlock: [:attr947650560 | self code: (((self code pltPlus: '\t') pltPlus: (ChdExplicitAttributePutFunction invokeFromValues: (OrderedCollection new add: attr947650560; yourself))) pltPlus: '\n')]] in ChdAdaClassPutCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaClassPutCodeFunction>>invoke ChdAdaClassPutCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClassAdbCodeFunction>>invoke ChdAdaClassAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adbCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdbCodeFunction>>invoke ChdAdaPackageAdbCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adbCodeUsingContext:receiver: Message>>sendTo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PlatypusComplexInstance>>doesNotUnderstand: #adbCodeUsingContext: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt: no1008992256) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1008992256) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>acceptCheddarXmlIdTypeUsingContext: 14 January 2013 11:26:50.188 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #acceptCheddarXmlIdTypeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: acceptCheddarXmlIdTypeUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>acceptCheddarXmlIdTyp...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a ChdCheddarXmlIdType a ChdBasicAdaTypeGetter) [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #acceptCheddarXmlIdTypeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: acceptCheddarXmlIdTypeUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a ChdCheddarXmlIdType a ChdBasicAdaTypeGetter) OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a ChdBasicAdaTypeGetter a ChdCheddarXmlIdType) Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a ChdBasicAdaTypeGetter a ChdCheddarXmlIdType nil nil nil nil n...etc... firstIndex: 1 lastIndex: 2 PlatypusComplexInstance>>doesNotUnderstand: #acceptCheddarXmlIdTypeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdCheddarXmlIdType a ChdBasicAdaTypeGetter) ChdCheddarXmlIdType>>acceptedUsingContext:receiver: Receiver: a ChdCheddarXmlIdType Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltExplicitAttribute identifiersCache: nil whereRules: an OrderedCollection() name: '' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: false complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection() supertypeConstraint: nil Message>>sendTo: Receiver: acceptedUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdCheddarXmlIdType Receiver's instance variables: selector: #acceptedUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #acceptedUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdCheddarXmlIdType a ChdBasicAdaTypeGetter) ChdBasicAdaDomainFunction>>invoke Receiver: a ChdBasicAdaDomainFunction Arguments and temporary variables: Receiver's instance variables: d: a ChdCheddarXmlIdType ChdBasicAdaDomainFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdBasicAdaDomainFunction Arguments and temporary variables: values: an OrderedCollection(a ChdCheddarXmlIdType) algo: a ChdBasicAdaDomainFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#d->(ChdBasicAdaDomainFunction>>#d "a CompiledMe...etc... format: 132 instanceVariables: #('d') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdBasicAdaDomainFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-CheddarDomainsSchema' traitComposition: {} localSelectors: nil [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (curr603193344 domainUsingContext: self class context); yourself)). self result: (self result pltPlus: (ChdDomainInterfacesListFunction invokeFromValues: (OrderedCollection new add: self adaDomain; add: self ads; add: (self r ownerUsingContext: self class context); yourself)))] in [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAttributesUsingContext: self class context) pltAt: no391905280) statementsBlock: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (curr603193344 domainUsingContext: self class context); yourself)). self result: (self result pltPlus: (ChdDomainInterfacesListFunction invokeFromValues: (OrderedCollection new add: self adaDomain; add: self ads; add: (self r ownerUsingContext: self class context); yourself)))]] in ChdEntityDefinitionInterfacesListFunction>>invoke Receiver: a ChdEntityDefinitionInterfacesListFunction Arguments and temporary variables: curr603193344: a PltExplicitAttribute Receiver's instance variables: r: a PlatypusComplexInstance ads: true result: an OrderedCollection() adaDomain: nil PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunctio...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainF...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAttributesUsingContext: self class context) pltAt: no391905280) statementsBlock: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (curr603193344 domainUsingContext: self class context); yourself)). self result: (self result pltPlus: (ChdDomainInterfacesListFunction invokeFromValues: (OrderedCollection new add: self adaDomain; add: self ads; add: (self r ownerUsingContext: self class context); yourself)))]] in ChdEntityDefinitionInterfacesListFunction>>invoke Receiver: a ChdEntityDefinitionInterfacesListFunction Arguments and temporary variables: no391905280: 1 Receiver's instance variables: r: a PlatypusComplexInstance ads: true result: an OrderedCollection() adaDomain: nil [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAt...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAt...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAt...etc... start: 1 stop: 5 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAt...etc... start: 1 stop: 5 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdEntityDefinitionInterfacesListFunction>>invoke Receiver: a ChdEntityDefinitionInterfacesListFunction Arguments and temporary variables: Receiver's instance variables: r: a PlatypusComplexInstance ads: true result: an OrderedCollection() adaDomain: nil ChdEntityDefinitionInterfacesListFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdEntityDefinitionInterfacesListFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance true) algo: a ChdEntityDefinitionInterfacesListFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#adaDomain->(ChdEntityDefinitionInterfacesListFu...etc... format: 138 instanceVariables: #('r' 'ads' 'result' 'adaDomain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdEntityDefinitionInterfacesListFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaEntityInterfacesListFunction>>invoke Receiver: a ChdAdaEntityInterfacesListFunction Arguments and temporary variables: Receiver's instance variables: r: a PlatypusComplexInstance ads: true result: nil ChdAdaEntityInterfacesListFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaEntityInterfacesListFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance true) algo: a ChdAdaEntityInterfacesListFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaEntityInterfacesListFunction>>#ads ...etc... format: 136 instanceVariables: #('r' 'ads' 'result') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaEntityInterfacesListFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adsInterfacesListUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'PortType' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection() supertypeConstraint: nil isPrivate: false Message>>sendTo: Receiver: adsInterfacesListUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexIns...etc... Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adsInterfacesListUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsInterfacesListUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]] in [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: no262668288) statementsBlock: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke Receiver: a ChdAdaPackageInterfaceFunction Arguments and temporary variables: e297271296: a PlatypusComplexInstance Receiver's instance variables: pkg: a PlatypusComplexInstance ads: true adsList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... adbList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... wul: nil result: an OrderedCollection() defs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... pkgKey: 'ARINC_653_PARTITION' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (Ordered...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (O...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: no262668288) statementsBlock: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke Receiver: a ChdAdaPackageInterfaceFunction Arguments and temporary variables: no262668288: 25 Receiver's instance variables: pkg: a PlatypusComplexInstance ads: true adsList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... adbList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... wul: nil result: an OrderedCollection() defs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... pkgKey: 'ARINC_653_PARTITION' [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... p: 25 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... p: 25 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... start: 1 stop: 66 p: 25 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... start: 1 stop: 66 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageInterfaceFunction>>invoke Receiver: a ChdAdaPackageInterfaceFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance ads: true adsList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... adbList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... wul: nil result: an OrderedCollection() defs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... pkgKey: 'ARINC_653_PARTITION' ChdAdaPackageInterfaceFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageInterfaceFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance true) algo: a ChdAdaPackageInterfaceFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#adbList->(ChdAdaPackageInterfaceFunction>>#adbL...etc... format: 146 instanceVariables: #('pkg' 'ads' 'adsList' 'adbList' 'wul' 'result' 'defs' 'pkg...etc... organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageInterfaceFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adsHeadUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Partition' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: true --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #acceptCheddarXmlIdTypeUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #acceptCheddarXmlIdTypeUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #acceptCheddarXmlIdTypeUsingContext: ChdCheddarXmlIdType>>acceptedUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #acceptedUsingContext: ChdBasicAdaDomainFunction>>invoke ChdBasicAdaDomainFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (curr603193344 domainUsingContext: self class context); yourself)). self result: (self result pltPlus: (ChdDomainInterfacesListFunction invokeFromValues: (OrderedCollection new add: self adaDomain; add: self ads; add: (self r ownerUsingContext: self class context); yourself)))] in [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAttributesUsingContext: self class context) pltAt: no391905280) statementsBlock: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (curr603193344 domainUsingContext: self class context); yourself)). self result: (self result pltPlus: (ChdDomainInterfacesListFunction invokeFromValues: (OrderedCollection new add: self adaDomain; add: self ads; add: (self r ownerUsingContext: self class context); yourself)))]] in ChdEntityDefinitionInterfacesListFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no391905280 | PlatypusCoreAliasStatement alias: ((self r explicitAttributesUsingContext: self class context) pltAt: no391905280) statementsBlock: [:curr603193344 | self adaDomain: (ChdBasicAdaDomainFunction invokeFromValues: (OrderedCollection new add: (curr603193344 domainUsingContext: self class context); yourself)). self result: (self result pltPlus: (ChdDomainInterfacesListFunction invokeFromValues: (OrderedCollection new add: self adaDomain; add: self ads; add: (self r ownerUsingContext: self class context); yourself)))]] in ChdEntityDefinitionInterfacesListFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdEntityDefinitionInterfacesListFunction>>invoke ChdEntityDefinitionInterfacesListFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaEntityInterfacesListFunction>>invoke ChdAdaEntityInterfacesListFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adsInterfacesListUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsInterfacesListUsingContext: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]] in [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: no262668288) statementsBlock: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no262668288 | PlatypusCoreAliasStatement alias: (self defs pltAt: no262668288) statementsBlock: [:e297271296 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e297271296; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e297271296 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e297271296 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageInterfaceFunction>>invoke ChdAdaPackageInterfaceFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adsHeadUsingContext:receiver: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsHeadUsingContext: ChdAdaPackage>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt: no1008992256) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1008992256) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PltEntityDefinition>>adaIdentUsingContext: 15 January 2013 12:10:18.363 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] PltEntityDefinition(Object)>>doesNotUnderstand: #adaIdentUsingContext: Receiver: a PltEntityDefinition Arguments and temporary variables: aMessage: adaIdentUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PltEntityDefinition>>adaIdentUsingContext: resumeValue: nil Receiver's instance variables: owner: a PltSchemaDefinition identifiersCache: nil whereRules: an OrderedCollection() name: 'ARINC_653_Object' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection() supertypes: an OrderedCollection() supertypeConstraint: nil [:supref933756928 | self result: (((((((self result pltPlus: 'type ') pltPlus: (self cip nameUsingContext: self class context)) pltPlus: ' is ') pltPlus: self abstr) pltPlus: 'new ') pltPlus: (supref933756928 adaIdentUsingContext: self class context)) pltPlus: ' with ')] in ChdAdaClassAdsCodeFunction>>invoke Receiver: a ChdAdaClassAdsCodeFunction Arguments and temporary variables: supref933756928: a PltEntityDefinition Receiver's instance variables: cip: a PlatypusComplexInstance withPrivate: false result: '\n-- --------= PartitionType =--------\n\ntype PartitionType;\ntype Pa...etc... abstr: '' localSup: a PlatypusComplexInstance PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltEntityDefinition Receiver's instance variables: statementsBlock: [:supref933756928 | self result: (((((((self result pltPlus:...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltEntityDefinition oneArgStatementsBlock: [:supref933756928 | self result: (((((((self result pl...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaClassAdsCodeFunction>>invoke Receiver: a ChdAdaClassAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance withPrivate: false result: '\n-- --------= PartitionType =--------\n\ntype PartitionType;\ntype Pa...etc... abstr: '' localSup: a PlatypusComplexInstance ChdAdaClassAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaClassAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance false) algo: a ChdAdaClassAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#abstr->(ChdAdaClassAdsCodeFunction>>#abstr "a C...etc... format: 140 instanceVariables: #('cip' 'withPrivate' 'result' 'abstr' 'localSup') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaClassAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaClass>>adsCodeUsingContext:receiver: Receiver: a ChdAdaClass Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'PartitionType' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PltExplicitAttribute a PltExplicitAttribute ...etc... supertypes: an OrderedCollection(a PltEntityDefinitionReference) supertypeConstraint: nil isPrivate: false Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaClass Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaClass) [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: c1061683200: a PlatypusComplexInstance Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: 'type PortMappingType_Choice_Type is (\n\tPseudo_Partition_Choice,\n\tSta...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFro...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction inv...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: no1026031616: 29 Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: 'type PortMappingType_Choice_Type is (\n\tPseudo_Partition_Choice,\n\tSta...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 29 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... p: 29 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 64 p: 29 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents plt...etc... start: 1 stop: 64 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageConceptsListCodeFunction>>invoke Receiver: a ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: Receiver's instance variables: p: a PlatypusComplexInstance concepts: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ads: true result: 'type CriticalityType is (\n\tLEVEL_A,\n\tLEVEL_B,\n\tLEVEL_C,\n\tLEVEL...etc... code: 'type PortMappingType_Choice_Type is (\n\tPseudo_Partition_Choice,\n\tSta...etc... contents: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedTy...etc... ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageConceptsListCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance an OrderedCollection(a P...etc... algo: a ChdAdaPackageConceptsListCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAdaPackageConceptsListCodeFunction>>#a...etc... format: 142 instanceVariables: #('p' 'concepts' 'ads' 'result' 'code' 'contents') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageConceptsListCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackageAdsCodeFunction>>invoke Receiver: a ChdAdaPackageAdsCodeFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance result: nil classes: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... constList: an OrderedCollection() privateClasses: an OrderedCollection() constrainedArrays: an OrderedCollection() ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageAdsCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaPackageAdsCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#classes->(ChdAdaPackageAdsCodeFunction>>#classe...etc... format: 142 instanceVariables: #('pkg' 'result' 'classes' 'constList' 'privateClasses' 'con...etc... organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageAdsCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adsCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PltDefinedType a PltDefinedType a PltDefinedType ...etc... constants: an OrderedCollection() identifiersCache: nil name: 'ARINC_653_Partition' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema) remarkReferences: an OrderedCollection(a PltRemarkReference a PltRemarkReferenc...etc... mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: true Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt: no1008992256) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1008992256) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: no1008992256: 8 Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... p: 8 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... p: 8 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... start: 1 stop: 36 p: 8 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... start: 1 stop: 36 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 --- The full stack --- PltEntityDefinition(Object)>>doesNotUnderstand: #adaIdentUsingContext: [:supref933756928 | self result: (((((((self result pltPlus: 'type ') pltPlus: (self cip nameUsingContext: self class context)) pltPlus: ' is ') pltPlus: self abstr) pltPlus: 'new ') pltPlus: (supref933756928 adaIdentUsingContext: self class context)) pltPlus: ' with ')] in ChdAdaClassAdsCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: ChdAdaClassAdsCodeFunction>>invoke ChdAdaClassAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaClass>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]] in [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no1026031616 | PlatypusCoreAliasStatement alias: (self contents pltAt: no1026031616) statementsBlock: [:c1061683200 | (ChdIsOfGeneratedConceptKindFunction invokeFromValues: (OrderedCollection new add: c1061683200; yourself)) ifTrue: [self ads ifTrue: [self code: (c1061683200 adsCodeUsingContext: self class context)] ifFalse: [self code: (c1061683200 adbCodeUsingContext: self class context)]. self result: (self result pltPlus: self code). self code > '' ifTrue: [self result: (self result pltPlus: '\n')]]]] in ChdAdaPackageConceptsListCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageConceptsListCodeFunction>>invoke ChdAdaPackageConceptsListCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackageAdsCodeFunction>>invoke ChdAdaPackageAdsCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:no1008992256 | self ads ifTrue: [self body: ((self pkgs pltAt: no1008992256) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1008992256) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE SubscriptOutOfBounds: 2 17 January 2013 2:19:18.374 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>errorSubscriptBounds: Receiver: an OrderedCollection(a PlatypusComplexInstance) Arguments and temporary variables: index: 2 Receiver's instance variables: array: an Array(a PlatypusComplexInstance nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 OrderedCollection>>ensureBoundsFrom:to: Receiver: an OrderedCollection(a PlatypusComplexInstance) Arguments and temporary variables: fromIndex: 2 toIndex: 2 Receiver's instance variables: array: an Array(a PlatypusComplexInstance nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 OrderedCollection>>at: Receiver: an OrderedCollection(a PlatypusComplexInstance) Arguments and temporary variables: anInteger: 2 Receiver's instance variables: array: an Array(a PlatypusComplexInstance nil nil nil nil nil nil nil nil nil) firstIndex: 1 lastIndex: 1 ChdEntityDefinitionInterfacesListFunction>>fromValues: Receiver: a ChdEntityDefinitionInterfacesListFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) Receiver's instance variables: r: a PlatypusComplexInstance ads: nil result: nil adaDomain: nil ChdEntityDefinitionInterfacesListFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdEntityDefinitionInterfacesListFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: nil Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#adaDomain->(ChdEntityDefinitionInterfacesListFu...etc... format: 138 instanceVariables: #('r' 'ads' 'result' 'adaDomain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdEntityDefinitionInterfacesListFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdDiscriminatedType>>adsInterfacesListUsingContext:receiver: Receiver: a ChdDiscriminatedType Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PlatypusComplexInstance identifiersCache: nil whereRules: an OrderedCollection() name: 'Time_Unit_Event' independent: false subtypes: nil uniquenessRules: an OrderedCollection() instantiable: true complex: false attributes: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexIns...etc... supertypes: an OrderedCollection() supertypeConstraint: nil Message>>sendTo: Receiver: adsInterfacesListUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexIns...etc... Arguments and temporary variables: receiver: a ChdDiscriminatedType Receiver's instance variables: selector: #adsInterfacesListUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsInterfacesListUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdDiscriminatedType) [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]] in [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: no255328256) statementsBlock: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke Receiver: a ChdAdaPackageInterfaceFunction Arguments and temporary variables: e289931264: a PlatypusComplexInstance Receiver's instance variables: pkg: a PlatypusComplexInstance ads: true adsList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... adbList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... wul: nil result: an OrderedCollection() defs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... pkgKey: 'TIME_UNIT_EVENTS' PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance Receiver's instance variables: statementsBlock: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (Ordered...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PlatypusComplexInstance oneArgStatementsBlock: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (O...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: no255328256) statementsBlock: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke Receiver: a ChdAdaPackageInterfaceFunction Arguments and temporary variables: no255328256: 15 Receiver's instance variables: pkg: a PlatypusComplexInstance ads: true adsList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... adbList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... wul: nil result: an OrderedCollection() defs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... pkgKey: 'TIME_UNIT_EVENTS' [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... p: 15 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... p: 15 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... start: 1 stop: 21 p: 15 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: n...etc... start: 1 stop: 21 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaPackageInterfaceFunction>>invoke Receiver: a ChdAdaPackageInterfaceFunction Arguments and temporary variables: Receiver's instance variables: pkg: a PlatypusComplexInstance ads: true adsList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... adbList: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaInter...etc... wul: nil result: an OrderedCollection() defs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... pkgKey: 'TIME_UNIT_EVENTS' ChdAdaPackageInterfaceFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaPackageInterfaceFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance true) algo: a ChdAdaPackageInterfaceFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#adbList->(ChdAdaPackageInterfaceFunction>>#adbL...etc... format: 146 instanceVariables: #('pkg' 'ads' 'adsList' 'adbList' 'wul' 'result' 'defs' 'pkg...etc... organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaPackageInterfaceFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdAdaPackage>>adsHeadUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance...etc... constants: an OrderedCollection() identifiersCache: nil name: 'Time_Unit_Events' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: false Message>>sendTo: Receiver: adsHeadUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adsHeadUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsHeadUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) ChdAdaPackage>>adsCodeUsingContext:receiver: Receiver: a ChdAdaPackage Arguments and temporary variables: aContext: a PlatypusCoreRunningContext aReceiver: a PlatypusComplexInstance Receiver's instance variables: owner: a PltSchemaInstance namedTypesCache: nil types: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance...etc... constants: an OrderedCollection() identifiersCache: nil name: 'Time_Unit_Events' algorithmes: an OrderedCollection() entities: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInsta...etc... interface: an OrderedCollection(a PltUsedSchema a PltUsedSchema a PltUsedSchema...etc... remarkReferences: an OrderedCollection() mappings: an OrderedCollection() globalRules: an OrderedCollection() adbInterface: an OrderedCollection() isXmlRoot: false Message>>sendTo: Receiver: adsCodeUsingContext: a PlatypusCoreRunningContext receiver: a PlatypusComplexInstance Arguments and temporary variables: receiver: a ChdAdaPackage Receiver's instance variables: selector: #adsCodeUsingContext:receiver: args: an Array(a PlatypusCoreRunningContext a PlatypusComplexInstance) lookupClass: nil PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdAdaPackage) [:no1001652224 | self ads ifTrue: [self body: ((self pkgs pltAt: no1001652224) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1001652224) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: no1001652224: 21 Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1001652224 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... p: 21 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1001652224 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... p: 21 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1001652224 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... start: 1 stop: 35 p: 21 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1001652224 | self ads ifTrue: [self body: ((self pkgs pltAt:...etc... start: 1 stop: 35 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 --- The full stack --- OrderedCollection(Object)>>errorSubscriptBounds: OrderedCollection>>ensureBoundsFrom:to: OrderedCollection>>at: ChdEntityDefinitionInterfacesListFunction>>fromValues: ChdEntityDefinitionInterfacesListFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdDiscriminatedType>>adsInterfacesListUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsInterfacesListUsingContext: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]] in [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: no255328256) statementsBlock: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no255328256 | PlatypusCoreAliasStatement alias: (self defs pltAt: no255328256) statementsBlock: [:e289931264 | ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CHEDDAR_DEFINED_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.EXPLICIT_TYPE_REFERENCE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_CONSTANTS.ADA_CONSTANT') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'RECORD_AND_CLASS.ADA_ENTITY') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.ADA_ENUMERATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'CHEDDAR_DOMAINS.CONSTRAINED_ARRAY_TYPE') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]. ((PltTYPEOFFunction invokeFromValues: (OrderedCollection new add: e289931264; yourself)) includes: 'PACKAGE.GENERIC_PACKAGE_INSTANCIATION') ifTrue: [self adsList: (self adsList pltPlus: (e289931264 adsInterfacesListUsingContext: self class context)). self adbList: (self adbList pltPlus: (e289931264 adbInterfacesListUsingContext: self class context))]]] in ChdAdaPackageInterfaceFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaPackageInterfaceFunction>>invoke ChdAdaPackageInterfaceFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaPackage>>adsHeadUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsHeadUsingContext: ChdAdaPackage>>adsCodeUsingContext:receiver: Message>>sendTo: PlatypusComplexInstance>>doesNotUnderstand: #adsCodeUsingContext: [:no1001652224 | self ads ifTrue: [self body: ((self pkgs pltAt: no1001652224) adsCodeUsingContext: self class context)] ifFalse: [self body: ((self pkgs pltAt: no1001652224) adbCodeUsingContext: self class context)]. self body > '' ifTrue: [self code: ((self code pltPlus: self body) pltPlus: '\n\n')]] in ChdAllPackagesCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: OrderedCollection>>nameUsingContext: 17 January 2013 2:38:21.006 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] OrderedCollection(Object)>>doesNotUnderstand: #nameUsingContext: Receiver: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusComplex...etc... Arguments and temporary variables: aMessage: nameUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: OrderedCollection>>nameUsingContext: resumeValue: nil Receiver's instance variables: array: an Array(a PlatypusComplexInstance a PlatypusComplexInstance a PlatypusC...etc... firstIndex: 1 lastIndex: 35 [:no207355904 | self interfaces: (self interfaces pltPlus: (ChdAdaInterface new adaInterfaceFromValues: (OrderedCollection new add: (self pkgs nameUsingContext: self class context); add: nil; add: true; add: true; yourself); yourself)). self interfaces: (self interfaces pltPlus: (ChdAdaPackageInterfaceFunction invokeFromValues: (OrderedCollection new add: (self pkgs pltAt: no207355904); add: true; yourself)))] in ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: no207355904: 1 Receiver's instance variables: test: '' code: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... interfaces: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaIn...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no207355904 | self interfaces: (self interfaces pltPlus: (ChdAdaIn...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no207355904 | self interfaces: (self interfaces pltPlus: (ChdAdaIn...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no207355904 | self interfaces: (self interfaces pltPlus: (ChdAdaIn...etc... start: 1 stop: 35 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no207355904 | self interfaces: (self interfaces pltPlus: (ChdAdaIn...etc... start: 1 stop: 35 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: test: '' code: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... interfaces: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaIn...etc... ChdXmlArchitectureIoAdsPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke Receiver: ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#allcls->(ChdXmlArchitectureIoAdsPackageCodeFunc...etc... format: 144 instanceVariables: #('test' 'code' 'pkgs' 'allcls' 'allrecs' 'alldts' 'interfac...etc... organization: ('platypus-generated-accessing' allcls allcls: alldts alldts: all...etc... subclasses: nil name: #ChdXmlArchitectureIoAdsPackageCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-XmlReaderSchema' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(1042808832) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(131334144)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(1042808832) class: UndefinedObject category: nil context: nil parser: a Parser [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1042808832) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState BlockClosure>>on:do: Receiver: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: ...etc... Arguments and temporary variables: exception: OutOfScopeNotification handlerAction: [:ex | ex resume: true] handlerActive: true Receiver's instance variables: outerContext: SmalltalkEditor>>evaluateSelectionAndDo: startpc: 110 numArgs: 0 SmalltalkEditor>>evaluateSelectionAndDo: Receiver: a SmalltalkEditor Arguments and temporary variables: aBlock: [:result | result] result: nil rcvr: nil ctxt: nil Receiver's instance variables: morph: a TextMorphForEditView(1042808832) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState SmalltalkEditor>>evaluateSelection Receiver: a SmalltalkEditor Arguments and temporary variables: Receiver's instance variables: morph: a TextMorphForEditView(1042808832) selectionShowing: true model: a Workspace editingState: a SmalltalkEditingState [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(137363456) Arguments and temporary variables: Receiver's instance variables: bounds: (70.0@538.0) corner: (510.0@705.0) owner: a SystemWindow(809500672) submorphs: an Array(a TransformMorph(409468928)) fullBounds: (70@538) corner: (510@705) color: Color white extension: a MorphExtension (1021575168) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(165150720) scroller: a TransformMorph(409468928) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(295698432) textMorph: a TextMorphForEditView(1042808832) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [result := editBlock value] in PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(137363456) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (70.0@538.0) corner: (510.0@705.0) owner: a SystemWindow(809500672) submorphs: an Array(a TransformMorph(409468928)) fullBounds: (70@538) corner: (510@705) color: Color white extension: a MorphExtension (1021575168) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(165150720) scroller: a TransformMorph(409468928) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(295698432) textMorph: a TextMorphForEditView(1042808832) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil TextMorphForEditView(TextMorph)>>handleEdit: Receiver: a TextMorphForEditView(1042808832) Arguments and temporary variables: editBlock: [result := editBlock value] Receiver's instance variables: bounds: (0@0) corner: (432@34) owner: a TransformMorph(409468928) submorphs: #() fullBounds: (0@0) corner: (432@34) color: Color black extension: a MorphExtension (51642368) [other: (blinkStart -> 2118409) (kmDisp...etc... borderWidth: 0 borderColor: Color black textStyle: a TextStyle Bitmap DejaVu Sans 9 text: a Text for 'CheddarGenerator run ' wrapFlag: true paragraph: a Paragraph editor: a SmalltalkEditor container: nil predecessor: nil successor: nil backgroundColor: nil margins: (0@0) corner: (0@0) editView: a PluggableTextMorph(137363456) acceptOnCR: false autoAccept: false acceptOnFocusChange: false selectionColor: nil PluggableTextMorph>>handleEdit: Receiver: a PluggableTextMorph(137363456) Arguments and temporary variables: editBlock: [textMorph editor evaluateSelection] result: #(nil) Receiver's instance variables: bounds: (70.0@538.0) corner: (510.0@705.0) owner: a SystemWindow(809500672) submorphs: an Array(a TransformMorph(409468928)) fullBounds: (70@538) corner: (510@705) color: Color white extension: a MorphExtension (1021575168) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(165150720) scroller: a TransformMorph(409468928) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(295698432) textMorph: a TextMorphForEditView(1042808832) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil PluggableTextMorph>>doIt Receiver: a PluggableTextMorph(137363456) Arguments and temporary variables: Receiver's instance variables: bounds: (70.0@538.0) corner: (510.0@705.0) owner: a SystemWindow(809500672) submorphs: an Array(a TransformMorph(409468928)) fullBounds: (70@538) corner: (510@705) color: Color white extension: a MorphExtension (1021575168) [other: (kmDispatcher -> a KMDispatch...etc... borderWidth: 1 borderColor: (Color r: 0.706 g: 0.706 b: 0.706) model: a Workspace open: false accessor: nil scrollBar: a ScrollBar(165150720) scroller: a TransformMorph(409468928) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #codePaneMenu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(295698432) textMorph: a TextMorphForEditView(1042808832) getTextSelector: #contents setTextSelector: #acceptContents: getSelectionSelector: nil hasUnacceptedEdits: false askBeforeDiscardingEdits: true selectionInterval: (21 to: 20) hasEditingConflicts: false acceptAction: nil getColorSelector: nil unstyledAcceptText: nil styler: a SHTextStylerST80 autoAccept: nil enabled: true getEnabledSelector: nil highlights: an OrderedCollection() acceptOnFocusChange: nil selectionColor: nil alwaysAccept: nil changedAction: nil [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: Receiver: KMEditorsDefaultSettings Arguments and temporary variables: morph: a PluggableTextMorph(137363456) Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #KMEditorsDefaultSettings classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Keymapping-Editors' traitComposition: {} localSelectors: nil BlockClosure>>cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: anArg: a PluggableTextMorph(137363456) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(137363456) secondArg: a PluggableTextMorph(137363456) Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 BlockClosure>>cull:cull:cull: Receiver: [:morph | morph doIt] Arguments and temporary variables: firstArg: a PluggableTextMorph(137363456) secondArg: a PluggableTextMorph(137363456) thirdArg: [keystroke ''] Receiver's instance variables: outerContext: KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn...etc... startpc: 103 numArgs: 1 KMCategoryTarget>>completeMatch:buffer: Receiver: a KMCategoryTarget Arguments and temporary variables: aKeymap: #doIt on Cmd + D do [:morph | morph doIt] aBuffer: an OrderedCollection([keystroke '']) Receiver's instance variables: target: a PluggableTextMorph(137363456) category: a KMCategory morph: a PluggableTextMorph(137363456) [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aBuffer: a KMCategoryTarget l: an OrderedCollection([keystroke '']) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' Array(SequenceableCollection)>>do: Receiver: an Array(a KMDispatcher a KMCategoryTarget) Arguments and temporary variables: aBlock: [:l | l completeMatch: self buffer: aBuffer] index: 2 indexLimiT: 2 Receiver's instance variables: an Array(a KMDispatcher a KMCategoryTarget) KMKeymap>>notifyCompleteMatchTo:buffer: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: aListener: an Array(a KMDispatcher a KMCategoryTarget) aBuffer: an OrderedCollection([keystroke '']) listeners: an Array(a KMDispatcher a KMCategoryTarget) Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' KMKeymap>>onMatchWith:notify:andDo: Receiver: #doIt on Cmd + D do [:morph | morph doIt] Arguments and temporary variables: anEventBuffer: an OrderedCollection([keystroke '']) aMatchListener: an Array(a KMDispatcher a KMCategoryTarget) anAction: [^ self] Receiver's instance variables: action: [:morph | morph doIt] name: #doIt shortcut: Cmd + D defaultShortcut: Cmd + D description: '' [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Receiver: a KMCategory Arguments and temporary variables: anEventBuffer: #doIt on Cmd + D do [:morph | morph doIt] aMatchListener: an OrderedCollection([keystroke '']) aBlock: an Array(a KMDispatcher a KMCategoryTarget) entry: [^ self] Receiver's instance variables: name: #SmalltalkEditor platforms: a Dictionary(#MacOSX->a KMStorage #all->a KMStorage ) --- The full stack --- OrderedCollection(Object)>>doesNotUnderstand: #nameUsingContext: [:no207355904 | self interfaces: (self interfaces pltPlus: (ChdAdaInterface new adaInterfaceFromValues: (OrderedCollection new add: (self pkgs nameUsingContext: self class context); add: nil; add: true; add: true; yourself); yourself)). self interfaces: (self interfaces pltPlus: (ChdAdaPackageInterfaceFunction invokeFromValues: (OrderedCollection new add: (self pkgs pltAt: no207355904); add: true; yourself)))] in ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke ChdXmlArchitectureIoAdsPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isEmpty" is nil 18 January 2013 9:16:19.96 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isEmpty Receiver: nil Arguments and temporary variables: aMessage: isEmpty exception: MessageNotUnderstood: receiver of "isEmpty" is nil resumeValue: nil Receiver's instance variables: nil TamBrowser>>localSearchListItemByName Receiver: a TamBrowser Arguments and temporary variables: pattern: nil Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>searchListItemByName Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>menuSearch Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $f tamuggableListMorph: a TamHierarchicalListMorph(925106176) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $f Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(925106176) Receiver's instance variables: timeStamp: 50213037 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (961@211) handler: nil wasHandled: true keyValue: 102 charCode: 102 scanCode: 3 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) result: #(nil) Receiver's instance variables: bounds: (1137@268) corner: (1153@284) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1137@268) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50215683 1137 268 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (1137@268) corner: (1153@284) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1137@268) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50215683 1137 268 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (1137@268) corner: (1153@284) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1137@268) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50215683 1137 268 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (1137@268) corner: (1153@284) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1137@268) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50215683 1137 268 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (1137@268) corner: (1153@284) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1137@268) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50215683 1137 268 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 50213037 102 0 8 102 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (1137@268) corner: (1153@284) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: nil color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1137@268) mouseOver nil nil] targetOffset: (9.0@8.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50215683 1137 268 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(201064448))...etc... lastStepTime: 50215806 lastStepMessage: nil lastCycleTime: 50215806 alarms: a Heap() lastAlarmTime: 50215806 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(201064448))...etc... lastStepTime: 50215806 lastStepMessage: nil lastCycleTime: 50215806 alarms: a Heap() lastAlarmTime: 50215806 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(201064448))...etc... lastStepTime: 50215806 lastStepMessage: nil lastCycleTime: 50215806 alarms: a Heap() lastAlarmTime: 50215806 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(201064448))...etc... lastStepTime: 50215806 lastStepMessage: nil lastCycleTime: 50215806 alarms: a Heap() lastAlarmTime: 50215806 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isEmpty TamBrowser>>localSearchListItemByName TamBrowser>>searchListItemByName TamBrowser>>menuSearch TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isEmpty" is nil 18 January 2013 9:16:29.512 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isEmpty Receiver: nil Arguments and temporary variables: aMessage: isEmpty exception: MessageNotUnderstood: receiver of "isEmpty" is nil resumeValue: nil Receiver's instance variables: nil TamBrowser>>localSearchListItemByName Receiver: a TamBrowser Arguments and temporary variables: pattern: nil Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>searchListItemByName Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>menuSearch Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $f tamuggableListMorph: a TamHierarchicalListMorph(925106176) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $f Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(925106176) Receiver's instance variables: timeStamp: 50221452 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (842@376) handler: nil wasHandled: true keyValue: 102 charCode: 102 scanCode: 3 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) result: #(nil) Receiver's instance variables: bounds: (1034@429) corner: (1050@445) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (1034@429) corner: (1050@445) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1042@438) mouseOver nil nil] targetOffset: (34.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50225469 1042 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (1033@429) corner: (1049@445) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (1033@429) corner: (1049@445) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1041@438) mouseOver nil nil] targetOffset: (34.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50225490 1041 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (1033@429) corner: (1049@445) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (1033@429) corner: (1049@445) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1041@438) mouseOver nil nil] targetOffset: (34.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50225490 1041 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (1033@429) corner: (1049@445) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (1033@429) corner: (1049@445) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1041@438) mouseOver nil nil] targetOffset: (34.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50225490 1041 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (1033@429) corner: (1049@445) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (1033@429) corner: (1049@445) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1041@438) mouseOver nil nil] targetOffset: (34.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50225490 1041 438 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 50221452 102 0 8 102 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (1017@428) corner: (1033@444) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (1017@428) corner: (1033@444) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(1025@437) mouseOver nil nil] targetOffset: (34.0@13.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50225512 1025 437 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(467664896))...etc... lastStepTime: 50225512 lastStepMessage: nil lastCycleTime: 50225512 alarms: a Heap() lastAlarmTime: 50225512 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(467664896))...etc... lastStepTime: 50225512 lastStepMessage: nil lastCycleTime: 50225512 alarms: a Heap() lastAlarmTime: 50225512 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(467664896))...etc... lastStepTime: 50225512 lastStepMessage: nil lastCycleTime: 50225512 alarms: a Heap() lastAlarmTime: 50225512 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(467664896))...etc... lastStepTime: 50225512 lastStepMessage: nil lastCycleTime: 50225512 alarms: a Heap() lastAlarmTime: 50225512 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isEmpty TamBrowser>>localSearchListItemByName TamBrowser>>searchListItemByName TamBrowser>>menuSearch TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isEmpty" is nil 18 January 2013 9:16:40.235 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isEmpty Receiver: nil Arguments and temporary variables: aMessage: isEmpty exception: MessageNotUnderstood: receiver of "isEmpty" is nil resumeValue: nil Receiver's instance variables: nil TamBrowser>>localSearchListItemByName Receiver: a TamBrowser Arguments and temporary variables: pattern: nil Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>searchListItemByName Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>menuSearch Receiver: a TamBrowser Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>keyStroke:from: Receiver: a TamBrowser Arguments and temporary variables: aCharacter: $f tamuggableListMorph: a TamHierarchicalListMorph(925106176) Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(925106176) a Pluggable...etc... currentSelection: a TamListItemWrapper mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(467664896) listMorph: a TamHierarchicalListMorph(925106176) editorRow: a TamPaneMorph(782237696) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary([cheddar: /ARINC653]->a TamPaneMorph(...etc... localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(842792960) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(654049280) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: event: [keystroke ''] args: 2 aCharacter: $f Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 TamHierarchicalListMorph(Morph)>>handleKeystroke: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] handler: nil Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 KeyboardEvent>>sentTo: Receiver: [keystroke ''] Arguments and temporary variables: anObject: a TamHierarchicalListMorph(925106176) Receiver's instance variables: timeStamp: 50233725 source: a HandMorph(843055104) windowIndex: nil type: #keystroke buttons: 64 position: (727@211) handler: nil wasHandled: true keyValue: 102 charCode: 102 scanCode: 3 TamHierarchicalListMorph(Morph)>>handleEvent: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 TamHierarchicalListMorph(Morph)>>handleFocusEvent: Receiver: a TamHierarchicalListMorph(925106176) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (250.0@81.0) corner: (611.0@702.0) owner: a TamPaneMorph(850132992) submorphs: an Array(a ScrollBar(952107008) a ScrollBar(1065877504) a TamHierarc...etc... fullBounds: (250@81) corner: (611@702) color: Color white extension: a MorphExtension (587464704) [eventHandler = an EventHandler recipie...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamBrowser open: false accessor: nil scrollBar: a ScrollBar(952107008) scroller: a TamHierarchicalListTransformMorph(105906176) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(1065877504) selectedMorph: a TamIndentingListItemMorph(231473152)'express2cheddar' getListSelector: #getList keystrokeActionSelector: #keyStroke:from: autoDeselect: true columns: nil sortingSelector: nil getSelectionSelector: #getCurrentSelection setSelectionSelector: #noteNewSelection: potentialDropMorph: nil lineColor: nil lastSelection: 0 lastKeystrokeTime: 0 lastKeystrokes: '' searchedElement: nil eventRulesHandler: a TamSimpleHierarchicalListMorphEventRulesHandler emphasisIndex: a TamListItemMorphEmphasisIndex maxNodeWidth: 541.0 [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) result: #(nil) Receiver's instance variables: bounds: (891@260) corner: (907@276) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (891@260) corner: (907@276) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(899@269) mouseOver nil nil] targetOffset: (12.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50236210 899 269 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: nil Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) aBlock: [self keyboardFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (891@260) corner: (907@276) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (891@260) corner: (907@276) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(899@269) mouseOver nil nil] targetOffset: (12.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50236210 899 269 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] focusHolder: a TamHierarchicalListMorph(925106176) aBlock: [self keyboardFocus: nil] result: nil Receiver's instance variables: bounds: (891@260) corner: (907@276) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (891@260) corner: (907@276) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(899@269) mouseOver nil nil] targetOffset: (12.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50236210 899 269 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendKeyboardEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] Receiver's instance variables: bounds: (891@260) corner: (907@276) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (891@260) corner: (907@276) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(899@269) mouseOver nil nil] targetOffset: (12.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50236210 899 269 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [keystroke ''] evt: [keystroke ''] ofs: nil Receiver's instance variables: bounds: (884@260) corner: (900@276) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (884@260) corner: (900@276) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(892@269) mouseOver nil nil] targetOffset: (12.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50236230 892 269 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [keystroke ''] evtBuf: #(2 50233725 102 0 8 102 0 1) type: 2 hadAny: true Receiver's instance variables: bounds: (884@260) corner: (900@276) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (884@260) corner: (900@276) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(892@269) mouseOver nil nil] targetOffset: (12.0@9.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: Form(16x16x8) temporaryCursorOffset: (-8@ -9) hardwareCursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r...etc... hasChanged: true savedPatch: nil lastEventBuffer: #(1 50236230 892 269 0 0 0 1) lastKeyScanCode: 3 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(704380928))(a TamPaneMo...etc... lastStepTime: 50236230 lastStepMessage: nil lastCycleTime: 50236230 alarms: a Heap() lastAlarmTime: 50236230 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(704380928))(a TamPaneMo...etc... lastStepTime: 50236230 lastStepMessage: nil lastCycleTime: 50236230 alarms: a Heap() lastAlarmTime: 50236230 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(704380928))(a TamPaneMo...etc... lastStepTime: 50236230 lastStepMessage: nil lastCycleTime: 50236230 alarms: a Heap() lastAlarmTime: 50236230 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1352@856) canvas: a FormCanvas on: DisplayScreen(1352x856x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(704380928))(a TamPaneMo...etc... lastStepTime: 50236230 lastStepMessage: nil lastCycleTime: 50236230 alarms: a Heap() lastAlarmTime: 50236230 menuBuilder: a PragmaMenuBuilder ( nil ) PasteUpMorph>>doOneCycle Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: Receiver's instance variables: bounds: (0@0) corner: (1352@856) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1352@856) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess Receiver: a MorphicUIManager Arguments and temporary variables: Receiver's instance variables: interactiveParser: nil [self value. Processor terminateActive] in BlockClosure>>newProcess Receiver: [[World doOneCycle. Processor yield. false] whileFalse. nil] Arguments and temporary variables: Receiver's instance variables: outerContext: MorphicUIManager>>spawnNewProcess startpc: 57 numArgs: 0 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isEmpty TamBrowser>>localSearchListItemByName TamBrowser>>searchListItemByName TamBrowser>>menuSearch TamBrowser>>keyStroke:from: TamHierarchicalListMorph(SimpleHierarchicalListMorph)>>keyStroke: TamHierarchicalListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: TamHierarchicalListMorph(Morph)>>handleEvent: TamHierarchicalListMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: PlatypusComplexInstance>>elementTypeUsingContext: 20 January 2013 10:56:57.942 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] PlatypusComplexInstance(Object)>>doesNotUnderstand: #elementTypeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: elementTypeUsingContext: a PlatypusCoreRunningContext exception: MessageNotUnderstood: PlatypusComplexInstance>>elementTypeUsingConte...etc... resumeValue: nil Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedTypeReference a PltDefinedType a Chd...etc... [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #elementTypeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: aMessage: elementTypeUsingContext: a PlatypusCoreRunningContext Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedTypeReference a PltDefinedType a Chd...etc... OrderedCollection(Collection)>>detect:ifNone: Receiver: an OrderedCollection(a ChdBasicAdaTypeGetter a PltDefinedType a ChdUnmappedTypeReference) Arguments and temporary variables: aBlock: [:rec | rec respondsTo: aMessage selector] exceptionBlock: [^ super doesNotUnderstand: aMessage] Receiver's instance variables: array: an Array(a ChdBasicAdaTypeGetter a PltDefinedType a ChdUnmappedTypeRefer...etc... firstIndex: 1 lastIndex: 3 PlatypusComplexInstance>>doesNotUnderstand: #elementTypeUsingContext: Receiver: a PlatypusComplexInstance Arguments and temporary variables: < Receiver's instance variables: records: an OrderedCollection(a ChdUnmappedTypeReference a PltDefinedType a Chd...etc... ChdExplicitAttributeXmlStartElementCodeFunction>>invoke Receiver: a ChdExplicitAttributeXmlStartElementCodeFunction Arguments and temporary variables: Receiver's instance variables: attr: a PltExplicitAttribute code: '' domain: a PlatypusComplexInstance elementDomain: nil ChdExplicitAttributeXmlStartElementCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdExplicitAttributeXmlStartElementCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PltExplicitAttribute) algo: a ChdExplicitAttributeXmlStartElementCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#attr->(ChdExplicitAttributeXmlStartElementCodeF...etc... format: 138 instanceVariables: #('attr' 'code' 'domain' 'elementDomain') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdExplicitAttributeXmlStartElementCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: attr190840832; yourself)). self s > '' ifTrue: [self code: (self code pltPlus: self s)]] in [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no1054081024) statementsBlock: [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: attr190840832; yourself)). self s > '' ifTrue: [self code: (self code pltPlus: self s)]]] in ChdAdaEntityAttributesXmlStartElementCodeFunction>>invoke Receiver: a ChdAdaEntityAttributesXmlStartElementCodeFunction Arguments and temporary variables: attr190840832: a PltExplicitAttribute Receiver's instance variables: cip: a PlatypusComplexInstance code: '' s: nil PlatypusCoreAliasStatement>>alias: Receiver: a PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute Receiver's instance variables: statementsBlock: [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElem...etc... PlatypusCoreAliasStatement class>>alias:statementsBlock: Receiver: PlatypusCoreAliasStatement Arguments and temporary variables: anExpression: a PltExplicitAttribute oneArgStatementsBlock: [:attr190840832 | self s: (ChdExplicitAttributeXmlSta...etc... Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#alias:->(PlatypusCoreAliasStatement>>#alias: "a...etc... format: 132 instanceVariables: #('statementsBlock') organization: ('evaluating' alias:) ('accessing' statementsBlock statementsBloc...etc... subclasses: nil name: #PlatypusCoreAliasStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no1054081024) statementsBlock: [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: attr190840832; yourself)). self s > '' ifTrue: [self code: (self code pltPlus: self s)]]] in ChdAdaEntityAttributesXmlStartElementCodeFunction>>invoke Receiver: a ChdAdaEntityAttributesXmlStartElementCodeFunction Arguments and temporary variables: no1054081024: 1 Receiver's instance variables: cip: a PlatypusComplexInstance code: '' s: nil [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explici...etc... p: 1 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explici...etc... p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explici...etc... start: 1 stop: 2 p: 1 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explici...etc... start: 1 stop: 2 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdAdaEntityAttributesXmlStartElementCodeFunction>>invoke Receiver: a ChdAdaEntityAttributesXmlStartElementCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: '' s: nil ChdAdaEntityAttributesXmlStartElementCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaEntityAttributesXmlStartElementCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaEntityAttributesXmlStartElementCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaEntityAttributesXmlStartElementCode...etc... format: 136 instanceVariables: #('cip' 'code' 's') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaEntityAttributesXmlStartElementCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil ChdAdaEntityXmlStartElementCodeFunction>>invoke Receiver: a ChdAdaEntityXmlStartElementCodeFunction Arguments and temporary variables: Receiver's instance variables: cip: a PlatypusComplexInstance code: nil ChdAdaEntityXmlStartElementCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAdaEntityXmlStartElementCodeFunction Arguments and temporary variables: values: an OrderedCollection(a PlatypusComplexInstance) algo: a ChdAdaEntityXmlStartElementCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#cip->(ChdAdaEntityXmlStartElementCodeFunction>>...etc... format: 134 instanceVariables: #('cip' 'code') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAdaEntityXmlStartElementCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-RecordAndClassSchema' traitComposition: {} localSelectors: nil [:no632815616 | self test: (ChdAdaEntityXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: (self allcls pltAt: no632815616); yourself)). self test > '' ifTrue: [self code: (((((((((self code pltPlus: '\nprocedure Start_Element(\n') pltPlus: '\tHandler : in out Xml_generic_parser;\n') pltPlus: '\tobj : in out ') pltPlus: ((self allcls pltAt: no632815616) nameUsingContext: self class context)) pltPlus: '_io;\n') pltPlus: '\tNamespace_Uri : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tLocal_Name : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tQname : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tAtts : Sax.Attributes.Attributes''Class);\n')]. self code: ((((((((self code pltPlus: '\nprocedure End_Element(\n') pltPlus: '\tHandler : in out Xml_generic_parser;\n') pltPlus: '\tobj : in out ') pltPlus: ((self allcls pltAt: no632815616) nameUsingContext: self class context)) pltPlus: '_io;\n') pltPlus: '\tNamespace_Uri : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tLocal_Name : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tQname : Unicode.CES.Byte_Sequence := "");\n')] in ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: no632815616: 4 Receiver's instance variables: test: '\nprocedure Start_Element(\n\tHandler: in out Xml_Generic_Parser;\n\tobj...etc... code: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... interfaces: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaIn...etc... [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no632815616 | self test: (ChdAdaEntityXmlStartElementCodeFunction ...etc... p: 4 Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [aBlock value: p] Arguments and temporary variables: exception: PlatypusExpressSkipStatementException handlerAction: [skip := true] handlerActive: true Receiver's instance variables: outerContext: [skip := false. [aBlock value: p] on: PlatypusExpressSkipState...etc... startpc: 89 numArgs: 0 [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no632815616 | self test: (ChdAdaEntityXmlStartElementCodeFunction ...etc... p: 4 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil BlockClosure>>on:do: Receiver: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip...etc... Arguments and temporary variables: exception: PlatypusExpressEscapeStatementException handlerAction: [^ nil] handlerActive: true Receiver's instance variables: outerContext: PlatypusCoreRepeatStatement>>repeat:from:to: startpc: 79 numArgs: 0 PlatypusCoreRepeatStatement>>repeat:from:to: Receiver: a PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no632815616 | self test: (ChdAdaEntityXmlStartElementCodeFunction ...etc... start: 1 stop: 120 p: 4 skip: #(false) Receiver's instance variables: incrControlBlock: nil untilControlBlock: nil whileControlBlock: nil PlatypusCoreRepeatStatement class>>repeat:from:to: Receiver: PlatypusCoreRepeatStatement Arguments and temporary variables: aBlock: [:no632815616 | self test: (ChdAdaEntityXmlStartElementCodeFunction ...etc... start: 1 stop: 120 Receiver's instance variables: superclass: PlatypusCoreStatement methodDict: a MethodDictionary(#repeat:->(PlatypusCoreRepeatStatement>>#repeat:...etc... format: 136 instanceVariables: #('incrControlBlock' 'untilControlBlock' 'whileControlBlock'...etc... organization: ('evaluating' repeat: repeat:from:to:) ('accessing' untilControlB...etc... subclasses: nil name: #PlatypusCoreRepeatStatement classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Platypus-HW-core' traitComposition: {} localSelectors: nil ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke Receiver: a ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: test: '\nprocedure Start_Element(\n\tHandler: in out Xml_Generic_Parser;\n\tobj...etc... code: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... allcls: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... allrecs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstan...etc... alldts: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstanc...etc... interfaces: an OrderedCollection(a ChdAdaInterface a ChdAdaInterface a ChdAdaIn...etc... ChdXmlArchitectureIoAdsPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke Receiver: ChdXmlArchitectureIoAdsPackageCodeFunction Arguments and temporary variables: Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#allcls->(ChdXmlArchitectureIoAdsPackageCodeFunc...etc... format: 144 instanceVariables: #('test' 'code' 'pkgs' 'allcls' 'allrecs' 'alldts' 'interfac...etc... organization: ('platypus-generated-accessing' allcls allcls: alldts alldts: all...etc... subclasses: nil name: #ChdXmlArchitectureIoAdsPackageCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-XmlIoSchema' traitComposition: {} localSelectors: nil ChdAllPackagesCodeFunction>>invoke Receiver: a ChdAllPackagesCodeFunction Arguments and temporary variables: Receiver's instance variables: ads: true code: '------------------------------------------------------------------------...etc... body: '------------------------------------------------------------------------...etc... pkgs: an OrderedCollection(a PlatypusComplexInstance a PlatypusComplexInstance ...etc... ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: Receiver: ChdAllPackagesCodeFunction Arguments and temporary variables: values: an OrderedCollection(true) algo: a ChdAllPackagesCodeFunction Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#ads->(ChdAllPackagesCodeFunction>>#ads "a Compi...etc... format: 138 instanceVariables: #('ads' 'code' 'body' 'pkgs') organization: ('platypus-generated-instance-creation') ('platypus-generated-acc...etc... subclasses: nil name: #ChdAllPackagesCodeFunction classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-PackageSchema' traitComposition: {} localSelectors: nil ChdMainProcedure>>invoke Receiver: a ChdMainProcedure Arguments and temporary variables: Receiver's instance variables: a ChdMainProcedure ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: Receiver: ChdMainProcedure Arguments and temporary variables: aStream: a ReadWriteStream repo: a ChdExpress2cheddarRepository Receiver's instance variables: superclass: PlatypusCoreAlgorithmDeclaration methodDict: a MethodDictionary(#invoke->(ChdMainProcedure>>#invoke "a CompiledM...etc... format: 2 instanceVariables: nil organization: ('platypus-generated-invoking' invoke) subclasses: nil name: #ChdMainProcedure classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Chd-Express2cheddarFacadeSchema' traitComposition: {} localSelectors: nil [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: map: [cheddar: /cheddar_mapping] exp2Chd: [cheddar: /express2cheddar] Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil BlockClosure>>ensure: Receiver: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNa...etc... Arguments and temporary variables: aBlock: [oldcursor show] complete: nil returnValue: nil Receiver's instance variables: outerContext: CheddarGenerator class>>run startpc: 67 numArgs: 0 CursorWithMask(Cursor)>>showWhile: Receiver: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2r111111111111110000000...etc... Arguments and temporary variables: aBlock: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd...etc... oldcursor: ((CursorWithMask extent: (16@16) depth: 1 fromArray: #( 2r0 2...etc... Receiver's instance variables: bits: a Bitmap of length 16 width: 16 height: 16 depth: 1 offset: (-1@ -1) maskForm: Form(16x16x1) CheddarGenerator class>>run Receiver: CheddarGenerator Arguments and temporary variables: Receiver's instance variables: superclass: Object methodDict: a MethodDictionary() format: 2 instanceVariables: nil organization: ('as yet unclassified') subclasses: nil name: #CheddarGenerator classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Cheddar-scripts' traitComposition: nil localSelectors: nil UndefinedObject>>DoIt Receiver: nil Arguments and temporary variables: Receiver's instance variables: nil Compiler>>evaluate:in:to:notifying:ifFail:logged: Receiver: a Compiler Arguments and temporary variables: textOrStream: a ReadWriteStream aContext: nil receiver: nil aRequestor: a TextMorphForEditView(1042808832) failBlock: [self morph flash. ^ nil] logFlag: true methodNode: DoIt ^ CheddarGenerator run method: (UndefinedObject>>#DoIt "a CompiledMethod(951582720)") value: nil toLog: nil itsSelection: nil itsSelectionString: nil Receiver's instance variables: sourceStream: a ReadWriteStream requestor: a TextMorphForEditView(1042808832) class: UndefinedObject category: nil context: nil parser: a Parser --- The full stack --- PlatypusComplexInstance(Object)>>doesNotUnderstand: #elementTypeUsingContext: [^ super doesNotUnderstand: aMessage] in PlatypusComplexInstance>>doesNotUnderstand: #elementTypeUsingContext: OrderedCollection(Collection)>>detect:ifNone: PlatypusComplexInstance>>doesNotUnderstand: #elementTypeUsingContext: ChdExplicitAttributeXmlStartElementCodeFunction>>invoke ChdExplicitAttributeXmlStartElementCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: attr190840832; yourself)). self s > '' ifTrue: [self code: (self code pltPlus: self s)]] in [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no1054081024) statementsBlock: [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: attr190840832; yourself)). self s > '' ifTrue: [self code: (self code pltPlus: self s)]]] in ChdAdaEntityAttributesXmlStartElementCodeFunction>>invoke PlatypusCoreAliasStatement>>alias: PlatypusCoreAliasStatement class>>alias:statementsBlock: [:no1054081024 | PlatypusCoreAliasStatement alias: ((self cip explicitAttributesUsingContext: self class context) pltAt: no1054081024) statementsBlock: [:attr190840832 | self s: (ChdExplicitAttributeXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: attr190840832; yourself)). self s > '' ifTrue: [self code: (self code pltPlus: self s)]]] in ChdAdaEntityAttributesXmlStartElementCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdAdaEntityAttributesXmlStartElementCodeFunction>>invoke ChdAdaEntityAttributesXmlStartElementCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdAdaEntityXmlStartElementCodeFunction>>invoke ChdAdaEntityXmlStartElementCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: [:no632815616 | self test: (ChdAdaEntityXmlStartElementCodeFunction invokeFromValues: (OrderedCollection new add: (self allcls pltAt: no632815616); yourself)). self test > '' ifTrue: [self code: (((((((((self code pltPlus: '\nprocedure Start_Element(\n') pltPlus: '\tHandler : in out Xml_generic_parser;\n') pltPlus: '\tobj : in out ') pltPlus: ((self allcls pltAt: no632815616) nameUsingContext: self class context)) pltPlus: '_io;\n') pltPlus: '\tNamespace_Uri : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tLocal_Name : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tQname : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tAtts : Sax.Attributes.Attributes''Class);\n')]. self code: ((((((((self code pltPlus: '\nprocedure End_Element(\n') pltPlus: '\tHandler : in out Xml_generic_parser;\n') pltPlus: '\tobj : in out ') pltPlus: ((self allcls pltAt: no632815616) nameUsingContext: self class context)) pltPlus: '_io;\n') pltPlus: '\tNamespace_Uri : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tLocal_Name : Unicode.CES.Byte_Sequence := "";\n') pltPlus: '\tQname : Unicode.CES.Byte_Sequence := "");\n')] in ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke [aBlock value: p] in [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: [skip := false. [aBlock value: p] on: PlatypusExpressSkipStatementException do: [skip := true]. skip ifFalse: [(self untilControlBlock value: p) ifTrue: [^ nil]]] in PlatypusCoreRepeatStatement>>repeat:from:to: BlockClosure>>on:do: PlatypusCoreRepeatStatement>>repeat:from:to: PlatypusCoreRepeatStatement class>>repeat:from:to: ChdXmlArchitectureIoAdsPackageCodeFunction>>invoke ChdXmlArchitectureIoAdsPackageCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invoke ChdAllPackagesCodeFunction>>invoke ChdAllPackagesCodeFunction class(PlatypusCoreAlgorithmDeclaration class)>>invokeFromValues: ChdMainProcedure>>invoke ChdMainProcedure class(PlatypusCoreAlgorithmDeclaration class)>>invokeOnContextStream: [| map exp2Chd | map := Platypus itemNamed: 'cheddar_mapping'. exp2Chd := Platypus itemNamed: 'express2cheddar'. exp2Chd removeAllModelContents. exp2Chd promote: map. ChdMainProcedure invokeOnContextStream: exp2Chd masterModelAsStepStream] in CheddarGenerator class>>run BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: CheddarGenerator class>>run UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [rcvr class evaluatorClass new evaluate: self selectionForDoitAsStream in: ctxt to: rcvr notifying: self morph ifFail: [self morph flash. ^ nil] logged: true] in SmalltalkEditor>>evaluateSelectionAndDo: BlockClosure>>on:do: SmalltalkEditor>>evaluateSelectionAndDo: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableTextMorph>>doIt [result := editBlock value] in PluggableTextMorph>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableTextMorph>>handleEdit: PluggableTextMorph>>doIt [:morph | morph doIt] in KMEditorsDefaultSettings class>>buildSmalltalkEditorKeymappingsOn: BlockClosure>>cull: BlockClosure>>cull:cull: BlockClosure>>cull:cull:cull: KMCategoryTarget>>completeMatch:buffer: [:l | l completeMatch: self buffer: aBuffer] in KMKeymap>>notifyCompleteMatchTo:buffer: Array(SequenceableCollection)>>do: KMKeymap>>notifyCompleteMatchTo:buffer: KMKeymap>>onMatchWith:notify:andDo: [:entry | entry onMatchWith: anEventBuffer notify: aMatchListener andDo: aBlock] in KMCategory>>onMatchWith:notify:andDo: Set>>do: KMCategory>>onMatchWith:notify:andDo: KMCategoryTarget>>verifyMatchWith:notifying:thenDoing: [:aTarget | aTarget verifyMatchWith: anEventBuffer notifying: self thenDoing: [^ self]] in KMDispatcher>>dispatch: Set>>do: KMDispatcher>>dispatch: KMDispatcher>>matchEvent: KMDispatcher>>dispatchKeystroke: PluggableTextMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TransformMorph(Morph)>>dispatchKeystrokeForEvent: KMTarget>>dispatchOwnerKeystroke: KMDispatcher>>dispatchKeystroke: TextMorphForEditView(Morph)>>dispatchKeystrokeForEvent: TextMorphForEditView(TextMorph)>>handleKeystroke: KeyboardEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: TextMorphForEditView(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isPltValue" is nil 22 January 2013 11:42:03.423 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isPltValue Receiver: nil Arguments and temporary variables: aMessage: isPltValue exception: MessageNotUnderstood: receiver of "isPltValue" is nil resumeValue: nil Receiver's instance variables: nil PlatypusStepReference>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: nil Receiver's instance variables: owner: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: <> PlatypusInstanceEditor(PlatypusCodeMorph)>>codeText Receiver: a PlatypusInstanceEditor Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a StandardWindow(90177536) a PlatypusStepCodeMorp...etc... contents: '' mainWindow: a StandardWindow(90177536) mainPane: a TamPaneMorph(662962176) contentsMorph: a PlatypusStepCodeMorph(1033895936) codeRow: a TamPaneMorph(966000640) sourceHandler: <> PlatypusInstanceEditor(PlatypusCodeMorph)>>sourceHandler: Receiver: a PlatypusInstanceEditor Arguments and temporary variables: < Receiver's instance variables: dependents: a DependentsArray(a StandardWindow(90177536) a PlatypusStepCodeMorp...etc... contents: '' mainWindow: a StandardWindow(90177536) mainPane: a TamPaneMorph(662962176) contentsMorph: a PlatypusStepCodeMorph(1033895936) codeRow: a TamPaneMorph(966000640) sourceHandler: <> PlatypusStepReference>>newEditor Receiver: <> Arguments and temporary variables: editor: a PlatypusInstanceEditor Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>selectingFrom: Receiver: <> Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser tempEditor: nil editor: nil Receiver's instance variables: owner: <> PlatypusStepReference>>selectingFrom: Receiver: <> Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser Receiver's instance variables: owner: <> TamListItemWrapper>>selectingFrom: Receiver: a TamListItemWrapper Arguments and temporary variables: aHierarchicalList: a TamBrowser Receiver's instance variables: item: <> TamBrowser>>updateCodeRowFor: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(486014976) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(280231936) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(28573696) listMorph: a TamHierarchicalListMorph(486014976) editorRow: a TamPaneMorph(343146496) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(956039168) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(214958080) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelectionFromWrapper: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(486014976) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(280231936) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(28573696) listMorph: a TamHierarchicalListMorph(486014976) editorRow: a TamPaneMorph(343146496) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(956039168) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(214958080) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelection:currentlyExpanded: Receiver: a TamBrowser Arguments and temporary variables: < Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(486014976) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(280231936) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(28573696) listMorph: a TamHierarchicalListMorph(486014976) editorRow: a TamPaneMorph(343146496) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(956039168) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(214958080) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamManagerItem>>selectingFrom: Receiver: a TamManagerItem Arguments and temporary variables: aTaxonomiesManager: a TamManager brw: a TamBrowser Receiver's instance variables: item: [cheddar: ] model: nil listId: '' currentSelection: <> TamManager>>changeSelectedTaxonomy: Receiver: a TamManager Arguments and temporary variables: aTaxonomy: 1 selected: a TamManagerItem oldSelected: nil Receiver's instance variables: mainWindow: a TamPaneMorph(71565312) selectedTaxonomy: a TamManagerItem listBtnRow: an AlignmentMorph(280231936) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(391905280) listRow: a TamPaneMorph(212336640) listMorph: a TamPluggableListMorph(518782976) editorSubWindow: a TamPaneMorph(889454592) taxonomyPane: a Platypus TamPluggableListMorph(PluggableListMorph)>>changeModelSelection: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: anInteger: 1 Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(PluggableListMorph)>>mouseUpOnSingle: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: event: [(231@104) mouseUp 69809505 nil] row: 1 mdr: 1 Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(PluggableListMorph)>>mouseUp: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: evt: [(231@104) mouseUp 69809505 nil] Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(Morph)>>handleMouseUp: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] handler: nil Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MouseButtonEvent>>sentTo: Receiver: [(231@104) mouseUp 69809505 nil] Arguments and temporary variables: anObject: a TamPluggableListMorph(518782976) Receiver's instance variables: timeStamp: 69809505 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (231@104) handler: nil wasHandled: true whichButton: 4 TamPluggableListMorph(Morph)>>handleEvent: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] aMorph: a TamPluggableListMorph(518782976) localEvt: [(231@104) mouseUp 69809505 nil] index: 3 child: a TransformMorph(792199168) morphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] aMorph: a TamPluggableListMorph(518782976) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: TamPluggableListMorph(Morph)>>processEvent:using: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(Morph)>>processEvent: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(PluggableListMorph)>>handleFocusEvent: Receiver: a TamPluggableListMorph(518782976) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] Receiver's instance variables: bounds: (199.0@100.0) corner: (246.0@752.0) owner: a TamPaneMorph(212336640) submorphs: an Array(a ScrollBar(680001536) a TransformMorph(792199168)) fullBounds: (199@100) corner: (246@752) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (802160640) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(549453824) scroller: a TransformMorph(792199168) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: false hScrollBar: a ScrollBar(680001536) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(712245248) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] focusHolder: a TamPluggableListMorph(518782976) result: #(nil) Receiver's instance variables: bounds: (277@106) corner: (293@122) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (277@106) corner: (293@122) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(518782976) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(277@106) mouseOver nil nil] targetOffset: (32.0@4.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 69809782 277 106 0 0 0 1) lastKeyScanCode: 4 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1256@816) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(867958784) a Sta...etc... fullBounds: (0@0) corner: (1256@816) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(231@104) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1256@816) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(867958784) a Sta...etc... fullBounds: (0@0) corner: (1256@816) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] focusHolder: a TamPluggableListMorph(518782976) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (284@108) corner: (300@124) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (284@108) corner: (300@124) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(518782976) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(284@108) mouseOver nil nil] targetOffset: (32.0@4.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 69809802 284 108 0 0 0 1) lastKeyScanCode: 4 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] focusHolder: a TamPluggableListMorph(518782976) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (284@108) corner: (300@124) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (284@108) corner: (300@124) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(518782976) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(284@108) mouseOver nil nil] targetOffset: (32.0@4.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 69809802 284 108 0 0 0 1) lastKeyScanCode: 4 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] Receiver's instance variables: bounds: (284@108) corner: (300@124) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (284@108) corner: (300@124) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(518782976) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(284@108) mouseOver nil nil] targetOffset: (32.0@4.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 69809802 284 108 0 0 0 1) lastKeyScanCode: 4 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(231@104) mouseUp 69809505 nil] evt: [(231@104) mouseUp 69809505 nil] ofs: nil Receiver's instance variables: bounds: (284@108) corner: (300@124) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (284@108) corner: (300@124) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(518782976) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(284@108) mouseOver nil nil] targetOffset: (32.0@4.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 69809802 284 108 0 0 0 1) lastKeyScanCode: 4 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(231@104) mouseUp 69809505 nil] evtBuf: #(1 69809505 231 104 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (291@109) corner: (307@125) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (291@109) corner: (307@125) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(518782976) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(291@109) mouseOver nil nil] targetOffset: (32.0@4.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 69809823 291 109 0 0 0 1) lastKeyScanCode: 4 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1256@816) canvas: a FormCanvas on: DisplayScreen(1256x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(550764544))(a TamPaneMo...etc... lastStepTime: 69809823 lastStepMessage: nil lastCycleTime: 69809823 alarms: a Heap() lastAlarmTime: 69809823 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1256@816) canvas: a FormCanvas on: DisplayScreen(1256x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(550764544))(a TamPaneMo...etc... lastStepTime: 69809823 lastStepMessage: nil lastCycleTime: 69809823 alarms: a Heap() lastAlarmTime: 69809823 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1256@816) canvas: a FormCanvas on: DisplayScreen(1256x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(550764544))(a TamPaneMo...etc... lastStepTime: 69809823 lastStepMessage: nil lastCycleTime: 69809823 alarms: a Heap() lastAlarmTime: 69809823 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1256@816) canvas: a FormCanvas on: DisplayScreen(1256x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(550764544))(a TamPaneMo...etc... lastStepTime: 69809823 lastStepMessage: nil lastCycleTime: 69809823 alarms: a Heap() lastAlarmTime: 69809823 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isPltValue PlatypusStepReference>>codeText: PlatypusStepReference>>codeText PlatypusInstanceEditor(PlatypusCodeMorph)>>codeText PlatypusInstanceEditor(PlatypusCodeMorph)>>sourceHandler: PlatypusStepReference>>newEditor PlatypusStepReference(TamListItemReference)>>selectingFrom: PlatypusStepReference>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: TamBrowser>>noteNewSelection:currentlyExpanded: TamManagerItem>>selectingFrom: TamManager>>changeSelectedTaxonomy: TamPluggableListMorph(PluggableListMorph)>>changeModelSelection: TamPluggableListMorph(PluggableListMorph)>>mouseUpOnSingle: TamPluggableListMorph(PluggableListMorph)>>mouseUp: TamPluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: TamPluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: TamPluggableListMorph(Morph)>>processEvent:using: TamPluggableListMorph(Morph)>>processEvent: TamPluggableListMorph(PluggableListMorph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isPltValue" is nil 22 January 2013 11:42:20.44 am VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, StackToRegisterMappingCogit VMMaker-oscog-IgorStasenko.162 uuid: e4554f9a-cc90-4826-a807-ac282b782fe4 Aug 13 2012, https://git.gitorious.org/cogvm/blessed.git Commit: aeb0705cde4b8fc57cb262dc051c5ee6dfa72a14 Date: 2012-07-26 16:38:48 +0200 By: Igor Stasenko Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isPltValue Receiver: nil Arguments and temporary variables: aMessage: isPltValue exception: MessageNotUnderstood: receiver of "isPltValue" is nil resumeValue: nil Receiver's instance variables: nil PlatypusStepRecordReference(PlatypusStepReference)>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: nil Receiver's instance variables: owner: [A released Tamaris reference] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(PlatypusStepReference)>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [A released Tamaris reference] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference>>shortName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: [A released Tamaris reference] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepRecordReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: [A released Tamaris reference] listLabel: nil localWorkspacePaneContents: '' subLists: nil showSubLists: #ifNotEmpty emphasisModel: nil pos: 7 subReferences: <> PlatypusStepReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: <> PlatypusStepInstanceReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>longNameOn: Receiver: <> Arguments and temporary variables: aStream: a WriteStream Receiver's instance variables: owner: <> [:strm | self longNameOn: strm] in PlatypusStepReference(TamListItemReference)>>longName Receiver: <> Arguments and temporary variables: strm: a WriteStream Receiver's instance variables: owner: <> String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:strm | self longNameOn: strm] stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:strm | self longNameOn: strm] Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepReference(TamListItemReference)>>longName Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>printOn: Receiver: <> Arguments and temporary variables: aStream: a LimitedWriteStream Receiver's instance variables: owner: <> [:s | self printOn: s] in PlatypusStepReference(Object)>>printStringLimitedTo: Receiver: <> Arguments and temporary variables: s: a LimitedWriteStream Receiver's instance variables: owner: <> String class(SequenceableCollection class)>>streamContents:limitedTo: Receiver: String Arguments and temporary variables: blockWithArg: [:s | self printOn: s] sizeLimit: 19992 stream: a LimitedWriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepReference(Object)>>printStringLimitedTo: Receiver: <> Arguments and temporary variables: limit: 19992 limitedString: nil Receiver's instance variables: owner: <> [:title :index | indent timesRepeat: [aStream tab]. aStream nextPutAll: title; nextPut: $:; space; tab; nextPutAll: ((self instVarAt: index) printStringLimitedTo: (sizeLimit - 3 - title size max: 1)); cr] in PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: Receiver: <> Arguments and temporary variables: aStream: 'owner' sizeLimit: 1 indent: a WriteStream title: 20000 index: 0 Receiver's instance variables: owner: <> Array(SequenceableCollection)>>withIndexDo: Receiver: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... Arguments and temporary variables: elementAndIndexBlock: [:title :index | indent timesRepeat: [aStream tab]. a...etc... index: 1 indexLimiT: 9 Receiver's instance variables: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... Array(SequenceableCollection)>>doWithIndex: Receiver: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... Arguments and temporary variables: elementAndIndexBlock: [:title :index | indent timesRepeat: [aStream tab]. a...etc... Receiver's instance variables: #('owner' 'listLabel' 'localWorkspacePaneContents' 'subLists' 'showSubLists' 'emphasisMode...etc... PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: Receiver: <> Arguments and temporary variables: aStream: a WriteStream sizeLimit: 20000 indent: 0 Receiver's instance variables: owner: <> [:aStream | self longPrintOn: aStream limitedTo: aLimitValue indent: 0] in PlatypusStepReference(Object)>>longPrintStringLimitedTo: Receiver: <> Arguments and temporary variables: aLimitValue: a WriteStream aStream: 20000 Receiver's instance variables: owner: <> String class(SequenceableCollection class)>>new:streamContents: Receiver: String Arguments and temporary variables: newSize: 100 blockWithArg: [:aStream | self longPrintOn: aStream limitedTo: aLimitValue ...etc... stream: a WriteStream Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil String class(SequenceableCollection class)>>streamContents: Receiver: String Arguments and temporary variables: blockWithArg: [:aStream | self longPrintOn: aStream limitedTo: aLimitValue ...etc... Receiver's instance variables: superclass: ArrayedCollection methodDict: a MethodDictionary(size 321) format: 2 instanceVariables: nil organization: ('*Collections-Text-converting' asText) ('*Collections-arithmetic...etc... subclasses: {ByteString. WideString. Symbol} name: #String classPool: a Dictionary(#AsciiOrder->#[0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Collections-Strings' traitComposition: {} localSelectors: nil PlatypusStepReference(Object)>>longPrintStringLimitedTo: Receiver: <> Arguments and temporary variables: aLimitValue: 20000 str: nil Receiver's instance variables: owner: <> Inspector>>selection Receiver: an Inspector Arguments and temporary variables: basicIndex: nil Receiver's instance variables: contents: a Text for '> Inspector>>toggleIndex: Receiver: an Inspector Arguments and temporary variables: anInteger: 2 Receiver's instance variables: contents: a Text for '> PluggableListMorph>>changeModelSelection: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: anInteger: 2 Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph>>mouseUpOnSingle: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: event: [(259@636) mouseUp 69826588 nil] row: 2 mdr: 2 Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph>>mouseUp: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: evt: [(259@636) mouseUp 69826588 nil] Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph(Morph)>>handleMouseUp: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] handler: nil Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MouseButtonEvent>>sentTo: Receiver: [(259@636) mouseUp 69826588 nil] Arguments and temporary variables: anObject: a PluggableListMorph(838074368) Receiver's instance variables: timeStamp: 69826588 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (259@636) handler: nil wasHandled: true whichButton: 4 PluggableListMorph(Morph)>>handleEvent: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] aMorph: a PluggableListMorph(838074368) localEvt: [(259@636) mouseUp 69826588 nil] index: 4 child: a TransformMorph(37224448) morphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMorph...etc... inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] aMorph: a PluggableListMorph(838074368) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: PluggableListMorph(Morph)>>processEvent:using: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph(Morph)>>processEvent: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil PluggableListMorph>>handleFocusEvent: Receiver: a PluggableListMorph(838074368) Arguments and temporary variables: anEvent: [(259@636) mouseUp 69826588 nil] Receiver's instance variables: bounds: (214.0@613.0) corner: (377.0@730.0) owner: a SystemWindow(19660800) submorphs: an Array(a ScrollBar(997195776) a ScrollBar(868745216) a TransformMo...etc... fullBounds: (214@613) corner: (377@730) color: Color white extension: a MorphExtension (272891904) [other: (selectionColor -> (Color r: 0...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: an Inspector open: false accessor: nil scrollBar: a ScrollBar(868745216) scroller: a TransformMorph(37224448) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #fieldListMenu: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(997195776) list: #('self' 'all inst vars' 'owner' 'listLabel' 'localWorkspacePaneContents'...etc... getListSelector: #fieldList getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectionIndex setIndexSelector: #toggleIndex: keystrokeActionSelector: #inspectorKey:from: autoDeselect: false lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: #inspectSelection handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(1031012352) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isPltValue PlatypusStepRecordReference(PlatypusStepReference)>>codeText: PlatypusStepRecordReference(PlatypusStepReference)>>codeText PlatypusStepRecordReference>>shortName PlatypusStepRecordReference(TamListItemReference)>>longNameOn: PlatypusStepReference(TamListItemReference)>>longNameOn: PlatypusStepInstanceReference(TamListItemReference)>>longNameOn: PlatypusStepReference(TamListItemReference)>>longNameOn: PlatypusStepReference(TamListItemReference)>>longNameOn: PlatypusStepReference(TamListItemReference)>>longNameOn: [:strm | self longNameOn: strm] in PlatypusStepReference(TamListItemReference)>>longName String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepReference(TamListItemReference)>>longName PlatypusStepReference(TamListItemReference)>>printOn: [:s | self printOn: s] in PlatypusStepReference(Object)>>printStringLimitedTo: String class(SequenceableCollection class)>>streamContents:limitedTo: PlatypusStepReference(Object)>>printStringLimitedTo: [:title :index | indent timesRepeat: [aStream tab]. aStream nextPutAll: title; nextPut: $:; space; tab; nextPutAll: ((self instVarAt: index) printStringLimitedTo: (sizeLimit - 3 - title size max: 1)); cr] in PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: Array(SequenceableCollection)>>withIndexDo: Array(SequenceableCollection)>>doWithIndex: PlatypusStepReference(Object)>>longPrintOn:limitedTo:indent: [:aStream | self longPrintOn: aStream limitedTo: aLimitValue indent: 0] in PlatypusStepReference(Object)>>longPrintStringLimitedTo: String class(SequenceableCollection class)>>new:streamContents: String class(SequenceableCollection class)>>streamContents: PlatypusStepReference(Object)>>longPrintStringLimitedTo: Inspector>>selection Inspector>>toggleIndex: PluggableListMorph>>changeModelSelection: PluggableListMorph>>mouseUpOnSingle: PluggableListMorph>>mouseUp: PluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableListMorph(Morph)>>processEvent:using: PluggableListMorph(Morph)>>processEvent: PluggableListMorph>>handleFocusEvent: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: MouseClickState>>handleEvent:from: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isPltValue" is nil 8 February 2013 10:39:14.661 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isPltValue Receiver: nil Arguments and temporary variables: aMessage: isPltValue exception: MessageNotUnderstood: receiver of "isPltValue" is nil resumeValue: nil Receiver's instance variables: nil PlatypusStepReference>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: nil Receiver's instance variables: owner: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: <> PlatypusInstanceEditor(PlatypusCodeMorph)>>codeText Receiver: a PlatypusInstanceEditor Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a StandardWindow(368312320) a PlatypusStepCodeMor...etc... contents: '' mainWindow: a StandardWindow(368312320) mainPane: a TamPaneMorph(929038336) contentsMorph: a PlatypusStepCodeMorph(226230272) codeRow: a TamPaneMorph(158334976) sourceHandler: <> PlatypusInstanceEditor(PlatypusCodeMorph)>>sourceHandler: Receiver: a PlatypusInstanceEditor Arguments and temporary variables: < Receiver's instance variables: dependents: a DependentsArray(a StandardWindow(368312320) a PlatypusStepCodeMor...etc... contents: '' mainWindow: a StandardWindow(368312320) mainPane: a TamPaneMorph(929038336) contentsMorph: a PlatypusStepCodeMorph(226230272) codeRow: a TamPaneMorph(158334976) sourceHandler: <> PlatypusStepReference>>newEditor Receiver: <> Arguments and temporary variables: editor: a PlatypusInstanceEditor Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>selectingFrom: Receiver: <> Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser tempEditor: nil editor: nil Receiver's instance variables: owner: <> PlatypusStepReference>>selectingFrom: Receiver: <> Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser Receiver's instance variables: owner: <> TamListItemWrapper>>selectingFrom: Receiver: a TamListItemWrapper Arguments and temporary variables: aHierarchicalList: a TamBrowser Receiver's instance variables: item: <> TamBrowser>>updateCodeRowFor: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(947650560) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(490209280) listMorph: a TamHierarchicalListMorph(947650560) editorRow: a TamPaneMorph(804782080) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(1003749376) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(676593664) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelectionFromWrapper: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(947650560) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(490209280) listMorph: a TamHierarchicalListMorph(947650560) editorRow: a TamPaneMorph(804782080) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(1003749376) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(676593664) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelection:currentlyExpanded: Receiver: a TamBrowser Arguments and temporary variables: < Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(947650560) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(490209280) listMorph: a TamHierarchicalListMorph(947650560) editorRow: a TamPaneMorph(804782080) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(1003749376) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(676593664) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamManagerItem>>selectingFrom: Receiver: a TamManagerItem Arguments and temporary variables: aTaxonomiesManager: a TamManager brw: a TamBrowser Receiver's instance variables: item: [cheddar: ] model: nil listId: '' currentSelection: <> TamManager>>changeSelectedTaxonomy: Receiver: a TamManager Arguments and temporary variables: aTaxonomy: 1 selected: a TamManagerItem oldSelected: nil Receiver's instance variables: mainWindow: a TamPaneMorph(471597056) selectedTaxonomy: a TamManagerItem listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(863764480) listRow: a TamPaneMorph(684195840) listMorph: a TamPluggableListMorph(990642176) editorSubWindow: a TamPaneMorph(277348352) taxonomyPane: a Platypus Platypus(Tamaris)>>split:axe: Receiver: a Platypus Arguments and temporary variables: aWindow: a TamPaneMorph(547880960) verticallyOrHorizontally: #horizontally leftPane: a TamPaneMorph(341049344) rightPane: nil selectionIndex: 1 ownerWindow: a TamPaneMorph(479985664) tmpPane: a TamPaneMorph(471597056) fractions: {(0@0) corner: (1@0.5). (0@0.5) corner: (1@1)} secondSubPanesDirection: #toRight deltaY: 2 deltaX: 0 Receiver's instance variables: mainWindow: a StandardWindow(118489088) bottomMorphsPane: nil bottomMorphsHeight: 56 transcriptMorph: nil workspaceMorph: nil editorSubWindows: a WeakSet(a TamPaneMorph(547880960) a TamPaneMorph(471597056)...etc... mainPane: a TamPaneMorph(479985664) firstPane: a TamPaneMorph(547880960) topPane: a TamPaneMorph(412090368) Platypus(Tamaris)>>menuSplitHorizontally: Receiver: a Platypus Arguments and temporary variables: aWindow: a TamPaneMorph(547880960) Receiver's instance variables: mainWindow: a StandardWindow(118489088) bottomMorphsPane: nil bottomMorphsHeight: 56 transcriptMorph: nil workspaceMorph: nil editorSubWindows: a WeakSet(a TamPaneMorph(547880960) a TamPaneMorph(471597056)...etc... mainPane: a TamPaneMorph(479985664) firstPane: a TamPaneMorph(547880960) topPane: a TamPaneMorph(412090368) TamManager>>splitHorizontally Receiver: a TamManager Arguments and temporary variables: Receiver's instance variables: mainWindow: a TamPaneMorph(547880960) selectedTaxonomy: nil listBtnRow: an AlignmentMorph(726138880) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(837812224) listRow: a TamPaneMorph(658243584) listMorph: a TamPluggableListMorph(964689920) editorSubWindow: a TamPaneMorph(254803968) taxonomyPane: a Platypus PluggableButtonMorph>>performAction: Receiver: a PluggableButtonMorph(768868352) Arguments and temporary variables: event: [(125@69) mouseUp 276437 nil] Receiver's instance variables: bounds: (119.0@55.0) corner: (143.0@79.0) owner: a TamButtonsAlignmentMorph(467664896) submorphs: an Array(an AlignmentMorph(521666560)) fullBounds: nil color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (795344896) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamManager label: an ImageMorph(638058496) getStateSelector: nil actionSelector: #splitHorizontally getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(768868352) Arguments and temporary variables: evt: a PluggableButtonMorph(768868352) m: [(125@69) mouseUp 276437 nil] Receiver's instance variables: bounds: (119.0@55.0) corner: (143.0@79.0) owner: a TamButtonsAlignmentMorph(467664896) submorphs: an Array(an AlignmentMorph(521666560)) fullBounds: nil color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (795344896) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamManager label: an ImageMorph(638058496) getStateSelector: nil actionSelector: #splitHorizontally getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil Array(SequenceableCollection)>>do: Receiver: an Array(a PluggableButtonMorph(244580352) a PluggableButtonMorph(768868352) a PluggableBu...etc... Arguments and temporary variables: aBlock: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTru...etc... index: 2 indexLimiT: 14 Receiver's instance variables: an Array(a PluggableButtonMorph(244580352) a PluggableButtonMorph(768868352) a PluggableBu...etc... PluggableButtonMorph>>mouseUp: Receiver: a PluggableButtonMorph(768868352) Arguments and temporary variables: evt: [(125@69) mouseUp 276437 nil] all: an Array(a PluggableButtonMorph(244580352) a PluggableButtonMorph(76886835...etc... Receiver's instance variables: bounds: (119.0@55.0) corner: (143.0@79.0) owner: a TamButtonsAlignmentMorph(467664896) submorphs: an Array(an AlignmentMorph(521666560)) fullBounds: nil color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (795344896) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamManager label: an ImageMorph(638058496) getStateSelector: nil actionSelector: #splitHorizontally getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil PluggableButtonMorph(Morph)>>handleMouseUp: Receiver: a PluggableButtonMorph(768868352) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] handler: nil Receiver's instance variables: bounds: (119.0@55.0) corner: (143.0@79.0) owner: a TamButtonsAlignmentMorph(467664896) submorphs: an Array(an AlignmentMorph(521666560)) fullBounds: nil color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (795344896) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamManager label: an ImageMorph(638058496) getStateSelector: nil actionSelector: #splitHorizontally getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil MouseButtonEvent>>sentTo: Receiver: [(125@69) mouseUp 276437 nil] Arguments and temporary variables: anObject: a PluggableButtonMorph(768868352) Receiver's instance variables: timeStamp: 276437 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (125@69) handler: nil wasHandled: true whichButton: 4 PluggableButtonMorph(Morph)>>handleEvent: Receiver: a PluggableButtonMorph(768868352) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] Receiver's instance variables: bounds: (119.0@55.0) corner: (143.0@79.0) owner: a TamButtonsAlignmentMorph(467664896) submorphs: an Array(an AlignmentMorph(521666560)) fullBounds: nil color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (795344896) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamManager label: an ImageMorph(638058496) getStateSelector: nil actionSelector: #splitHorizontally getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil PluggableButtonMorph(Morph)>>handleFocusEvent: Receiver: a PluggableButtonMorph(768868352) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] Receiver's instance variables: bounds: (119.0@55.0) corner: (143.0@79.0) owner: a TamButtonsAlignmentMorph(467664896) submorphs: an Array(an AlignmentMorph(521666560)) fullBounds: nil color: (Color r: 0.8190000000000001 g: 0.8170000000000001 b: 0.8170000000000001...etc... extension: a MorphExtension (795344896) [balloonText] [other: (lastState -> f...etc... borderWidth: 1 borderColor: #simple model: a TamManager label: an ImageMorph(638058496) getStateSelector: nil actionSelector: #splitHorizontally getLabelSelector: nil getMenuSelector: nil shortcutCharacter: nil askBeforeChanging: false triggerOnMouseDown: false offColor: nil onColor: nil feedbackColor: nil showSelectionFeedback: false allButtons: nil arguments: #() argumentsProvider: nil argumentsSelector: nil gradientLook: true enabled: true actionBlock: nil getColorSelector: nil getEnabledSelector: nil [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] focusHolder: a PluggableButtonMorph(768868352) result: #(nil) Receiver's instance variables: bounds: (125@69) corner: (141@85) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (125@69) corner: (141@85) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(125@69) mouseOver nil nil] targetOffset: (6.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 276437 125 69 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1384@816) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1384@816) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(125@69) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1384@816) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1384@816) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] focusHolder: a PluggableButtonMorph(768868352) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (125@69) corner: (141@85) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (125@69) corner: (141@85) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(125@69) mouseOver nil nil] targetOffset: (6.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 276437 125 69 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] focusHolder: a PluggableButtonMorph(768868352) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (125@69) corner: (141@85) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (125@69) corner: (141@85) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(125@69) mouseOver nil nil] targetOffset: (6.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 276437 125 69 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] Receiver's instance variables: bounds: (125@69) corner: (141@85) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (125@69) corner: (141@85) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(125@69) mouseOver nil nil] targetOffset: (6.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 276437 125 69 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(125@69) mouseUp 276437 nil] evt: [(125@69) mouseUp 276437 nil] ofs: nil Receiver's instance variables: bounds: (125@69) corner: (141@85) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (125@69) corner: (141@85) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(125@69) mouseOver nil nil] targetOffset: (6.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 276437 125 69 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(125@69) mouseUp 276437 nil] evtBuf: #(1 276437 125 69 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (125@69) corner: (141@85) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (125@69) corner: (141@85) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamHierarchicalListMorph(925106176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(125@69) mouseOver nil nil] targetOffset: (6.0@14.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 276437 125 69 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(505937920))...etc... lastStepTime: 276888 lastStepMessage: nil lastCycleTime: 276888 alarms: a Heap(MorphicAlarm(#spawnBalloonFor: -> a HandMorph(843055104))) lastAlarmTime: 276888 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(505937920))...etc... lastStepTime: 276888 lastStepMessage: nil lastCycleTime: 276888 alarms: a Heap(MorphicAlarm(#spawnBalloonFor: -> a HandMorph(843055104))) lastAlarmTime: 276888 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(505937920))...etc... lastStepTime: 276909 lastStepMessage: nil lastCycleTime: 276909 alarms: a Heap(MorphicAlarm(#spawnBalloonFor: -> a HandMorph(843055104))) lastAlarmTime: 276909 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamButtonsAlignmentMorph(505937920))...etc... lastStepTime: 276909 lastStepMessage: nil lastCycleTime: 276909 alarms: a Heap(MorphicAlarm(#spawnBalloonFor: -> a HandMorph(843055104))) lastAlarmTime: 276909 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isPltValue PlatypusStepReference>>codeText: PlatypusStepReference>>codeText PlatypusInstanceEditor(PlatypusCodeMorph)>>codeText PlatypusInstanceEditor(PlatypusCodeMorph)>>sourceHandler: PlatypusStepReference>>newEditor PlatypusStepReference(TamListItemReference)>>selectingFrom: PlatypusStepReference>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: TamBrowser>>noteNewSelection:currentlyExpanded: TamManagerItem>>selectingFrom: TamManager>>changeSelectedTaxonomy: Platypus(Tamaris)>>split:axe: Platypus(Tamaris)>>menuSplitHorizontally: TamManager>>splitHorizontally PluggableButtonMorph>>performAction: [:m | (m containsPoint: evt cursorPoint) ifTrue: [m enabled ifTrue: [m performAction: evt]]] in PluggableButtonMorph>>mouseUp: Array(SequenceableCollection)>>do: PluggableButtonMorph>>mouseUp: PluggableButtonMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: PluggableButtonMorph(Morph)>>handleEvent: PluggableButtonMorph(Morph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess ------------------------------------------------------------------------------- THERE_BE_DRAGONS_HERE MessageNotUnderstood: receiver of "isPltValue" is nil 8 February 2013 10:39:20.629 pm VM: Mac OS - intel - 1082 - CoInterpreter VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko Jenkins build #131 Image: Pharo1.4 [Latest update: #14459] UndefinedObject(Object)>>doesNotUnderstand: #isPltValue Receiver: nil Arguments and temporary variables: aMessage: isPltValue exception: MessageNotUnderstood: receiver of "isPltValue" is nil resumeValue: nil Receiver's instance variables: nil PlatypusStepReference>>codeText: Receiver: <> Arguments and temporary variables: p21Syntax: true val: nil Receiver's instance variables: owner: <> PlatypusStepReference>>codeText Receiver: <> Arguments and temporary variables: Receiver's instance variables: owner: <> PlatypusInstanceEditor(PlatypusCodeMorph)>>codeText Receiver: a PlatypusInstanceEditor Arguments and temporary variables: Receiver's instance variables: dependents: a DependentsArray(a StandardWindow(405012480) a PlatypusStepCodeMor...etc... contents: '' mainWindow: a StandardWindow(405012480) mainPane: a TamPaneMorph(959709184) contentsMorph: a PlatypusStepCodeMorph(256901120) codeRow: a TamPaneMorph(189005824) sourceHandler: <> PlatypusInstanceEditor(PlatypusCodeMorph)>>sourceHandler: Receiver: a PlatypusInstanceEditor Arguments and temporary variables: < Receiver's instance variables: dependents: a DependentsArray(a StandardWindow(405012480) a PlatypusStepCodeMor...etc... contents: '' mainWindow: a StandardWindow(405012480) mainPane: a TamPaneMorph(959709184) contentsMorph: a PlatypusStepCodeMorph(256901120) codeRow: a TamPaneMorph(189005824) sourceHandler: <> PlatypusStepReference>>newEditor Receiver: <> Arguments and temporary variables: editor: a PlatypusInstanceEditor Receiver's instance variables: owner: <> PlatypusStepReference(TamListItemReference)>>selectingFrom: Receiver: <> Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser tempEditor: nil editor: nil Receiver's instance variables: owner: <> PlatypusStepReference>>selectingFrom: Receiver: <> Arguments and temporary variables: aTaxonomyBrowser: a TamBrowser Receiver's instance variables: owner: <> TamListItemWrapper>>selectingFrom: Receiver: a TamListItemWrapper Arguments and temporary variables: aHierarchicalList: a TamBrowser Receiver's instance variables: item: <> TamBrowser>>updateCodeRowFor: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(947650560) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(490209280) listMorph: a TamHierarchicalListMorph(947650560) editorRow: a TamPaneMorph(804782080) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(1003749376) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(676593664) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelectionFromWrapper: Receiver: a TamBrowser Arguments and temporary variables: aWrapper: a TamListItemWrapper Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(947650560) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(490209280) listMorph: a TamHierarchicalListMorph(947650560) editorRow: a TamPaneMorph(804782080) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(1003749376) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(676593664) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamBrowser>>noteNewSelection:currentlyExpanded: Receiver: a TamBrowser Arguments and temporary variables: < Receiver's instance variables: dependents: a DependentsArray(a TamHierarchicalListMorph(947650560) a Pluggable...etc... currentSelection: nil mainWindow: nil rootWrapper: a TamListItemWrapper listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(490209280) listMorph: a TamHierarchicalListMorph(947650560) editorRow: a TamPaneMorph(804782080) manager: a TamManager editorsIndex: a WeakIdentityKeyDictionary() localWorkspaceHolder: a TamStringHolder localWorkspaceHeight: nil localWorkspacePaneMorph: a PluggableTextMorph(1003749376) localWorkspacePaneContents: '' specificButtonsAlignment: a TamButtonsAlignmentMorph(676593664) worldButtons: nil globalRecentsInput: nil recentsRow: nil TamManagerItem>>selectingFrom: Receiver: a TamManagerItem Arguments and temporary variables: aTaxonomiesManager: a TamManager brw: a TamBrowser Receiver's instance variables: item: [cheddar: ] model: nil listId: '' currentSelection: <> TamManager>>changeSelectedTaxonomy: Receiver: a TamManager Arguments and temporary variables: aTaxonomy: 1 selected: a TamManagerItem oldSelected: a TamManagerItem Receiver's instance variables: mainWindow: a TamPaneMorph(471597056) selectedTaxonomy: a TamManagerItem listBtnRow: an AlignmentMorph(752091136) listBtnRowHeight: 26 listButtons: a TamButtonsAlignmentMorph(863764480) listRow: a TamPaneMorph(684195840) listMorph: a TamPluggableListMorph(990642176) editorSubWindow: a TamPaneMorph(277348352) taxonomyPane: a Platypus TamPluggableListMorph(PluggableListMorph)>>changeModelSelection: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: anInteger: 1 Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(PluggableListMorph)>>mouseUpOnSingle: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: event: [(74@88) mouseUp 282489 nil] row: 1 mdr: 1 Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(PluggableListMorph)>>mouseUp: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: evt: [(74@88) mouseUp 282489 nil] Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(Morph)>>handleMouseUp: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] handler: nil Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MouseButtonEvent>>sentTo: Receiver: [(74@88) mouseUp 282489 nil] Arguments and temporary variables: anObject: a TamPluggableListMorph(990642176) Receiver's instance variables: timeStamp: 282489 source: a HandMorph(843055104) windowIndex: nil type: #mouseUp buttons: 0 position: (74@88) handler: nil wasHandled: true whichButton: 4 TamPluggableListMorph(Morph)>>handleEvent: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil MorphicEventDispatcher>>dispatchDefault:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] aMorph: a TamPluggableListMorph(990642176) localEvt: [(74@88) mouseUp 282489 nil] index: 2 child: a TransformMorph(183500800) morphs: an Array(a TransformMorph(183500800)) inside: true Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: Receiver: a MorphicEventDispatcher Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] aMorph: a TamPluggableListMorph(990642176) Receiver's instance variables: lastType: #mouseUp lastDispatch: #dispatchDefault:with: TamPluggableListMorph(Morph)>>processEvent:using: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] defaultDispatcher: a MorphicEventDispatcher Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(Morph)>>processEvent: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil TamPluggableListMorph(PluggableListMorph)>>handleFocusEvent: Receiver: a TamPluggableListMorph(990642176) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] Receiver's instance variables: bounds: (30.0@81.0) corner: (147.0@404.0) owner: a TamPaneMorph(684195840) submorphs: an Array(a TransformMorph(183500800)) fullBounds: (30@81) corner: (147@404) color: (Color r: 0.92 g: 0.92 b: 0.92) extension: a MorphExtension (190054400) [other: (dragEnabled -> true) (dropEna...etc... borderWidth: 1 borderColor: (Color r: 0.745 g: 0.745 b: 0.745) model: a TamManager open: false accessor: nil scrollBar: a ScrollBar(1021313024) scroller: a TransformMorph(183500800) retractableScrollBar: false scrollBarOnLeft: false getMenuSelector: #menu:shifted: getMenuTitleSelector: nil hasFocus: true hScrollBar: a ScrollBar(69730304) list: a SortedCollection('cheddar' 'platypus-dev' 'tamaris-internal') getListSelector: #taxonomies getListSizeSelector: nil getListElementSelector: nil getIndexSelector: #selectedTaxonomyIndex setIndexSelector: #changeSelectedTaxonomy: keystrokeActionSelector: #keyStroke:from: autoDeselect: true lastKeystrokeTime: 0 lastKeystrokes: '' doubleClickSelector: nil handlesBasicKeys: nil potentialDropRow: nil listMorph: a LazyListMorph(103546880) hScrollRangeCache: nil dragItemSelector: nil dropItemSelector: nil wantsDropSelector: nil wrapSelector: nil searchedElement: nil multipleSelection: false dragOnOrOff: nil setSelectionListSelector: nil getSelectionListSelector: nil resetListSelector: nil keystrokeSelector: nil backgroundColoringBlockOrSelector: nil separatorBlockOrSelector: nil separatorSize: nil separatorColor: nil lastNonZeroIndex: nil [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] focusHolder: a TamPluggableListMorph(990642176) result: #(nil) Receiver's instance variables: bounds: (74@88) corner: (90@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (74@88) corner: (90@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(990642176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(74@88) mouseOver nil nil] targetOffset: (44.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 282489 74 88 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [aBlock value] in PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... Receiver's instance variables: bounds: (0@0) corner: (1384@816) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1384@816) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil BlockClosure>>on:do: Receiver: [aBlock value] Arguments and temporary variables: exception: Error handlerAction: [:ex | ActiveWorld := priorWorld. ActiveEvent := priorEvent. ...etc... handlerActive: false Receiver's instance variables: outerContext: PasteUpMorph>>becomeActiveDuring: startpc: 67 numArgs: 0 PasteUpMorph>>becomeActiveDuring: Receiver: a PasteUpMorph(425197568) [world] Arguments and temporary variables: aBlock: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder ...etc... priorWorld: a PasteUpMorph(425197568) [world] priorHand: a HandMorph(843055104) priorEvent: [(74@88) mouseOver red nil nil] Receiver's instance variables: bounds: (0@0) corner: (1384@816) owner: nil submorphs: an Array(a TaskbarMorph(984088576) a StandardWindow(118489088) a Sys...etc... fullBounds: (0@0) corner: (1384@816) color: (Color r: 0.97 g: 0.98 b: 1.0) extension: a MorphExtension (666632192) [eventHandler = an EventHandler] [othe...etc... borderWidth: 0 borderColor: (Color r: 0.03 g: 0.02 b: 0.0) backgroundMorph: nil worldState: a WorldState griddingOn: nil HandMorph>>sendFocusEvent:to:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] focusHolder: a TamPluggableListMorph(990642176) aBlock: [self mouseFocus: nil] w: a PasteUpMorph(425197568) [world] result: #(nil) Receiver's instance variables: bounds: (74@88) corner: (90@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (74@88) corner: (90@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(990642176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(74@88) mouseOver nil nil] targetOffset: (44.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 282489 74 88 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendEvent:focus:clear: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] focusHolder: a TamPluggableListMorph(990642176) aBlock: [self mouseFocus: nil] result: nil Receiver's instance variables: bounds: (74@88) corner: (90@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (74@88) corner: (90@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(990642176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(74@88) mouseOver nil nil] targetOffset: (44.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 282489 74 88 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>sendMouseEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] Receiver's instance variables: bounds: (74@88) corner: (90@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (74@88) corner: (90@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(990642176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(74@88) mouseOver nil nil] targetOffset: (44.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 282489 74 88 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>handleEvent: Receiver: a HandMorph(843055104) Arguments and temporary variables: anEvent: [(74@88) mouseUp 282489 nil] evt: [(74@88) mouseUp 282489 nil] ofs: nil Receiver's instance variables: bounds: (74@88) corner: (90@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (74@88) corner: (90@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(990642176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(74@88) mouseOver nil nil] targetOffset: (44.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 282489 74 88 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 HandMorph>>processEvents Receiver: a HandMorph(843055104) Arguments and temporary variables: evt: [(74@88) mouseUp 282489 nil] evtBuf: #(1 282489 74 88 0 0 0 1) type: 1 hadAny: false Receiver's instance variables: bounds: (74@88) corner: (90@104) owner: a PasteUpMorph(425197568) [world] submorphs: #() fullBounds: (74@88) corner: (90@104) color: Color blue extension: a MorphExtension (141295616) [eventHandler = an EventHandler] mouseFocus: nil keyboardFocus: a TamPluggableListMorph(990642176) eventListeners: nil mouseListeners: nil keyboardListeners: nil mouseClickState: nil mouseOverHandler: a MouseOverHandler lastMouseEvent: [(74@88) mouseOver nil nil] targetOffset: (44.0@7.0) damageRecorder: a DamageRecorder cacheCanvas: nil cachedCanvasHasHoles: true temporaryCursor: nil temporaryCursorOffset: nil hardwareCursor: nil hasChanged: true savedPatch: nil lastEventBuffer: #(1 282489 74 88 0 0 0 1) lastKeyScanCode: 125 combinedChar: nil eventSource: nil lastSystemEvent: nil captureBlock: nil recentModifiers: 0 [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: h: a HandMorph(843055104) Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(471597056))(a TamPaneMo...etc... lastStepTime: 282728 lastStepMessage: nil lastCycleTime: 282728 alarms: a Heap() lastAlarmTime: 282728 menuBuilder: a PragmaMenuBuilder ( nil ) Array(SequenceableCollection)>>do: Receiver: an Array(a HandMorph(843055104)) Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] index: 1 indexLimiT: 1 Receiver's instance variables: an Array(a HandMorph(843055104)) WorldState>>handsDo: Receiver: a WorldState Arguments and temporary variables: aBlock: [:h | ActiveHand := h. h processEvents. ActiveHand := nil] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(471597056))(a TamPaneMo...etc... lastStepTime: 282728 lastStepMessage: nil lastCycleTime: 282728 alarms: a Heap() lastAlarmTime: 282728 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleNowFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(471597056))(a TamPaneMo...etc... lastStepTime: 282728 lastStepMessage: nil lastCycleTime: 282728 alarms: a Heap() lastAlarmTime: 282728 menuBuilder: a PragmaMenuBuilder ( nil ) WorldState>>doOneCycleFor: Receiver: a WorldState Arguments and temporary variables: aWorld: a PasteUpMorph(425197568) [world] Receiver's instance variables: hands: an Array(a HandMorph(843055104)) viewBox: (0@0) corner: (1384@816) canvas: a FormCanvas on: DisplayScreen(1384x816x32) damageRecorder: a DamageRecorder stepList: a Heap(StepMessage(#stepAt: -> a TamPaneMorph(471597056))(a TamPaneMo...etc... lastStepTime: 282728 lastStepMessage: nil lastCycleTime: 282728 alarms: a Heap() lastAlarmTime: 282728 menuBuilder: a PragmaMenuBuilder ( nil ) --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #isPltValue PlatypusStepReference>>codeText: PlatypusStepReference>>codeText PlatypusInstanceEditor(PlatypusCodeMorph)>>codeText PlatypusInstanceEditor(PlatypusCodeMorph)>>sourceHandler: PlatypusStepReference>>newEditor PlatypusStepReference(TamListItemReference)>>selectingFrom: PlatypusStepReference>>selectingFrom: TamListItemWrapper>>selectingFrom: TamBrowser>>updateCodeRowFor: TamBrowser>>noteNewSelectionFromWrapper: TamBrowser>>noteNewSelection:currentlyExpanded: TamManagerItem>>selectingFrom: TamManager>>changeSelectedTaxonomy: TamPluggableListMorph(PluggableListMorph)>>changeModelSelection: TamPluggableListMorph(PluggableListMorph)>>mouseUpOnSingle: TamPluggableListMorph(PluggableListMorph)>>mouseUp: TamPluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: TamPluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: TamPluggableListMorph(Morph)>>processEvent:using: TamPluggableListMorph(Morph)>>processEvent: TamPluggableListMorph(PluggableListMorph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess -------------------------------------------------------------------------------