Squeak-dev December 2013

squeak-dev@lists.squeakfoundation.org

45 participants
325 discussions

The Trunk: Kernel-fbs.827.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.827.mcz ==================== Summary ==================== Name: Kernel-fbs.827 Author: fbs Time: 30 December 2013, 10:13:12.71 am UUID: d83c2233-41dd-e24f-9386-04a55ab9318c Ancestors: Kernel-nice.826 Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery. =============== Diff against Kernel-nice.826 =============== Item was removed: - ----- Method: Object>>primitiveError: (in category 'private') ----- - primitiveError: aString - "This method is called when the error handling results in a recursion in - calling on error: or halt or halt:." - | hasTranscripter transcripter | - hasTranscripter := (Smalltalk classNamed: #Transcripter) - ifNotNil: [ :t | transcripter := t. true] - ifNil: [false]. - (String - streamContents: - [:s | - | context | - s nextPutAll: '***System error handling failed***'. - s cr; nextPutAll: aString. - context := thisContext sender sender. - 20 timesRepeat: [context == nil ifFalse: [s cr; print: (context := context sender)]]. - s cr; nextPutAll: '-------------------------------'. - hasTranscripter - ifTrue: [ - s cr; nextPutAll: 'Type CR to enter an emergency evaluator.'. - s cr; nextPutAll: 'Type any other character to restart.'] - ifFalse: [ - s cr; nextPutAll: 'Type any character to restart.']]) - displayAt: 0 @ 0. - [Sensor keyboardPressed] whileFalse. - Sensor keyboard = Character cr ifTrue: [ - hasTranscripter ifTrue: [transcripter emergencyEvaluator]]. - Project current resetDisplay!

1 0

The Trunk: System-fbs.650.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.650.mcz ==================== Summary ==================== Name: System-fbs.650 Author: fbs Time: 30 December 2013, 10:01:04.803 am UUID: 46142ef7-bfcf-f445-be72-03a4103bb3b1 Ancestors: System-fbs.649 System-Recovery contains all the tools we use to attempt to recover from very bad state. At the moment it only contains the Transcripter, also known as the emergency evaluator. =============== Diff against System-fbs.649 =============== Item was changed: SystemOrganization addCategory: #'System-Applications'! SystemOrganization addCategory: #'System-Change Notification'! SystemOrganization addCategory: #'System-Changes'! SystemOrganization addCategory: #'System-Digital Signatures'! SystemOrganization addCategory: #'System-Download'! SystemOrganization addCategory: #'System-Exceptions'! 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 Storage'! SystemOrganization addCategory: #'System-Preferences'! + SystemOrganization addCategory: #'System-Recovery'! SystemOrganization addCategory: #'System-Serial Port'! SystemOrganization addCategory: #'System-Support'! SystemOrganization addCategory: #'System-Tools'! Item was added: + ReadWriteStream subclass: #Transcripter + instanceVariableNames: 'frame para' + classVariableNames: '' + poolDictionaries: '' + category: 'System-Recovery'! + + !Transcripter commentStamp: '<historical>' prior: 0! + Transcripter is a dog-simple scrolling stream with display. It is intended to operate with no support from MVC or color in a minimal, or headless version of Squeak. No attention has been paid to appearance or performance.! Item was added: + ----- Method: Transcripter class>>emergencyEvaluator (in category 'utilities') ----- + emergencyEvaluator + (Transcripter newInFrame: (0@0 corner: 320@200)) + show: 'Type ''revert'' to revert your last method change. + Type ''exit'' to exit the emergency evaluator.'; + readEvalPrint! Item was added: + ----- Method: Transcripter class>>newInFrame: (in category 'instance creation') ----- + newInFrame: frame + " + (Transcripter newInFrame: (0@0 extent: 100@200)) + nextPutAll: 'Hello there'; endEntry; + cr; print: 355.0/113; endEntry; + readEvalPrint. + " + | transcript | + transcript := self on: (String new: 100). + transcript initInFrame: frame. + ^ transcript clear! Item was added: + ----- Method: Transcripter class>>startTranscriptProcess (in category 'instance creation') ----- + startTranscriptProcess "Transcripter startTranscriptProcess" + | activeProcess | + Transcript := self newInFrame: Display boundingBox. + activeProcess := [Transcript readEvalPrint. + Smalltalk processShutDownList: true; quitPrimitive] + newProcess + priority: Processor userSchedulingPriority. + activeProcess resume. + Processor terminateActive + ! Item was added: + ----- Method: Transcripter>>black (in category 'private') ----- + black + Display depth = 1 ifTrue: [^ Bitmap with: 16rFFFFFFFF "Works without color support"]. + ^ Color black! Item was added: + ----- Method: Transcripter>>clear (in category 'accessing') ----- + clear + Display fill: (frame insetBy: -2) fillColor: self black; + fill: frame fillColor: self white. + self on: (String new: 100); endEntry! Item was added: + ----- Method: Transcripter>>confirm: (in category 'command line') ----- + confirm: queryString + + | choice | + [choice := self request: queryString , ' + Please type yes or no followed by return'. + choice first asUppercase = $Y ifTrue: [^ true]. + choice first asUppercase = $N ifTrue: [^ false]] repeat! Item was added: + ----- Method: Transcripter>>endEntry (in category 'accessing') ----- + endEntry + | c d cb | + c := self contents. + Display extent ~= DisplayScreen actualScreenSize ifTrue: + ["Handle case of user resizing physical window" + DisplayScreen startUp. + frame := frame intersect: Display boundingBox. + ^ self clear; show: c]. + Project current displayTranscripter: self. + d := para compositionRectangle bottom - frame bottom. + d > 0 ifTrue: + ["Scroll up to keep all contents visible" + cb := para characterBlockAtPoint: para compositionRectangle topLeft + + (0@(d+para lineGrid)). + self on: (c copyFrom: cb stringIndex to: c size). + readLimit:= position:= collection size. + ^ self endEntry]. + ! Item was added: + ----- Method: Transcripter>>initInFrame: (in category 'initialization') ----- + initInFrame: rect + frame := rect insetBy: 2. "Leave room for border" + Project current initializeParagraphForTranscripter: self + ! Item was added: + ----- Method: Transcripter>>readEvalPrint (in category 'command line') ----- + readEvalPrint + | line okToRevert | + okToRevert := true. + [#('quit' 'exit' 'done' ) includes: (line := self request: '>')] + whileFalse: + [line = 'revert' + ifTrue: [okToRevert + ifTrue: [RecentMessages default revertMostRecent. + self cr; show: 'reverted: ' , RecentMessages default mostRecent. + okToRevert := false] + ifFalse: [self cr; show: 'Only one level of revert currently supported']] + ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]! Item was added: + ----- Method: Transcripter>>request: (in category 'command line') ----- + request: prompt + | startPos char contents | + self cr; show: prompt. + startPos := position. + [[Sensor keyboardPressed] whileFalse. + (char := Sensor keyboard) = Character cr] + whileFalse: + [char = Character backspace + ifTrue: [readLimit := position := (position - 1 max: startPos)] + ifFalse: [self nextPut: char]. + self endEntry]. + contents := self contents. + ^ contents copyFrom: startPos + 1 to: contents size! Item was added: + ----- Method: Transcripter>>show: (in category 'accessing') ----- + show: anObject + self nextPutAll: anObject asString; endEntry! Item was added: + ----- Method: Transcripter>>white (in category 'private') ----- + white + Display depth = 1 ifTrue: [^ Bitmap with: 0 "Works without color support"]. + ^ Color white!

1 0

The Trunk: Collections-fbs.555.mcz
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Frank Shearar uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.555.mcz ==================== Summary ==================== Name: Collections-fbs.555 Author: fbs Time: 30 December 2013, 9:59:59.491 am UUID: 3b044956-1e6b-3e4e-a427-7fd939032a30 Ancestors: Collections-fbs.554 Move Transcripter out of Collections to a new home, in System-Recovery. =============== Diff against Collections-fbs.554 =============== Item was changed: WriteStream subclass: #TranscriptStream instanceVariableNames: 'lastChar' classVariableNames: 'AccessSema' poolDictionaries: '' category: 'Collections-Streams'! + !TranscriptStream commentStamp: 'fbs 12/30/2013 09:53' prior: 0! + This class is a much simpler implementation of Transcript protocol that supports multiple views and very simple conversion to morphic. Because it inherits from Stream, it is automatically compatible with code that is designed to write to streams.! - !TranscriptStream commentStamp: '<historical>' prior: 0! - This class is a much simpler implementation of Transcript protocol that supports multiple views and very simple conversion to morphic. Because it inherits from Stream, it is automatically compatible with code that is designe to write to streams.! Item was removed: - ReadWriteStream subclass: #Transcripter - instanceVariableNames: 'frame para' - classVariableNames: '' - poolDictionaries: '' - category: 'Collections-Streams'! - - !Transcripter commentStamp: '<historical>' prior: 0! - Transcripter is a dog-simple scrolling stream with display. It is intended to operate with no support from MVC or color in a minimal, or headless version of Squeak. No attention has been paid to appearance or performance.! Item was removed: - ----- Method: Transcripter class>>emergencyEvaluator (in category 'utilities') ----- - emergencyEvaluator - (Transcripter newInFrame: (0@0 corner: 320@200)) - show: 'Type ''revert'' to revert your last method change. - Type ''exit'' to exit the emergency evaluator.'; - readEvalPrint! Item was removed: - ----- Method: Transcripter class>>newInFrame: (in category 'instance creation') ----- - newInFrame: frame - " - (Transcripter newInFrame: (0@0 extent: 100@200)) - nextPutAll: 'Hello there'; endEntry; - cr; print: 355.0/113; endEntry; - readEvalPrint. - " - | transcript | - transcript := self on: (String new: 100). - transcript initInFrame: frame. - ^ transcript clear! Item was removed: - ----- Method: Transcripter class>>startTranscriptProcess (in category 'instance creation') ----- - startTranscriptProcess "Transcripter startTranscriptProcess" - | activeProcess | - Transcript := self newInFrame: Display boundingBox. - activeProcess := [Transcript readEvalPrint. - Smalltalk processShutDownList: true; quitPrimitive] - newProcess - priority: Processor userSchedulingPriority. - activeProcess resume. - Processor terminateActive - ! Item was removed: - ----- Method: Transcripter>>black (in category 'private') ----- - black - Display depth = 1 ifTrue: [^ Bitmap with: 16rFFFFFFFF "Works without color support"]. - ^ Color black! Item was removed: - ----- Method: Transcripter>>clear (in category 'accessing') ----- - clear - Display fill: (frame insetBy: -2) fillColor: self black; - fill: frame fillColor: self white. - self on: (String new: 100); endEntry! Item was removed: - ----- Method: Transcripter>>confirm: (in category 'command line') ----- - confirm: queryString - - | choice | - [choice := self request: queryString , ' - Please type yes or no followed by return'. - choice first asUppercase = $Y ifTrue: [^ true]. - choice first asUppercase = $N ifTrue: [^ false]] repeat! Item was removed: - ----- Method: Transcripter>>endEntry (in category 'accessing') ----- - endEntry - | c d cb | - c := self contents. - Display extent ~= DisplayScreen actualScreenSize ifTrue: - ["Handle case of user resizing physical window" - DisplayScreen startUp. - frame := frame intersect: Display boundingBox. - ^ self clear; show: c]. - Project current displayTranscripter: self. - d := para compositionRectangle bottom - frame bottom. - d > 0 ifTrue: - ["Scroll up to keep all contents visible" - cb := para characterBlockAtPoint: para compositionRectangle topLeft - + (0@(d+para lineGrid)). - self on: (c copyFrom: cb stringIndex to: c size). - readLimit:= position:= collection size. - ^ self endEntry]. - ! Item was removed: - ----- Method: Transcripter>>initInFrame: (in category 'initialization') ----- - initInFrame: rect - frame := rect insetBy: 2. "Leave room for border" - Project current initializeParagraphForTranscripter: self - ! Item was removed: - ----- Method: Transcripter>>readEvalPrint (in category 'command line') ----- - readEvalPrint - | line okToRevert | - okToRevert := true. - [#('quit' 'exit' 'done' ) includes: (line := self request: '>')] - whileFalse: - [line = 'revert' - ifTrue: [okToRevert - ifTrue: [RecentMessages default revertMostRecent. - self cr; show: 'reverted: ' , RecentMessages default mostRecent. - okToRevert := false] - ifFalse: [self cr; show: 'Only one level of revert currently supported']] - ifFalse: [self cr; show: ([Compiler evaluate: line] ifError: [:err :ex | err])]]! Item was removed: - ----- Method: Transcripter>>request: (in category 'command line') ----- - request: prompt - | startPos char contents | - self cr; show: prompt. - startPos := position. - [[Sensor keyboardPressed] whileFalse. - (char := Sensor keyboard) = Character cr] - whileFalse: - [char = Character backspace - ifTrue: [readLimit := position := (position - 1 max: startPos)] - ifFalse: [self nextPut: char]. - self endEntry]. - contents := self contents. - ^ contents copyFrom: startPos + 1 to: contents size! Item was removed: - ----- Method: Transcripter>>show: (in category 'accessing') ----- - show: anObject - self nextPutAll: anObject asString; endEntry! Item was removed: - ----- Method: Transcripter>>white (in category 'private') ----- - white - Display depth = 1 ifTrue: [^ Bitmap with: 0 "Works without color support"]. - ^ Color white!

1 0

Re: [squeak-dev] The Inbox: Environments-ul.43.mcz
by Levente Uzonyi 30 Dec '13

30 Dec '13

I've uploaded this version to the Inbox to let you review it before I push it to the Trunk. It fixes the most urgent issues of Environments, but it also includes some "radical" changes, and a "high impact" postscript. Levente On Sun, 29 Dec 2013, commits(a)source.squeak.org wrote: > A new version of Environments was added to project The Inbox: > http://source.squeak.org/inbox/Environments-ul.43.mcz > > ==================== Summary ==================== > > Name: Environments-ul.43 > Author: ul > Time: 29 December 2013, 10:04:32.454 pm > UUID: a91a7c62-f608-48aa-b296-2d541c0083f5 > Ancestors: Environments-ul.42 > > Fixed a typo in the postscript. > > =============== Diff against Environments-ul.40 =============== > > Item was changed: > ----- Method: Environment>>at:ifAbsentPut: (in category 'emulating') ----- > at: aSymbol ifAbsentPut: aBlock > + > + ^declarations > - ^ declarations > at: aSymbol > + ifAbsent: [ self at: aSymbol put: aBlock value ]! > - ifAbsentPut: aBlock! > > Item was changed: > ----- Method: Environment>>at:put: (in category 'emulating') ----- > at: aSymbol put: anObject > + > + | binding newBinding | > + newBinding := aSymbol => anObject. > + binding := declarations associationAt: aSymbol ifAbsent: [ nil ]. > + binding ifNotNil: [ > + binding class == newBinding class > + ifTrue: [ binding value: anObject ] > + ifFalse: [ binding becomeForward: newBinding ]. > + ^anObject ]. > + binding := undeclared associationAt: aSymbol ifAbsent: [ nil ]. > + binding > + ifNil: [ binding := newBinding ] > + ifNotNil: [ > + undeclared removeKey: aSymbol. > + binding class == newBinding class > + ifTrue: [ binding value: anObject ] > + ifFalse: [ binding becomeForward: newBinding ] ]. > + declarations add: binding. > + references add: binding. > + exports bind: binding. "Do we really want this?" > + ^anObject > - | binding | > - (declarations includesKey: aSymbol) > - ifTrue: [declarations at: aSymbol put: anObject] > - ifFalse: > - [(undeclared includesKey: aSymbol) > - ifTrue: > - [declarations declare: aSymbol from: undeclared. > - declarations at: aSymbol put: anObject] > - ifFalse: > - [binding := aSymbol => anObject. > - declarations add: binding. > - exports bind: binding]]. > - ^ anObject > ! > > Item was changed: > ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- > removeKey: key ifAbsent: aBlock > + > + (declarations includesKey: key) ifFalse: [ ^aBlock value ]. > + references removeKey: key ifAbsent: []. > + public removeKey: key ifAbsent: []. > + ^declarations removeKey: key! > - self flag: #review. > - ^ declarations removeKey: key ifAbsent: aBlock! > > Item was changed: > + (PackageInfo named: 'Environments') postscript: '| globalsWithMultipleBindings | > + "Fix exports." > + Smalltalk globals exports instVarNamed: #namespace put: Smalltalk globals public. > + "Fix imports." > + (Smalltalk globals instVarNamed: #imports) instVarNamed: #next put: nil. > + "Unify globals." > + globalsWithMultipleBindings := Dictionary new. > + Binding allSubInstances do: [ :binding | > + (globalsWithMultipleBindings at: binding key ifAbsentPut: [ IdentitySet new ]) add: binding ]. > + globalsWithMultipleBindings := globalsWithMultipleBindings select: [ :each | each size > 1 ]. > + globalsWithMultipleBindings keysAndValuesDo: [ :name :set | > + | realBinding | > + realBinding := Smalltalk associationAt: name ifAbsent: [ nil ]. > + realBinding ifNotNil: [ > + set do: [ :each | > + each == realBinding ifFalse: [ each becomeForward: realBinding ] ] ] ]'! > - (PackageInfo named: 'Environments') postscript: '"below, add code to be run after the loading of this package" > - > - | allAliases toBeRecompiled undesirableAliases | > - > - "Collect the CompiledMethods pointing to an Alias" > - allAliases := Alias allInstances. > - toBeRecompiled := CompiledMethod allInstances select: [:c | c isInstalled and: [allAliases anySatisfy: [:a | c pointsTo: a]]]. > - > - "Collect the Aliases pointing to some class binding in the same Environment with same name" > - undesirableAliases := (Smalltalk globals instVarNamed: ''references'') associations select: [:e | > - e class = Alias and: [e key = e source key > - and: [(Smalltalk globals instVarNamed: ''declarations'') associations includes: e source]]]. > - > - "Replace the undesirable Aliases with their source binding" > - undesirableAliases do: [:a | a becomeForward: a source]. > - > - "Rehash the references because they pointed to those Aliases - hope there''s nothing else to rehash" > - (Smalltalk globals instVarNamed: ''references'') rehash. > - > - "Recompile the CompiledMethod that used to point to an Alias, because the bytecodes do change" > - Symbol rehash. > - toBeRecompiled do: [:c | c methodClass recompile: c selector]. > - > - allAliases := toBeRecompiled := undesirableAliases := nil. > - Smalltalk garbageCollect. > - Alias allInstances size. > - '! > > >

3 4

Daily Commit Log
by commits＠source.squeak.org 30 Dec '13

30 Dec '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-December/006824.h… Name: ST80-ul.169 Ancestors: ST80-nice.168 MVCUIManager DNU #restore ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006825.h… Name: Morphic-ul.710 Ancestors: Morphic-nice.709 MorphicUIManager DNU #restore ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006826.h… Name: Tools-fbs.512 Ancestors: Tools-cmm.511 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006827.h… Name: Collections-fbs.554 Ancestors: Collections-fbs.553 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006828.h… Name: Morphic-fbs.711 Ancestors: Morphic-ul.710 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006829.h… Name: System-fbs.649 Ancestors: System-fbs.648 Post Tools-fbs.512 cleanup. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006830.h… Name: Environments-ul.40 Ancestors: Environments-cmm.39 Make sure that when a class is renamed, the integrity of all dictionaries which can contain it in the Environment are kept. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-December/006831.h… Name: Tests-fbs.280 Ancestors: Tests-fbs.279 Collections now depends on Tools, because of the recent move of #browseWithPrettyPrint preference from Preferences to SystemBrowser. (Eventually this dependency should disappear.) =============================================

1 0

The Trunk: Tests-fbs.280.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.280.mcz ==================== Summary ==================== Name: Tests-fbs.280 Author: fbs Time: 29 December 2013, 10:20:48.376 pm UUID: 6db4237c-c2f3-3440-9357-b77b8cb6f576 Ancestors: Tests-fbs.279 Collections now depends on Tools, because of the recent move of #browseWithPrettyPrint preference from Preferences to SystemBrowser. (Eventually this dependency should disappear.) =============== Diff against Tests-fbs.279 =============== Item was changed: ----- Method: PackageDependencyTest>>testCollections (in category 'tests') ----- testCollections self testPackage: 'Collections' dependsExactlyOn: #( Compiler Kernel Files Graphics Multilingual System 'ToolBuilder-Kernel' + Tools ).!

1 0

The Inbox: Environments-ul.43.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

A new version of Environments was added to project The Inbox: http://source.squeak.org/inbox/Environments-ul.43.mcz ==================== Summary ==================== Name: Environments-ul.43 Author: ul Time: 29 December 2013, 10:04:32.454 pm UUID: a91a7c62-f608-48aa-b296-2d541c0083f5 Ancestors: Environments-ul.42 Fixed a typo in the postscript. =============== Diff against Environments-ul.40 =============== Item was changed: ----- Method: Environment>>at:ifAbsentPut: (in category 'emulating') ----- at: aSymbol ifAbsentPut: aBlock + + ^declarations - ^ declarations at: aSymbol + ifAbsent: [ self at: aSymbol put: aBlock value ]! - ifAbsentPut: aBlock! Item was changed: ----- Method: Environment>>at:put: (in category 'emulating') ----- at: aSymbol put: anObject + + | binding newBinding | + newBinding := aSymbol => anObject. + binding := declarations associationAt: aSymbol ifAbsent: [ nil ]. + binding ifNotNil: [ + binding class == newBinding class + ifTrue: [ binding value: anObject ] + ifFalse: [ binding becomeForward: newBinding ]. + ^anObject ]. + binding := undeclared associationAt: aSymbol ifAbsent: [ nil ]. + binding + ifNil: [ binding := newBinding ] + ifNotNil: [ + undeclared removeKey: aSymbol. + binding class == newBinding class + ifTrue: [ binding value: anObject ] + ifFalse: [ binding becomeForward: newBinding ] ]. + declarations add: binding. + references add: binding. + exports bind: binding. "Do we really want this?" + ^anObject - | binding | - (declarations includesKey: aSymbol) - ifTrue: [declarations at: aSymbol put: anObject] - ifFalse: - [(undeclared includesKey: aSymbol) - ifTrue: - [declarations declare: aSymbol from: undeclared. - declarations at: aSymbol put: anObject] - ifFalse: - [binding := aSymbol => anObject. - declarations add: binding. - exports bind: binding]]. - ^ anObject ! Item was changed: ----- Method: Environment>>removeKey:ifAbsent: (in category 'emulating') ----- removeKey: key ifAbsent: aBlock + + (declarations includesKey: key) ifFalse: [ ^aBlock value ]. + references removeKey: key ifAbsent: []. + public removeKey: key ifAbsent: []. + ^declarations removeKey: key! - self flag: #review. - ^ declarations removeKey: key ifAbsent: aBlock! Item was changed: + (PackageInfo named: 'Environments') postscript: '| globalsWithMultipleBindings | + "Fix exports." + Smalltalk globals exports instVarNamed: #namespace put: Smalltalk globals public. + "Fix imports." + (Smalltalk globals instVarNamed: #imports) instVarNamed: #next put: nil. + "Unify globals." + globalsWithMultipleBindings := Dictionary new. + Binding allSubInstances do: [ :binding | + (globalsWithMultipleBindings at: binding key ifAbsentPut: [ IdentitySet new ]) add: binding ]. + globalsWithMultipleBindings := globalsWithMultipleBindings select: [ :each | each size > 1 ]. + globalsWithMultipleBindings keysAndValuesDo: [ :name :set | + | realBinding | + realBinding := Smalltalk associationAt: name ifAbsent: [ nil ]. + realBinding ifNotNil: [ + set do: [ :each | + each == realBinding ifFalse: [ each becomeForward: realBinding ] ] ] ]'! - (PackageInfo named: 'Environments') postscript: '"below, add code to be run after the loading of this package" - - | allAliases toBeRecompiled undesirableAliases | - - "Collect the CompiledMethods pointing to an Alias" - allAliases := Alias allInstances. - toBeRecompiled := CompiledMethod allInstances select: [:c | c isInstalled and: [allAliases anySatisfy: [:a | c pointsTo: a]]]. - - "Collect the Aliases pointing to some class binding in the same Environment with same name" - undesirableAliases := (Smalltalk globals instVarNamed: ''references'') associations select: [:e | - e class = Alias and: [e key = e source key - and: [(Smalltalk globals instVarNamed: ''declarations'') associations includes: e source]]]. - - "Replace the undesirable Aliases with their source binding" - undesirableAliases do: [:a | a becomeForward: a source]. - - "Rehash the references because they pointed to those Aliases - hope there''s nothing else to rehash" - (Smalltalk globals instVarNamed: ''references'') rehash. - - "Recompile the CompiledMethod that used to point to an Alias, because the bytecodes do change" - Symbol rehash. - toBeRecompiled do: [:c | c methodClass recompile: c selector]. - - allAliases := toBeRecompiled := undesirableAliases := nil. - Smalltalk garbageCollect. - Alias allInstances size. - '!

1 0

The Trunk: Environments-ul.40.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Levente Uzonyi uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-ul.40.mcz ==================== Summary ==================== Name: Environments-ul.40 Author: ul Time: 29 December 2013, 8:22:31.244 pm UUID: 7af01b34-5d81-46c4-90e9-bcc2fbdc4042 Ancestors: Environments-cmm.39 Make sure that when a class is renamed, the integrity of all dictionaries which can contain it in the Environment are kept. =============== Diff against Environments-cmm.39 =============== Item was added: + ----- Method: Environment>>remove:from:readdAfter: (in category 'private') ----- + remove: binding from: aDictionary readdAfter: aBlock + + aDictionary + removeKey: binding key + ifAbsent: [ ^aBlock value ]. + ^aBlock ensure: [ aDictionary add: binding ]! 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." + | binding category | + binding := declarations associationAt: oldName. - | oldref category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. + self + remove: binding + from: declarations + readdAfter: [ + self + remove: binding + from: references + readdAfter: [ + self + remove: binding + from: public + readdAfter: [ + binding key: newName ] ] ]. - oldref := self associationAt: oldName. - declarations removeKey: oldName. - oldref key: newName. - declarations add: oldref. Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

1 0

The Trunk: System-fbs.649.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.649.mcz ==================== Summary ==================== Name: System-fbs.649 Author: fbs Time: 29 December 2013, 7:47:35.26 pm UUID: 58770266-996d-cb48-8eaf-cb238c89598d Ancestors: System-fbs.648 Post Tools-fbs.512 cleanup. =============== Diff against System-fbs.648 =============== Item was removed: - (PackageInfo named: 'System') preamble: '"Prepare for removing the recent-message-tracking from Utilities." - '! Item was removed: - ----- Method: Preferences class>>browseWithDragNDrop (in category 'standard queries') ----- - browseWithDragNDrop - ^ self - valueOfFlag: #browseWithDragNDrop - ifAbsent: [ true ]! Item was removed: - ----- Method: Preferences class>>browseWithPrettyPrint (in category 'standard queries') ----- - browseWithPrettyPrint - ^ self - valueOfFlag: #browseWithPrettyPrint - ifAbsent: [ false ]!

1 0

The Trunk: Morphic-fbs.711.mcz
by commits＠source.squeak.org 29 Dec '13

29 Dec '13

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.711.mcz ==================== Summary ==================== Name: Morphic-fbs.711 Author: fbs Time: 29 December 2013, 7:11:36.154 pm UUID: f78f474b-acdd-4c47-88dd-b9d678a55bc5 Ancestors: Morphic-ul.710 Make browseWithPrettyPrint, browseWithDragNDrop pragma-based preferences. =============== Diff against Morphic-ul.710 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableAlternateMultiSelectionList: (in category 'pluggable widgets') ----- buildPluggableAlternateMultiSelectionList: aSpec | listMorph listClass | aSpec getSelected ifNotNil: [ ^ self error: 'There is no PluggableAlternateListMorphOfManyByItem' ]. listClass := self alternateMultiSelectListClass. listMorph := listClass on: aSpec model list: aSpec list primarySelection: aSpec getIndex changePrimarySelection: aSpec setIndex listSelection: aSpec getSelectionList changeListSelection: aSpec setSelectionList menu: aSpec menu. listMorph setProperty: #highlightSelector toValue: #highlightMessageList:with: ; setProperty: #itemConversionMethod toValue: #asStringOrText ; setProperty: #balloonTextSelectorForSubMorphs toValue: #balloonTextForClassAndMethodString ; + enableDragNDrop: SystemBrowser browseWithDragNDrop ; - enableDragNDrop: Preferences browseWithDragNDrop ; menuTitleSelector: #messageListSelectorTitle. self register: listMorph id: aSpec name. listMorph keystrokeActionSelector: aSpec keyPress ; getListElementSelector: aSpec listItem ; getListSizeSelector: aSpec listSize. self buildHelpFor: listMorph spec: aSpec. self setFrame: aSpec frame in: listMorph. parent ifNotNil: [ self add: listMorph to: parent ]. panes ifNotNil: [ aSpec list ifNotNil:[panes add: aSpec list ] ]. ^ listMorph!

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
33
Older →

Jump to page: