Squeak-dev May 2013

squeak-dev@lists.squeakfoundation.org

59 participants
334 discussions

Emergency evaluator on update: Environments?
by Frank Shearar 27 May '13

27 May '13

I'm not sure what caused it, but I just hit an emergency evaluator on updating a clean 4.5 (as in the Squeak4.5.image in the build scripts). It goes something like this: ***System error handling failed*** Original error: MessageNotUnderstood: UndefinedObject>>at:ifPresent:. Debugger error: MessageNotUnderstood: UndefinedObject>>at:ifPresent:: Debugger class(Object)>>primitiveError: [] in [] in Debugger class>>morphicOpenOn:context:label:contents:fullView: BlockContext>>cull: [] in MethodContext(ContextPart)>>handleSignal: BlockClosure>>ensure: MethodContext(ContextPart)>>handleSignal: MessageNotUnderstood(Exception)>>signal UndefinedObject(Object)>>doesNotUnderstand: #at:ifPresent: Environment>>at:ifPresentAndInMemory: SmalltalkImage>>at:ifPresentAndInMemory: Debugger>>process:controller:context: [] in [] in Debugger class>>morphicOpenOn:context:label:contents:fullView: and so on. I'm strongly tempted to point at Environments-cwp.27 because of that call to #at:ifPresentAndInMemory: which uses Environment's contents ivar prior to this change and the new declarations ivar after. A missing migration step over the shape change? frank

3 2

The Trunk: Environments-cwp.29.mcz
by commits＠source.squeak.org 27 May '13

27 May '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.29.mcz ==================== Summary ==================== Name: Environments-cwp.29 Author: cwp Time: 26 May 2013, 7:41:55.167 pm UUID: aa7f55f2-e0fc-4283-8ad1-4707e86a041f Ancestors: Environments-cwp.28 Environment refactoring, part 3 of 3: remove the old instance variables. =============== Diff against Environments-cwp.28 =============== Item was removed: - (PackageInfo named: 'Environments') preamble: '"below, add code to be run before the loading of this package" - - Environment allInstancesDo: [:ea | ea migrate]. - '! Item was changed: Object subclass: #Environment + instanceVariableNames: 'info imports exports declarations references public undeclared' - instanceVariableNames: 'info imports exports contents bindings public undeclared declarations references' classVariableNames: 'Default Instances' poolDictionaries: '' category: 'Environments-Core'!

1 0

The Trunk: Environments-cwp.28.mcz
by commits＠source.squeak.org 27 May '13

