February 2011 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] Issue 3647 in pharo: Class var #Instance not allowed

by pharo＠googlecode.com

Comment #1 on issue 3647 by janko.mi...(a)gmail.com: Class var #Instance not allowed http://code.google.com/p/pharo/issues/detail?id=3647 Stack trace is here: http://forum.world.st/BUG-var-self-bindingOf-var-notNil-ifTrue-DuplicatedVa…

Feb. 2, 2011

[Pharo-project] Issue 3647 in pharo: Class var #Instance not allowed

by pharo＠googlecode.com

Status: New Owner: ---- New issue 3647 by janko.mi...(a)gmail.com: Class var #Instance not allowed http://code.google.com/p/pharo/issues/detail?id=3647 If some class have a class variable named #Instance, it is not loadable anymore. It seems that problem is in Class>>bindingOf: method, where check is done in a "declared environment", which happens to be a global SystemDictionary, where a class Instance actually exists. This means that no class var with a name which collides with a name of class is allowed? Class>>bindingOf: ... "Next look in declared environment." binding := self environment bindingOf: aSymbol. binding ifNotNil:[^binding]. ...

Feb. 2, 2011

[Pharo-project] 1.2: class var #Instance not allowed

by Torsten Bergmann

Hi Janko, If you think it is a bug please PLEASE OPEN AN ISSUE on http://issues.pharo-project.org and mark it as 1.2 in the labels, SO IT CAN BE TRACKED. And append the stack trace there not directly to the list. (Messages from the bug tracker will be sent to the mailinglist too, so we will notice). Otherwise it may get lost. Thx T. -- Neu: GMX De-Mail - Einfach wie E-Mail, sicher wie ein Brief! Jetzt De-Mail-Adresse reservieren: http://portal.gmx.net/de/go/demail

Feb. 2, 2011

[Pharo-project] OCForOB/ConfigurationOfOmniBrowser confusion

by Torsten Bergmann

In ConfigurationOfOmniBrowser-LaurentLaffont.92 Laurent updated OCForOB to OCForOB-ul.5 (according to comment for issue 3623) It was updated in #version12:, I would have expected it in #version123: since Version 1.2.3 IS NEWER than 1.2 and it is the last one edited by Johan Brichau. Another confusion: ================== Version: '1.2' uses 1.2-baseline where "OCForOB-ul.5" is retrieved from http://www.squeaksource.com/OCompletion But in Pharo Task forces there is only an old "OCForOB-GuillermoPolito.4" Version: '1.2.3' uses 1.2.1-baseline where "OCForOB-GuillermoPolito.4" is retrieved from http://www.squeaksource.com/PharoTaskForces Next Confusion ============== The "1.2-beta2" of ConfigurationOfPharo (used to build the 1.2dev image) still uses the OCompletion 1.2.2. instead of the 1.2.3 Last package for OCForOB that I can find is "OCForOB-ul.5" and I think it should be used? So what is the state here? I propose: a) The "OCForOB-GuillermoPolito.4" is obsolete in Version: '1.2.3' of ConfigurationOfOmniBrowser and should be exchanged to "OCForOB-ul.5" too => change the 1.2.1-baseline back to use the OCompletion repo instead of PharoTaskForces => change the 1.2.3 version to use "OCForOB-ul.5" b) As a second step ConfigurationOfPharo version 1.2-beta2 should then use ConfigurationOfOmniBrowser version 1.2.3 since this is the newest and we see problems in Hudson c) Dont know why there is still a 1.2 version of ConfigurationOfOmniBrowser marked as #development when there is already a 1.2.3 version marked as #development Bye T. -- GMX DSL Doppel-Flat ab 19,99 Euro/mtl.! Jetzt mit gratis Handy-Flat! http://portal.gmx.net/de/go/dsl

Feb. 2, 2011

[Pharo-project] [BUG][:var | (self bindingOf: var) notNil ifTrue: [DuplicatedVariableError new variable: var; signal: var , ' is defined elsewhere'. conflicts := true]] in AIDASite class(Class)>>declare:

by janko.mivsek＠eranova.si

