October 2009 - Pharo-dev - lists.pharo.org

[Pharo-project] [update] #10467
by Marcus Denker Oct. 5, 2009

Oct. 5, 2009

10467 ----- Issue 1260: [Regression?] Issue 277 (SelfEvaluating Arrays) wasn't integrated in beta-10462 Issue 987: 'stack top' variable on debugger crashes it Issue 1269: findLastOccurenceOfStringFix has broken a previous WideString patch -- Marcus Denker - http://marcusdenker.de PLEIAD Lab - Computer Science Department (DCC) - University of Chile

1 0

[Pharo-project] Fwd: [squeak-dev] The Trunk: Compiler-jcg.87.mcz
by StÃ©phane Ducasse Oct. 5, 2009

Oct. 5, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: October 1, 2009 8:21:58 AM GMT+02:00 > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Compiler-jcg.87.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Joshua Gargus uploaded a new version of Compiler to project The Trunk: > http://source.squeak.org/trunk/Compiler-jcg.87.mcz > > ==================== Summary ==================== > > Name: Compiler-jcg.87 > Author: jcg > Time: 30 September 2009, 11:21:53 am > UUID: 71bf4e8d-f9f3-4371-a218-ad31a985cfd8 > Ancestors: Compiler-ul.86 > > Revert to lazy-initialization of method properties, which is used by > the externally-maintained Prolog package (which loads cleanly into > 3.10.2, but not trunk). > > Part 2 of 2... need to load -jcg.85 first (this is taken care of by > the Monticello Configuration update-jcg.32.mcm) > > =============== Diff against Compiler-ul.86 =============== > > Item was changed: > ----- Method: Parser>>addPragma: (in category 'pragmas') ----- > addPragma: aPragma > + properties := self properties copyWith: aPragma! > - properties := properties copyWith: aPragma! > > Item was changed: > ----- Method: Parser>>method:context:encoder: (in category > 'expression types') ----- > method: doit context: ctxt encoder: encoderToUse > " pattern [ | temporaries ] block => MethodNode." > > | sap blk prim temps messageComment methodNode | > - properties := AdditionalMethodState new. > encoder := encoderToUse. > sap := self pattern: doit inContext: ctxt. > "sap={selector, arguments, precedence}" > + self properties selector: (sap at: 1). > - properties selector: (sap at: 1). > encoder selector: (sap at: 1). > (sap at: 2) do: [:argNode | argNode beMethodArg]. > doit ifFalse: [self pragmaSequence]. > temps := self temporaries. > messageComment := currentComment. > currentComment := nil. > doit ifFalse: [self pragmaSequence]. > prim := self pragmaPrimitives. > self statements: #() innerBlock: doit. > blk := parseNode. > doit ifTrue: [blk returnLast] > ifFalse: [blk returnSelfIfNoOther: encoder]. > hereType == #doIt ifFalse: [^self expected: 'Nothing more']. > self interactive ifTrue: [self removeUnusedTemps]. > methodNode := self newMethodNode comment: messageComment. > ^methodNode > selector: (sap at: 1) > arguments: (sap at: 2) > precedence: (sap at: 3) > temporaries: temps > block: blk > encoder: encoder > primitive: prim > properties: properties! > > Item was changed: > ----- Method: > MethodNode > >>selector:arguments:precedence:temporaries:block:encoder:primitive: > (in category 'initialize-release') ----- > selector: selOrFalse arguments: args precedence: p temporaries: > temps block: blk encoder: anEncoder primitive: prim > + > + self > + selector: selOrFalse > + arguments: args > + precedence: p > + temporaries: temps > + block: blk encoder: > + anEncoder > + primitive: prim > + properties: AdditionalMethodState new.! > - "Initialize the receiver with respect to the arguments given." > - > - encoder := anEncoder. > - selectorOrFalse := selOrFalse. > - precedence := p. > - arguments := args. > - temporaries := temps. > - block := blk. > - primitive := prim! > > Item was changed: > ----- Method: Parser>>pragmaPrimitives (in category 'pragmas') ----- > pragmaPrimitives > | primitives | > + self properties isEmpty ifTrue: > - properties isEmpty ifTrue: > [^0]. > primitives := properties pragmas select: > [:pragma| > self class primitivePragmaSelectors includes: pragma keyword]. > primitives isEmpty ifTrue: > [^0]. > primitives size > 1 ifTrue: > [^self notify: 'Ambigous primitives']. > ^self perform: primitives first keyword withArguments: primitives > first arguments! > >