27 May '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.28.mcz ==================== Summary ==================== Name: Environments-cwp.28 Author: cwp Time: 26 May 2013, 7:40:34.424 pm UUID: d20adb01-2cd2-4303-a5d8-fdb68924eb99 Ancestors: Environments-cwp.27 Environment refactoring, part 2 of 3: migrate data to new instance variables, change methods to use the new instance variables. =============== Diff against Environments-cwp.27 =============== Item was added: + (PackageInfo named: 'Environments') preamble: '"below, add code to be run before the loading of this package" + + Environment allInstancesDo: [:ea | ea migrate]. + '! Item was changed: ----- Method: Environment>>allClassesAndTraitsDo: (in category 'classes and traits') ----- allClassesAndTraitsDo: aBlock + declarations keysAndValuesDo: - contents keysAndValuesDo: [:key :value | ((value isBehavior) and: [key == value name]) ifTrue: [aBlock value: value]]! Item was changed: ----- Method: Environment>>associationAt: (in category 'emulating') ----- associationAt: aSymbol "Senders of this should probably be using #bindingOf:" self flag: #review. + ^ declarations associationAt: aSymbol! - ^ contents associationAt: aSymbol! Item was changed: ----- Method: Environment>>associationAt:ifAbsent: (in category 'emulating') ----- associationAt: aSymbol ifAbsent: aBlock "Senders of this should probably be using #bindingOf:" self flag: #review. + ^ declarations associationAt: aSymbol ifAbsent: aBlock! - ^ contents associationAt: aSymbol ifAbsent: aBlock! Item was changed: ----- Method: Environment>>associationOrUndeclaredAt: (in category 'emulating') ----- associationOrUndeclaredAt: key + ^ references associationAt: key ifAbsent: - ^ bindings associationAt: key ifAbsent: [undeclared at: key put: nil. undeclared associationAt: key] ! Item was changed: ----- Method: Environment>>at: (in category 'emulating') ----- at: aSymbol + ^ declarations at: aSymbol! - ^ contents at: aSymbol! Item was changed: ----- Method: Environment>>at:ifAbsent: (in category 'emulating') ----- at: aSymbol ifAbsent: aBlock + ^ declarations at: aSymbol ifAbsent: aBlock! - ^ contents at: aSymbol ifAbsent: aBlock! Item was changed: ----- Method: Environment>>at:ifAbsentPut: (in category 'emulating') ----- at: aSymbol ifAbsentPut: aBlock + ^ declarations - ^ contents at: aSymbol ifAbsentPut: aBlock! Item was changed: ----- Method: Environment>>at:ifPresent: (in category 'emulating') ----- at: aSymbol ifPresent: aBlock + ^ declarations at: aSymbol ifPresent: aBlock! - ^ contents at: aSymbol ifPresent: aBlock! Item was changed: ----- Method: Environment>>at:ifPresent:ifAbsent: (in category 'emulating') ----- at: aSymbol ifPresent: presentBlock ifAbsent: absentBlock + ^ declarations - ^ contents at: aSymbol ifPresent: presentBlock ifAbsent: absentBlock.! Item was changed: ----- Method: Environment>>at:ifPresentAndInMemory: (in category 'emulating') ----- at: key ifPresentAndInMemory: aBlock + ^ declarations - ^ contents at: key ifPresent: [:v | v isInMemory ifTrue: [aBlock value: v]]! Item was changed: ----- Method: Environment>>at:put: (in category 'emulating') ----- at: aSymbol put: anObject | binding | + (declarations includesKey: aSymbol) + ifTrue: [declarations at: aSymbol put: anObject] - (contents includesKey: aSymbol) - ifTrue: [contents at: aSymbol put: anObject] ifFalse: [(undeclared includesKey: aSymbol) ifTrue: + [declarations declare: aSymbol from: undeclared. + declarations at: aSymbol put: anObject] - [contents declare: aSymbol from: undeclared. - contents at: aSymbol put: anObject] ifFalse: [binding := aSymbol => anObject. + declarations add: binding. - contents add: binding. exports bind: binding]]. ^ anObject ! Item was changed: ----- Method: Environment>>bindingOf:ifAbsent: (in category 'binding') ----- bindingOf: aSymbol ifAbsent: aBlock + ^ references associationAt: aSymbol ifAbsent: - ^ bindings associationAt: aSymbol ifAbsent: [(imports bindingOf: aSymbol) ifNil: aBlock + ifNotNil: [:foreign | references add: (foreign asBinding: aSymbol)]]! - ifNotNil: [:foreign | bindings add: (foreign asBinding: aSymbol)]]! Item was changed: ----- Method: Environment>>classOrTraitNamed: (in category 'classes and traits') ----- classOrTraitNamed: aString "aString is either a class or trait name or a class or trait name followed by ' class' or 'classTrait' respectively. Answer the class or metaclass it names." | meta baseName | (aString endsWith: ' class') ifTrue: [meta := true. baseName := aString copyFrom: 1 to: aString size - 6] ifFalse: [ (aString endsWith: ' classTrait') ifTrue: [ meta := true. baseName := aString copyFrom: 1 to: aString size - 11] ifFalse: [ meta := false. baseName := aString]]. + ^declarations at: baseName asSymbol ifPresent: - ^contents at: baseName asSymbol ifPresent: [ :global | global isBehavior ifTrue: [ meta ifFalse: [ global ] ifTrue: [ global classSide ]]]! Item was changed: ----- Method: Environment>>do: (in category 'emulating') ----- do: aBlock "Evaluate aBlock for each of the receiver's values." + declarations valuesDo: aBlock! - contents valuesDo: aBlock! Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. + undeclared declare: aClass name from: declarations. - undeclared declare: aClass name from: contents. imports forgetName: aClass name. exports forgetName: aClass name. + declarations removeKey: aClass name ifAbsent: []. + references removeKey: aClass name ifAbsent: []. - contents removeKey: aClass name ifAbsent: []. - bindings removeKey: aClass name ifAbsent: []. [undeclared at: aClass name put: nil] on: AttemptToWriteReadOnlyGlobal do: [:n | n resume: true]. ! Item was changed: ----- Method: Environment>>hasBindingThatBeginsWith: (in category 'binding') ----- hasBindingThatBeginsWith: aString + references associationsDo: - bindings associationsDo: [:ea | (ea key beginsWith: aString) ifTrue: [^ true]]. ^ false ! Item was changed: ----- Method: Environment>>hasClassNamed: (in category 'classes and traits') ----- hasClassNamed: aString Symbol hasInterned: aString ifTrue: [:symbol | + ^ (declarations at: symbol ifAbsent: [nil]) - ^ (contents at: symbol ifAbsent: [nil]) isKindOf: Class]. ^ false.! Item was changed: ----- Method: Environment>>importSelf (in category 'configuring') ----- importSelf + imports := Import namespace: declarations next: imports. - imports := Import namespace: contents next: imports. self rebindUndeclared! Item was changed: ----- Method: Environment>>includes: (in category 'emulating') ----- includes: value + ^ declarations includes: value! - ^ contents includes: value! Item was changed: ----- Method: Environment>>includesKey: (in category 'emulating') ----- includesKey: key + ^ declarations includesKey: key! - ^ contents includesKey: key! Item was changed: ----- Method: Environment>>initialize (in category 'initialize-release') ----- initialize + references := IdentityDictionary new. + declarations := IdentityDictionary new. - bindings := IdentityDictionary new. - contents := IdentityDictionary new. public := IdentityDictionary new. undeclared := IdentityDictionary new. imports := Import null. exports := Export null. self importSelf.! Item was changed: ----- Method: Environment>>initializeWithName: (in category 'initialize-release') ----- initializeWithName: aString | smalltalk | self initialize. info := EnvironmentInfo name: aString. . smalltalk := SmalltalkImage basicNew. smalltalk globals: self. + declarations at: #Smalltalk put: smalltalk. + declarations at: #Undeclared put: undeclared.! - contents at: #Smalltalk put: smalltalk. - contents at: #Undeclared put: undeclared.! Item was changed: ----- Method: Environment>>initializeWithSystemDictionary: (in category 'initialize-release') ----- initializeWithSystemDictionary: old self initialize. info := EnvironmentInfo name: 'Smalltalk' organization: old organization packages: PackageOrganizer default. + old associationsDo: [:assc | declarations add: assc]. - old associationsDo: [:assc | contents add: assc]. (old at: #Undeclared) associationsDo: [:assc | undeclared add: assc]. + (declarations at: #Smalltalk) instVarNamed: 'globals' put: self. + declarations at: #Undeclared put: undeclared.! - (contents at: #Smalltalk) instVarNamed: 'globals' put: self. - contents at: #Undeclared put: undeclared.! Item was changed: ----- Method: Environment>>keyAtIdentityValue: (in category 'emulating') ----- keyAtIdentityValue: anObject + ^ declarations keyAtIdentityValue: anObject.! - ^ contents keyAtIdentityValue: anObject.! Item was changed: ----- Method: Environment>>keyAtIdentityValue:ifAbsent: (in category 'emulating') ----- keyAtIdentityValue: anObject ifAbsent: aBlock + ^ declarations keyAtIdentityValue: anObject ifAbsent: aBlock! - ^ contents keyAtIdentityValue: anObject ifAbsent: aBlock! Item was changed: ----- Method: Environment>>keys (in category 'emulating') ----- keys + ^ declarations keys! - ^ contents keys! Item was changed: ----- Method: Environment>>keysDo: (in category 'emulating') ----- keysDo: aBlock "Evaluate aBlock for each of the receiver's keys." + declarations keysDo: aBlock! - contents keysDo: aBlock! Item was changed: ----- Method: Environment>>migrate (in category 'initialize-release') ----- migrate + declarations := declarations. + references := references.! - declarations := contents. - references := bindings.! Item was changed: ----- Method: Environment>>publicizeContents (in category 'private') ----- publicizeContents + declarations associationsDo: [:binding | exports bind: binding]. - contents associationsDo: [:binding | exports bind: binding]. ! Item was changed: ----- Method: Environment>>rebindUndeclared (in category 'private') ----- rebindUndeclared undeclared keys do: [:name | (imports valueOf: name) ifNotNil: [:v | + references declare: name from: undeclared. + references at: name put: v]]! - bindings declare: name from: undeclared. - bindings at: name put: v]]! Item was changed: ----- Method: Environment>>recompileAll (in category 'operations') ----- recompileAll + references removeAll. - bindings removeAll. self allClassesAndTraits do: [:classOrTrait | classOrTrait compileAll] displayingProgress:[:classOrTrait| 'Recompiling ', classOrTrait] ! Item was changed: ----- Method: Environment>>removeClassNamed: (in category 'classes and traits') ----- removeClassNamed: aString + declarations - contents at: aString asSymbol ifPresent: [:class | class removeFromSystem] ifAbsent: [Transcript cr; show: 'Removal of class named ', aString, ' ignored because ', aString, ' does not exist.']! Item was changed: ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- removeKey: key ifAbsent: aBlock self flag: #review. + ^ declarations removeKey: key ifAbsent: aBlock! - ^ contents removeKey: key ifAbsent: aBlock! Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." | oldref category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. oldref := self associationAt: oldName. + declarations removeKey: oldName. - contents removeKey: oldName. oldref key: newName. + declarations add: oldref. - contents add: oldref. Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category! Item was changed: ----- Method: Environment>>renameClassNamed:as: (in category 'classes and traits') ----- renameClassNamed: oldName as: newName + declarations - contents at: oldName ifPresent: [:class | class rename: newName] ifAbsent: [Transcript cr; show: 'Class-rename for ', oldName, ' ignored because ', oldName, ' does not exist.']! Item was changed: ----- Method: Environment>>scopeFor:from:envtAndPathIfFound: (in category 'emulating') ----- scopeFor: aSymbol from: lower envtAndPathIfFound: aBlock + ^ (declarations includesKey: aSymbol) - ^ (contents includesKey: aSymbol) ifTrue: [aBlock value: self value: String new] ! Item was changed: ----- Method: Environment>>select: (in category 'emulating') ----- select: aBlock + ^ declarations select: aBlock! - ^ contents select: aBlock! Item was changed: ----- Method: Environment>>valueOf:ifAbsent: (in category 'binding') ----- valueOf: aSymbol ifAbsent: aBlock + ^ references at: aSymbol ifAbsent: aBlock! - ^ bindings at: aSymbol ifAbsent: aBlock!