See explanation in my prevous mail '1.2: class var #Instance not allowed'. 2 February 2011 12:23:58 pm VM: unix - i686 - linux-gnu - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.35] Image: Pharo1.2rc2 [Latest update: #12329] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/mivsek/Smalltalk/pharo/PharoOneClick1.2.app/Contents/Resources Trusted Dir /home/mivsek/Smalltalk/pharo/PharoOneClick1.2.app/Contents/Resources/sec ure Untrusted Dir /home/mivsek/Smalltalk/pharo/PharoOneClick1.2.app/Contents/Resources/My Squeak [:var | (self bindingOf: var) notNil ifTrue: [DuplicatedVariableError new variable: var; signal: var , ' is defined elsewhere'. conflicts := true]] in AIDASite class(Class)>>declare: Receiver: AIDASite Arguments and temporary variables: conflicts: #Instance var: #(false) Receiver's instance variables: superclass: SwazooSite methodDict: a MethodDictionary() format: 154 instanceVariables: #('style' 'settings' 'systemServices' 'userServices' 'timest...etc... organization: nil subclasses: nil name: #AIDASite classPool: nil sharedPools: nil environment: nil category: nil traitComposition: nil localSelectors: nil Array(SequenceableCollection)>>do: Receiver: #(#Default #Dialect #Instance #RandomGen #SloveneCharacters) Arguments and temporary variables: aBlock: [:var | (self bindingOf: var) notNil ifTrue: [DuplicatedVariableError...etc... index: 3 indexLimiT: 5 Receiver's instance variables: #(#Default #Dialect #Instance #RandomGen #SloveneCharacters) AIDASite class(Class)>>declare: Receiver: AIDASite Arguments and temporary variables: varString: 'Default Dialect Instance RandomGen SloveneCharacters' newVars: #(#Default #Dialect #Instance #RandomGen #SloveneCharacters) conflicts: #(false) Receiver's instance variables: superclass: SwazooSite methodDict: a MethodDictionary() format: 154 instanceVariables: #('style' 'settings' 'systemServices' 'userServices' 'timest...etc... organization: nil subclasses: nil name: #AIDASite classPool: nil sharedPools: nil environment: nil category: nil traitComposition: nil localSelectors: 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:c lassVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #AIDASite newSuper: SwazooSite type: #normal classVarString: 'Default Dialect Instance RandomGen SloveneCharacters' poolString: '' category: #'Aida-Core' unsafe: false oldClass: nil instVars: #('style' 'settings' 'systemServices' 'userServices' 'timestamps' 'co...etc... classVars: #(#Default #Dialect #Instance #RandomGen #SloveneCharacters) copyOfOldClass: nil copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: an Array(AIDASite) newCategory: nil oldCategory: nil needNew: true 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: 348 numArgs: 0 ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c lassVariableNames:poolDictionaries:category:unsafe: Receiver: a ClassBuilder Arguments and temporary variables: className: #AIDASite env: a SystemDictionary(lots of globals) newSuper: SwazooSite type: #normal instVarString: 'style settings systemServices userServices timestamps counters'...etc... classVarString: 'Default Dialect Instance RandomGen SloveneCharacters' poolString: '' category: #'Aida-Core' unsafe: false oldClass: nil instVars: #('style' 'settings' 'systemServices' 'userServices' 'timestamps' 'co...etc... classVars: #(#Default #Dialect #Instance #RandomGen #SloveneCharacters) copyOfOldClass: nil copyOfOldTraitComposition: nil copyOfOldClassTraitComposition: nil newClass: an Array(AIDASite) 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:c lassVariableNames:poolDictionaries:category: Receiver: a ClassBuilder Arguments and temporary variables: className: #AIDASite env: a SystemDictionary(lots of globals) newSuper: SwazooSite type: #normal instVarString: 'style settings systemServices userServices timestamps counters'...etc... classVarString: 'Default Dialect Instance RandomGen SloveneCharacters' poolString: '' category: #'Aida-Core' Receiver's instance variables: environ: a SystemDictionary(lots of globals) classMap: nil instVarMap: an IdentityDictionary() progress: nil maxClassIndex: nil currentClassIndex: nil MCClassDefinition>>createClass Receiver: a MCClassDefinition(AIDASite) Arguments and temporary variables: superClass: SwazooSite class: nil composition: nil Receiver's instance variables: name: #AIDASite superclassName: #SwazooSite variables: an OrderedCollection(a MCInstanceVariableDefinition(style) a MCInsta...etc... category: #'Aida-Core' type: #normal comment: 'AIDASite as the most important class is an Aida/Web website with its ...etc... commentStamp: '<historical>' traitComposition: nil classTraitComposition: nil MCClassDefinition>>load Receiver: a MCClassDefinition(AIDASite) Arguments and temporary variables: class: nil Receiver's instance variables: name: #AIDASite superclassName: #SwazooSite variables: an OrderedCollection(a MCInstanceVariableDefinition(style) a MCInsta...etc... category: #'Aida-Core' type: #normal comment: 'AIDASite as the most important class is an Aida/Web website with its ...etc... commentStamp: '<historical>' traitComposition: nil classTraitComposition: nil MCClassDefinition(MCDefinition)>>addMethodAdditionTo: Receiver: a MCClassDefinition(AIDASite) Arguments and temporary variables: aCollection: an OrderedCollection(a MethodAddition a MethodAddition a MethodAdd...etc... Receiver's instance variables: name: #AIDASite superclassName: #SwazooSite variables: an OrderedCollection(a MCInstanceVariableDefinition(style) a MCInsta...etc... category: #'Aida-Core' type: #normal comment: 'AIDASite as the most important class is an Aida/Web website with its ...etc... commentStamp: '<historical>' traitComposition: nil classTraitComposition: nil [:ea | ea addMethodAdditionTo: methodAdditions] 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 MCClassDefinition(AIDASite) Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary() additions: an OrderedCollection(a MCOrganizationDefinition(#(#'Aida-Admin' #'Ai...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassD...etc... provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Resou...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 MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a MCMetho...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a M...etc... firstIndex: 1 lastIndex: 207 OrderedCollection>>do: Receiver: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a MCMetho...etc... Arguments and temporary variables: aBlock: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(T...etc... index: 1 Receiver's instance variables: array: an Array(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a M...etc... firstIndex: 1 lastIndex: 207 [: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 MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a MCMetho...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a M...etc... firstIndex: 1 lastIndex: 207 [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 signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 207 minVal: 0 aPoint: 311@323 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: 83 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 signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 207 minVal: 0 aPoint: 311@323 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: 77 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 signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 207 minVal: 0 aPoint: 311@323 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 signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 207 minVal: 0 aPoint: 311@323 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(17039360)") 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>>evaluateSelection pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(17039360)") 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(17039360)") 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(17039360)") 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(17039360)") 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 signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 207 minVal: 0 aPoint: 311@323 progressTitle: '' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException: Arguments and temporary variables: argString: '' argPoint: 311@323 argMinVal: 0 argMaxVal: 207 argWorkBlock: [:bar | self do: [:each | | newLabel | (count = 0 o...etc... Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 207 minVal: 0 aPoint: 311@323 progressTitle: '' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: '' aPoint: 311@323 minVal: 0 maxVal: 207 workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc. .. format: 150 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: {} localSelectors: nil ByteString(String)>>displayProgressAt:from:to:during: Receiver: '' Arguments and temporary variables: aPoint: 311@323 minVal: 0 maxVal: 207 workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... Receiver's instance variables: '' OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a MCMetho...etc... Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a M...etc... firstIndex: 1 lastIndex: 207 OrderedCollection(Collection)>>do:displayingProgress: Receiver: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a MCMetho...etc... Arguments and temporary variables: aBlock: [:ea | ea addMethodAdditionTo: methodAdditions] aStringOrBlock: 'Reloading...' Receiver's instance variables: array: an Array(a MCClassDefinition(AIDASite) a MCClassDefinition(AIDASite) a M...etc... firstIndex: 1 lastIndex: 207 [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(#(#'Aida-Admin' #'Ai...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassD...etc... provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Resou...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: 112 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(#(#'Aida-Admin' #'Ai...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassD...etc... provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Resou...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: 108 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(#(#'Aida-Admin' #'Ai...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassD...etc... provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Resou...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(#(#'Aida-Admin' #'Ai...etc... removals: an OrderedCollection() errorDefinitions: an OrderedCollection(a MCClassDefinition(AIDASite) a MCClassD...etc... provisions: a Set(#UTF8DecomposedTextConverter #PackageMethodNodeExample #Resou...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... --- The full stack --- [:var | (self bindingOf: var) notNil ifTrue: [DuplicatedVariableError new variable: var; signal: var , ' is defined elsewhere'. conflicts := true]] in AIDASite class(Class)>>declare: Array(SequenceableCollection)>>do: AIDASite class(Class)>>declare: [| 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:c lassVariableNames:poolDictionaries:category:unsafe: BlockClosure>>ensure: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c lassVariableNames:poolDictionaries:category:unsafe: ClassBuilder>>name:inEnvironment:subclassOf:type:instanceVariableNames:c lassVariableNames:poolDictionaries:category: MCClassDefinition>>createClass MCClassDefinition>>load MCClassDefinition(MCDefinition)>>addMethodAdditionTo: [:ea | ea addMethodAdditionTo: methodAdditions] 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)>>displayProgressAt:from: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: Gofer 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: Gofer 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)>>loadPackageDi rective:gofer: [| loadBlock answers resolvedReference goferLoad | aGofer disablePackageCache. resolvedReference := self resolvePackageSpec: packageSpec gofer: aGofer. resolvedReference isNil ifTrue: [^ self]. loadBlock := [goferLoad := MetacelloGoferLoad on: Gofer 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)>>loadPackageDi rective: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)>>loadPackageDi rective:gofer: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadPackage Directive:gofer: MetacelloPackageLoadDirective>>loadUsing:gofer: [:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL oadDirective:gofer: OrderedCollection>>do: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL oadDirective:gofer: MetacelloLinearLoadDirective>>loadUsing:gofer: [:directive | directive loadUsing: aLoaderDirective gofer: aGofer] in MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL oadDirective:gofer: OrderedCollection>>do: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadLinearL oadDirective:gofer: MetacelloLinearLoadDirective>>loadUsing:gofer: MetacelloLinearLoadDirective(MetacelloVersionLoadDirective)>>loadWithPol icy: MetacelloLoaderPolicy>>load MetacelloFetchingMCSpecLoader>>doLoad [fetchLoader doLoad] in [| fetchLoader | fetchLoader := self fetchRequiredFromArray: 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: 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 ConfigurationOfAida class>>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: [FakeClassPool adopt: nil. ^ #failedDoit] logged: true] in SmalltalkEditor>>evaluateSelection BlockClosure>>on:do: SmalltalkEditor>>evaluateSelection [textMorph editor evaluateSelection] in PluggableShoutMorph(PluggableTextMorph)>>doIt [result := editBlock value] in PluggableShoutMorph(PluggableTextMorph)>>handleEdit: TextMorphForEditView(TextMorph)>>handleEdit: PluggableShoutMorph(PluggableTextMorph)>>handleEdit: PluggableShoutMorph(PluggableTextMorph)>>doIt UndefinedObject(Object)>>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)]]] 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: WorldState>>doOneSubCycleFor: PasteUpMorph>>doOneSubCycle MenuMorph>>invokeModalAt:in:allowKeyboard: MenuMorph>>invokeModal: MenuMorph>>invokeModal PluggableShoutMorph(PluggableTextMorph)>>yellowButtonActivity: TextMorphForEditView>>mouseDown: TextMorphForEditView(Morph)>>handleMouseDown: MouseButtonEvent>>sentTo: TextMorphForEditView(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TextMorphForEditView(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: TransformMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PluggableShoutMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: SystemWindow(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchMouseDown:with: MorphicEventDispatcher>>dispatchEvent:with: PasteUpMorph(Morph)>>processEvent:using: PasteUpMorph>>processEvent:using: PasteUpMorph(Morph)>>processEvent: 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 Project class>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess

Feb. 2, 2011

[Pharo-project] 1.2: class var #Instance not allowed

by Janko MivÅ¡ek

Hi guys, One more problem: if some class have a class variable named #Instance, it is not loadable anymore. It seems that problem is in Class>>bindingOf: method, where check is done in a "declared environment", which happens to be a global SystemDictionary, where a class Instance actually exists. This means that no class var with a name which collides with a name of class is allowed? Class>>bindingOf: ... "Next look in declared environment." binding := self environment bindingOf: aSymbol. binding ifNotNil:[^binding]. ... Strack trace follows in next mail -- Janko MivÅ¡ek AIDA/Web Smalltalk Web Application Server http://www.aidaweb.si

Feb. 2, 2011

[Pharo-project] For 1.2: default browser size bigger

by Janko MivÅ¡ek

Hi guys, Please please, increase default size of System browser to some reasonable size, in forthcoming 1.2 already. Is this manual resizing annoying only to me? I doubt. Or better, what is a rationale behind so small browser windows? Best regards Janko -- Janko MivÅ¡ek AIDA/Web Smalltalk Web Application Server http://www.aidaweb.si

Feb. 2, 2011

Re: [Pharo-project] Issue 3646 in pharo: Improve LowSpace handling

by pharo＠googlecode.com

Comment #2 on issue 3646 by Torsten....(a)astares.de: Improve LowSpace handling http://code.google.com/p/pharo/issues/detail?id=3646 "And you are right, there is no way to hook into low space watcher to include some custom handling. So, this is a work to do." see http://lists.gforge.inria.fr/pipermail/pharo-project/2011-February/041178.h… for the whole discussion

Feb. 2, 2011

Re: [Pharo-project] Issue 3646 in pharo: Improve LowSpace handling

by pharo＠googlecode.com

Comment #1 on issue 3646 by siguc...(a)gmail.com: Improve LowSpace handling http://code.google.com/p/pharo/issues/detail?id=3646 Also, i think that mechanism which suspends the process which made the last memory allocation attempt is useless, because there is no any guarantees that exactly given process causing memory overflow due to some runaway allocation, instead of some other one which runs in parallel.

Feb. 2, 2011

Re: [Pharo-project] react on low space

by Igor Stasenko

On 2 February 2011 09:16, Max Leske <maxleske(a)gmail.com> wrote: > Bill, > > I agree that it is important to at least know that there has been a low space condition. But then again, if there is a low space watcher anyway, shouldn't there be a way to register as a listener or something? > > Well, take a look at OutOfMemory defaultAction, it signals the lowSpace semaphore. So, there a process which waiting on this semaphore, and once it receives this signal it awakens and doing something. And you are right, there is no way to hook into low space watcher to include some custom handling. So, this is a work to do. Check the SmalltalkImage>>lowSpaceWatcher There you can extend it by adding the LowSpaceHandler class variable, then add an appropriate method to register handler, and once signal is received, send message to it, like: LowSpaceHandler ifNotNil: [ LowSpaceHandler handleLowSpaceSignal ]. or something like that. Also, there are a memory hogs, which almost same thing as a handler, but a bit wrong terminology. So, you can register some object as a memory hog: Smalltalk memoryHogs add: myHog. Then once signal is arrives, your memory hog will receive #freeSomeSpace message, but it won't prevent the default UI message from popping up, informing user that something there is something which eats too much memory. Also, i think that mechanism which suspends the process which made the last memory allocation attempt is useless, because there is no any guarantees that exactly given process causing memory overflow due to some runaway allocation, instead of some other one which runs in parallel. Btw, memoryHogs interface is BAD, because by itself it could provoke a memory leaks. This container should reference all hogs weakly, so an application only need to register hogs, but don't unregister it manually, because you can forget unregistering it, or in case of exception the code which doing unregister can be not invoked, leaving hog hanging in memory, and referenced only by memoryHogs list and not by your application. I filed the issue for this: http://code.google.com/p/pharo/issues/detail?id=3646 > > Igor, > > I haven't run your code yet but it looks exactly like what I was looking for! Thanks. > > Max > >> -- Best regards, Igor Stasenko AKA sig.

Feb. 2, 2011