2 1

[Pharo-project] Copy for SequenceableCollection subclasses? (Was: Fix for 987)
by Henrik Johansen Oct. 5, 2009

Oct. 5, 2009

Somewhat related, at least I noticed it when debugging this: Sending copy to a LinkedList or a Semaphore will give back an array, since it uses shallowCopy from SequenceableCollection. Probably applies to more of SequenceableCollection's subclasses too, f.ex. DirectoryEntry for which copy leads to an MNU. Another side-effect of strange class-hierarchy, I guess :) Not quite sure how/if you want to implement those differently. Submitted to tracker as Issue1272. Cheers, Henry On Oct 5, 2009, at 1:12 38PM, StÃ©phane Ducasse wrote: > Thanks we will integrate that as soon as we can breath :) > > On Oct 5, 2009, at 12:14 PM, Henrik Johansen wrote: > >> Updated Issue987 with a SLICE in Inbox, which "fixes" the DNU in the >> way below. >> Used printString instead of asString as proposed by HernÃ¡n, as it (in >> principle) should be more robustly implemented and thus more suited >> for debugger display. >> (If sig's idea from some time back was adopted, this should be >> debugString instead of printString, of course). >> >> Cheers, >> Henry >> >> On Oct 5, 2009, at 11:51 23AM, Henrik Johansen wrote:

3 7

[Pharo-project] [BUG]UndefinedObject(Object)>>doesNotUnderstand: #null
by anlarionov＠gmail.com Oct. 5, 2009

Oct. 5, 2009