1 0

The Trunk: Environments-cwp.27.mcz
by commits＠source.squeak.org 27 May '13

27 May '13

1 0

Daily Commit Log
by commits＠source.squeak.org 27 May '13

27 May '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-May/005985.html Name: Kernel-cmm.760 Ancestors: Kernel-fbs.759 - Move #isKindOf: to ProtoObject to allow the PointerFinder to work with Proxies. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005986.html Name: Tools-cmm.466 Ancestors: Tools-fbs.465 PointerFinder delegate to #shouldFollowOutboundPointers, which Proxy classes can implement, to allow that tool to work when proxys exist in the image. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-May/005987.html Name: Environments-cwp.27 Ancestors: Environments-fbs.26 Refactor for clarity; rename some confusing instance variables. =============================================

1 0

Browser searching suggestion
by tim Rowledge 27 May '13

27 May '13

While I'm thinking of UI stuff, here's a suggestion that might be simple for a Morphite to try out - For the class category and message protocol lists, add a 'spotlight' morph. The class category 'find class' menu entry work ok on a fast machine but is very slow on smaller machines at least in part because of building a large list and a full window in which to show them. If the top of the browser list were to be a typeable morph attached to a very lightweight drop-down list (a menu in essence) of matches for what was typed… so instead of doing menu or cmd-f, opening a somewhat complicated dialogue/window showing all classes, typing the pattern, selecting a matching one we might have - type into pattern field fast, simple list displayed containing only matching entries select choice I'm thinking of this as both a lighter weight bit of work for the system (since the full list of all classes need not be built and formatted and displayed) and a slightly lower friction UI for the user (since the UI is right there in front of you). The same widget targeted at all messages of a class could be nice. I wonder if it might be even more effective if nothing were displayed until at least 'n' characters were entered, where 'n' is probably 2-4. Is it actually useful to see a list of all classes containing a single typed letter? Could we sensibly link the pattern to regexp code, or at least basic matching with wildcards? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Strange OpCodes: WDS: Warp Drive, Scotty!

4 8

The Trunk: Environments-cwp.27.mcz
by commits＠source.squeak.org 26 May '13

26 May '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.27.mcz ==================== Summary ==================== Name: Environments-cwp.27 Author: cwp Time: 26 May 2013, 1:14:09.526 pm UUID: 42218eb4-3638-4d7d-8fdb-5ed5a4e0bb98 Ancestors: Environments-fbs.26 Refactor for clarity; rename some confusing instance variables. =============== Diff against Environments-fbs.26 =============== Item was changed: Object subclass: #Environment + instanceVariableNames: 'info imports exports declarations references public undeclared' - instanceVariableNames: 'info imports exports contents bindings public undeclared' classVariableNames: 'Default Instances' poolDictionaries: '' category: 'Environments-Core'! + + !Environment commentStamp: 'cwp 5/26/2013 13:06' prior: 0! + I am a context for compiling methods. I maintain the namespace of classes and gobal variables that are visible to the methods compiled within me. + + Instance Variables: + info <EnvironmentInfo> + Metadata about me and the code I contain + + imports <Import> + Rules for importing globals from other environments + + exports <Export> + Rules for exposing globals to other environments + + declarations <IdentityDictionary> + Bindings for globals that have been declared inside me + + references <IdentityDictionary> + Bindings for globals that are used by methods compiled inside me. + + public <IdentityDictionary> + Bindings for classes that have been declared inside me, and which satisfy + the export rules contain in 'exports'. + + undeclared <Dictionary> + Bindings for globals that are used by methods compiled inside me, but + which aren't present 'references' and couldn't be found via the rules in + 'imports'. + ! Item was changed: ----- Method: Environment>>allClassesAndTraitsDo: (in category 'classes and traits') ----- allClassesAndTraitsDo: aBlock + declarations keysAndValuesDo: - contents keysAndValuesDo: [:key :value | ((value isBehavior) and: [key == value name]) ifTrue: [aBlock value: value]]! Item was changed: ----- Method: Environment>>associationAt: (in category 'emulating') ----- associationAt: aSymbol "Senders of this should probably be using #bindingOf:" self flag: #review. + ^ declarations associationAt: aSymbol! - ^ contents associationAt: aSymbol! Item was changed: ----- Method: Environment>>associationAt:ifAbsent: (in category 'emulating') ----- associationAt: aSymbol ifAbsent: aBlock "Senders of this should probably be using #bindingOf:" self flag: #review. + ^ declarations associationAt: aSymbol ifAbsent: aBlock! - ^ contents associationAt: aSymbol ifAbsent: aBlock! Item was changed: ----- Method: Environment>>associationOrUndeclaredAt: (in category 'emulating') ----- associationOrUndeclaredAt: key + ^ references associationAt: key ifAbsent: - ^ bindings associationAt: key ifAbsent: [undeclared at: key put: nil. undeclared associationAt: key] ! Item was changed: ----- Method: Environment>>at: (in category 'emulating') ----- at: aSymbol + ^ declarations at: aSymbol! - ^ contents at: aSymbol! Item was changed: ----- Method: Environment>>at:ifAbsent: (in category 'emulating') ----- at: aSymbol ifAbsent: aBlock + ^ declarations at: aSymbol ifAbsent: aBlock! - ^ contents at: aSymbol ifAbsent: aBlock! Item was changed: ----- Method: Environment>>at:ifAbsentPut: (in category 'emulating') ----- at: aSymbol ifAbsentPut: aBlock + ^ declarations - ^ contents at: aSymbol ifAbsentPut: aBlock! Item was changed: ----- Method: Environment>>at:ifPresent: (in category 'emulating') ----- at: aSymbol ifPresent: aBlock + ^ declarations at: aSymbol ifPresent: aBlock! - ^ contents at: aSymbol ifPresent: aBlock! Item was changed: ----- Method: Environment>>at:ifPresent:ifAbsent: (in category 'emulating') ----- at: aSymbol ifPresent: presentBlock ifAbsent: absentBlock + ^ declarations - ^ contents at: aSymbol ifPresent: presentBlock ifAbsent: absentBlock.! Item was changed: ----- Method: Environment>>at:ifPresentAndInMemory: (in category 'emulating') ----- at: key ifPresentAndInMemory: aBlock + ^ declarations - ^ contents at: key ifPresent: [:v | v isInMemory ifTrue: [aBlock value: v]]! Item was changed: ----- Method: Environment>>at:put: (in category 'emulating') ----- at: aSymbol put: anObject | binding | + (declarations includesKey: aSymbol) + ifTrue: [declarations at: aSymbol put: anObject] - (contents includesKey: aSymbol) - ifTrue: [contents at: aSymbol put: anObject] ifFalse: [(undeclared includesKey: aSymbol) ifTrue: + [declarations declare: aSymbol from: undeclared. + declarations at: aSymbol put: anObject] - [contents declare: aSymbol from: undeclared. - contents at: aSymbol put: anObject] ifFalse: [binding := aSymbol => anObject. + declarations add: binding. - contents add: binding. exports bind: binding]]. ^ anObject ! Item was changed: ----- Method: Environment>>bindingOf:ifAbsent: (in category 'binding') ----- bindingOf: aSymbol ifAbsent: aBlock + ^ references associationAt: aSymbol ifAbsent: - ^ bindings associationAt: aSymbol ifAbsent: [(imports bindingOf: aSymbol) ifNil: aBlock + ifNotNil: [:foreign | references add: (foreign asBinding: aSymbol)]]! - ifNotNil: [:foreign | bindings add: (foreign asBinding: aSymbol)]]! Item was changed: ----- Method: Environment>>classOrTraitNamed: (in category 'classes and traits') ----- classOrTraitNamed: aString "aString is either a class or trait name or a class or trait name followed by ' class' or 'classTrait' respectively. Answer the class or metaclass it names." | meta baseName | (aString endsWith: ' class') ifTrue: [meta := true. baseName := aString copyFrom: 1 to: aString size - 6] ifFalse: [ (aString endsWith: ' classTrait') ifTrue: [ meta := true. baseName := aString copyFrom: 1 to: aString size - 11] ifFalse: [ meta := false. baseName := aString]]. + ^declarations at: baseName asSymbol ifPresent: - ^contents at: baseName asSymbol ifPresent: [ :global | global isBehavior ifTrue: [ meta ifFalse: [ global ] ifTrue: [ global classSide ]]]! Item was changed: ----- Method: Environment>>do: (in category 'emulating') ----- do: aBlock "Evaluate aBlock for each of the receiver's values." + declarations valuesDo: aBlock! - contents valuesDo: aBlock! Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. + undeclared declare: aClass name from: declarations. - undeclared declare: aClass name from: contents. imports forgetName: aClass name. exports forgetName: aClass name. + declarations removeKey: aClass name ifAbsent: []. + references removeKey: aClass name ifAbsent: []. - contents removeKey: aClass name ifAbsent: []. - bindings removeKey: aClass name ifAbsent: []. [undeclared at: aClass name put: nil] on: AttemptToWriteReadOnlyGlobal do: [:n | n resume: true]. ! Item was changed: ----- Method: Environment>>hasBindingThatBeginsWith: (in category 'binding') ----- hasBindingThatBeginsWith: aString + references associationsDo: - bindings associationsDo: [:ea | (ea key beginsWith: aString) ifTrue: [^ true]]. ^ false ! Item was changed: ----- Method: Environment>>hasClassNamed: (in category 'classes and traits') ----- hasClassNamed: aString Symbol hasInterned: aString ifTrue: [:symbol | + ^ (declarations at: symbol ifAbsent: [nil]) - ^ (contents at: symbol ifAbsent: [nil]) isKindOf: Class]. ^ false.! Item was changed: ----- Method: Environment>>importSelf (in category 'configuring') ----- importSelf + imports := Import namespace: declarations next: imports. - imports := Import namespace: contents next: imports. self rebindUndeclared! Item was changed: ----- Method: Environment>>includes: (in category 'emulating') ----- includes: value + ^ declarations includes: value! - ^ contents includes: value! Item was changed: ----- Method: Environment>>includesKey: (in category 'emulating') ----- includesKey: key + ^ declarations includesKey: key! - ^ contents includesKey: key! Item was changed: ----- Method: Environment>>initialize (in category 'initialize-release') ----- initialize + references := IdentityDictionary new. + declarations := IdentityDictionary new. - bindings := IdentityDictionary new. - contents := IdentityDictionary new. public := IdentityDictionary new. undeclared := IdentityDictionary new. imports := Import null. exports := Export null. self importSelf.! Item was changed: ----- Method: Environment>>initializeWithName: (in category 'initialize-release') ----- initializeWithName: aString | smalltalk | self initialize. info := EnvironmentInfo name: aString. . smalltalk := SmalltalkImage basicNew. smalltalk globals: self. + declarations at: #Smalltalk put: smalltalk. + declarations at: #Undeclared put: undeclared.! - contents at: #Smalltalk put: smalltalk. - contents at: #Undeclared put: undeclared.! Item was changed: ----- Method: Environment>>initializeWithSystemDictionary: (in category 'initialize-release') ----- initializeWithSystemDictionary: old self initialize. info := EnvironmentInfo name: 'Smalltalk' organization: old organization packages: PackageOrganizer default. + old associationsDo: [:assc | declarations add: assc]. - old associationsDo: [:assc | contents add: assc]. (old at: #Undeclared) associationsDo: [:assc | undeclared add: assc]. + (declarations at: #Smalltalk) instVarNamed: 'globals' put: self. + declarations at: #Undeclared put: undeclared.! - (contents at: #Smalltalk) instVarNamed: 'globals' put: self. - contents at: #Undeclared put: undeclared.! Item was changed: ----- Method: Environment>>keyAtIdentityValue: (in category 'emulating') ----- keyAtIdentityValue: anObject + ^ declarations keyAtIdentityValue: anObject.! - ^ contents keyAtIdentityValue: anObject.! Item was changed: ----- Method: Environment>>keyAtIdentityValue:ifAbsent: (in category 'emulating') ----- keyAtIdentityValue: anObject ifAbsent: aBlock + ^ declarations keyAtIdentityValue: anObject ifAbsent: aBlock! - ^ contents keyAtIdentityValue: anObject ifAbsent: aBlock! Item was changed: ----- Method: Environment>>keys (in category 'emulating') ----- keys + ^ declarations keys! - ^ contents keys! Item was changed: ----- Method: Environment>>keysDo: (in category 'emulating') ----- keysDo: aBlock "Evaluate aBlock for each of the receiver's keys." + declarations keysDo: aBlock! - contents keysDo: aBlock! Item was changed: ----- Method: Environment>>migrate (in category 'initialize-release') ----- migrate + references := IdentityDictionary new. - bindings := IdentityDictionary new. public := IdentityDictionary new. + imports := Import namespace: declarations. - imports := Import namespace: contents. exports := Export namespace: public. + declarations keysAndValuesDo: - contents keysAndValuesDo: [:name :value | + references at: name put: value. - bindings at: name put: value. public at: name put: value] ! Item was changed: ----- Method: Environment>>publicizeContents (in category 'private') ----- publicizeContents + declarations associationsDo: [:binding | exports bind: binding]. - contents associationsDo: [:binding | exports bind: binding]. ! Item was changed: ----- Method: Environment>>rebindUndeclared (in category 'private') ----- rebindUndeclared undeclared keys do: [:name | (imports valueOf: name) ifNotNil: [:v | + references declare: name from: undeclared. + references at: name put: v]]! - bindings declare: name from: undeclared. - bindings at: name put: v]]! Item was changed: ----- Method: Environment>>recompileAll (in category 'operations') ----- recompileAll + references removeAll. - bindings removeAll. self allClassesAndTraits do: [:classOrTrait | classOrTrait compileAll] displayingProgress:[:classOrTrait| 'Recompiling ', classOrTrait] ! Item was changed: ----- Method: Environment>>removeClassNamed: (in category 'classes and traits') ----- removeClassNamed: aString + declarations - contents at: aString asSymbol ifPresent: [:class | class removeFromSystem] ifAbsent: [Transcript cr; show: 'Removal of class named ', aString, ' ignored because ', aString, ' does not exist.']! Item was changed: ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- removeKey: key ifAbsent: aBlock self flag: #review. + ^ declarations removeKey: key ifAbsent: aBlock! - ^ contents removeKey: key ifAbsent: aBlock! Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." | oldref category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. oldref := self associationAt: oldName. + declarations removeKey: oldName. - contents removeKey: oldName. oldref key: newName. + declarations add: oldref. - contents add: oldref. Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category! Item was changed: ----- Method: Environment>>renameClassNamed:as: (in category 'classes and traits') ----- renameClassNamed: oldName as: newName + declarations - contents at: oldName ifPresent: [:class | class rename: newName] ifAbsent: [Transcript cr; show: 'Class-rename for ', oldName, ' ignored because ', oldName, ' does not exist.']! Item was changed: ----- Method: Environment>>scopeFor:from:envtAndPathIfFound: (in category 'emulating') ----- scopeFor: aSymbol from: lower envtAndPathIfFound: aBlock + ^ (declarations includesKey: aSymbol) - ^ (contents includesKey: aSymbol) ifTrue: [aBlock value: self value: String new] ! Item was changed: ----- Method: Environment>>select: (in category 'emulating') ----- select: aBlock + ^ declarations select: aBlock! - ^ contents select: aBlock! Item was changed: ----- Method: Environment>>valueOf:ifAbsent: (in category 'binding') ----- valueOf: aSymbol ifAbsent: aBlock + ^ references at: aSymbol ifAbsent: aBlock! - ^ bindings at: aSymbol ifAbsent: aBlock! Item was changed: Object subclass: #EnvironmentInfo instanceVariableNames: 'name organization packages' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! + + !EnvironmentInfo commentStamp: 'cwp 5/26/2013 13:09' prior: 0! + I contain metadata about an Environment. + + I have the following instance variables: + + name <String> + A human-friendly name for my environment. + + organization <SystemOrganizer> + The organization of the classes in my environment into system categories. + + packages <PackageOranizer> + A registry of the packages that have been loaded into my environment.!