Almost all refactorings ends with this DNU. Is it platform specific? Or maybe i miss something 5 October 2009 5:17:34 pm VM: unix - i686 - linux-gnu - Pharo0.1 of 16 May 2008 [latest update: #10074] Image: Pharo1.0beta [Latest update: #10466] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/mou/development/smalltalk/pharo1.0-10451-BETAweb09.09.3 Trusted Dir /home/mou/development/smalltalk/pharo1.0-10451-BETAweb09.09.3/secure Untrusted Dir /home/mou/development/smalltalk/pharo1.0-10451-BETAweb09.09.3/My Squeak UndefinedObject(Object)>>doesNotUnderstand: #null Receiver: nil Arguments and temporary variables: aMessage: null exception: MessageNotUnderstood: receiver of "null" is nil resumeValue: nil Receiver's instance variables: nil RBMethodNode>>primitiveNode Receiver: <<error during printing>> Arguments and temporary variables: Receiver's instance variables: parent: nil properties: a RBSmallIdentityDictionary(#comments->an OrderedCollection() ) annotations: nil selector: #protocol selectorParts: an Array( RBIdentifierToken('protocol')) body: <<error during printing>> RBMethodNode>>primitiveText Receiver: <<error during printing>> Arguments and temporary variables: set: nil Receiver's instance variables: parent: nil properties: a RBSmallIdentityDictionary(#comments->an OrderedCollection() ) annotations: nil selector: #protocol selectorParts: an Array( RBIdentifierToken('protocol')) body: <<error during printing>> RBMethodNode>>primitiveSources Receiver: <<error during printing>> Arguments and temporary variables: tgs: #() text: nil Receiver's instance variables: parent: nil properties: a RBSmallIdentityDictionary(#comments->an OrderedCollection() ) annotations: nil selector: #protocol selectorParts: an Array( RBIdentifierToken('protocol')) body: <<error during printing>> RBFormatter>>formatTagFor: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBFormatter>>acceptSequenceNode: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBSequenceNode>>acceptVisitor: Receiver: <<error during printing>> Arguments and temporary variables: aProgramNodeVisitor: a RBFormatter Receiver's instance variables: parent: <<error during printing>> RBFormatter>>visitNode: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 [] in RBFormatter>>acceptMethodNode: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBFormatter>>indent:while: Receiver: a RBFormatter Arguments and temporary variables: anInteger: 1 aBlock: [closure] in RBFormatter>>acceptMethodNode: Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBFormatter>>indentWhile: Receiver: a RBFormatter Arguments and temporary variables: aBlock: [closure] in RBFormatter>>acceptMethodNode: Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBFormatter>>acceptMethodNode: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBMethodNode>>acceptVisitor: Receiver: <<error during printing>> Arguments and temporary variables: aProgramNodeVisitor: a RBFormatter Receiver's instance variables: parent: nil properties: a RBSmallIdentityDictionary(#comments->an OrderedCollection() ) annotations: nil selector: #protocol selectorParts: an Array( RBIdentifierToken('protocol')) body: <<error during printing>> RBFormatter>>visitNode: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBFormatter>>format: Receiver: a RBFormatter Arguments and temporary variables: <<error during printing> Receiver's instance variables: codeStream: a WriteStream 'protocol ' lineStart: 10 firstLineLength: 8 tabs: 1 positionDelta: 0 RBMethodNode(RBProgramNode)>>formattedCode Receiver: <<error during printing>> Arguments and temporary variables: Receiver's instance variables: parent: nil properties: a RBSmallIdentityDictionary(#comments->an OrderedCollection() ) annotations: nil selector: #protocol selectorParts: an Array( RBIdentifierToken('protocol')) body: <<error during printing>> RBClass(RBAbstractClass)>>compileTree:classified: Receiver: FCGIServer Arguments and temporary variables: <<error during printing> Receiver's instance variables: name: #FCGIServer newMethods: an IdentityDictionary() instanceVariableNames: an OrderedCollection('handler' 'port' 'socket' 'profile'...etc... model: a RBNamespace superclass: an Object subclasses: an OrderedCollection() removedMethods: nil realClass: FCGIServer classVariableNames: an OrderedCollection() poolDictionaryNames: nil category: nil comment: an Object RBClass(RBAbstractClass)>>compileTree: Receiver: FCGIServer Arguments and temporary variables: <<error during printing> Receiver's instance variables: name: #FCGIServer newMethods: an IdentityDictionary() instanceVariableNames: an OrderedCollection('handler' 'port' 'socket' 'profile'...etc... model: a RBNamespace superclass: an Object subclasses: an OrderedCollection() removedMethods: nil realClass: FCGIServer classVariableNames: an OrderedCollection() poolDictionaryNames: nil category: nil comment: an Object RenameClassRefactoring(Refactoring)>>convertMethod:for:using: Receiver: a RenameClassRefactoring Arguments and temporary variables: <<error during printing> Receiver's instance variables: model: a RBNamespace options: nil className: #FCGIProtocolVersion1 newName: #FCGIAdapter class: FCGIProtocolVersion1 [] in RenameClassRefactoring>>renameReferences Receiver: a RenameClassRefactoring Arguments and temporary variables: replacer: FCGIServer>>protocol method: a ParseTreeRewriter Receiver's instance variables: model: a RBNamespace options: nil className: #FCGIProtocolVersion1 newName: #FCGIAdapter class: FCGIProtocolVersion1 [] in [] in RBNamespace>>allReferencesToClass:do: Receiver: a RBNamespace Arguments and temporary variables: <<error during printing> Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() Set>>do: Receiver: a Set(#protocol) Arguments and temporary variables: aBlock: [closure] in [] in RBNamespace>>allReferencesToClass:do: index: 3 each: #protocol indexLimiT: 5 Receiver's instance variables: tally: 1 array: #(nil nil #protocol nil nil) [] in RBNamespace>>allReferencesToClass:do: Receiver: a RBNamespace Arguments and temporary variables: aRBClass: FCGIServer aBlock: FCGIProtocolVersion1 each: [closure] in RenameClassRefactoring>>renameReferences Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() [] in RBNamespace>>allClassesDo: Receiver: a RBNamespace Arguments and temporary variables: aBlock: FCGIServer seen: [closure] in RBNamespace>>allReferencesToClass:do: evalBlock: a Set(#FCGIProtocolVersion1) each: FCGIServer class: [closure] in RBNamespace>>allReferencesToClass:do: Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() [] in BrowserEnvironment>>classesDo: Receiver: Smalltalk Arguments and temporary variables: aBlock: FCGIServer each: [closure] in RBNamespace>>allClassesDo: Receiver's instance variables: label: nil searchStrings: nil [] in BrowserEnvironment>>allClassesDo: Receiver: Smalltalk Arguments and temporary variables: aBlock: FCGIServer each: [closure] in BrowserEnvironment>>classesDo: Receiver's instance variables: label: nil searchStrings: nil OrderedCollection>>do: Receiver: an OrderedCollection(AColorSelectorMorph ADPCMCodec AIFFFileReader ASTPrettyPrinting ASamp...etc... Arguments and temporary variables: aBlock: [closure] in BrowserEnvironment>>allClassesDo: index: 492 Receiver's instance variables: array: {AColorSelectorMorph . ADPCMCodec . AIFFFileReader . ASTPrettyPrinting ....etc... firstIndex: 1 lastIndex: 4204 SystemDictionary>>allClassesDo: Receiver: Smalltalk Arguments and temporary variables: aBlock: [closure] in BrowserEnvironment>>allClassesDo: Receiver's instance variables: tally: 4332 array: {#PRReferenceRenderer->PRReferenceRenderer . #PRLightBoxView->PRLightBox...etc... cachedClassNames: a SortedCollection(#AColorSelectorMorph #ADPCMCodec #AIFFFile...etc... SystemNavigation>>allClassesDo: Receiver: a SystemNavigation Arguments and temporary variables: aBlock: [closure] in BrowserEnvironment>>allClassesDo: Receiver's instance variables: browserClass: nil hierarchyBrowserClass: nil BrowserEnvironment>>allClassesDo: Receiver: Smalltalk Arguments and temporary variables: aBlock: [closure] in BrowserEnvironment>>classesDo: Receiver's instance variables: label: nil searchStrings: nil BrowserEnvironment>>classesDo: Receiver: Smalltalk Arguments and temporary variables: aBlock: [closure] in RBNamespace>>allClassesDo: Receiver's instance variables: label: nil searchStrings: nil RBNamespace>>allClassesDo: Receiver: a RBNamespace Arguments and temporary variables: aBlock: [closure] in RBNamespace>>allReferencesToClass:do: seen: a Set(#FCGIProtocolVersion1) evalBlock: [closure] in RBNamespace>>allClassesDo: Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() RBNamespace>>allReferencesToClass:do: Receiver: a RBNamespace Arguments and temporary variables: aRBClass: FCGIProtocolVersion1 aBlock: [closure] in RenameClassRefactoring>>renameReferences Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() RenameClassRefactoring>>renameReferences Receiver: a RenameClassRefactoring Arguments and temporary variables: replacer: a ParseTreeRewriter Receiver's instance variables: model: a RBNamespace options: nil className: #FCGIProtocolVersion1 newName: #FCGIAdapter class: FCGIProtocolVersion1 [] in RenameClassRefactoring>>transform Receiver: a RenameClassRefactoring Arguments and temporary variables: Receiver's instance variables: model: a RBNamespace options: nil className: #FCGIProtocolVersion1 newName: #FCGIAdapter class: FCGIProtocolVersion1 BlockClosure>>ensure: Receiver: [closure] in RenameClassRefactoring>>transform Arguments and temporary variables: aBlock: [closure] in RBNamespace>>performChange:around: returnValue: nil b: nil Receiver's instance variables: outerContext: RenameClassRefactoring>>transform startpc: 33 numArgs: 0 RBNamespace>>performChange:around: Receiver: a RBNamespace Arguments and temporary variables: aCompositeRefactoryChange: FCGIProtocolVersion1 rename: #FCGIAdapter! aBlock: [closure] in RenameClassRefactoring>>transform oldChanges: refactor class, rename Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() RBNamespace>>renameClass:to:around: Receiver: a RBNamespace Arguments and temporary variables: aRBClass: FCGIProtocolVersion1 aSymbol: #FCGIAdapter aBlock: [closure] in RenameClassRefactoring>>transform change: FCGIProtocolVersion1 rename: #FCGIAdapter! value: nil dict: nil Receiver's instance variables: changes: FCGIProtocolVersion1 rename: #FCGIAdapter! environment: Smalltalk newClasses: an IdentityDictionary() removedClasses: a Set() changedClasses: an IdentityDictionary(size 494) rootClasses: nil implementorsCache: an IdentityDictionary() sendersCache: an IdentityDictionary() RenameClassRefactoring>>transform Receiver: a RenameClassRefactoring Arguments and temporary variables: Receiver's instance variables: model: a RBNamespace options: nil className: #FCGIProtocolVersion1 newName: #FCGIAdapter class: FCGIProtocolVersion1 --- The full stack --- UndefinedObject(Object)>>doesNotUnderstand: #null RBMethodNode>>primitiveNode RBMethodNode>>primitiveText RBMethodNode>>primitiveSources RBFormatter>>formatTagFor: RBFormatter>>acceptSequenceNode: RBSequenceNode>>acceptVisitor: RBFormatter>>visitNode: [] in RBFormatter>>acceptMethodNode: RBFormatter>>indent:while: RBFormatter>>indentWhile: RBFormatter>>acceptMethodNode: RBMethodNode>>acceptVisitor: RBFormatter>>visitNode: RBFormatter>>format: RBMethodNode(RBProgramNode)>>formattedCode RBClass(RBAbstractClass)>>compileTree:classified: RBClass(RBAbstractClass)>>compileTree: RenameClassRefactoring(Refactoring)>>convertMethod:for:using: [] in RenameClassRefactoring>>renameReferences [] in [] in RBNamespace>>allReferencesToClass:do: Set>>do: [] in RBNamespace>>allReferencesToClass:do: [] in RBNamespace>>allClassesDo: [] in BrowserEnvironment>>classesDo: [] in BrowserEnvironment>>allClassesDo: OrderedCollection>>do: SystemDictionary>>allClassesDo: SystemNavigation>>allClassesDo: BrowserEnvironment>>allClassesDo: BrowserEnvironment>>classesDo: RBNamespace>>allClassesDo: RBNamespace>>allReferencesToClass:do: RenameClassRefactoring>>renameReferences [] in RenameClassRefactoring>>transform BlockClosure>>ensure: RBNamespace>>performChange:around: RBNamespace>>renameClass:to:around: RenameClassRefactoring>>transform - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - RenameClassRefactoring(Refactoring)>>primitiveExecute [] in OR2CmdRenameClassRefactoring(OR2Command)>>performRefactoring: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: OBShoutPlatform(OBMorphicPlatform)>>handleWaitRequest: OBWaitRequest>>handleWith: OBWaitRequest(OBInteractionRequest)>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: OBWaitRequest(Exception)>>signal OBWaitRequest class>>block: OR2CmdRenameClassRefactoring(OR2Command)>>waitWhile: OR2CmdRenameClassRefactoring(OR2Command)>>performRefactoring: [] in [] in OR2CmdRenameClassRefactoring(OR2CmdRefactoring)>>execute BlockClosure>>on:do: OR2CmdRenameClassRefactoring(OR2Command)>>handleError: [] in OR2CmdRenameClassRefactoring(OR2CmdRefactoring)>>execute BlockClosure>>on:do: OR2CmdRenameClassRefactoring(OR2CmdRefactoring)>>execute OR2CmdRenameClassRefactoring(O2Command)>>perform:orSendTo: [] 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: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess

1 0

[Pharo-project] Fwd: [squeak-dev] Re: The Trunk: Monticello-ar.323.mcz
by StÃ©phane Ducasse Oct. 5, 2009

Oct. 5, 2009

mc semantics Begin forwarded message: > From: Andreas Raab <andreas.raab(a)gmx.de> > Date: September 30, 2009 4:53:10 PM GMT+02:00 > To: The general-purpose Squeak developers list <squeak-dev(a)lists.squeakfoundation.org > > > Subject: [squeak-dev] Re: The Trunk: Monticello-ar.323.mcz > Reply-To: The general-purpose Squeak developers list <squeak-dev(a)lists.squeakfoundation.org > > > > Miguel Enrique CobÃ¡ Martinez wrote: >> El miÃ©, 30-09-2009 a las 04:39 +0000, commits(a)source.squeak.org >> escribiÃ³: >>> Andreas Raab uploaded a new version of Monticello to project The >>> Trunk: >>> http://source.squeak.org/trunk/Monticello-ar.323.mcz >> Doesn't Monticello has its master repository on the wiresong site? > > It does, but this is an interim experiment with the only purpose of > trying to improve our local situation a little. Plus I have no > commit rights to the upstream repository. Plus I need that now ;-) > > There is always an interesting tension between upstream and > downstream usage and we haven't really found out how to > realistically deal with that tension in a sustained manner. If > anyone has ideas, I'm all ears. > > Cheers, > - Andreas > >>> ==================== Summary ==================== >>> >>> Name: Monticello-ar.323 >>> Author: ar >>> Time: 29 September 2009, 9:38:50 am >>> UUID: 927bef84-8215-0443-afe4-c8575b3a300c >>> Ancestors: Monticello-cwp.322 >>> >>> A small improvement to MC loading. New rules are: >>> - Pass 1: Load class changes first >>> - Pass 2: Compile new / changed methods >>> - Pass 3: Install new / changed methods >>> - Pass 4: Remove old methods >>> This should provide a bit more stability to the loading process. >>> >>> =============== Diff against Monticello-cwp.322 =============== >>> >>> Item was added: >>> + ----- Method: MCMethodDefinition>>asMethodAddition (in category >>> 'accessing') ----- >>> + asMethodAddition >>> + ^MethodAddition new >>> + compile: source >>> + classified: category >>> + withStamp: timeStamp >>> + notifying: (SyntaxError new category: category) >>> + logSource: true >>> + inClass: self actualClass.! >>> >>> Item was changed: >>> ----- Method: MCPackageLoader>>basicLoad (in category 'private') >>> ----- >>> basicLoad >>> errorDefinitions := OrderedCollection new. >>> + [["Pass 1: Load everything but the methods, which are >>> collected in methodAdditions." >>> + additions do: [:ea | + [ea isMethodDefinition + ifTrue: >>> [methodAdditions add: ea asMethodAddition] >>> + ifFalse:[ea load]]on: Error do: [errorDefinitions add: ea]. >>> + ] displayingProgress: 'Reshaping classes...'. >>> + + "Pass 2: We compile new / changed methods" >>> + methodAdditions do:[:ea| ea createCompiledMethod] >>> displayingProgress: 'Compiling...'. >>> - [[ >>> - >>> - "FIXME. Do a separate pass on loading class definitions as the >>> very first thing. >>> - This is a workaround for a problem with the so-called 'atomic' >>> loading (you wish!!) >>> - which isn't atomic at all but mixes compilation of methods with >>> reshapes of classes. >>> - - Since the method is not installed until later, any class >>> reshape in the middle *will* >>> - affect methods in subclasses that have been compiled before. >>> There is probably >>> - a better way of dealing with this by ensuring that the sort >>> order of the definition lists >>> - superclass definitions before methods for subclasses but I need >>> this NOW, and adding >>> - an extra pass ensures that methods are compiled against their >>> new class definitions." >>> + "Pass 3: Install the new / changed methods >>> + (this is a separate pass to allow compiler changes to be loaded)" >>> + methodAdditions do:[:ea| ea installMethod] displayingProgress: >>> 'Installing...'. >>> + + "Pass 4: Remove the obsolete methods" >>> + removals do:[:ea| ea unload] displayingProgress: 'Cleaning >>> up ...'. >>> + + "Try again any delayed definitions" >>> - 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 load] displayingProgress: >>> 'Reloading...'. >>> + + "Finally, notify observers for the method additions" >>> - 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] >>> + ] ensure: [self flushChangesFile]! >>> - additions do: [:ea | ea postloadOver: (self obsoletionFor: ea)] >>> displayingProgress: 'Initializing...'] >>> - on: InMidstOfFileinNotification - do: [:n | n resume: true]] >>> - ensure: [self flushChangesFile]! >>> >>> > >

1 0

[Pharo-project] Fwd: [squeak-dev] The Trunk: System-cwp.152.mcz
by StÃ©phane Ducasse Oct. 5, 2009

Oct. 5, 2009

should avoid to OBPAckage2Browser kind of name Stef Begin forwarded message: > From: commits(a)source.squeak.org > Date: September 28, 2009 6:34:25 PM GMT+02:00 > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: System-cwp.152.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Colin Putney uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-cwp.152.mcz > > ==================== Summary ==================== > > Name: System-cwp.152 > Author: cwp > Time: 28 September 2009, 9:31:21 am > UUID: f3d14748-2ff3-408f-9ec5-6451f6b158f4 > Ancestors: System-dtl.151 > > AppRegistry now allows classes to decide how they will be displayed > in menus rather than always using the class name. > > =============== Diff against System-dtl.151 =============== > > Item was changed: > SystemOrganization addCategory: #'System-Applications'! > SystemOrganization addCategory: #'System-Change Notification'! > SystemOrganization addCategory: #'System-Changes'! > SystemOrganization addCategory: #'System-Digital Signatures'! > SystemOrganization addCategory: #'System-Digital Signatures-Tests'! > SystemOrganization addCategory: #'System-Download'! > SystemOrganization addCategory: #'System-FilePackage'! > SystemOrganization addCategory: #'System-FileRegistry'! > SystemOrganization addCategory: #'System-Finalization'! > SystemOrganization addCategory: #'System-Localization'! > SystemOrganization addCategory: #'System-Object Events'! > SystemOrganization addCategory: #'System-Object Events-Tests'! > SystemOrganization addCategory: #'System-Object Storage'! > SystemOrganization addCategory: #'System-Pools'! > - SystemOrganization addCategory: #'System-Serial Port'! > - SystemOrganization addCategory: #'System-Support'! > SystemOrganization addCategory: #'System-Preferences'! > + SystemOrganization addCategory: #'System-Serial Port'! > + SystemOrganization addCategory: #'System-Support'! > SystemOrganization addCategory: #'System-Support-Tests'! > SystemOrganization addCategory: #'System-Tools'! > > Item was changed: > ----- Method: AppRegistry class>>askForDefault (in category 'as yet > unclassified') ----- > askForDefault > > self registeredClasses isEmpty ifTrue: > [self inform: 'There are no ', self appName, ' applications > registered.'. > ^ default := nil]. > self registeredClasses size = 1 ifTrue: > [^ default := self registeredClasses anyOne]. > default := UIManager default > + chooseFrom: (self registeredClasses collect: [:ea | ea > nameForViewer]) > - chooseFrom: self registeredClasses > values: self registeredClasses > title: 'Which ', self appName, ' would you prefer?'. > default ifNil: [default := self registeredClasses first]. > ^default.! > >

1 0

[Pharo-project] issue 996: analogousCodeTo:
by Ramiro Diaz Trepat Oct. 5, 2009

Oct. 5, 2009

Hi guys,My debugger casts exceptions as soon as I click on any stack point and hence I can't almost use it for anything. The error always seems to be this MNU ByteSymbol>>analogousCodeTo: Is there a work around to use the debugger? Thanks r

5 9

[Pharo-project] Easy bug submission
by Andrey Larionov Oct. 5, 2009

Oct. 5, 2009

What about to add another button to error dialog? The button action "Report bug", which gather debug info and ask user to provide meaningful description of how to reproduce, and then posts this information (maybe possibly search for duplicates entries) as defect report in bugtracker.

3 6

[Pharo-project] Splitting MorphicExtras
by Nicolas Cellier Oct. 5, 2009

Oct. 5, 2009

source.squeak.org/trunk did it, it would be welcome to follow, because publishing Morphic is a bit loooongish. Nicolas

2 3

[Pharo-project] Dumb question: ~ vs. /home/user
by Schwab,Wilhelm K Oct. 4, 2009

Oct. 4, 2009

For the unix gurus among us, what should happen in response to ( FileDirectory on:'~/ExistingDirectory' ) entries? It creates a path name of /~ExistingDirectory and then fumbles trying to read it. Is this something that should be expected to work, or is ~ just a trick of the shell? Bill

7 15