1 0

The Trunk: Tools-cmm.466.mcz
by commits＠source.squeak.org 26 May '13

26 May '13

Chris Muller uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-cmm.466.mcz ==================== Summary ==================== Name: Tools-cmm.466 Author: cmm Time: 26 May 2013, 11:28:10.784 am UUID: e026107e-487a-4057-85ba-dcc1464a4a0f Ancestors: Tools-fbs.465 PointerFinder delegate to #shouldFollowOutboundPointers, which Proxy classes can implement, to allow that tool to work when proxys exist in the image. =============== Diff against Tools-fbs.465 =============== Item was added: + ----- Method: Object>>shouldFollowOutboundPointers (in category '*Tools-Debugger') ----- + shouldFollowOutboundPointers + (self class isPointers or: [ self isCompiledMethod ]) ifFalse: [ ^ false ]. + ^ self class isWeak not and: [ self isLiteral not ]! Item was changed: ----- Method: PointerFinder>>follow:from: (in category 'application') ----- + follow: anObject from: parentObject + anObject == goal ifTrue: + [ parents + at: anObject + put: parentObject. + ^ true ]. + anObject shouldFollowOutboundPointers ifFalse: [ ^ false ]. + ((parents includesKey: anObject) or: [ anObject class = self class ]) ifTrue: [ ^ false ]. + parents + at: anObject + put: parentObject. - follow: anObject from: parentObject - - anObject == goal ifTrue: [ - parents at: anObject put: parentObject. - ^ true]. - "Remove this after switching to new CompiledMethod format --bf 2/12/2006" - (anObject class isPointers or: [ anObject isCompiledMethod ]) ifFalse: [ ^false]. - (anObject class isWeak or: [ - anObject class == self class or: [ - anObject isLiteral or: [ - parents includesKey: anObject ] ] ]) - ifTrue: [ ^false ]. - parents at: anObject put: parentObject. toDoNext add: anObject. ^ false!

1 0

The Trunk: Kernel-cmm.760.mcz
by commits＠source.squeak.org 26 May '13

26 May '13

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.760.mcz ==================== Summary ==================== Name: Kernel-cmm.760 Author: cmm Time: 26 May 2013, 11:25:19.426 am UUID: 523782ae-3096-40ec-8031-77432a691908 Ancestors: Kernel-fbs.759 - Move #isKindOf: to ProtoObject to allow the PointerFinder to work with Proxies. =============== Diff against Kernel-fbs.759 =============== Item was removed: - ----- Method: Object>>isKindOf: (in category 'class membership') ----- - isKindOf: aClass - "Answer whether the class, aClass, is a superclass or class of the receiver." - - self class == aClass - ifTrue: [^true] - ifFalse: [^self class inheritsFrom: aClass]! Item was added: + ----- Method: ProtoObject>>isKindOf: (in category 'testing') ----- + isKindOf: aClass + "Answer whether the class, aClass, is a superclass or class of the receiver." + ^ self class == aClass or: [ self class inheritsFrom: aClass ]!

1 0

Choosing words carefully (was Re: FileSystem)
by Frank Shearar 26 May '13

26 May '13

On 24 May 2013 09:58, Frank Shearar <frank.shearar(a)gmail.com> wrote: > Pharo has nearly emptied the open source Smalltalk room of oxygen, This was a poor choice of words. I meant to convey the relative strength in terms of resources that Pharo has, compared to Squeak, and suggest that we might spend our efforts more wisely in just picking up what they've done - where suitable - rather than being different for the sake of difference. I see that my words could be misconstrued as showing animosity towards Pharo. I do not feel this way. I _like_ Pharo. My apologies to anyone whom I might have offended. frank

2 1

← Newer
1
...
5
6
7
8
9
10
11
...
34
Older →

Jump to page: