Packages June 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: Monticello-eem.396.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.396.mcz ==================== Summary ==================== Name: Monticello-eem.396 Author: eem Time: 29 June 2010, 6:30:15.515 pm UUID: 4bfae8e6-8254-4d67-8f17-5317a3cf4cb0 Ancestors: Monticello-ar.395 Make sure MCWorkingCopy receives system change notifications by reregistering for them on startup. File-out-all for PatchBrowser (package changes). =============== Diff against Monticello-ar.395 =============== Item was changed: ----- Method: MCWorkingCopy class>>initialize (in category 'as yet unclassified') ----- initialize Smalltalk at: #MczInstaller ifPresent: [:installer | self adoptVersionInfoFrom: installer]. self updateInstVars. "Temporary conversion code -- remove later" registry ifNotNil:[registry rehash]. "changed #=" self allInstancesDo:[:each| "moved notifications" Smalltalk at: #SystemChangeNotifier ifPresent:[:cls| cls uniqueInstance noMoreNotificationsFor: each. ]. ]. + self registerForNotifications. + Smalltalk addToStartUpList: self! - self registerForNotifications.! Item was added: + ----- Method: MCPackageManager class>>reregisterForNotificationsWith: (in category 'system changes') ----- + reregisterForNotificationsWith: aSystemChangeNotifier + aSystemChangeNotifier + notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:; + notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:; + notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:; + notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:; + notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:; + notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:; + notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved:! Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." + self selectedMessageName + ifNil: [items notEmpty ifTrue: + [aMenu addList:#(('fileOut (o)' fileOutMessage))]] + ifNotNil: [ - self selectedMessageName ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) ('printOut' printOutMessage) ('copy selector (c)' copySelector)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu ! Item was changed: ----- Method: MCPackageManager class>>registerForNotifications (in category 'system changes') ----- registerForNotifications + Smalltalk + at: #SystemChangeNotifier + ifPresent: + [:cls| + cls uniqueInstance noMoreNotificationsFor: self. + self reregisterForNotificationsWith: cls uniqueInstance]! - Smalltalk at: #SystemChangeNotifier ifPresent:[:cls| - (cls uniqueInstance) - noMoreNotificationsFor: self; - notify: self ofSystemChangesOfItem: #class change: #Added using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Modified using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Renamed using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Commented using: #classModified:; - notify: self ofSystemChangesOfItem: #class change: #Recategorized using: #classMoved:; - notify: self ofSystemChangesOfItem: #class change: #Removed using: #classRemoved:; - notify: self ofSystemChangesOfItem: #method change: #Added using: #methodModified:; - notify: self ofSystemChangesOfItem: #method change: #Modified using: #methodModified:; - notify: self ofSystemChangesOfItem: #method change: #Recategorized using: #methodMoved:; - notify: self ofSystemChangesOfItem: #method change: #Removed using: #methodRemoved: - ].! Item was added: + ----- Method: MCWorkingCopy class>>startUp: (in category 'system startup') ----- + startUp: resuming + "Ensure Monticello is receiving system change notifications." + + resuming ifTrue: + [Smalltalk + at: #SystemChangeNotifier + ifPresent: [:scn| self reregisterForNotificationsWith: scn uniqueInstance]] + ! Item was changed: ----- Method: MCCodeTool>>fileOutMessage (in category 'menus') ----- fileOutMessage "Put a description of the selected message on a file" + | fileName | self selectedMessageName ifNotNil: [Cursor write showWhile: + [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]. + ^self]. + items isEmpty ifTrue: + [^self]. + fileName := UIManager default request: 'File out on which file?' initialAnswer: 'methods'. + Cursor write showWhile: + [| internalStream | + internalStream := WriteStream on: (String new: 1000). + internalStream header; timeStamp. + items do: + [:patchOp| + patchOp definition isMethodDefinition ifTrue: + [(patchOp definition actualClass notNil + and: [patchOp definition actualClass includesSelector: patchOp definition selector]) + ifTrue: + [patchOp definition actualClass + printMethodChunk: patchOp definition selector + withPreamble: true + on: internalStream + moveSource: false + toFile: nil] + ifFalse: + [internalStream nextChunkPut: patchOp definition className, ' removeSelector: ', patchOp definition selector printString]]. + patchOp definition isClassDefinition ifTrue: + [patchOp definition actualClass + ifNotNil: + [internalStream nextChunkPut: patchOp definition actualClass definition. + patchOp definition comment ifNotNil: + [patchOp definition actualClass organization + putCommentOnFile: internalStream + numbered: 1 + moveSource: false + forClass: patchOp definition actualClass]] + ifNil: + [internalStream nextChunkPut: patchOp definition className, ' removeFromSystem']]]. + FileStream writeSourceCodeFrom: internalStream baseName: fileName isSt: true useHtml: false]! - [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]]!

1 0

The Trunk: Monticello-eem.396.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Collections-eem.367.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.367.mcz ==================== Summary ==================== Name: Collections-eem.367 Author: eem Time: 29 June 2010, 5:33:09.841 pm UUID: f8a9fe6b-b224-4a6b-96ed-04c03a98222d Ancestors: Collections-eem.366 Fix bug in Symbol class>>selectorsContaining: which won''t find selectors containing digits. Add Symbol class>>selectorsMatching:. Both the above used in improved MessageNames =============== Diff against Collections-eem.366 =============== Item was changed: ----- Method: Symbol class>>selectorsContaining: (in category 'access') ----- selectorsContaining: aString "Answer a list of selectors that contain aString within them. Case-insensitive. Does return symbols that begin with a capital letter." | size selectorList ascii | selectorList := OrderedCollection new. (size := aString size) = 0 ifTrue: [^selectorList]. aString size = 1 ifTrue: [ ascii := aString first asciiValue. ascii < 128 ifTrue: [selectorList add: (OneCharacterSymbols at: ascii+1)] ]. + (aString first isLetter or: [aString first isDigit]) ifFalse: - aString first isLetter ifFalse: [ aString size == 2 ifTrue: [Symbol hasInterned: aString ifTrue: [:s | selectorList add: s]]. ^selectorList ]. selectorList := selectorList copyFrom: 2 to: selectorList size. self allSymbolTablesDo: [:each | each size >= size ifTrue: + [(each findSubstring: aString in: each startingAt: 1 + matchTable: CaseInsensitiveOrder) > 0 - [(each findString: aString startingAt: 1 caseSensitive: false) > 0 ifTrue: [selectorList add: each]]]. ^selectorList reject: [:each | "reject non-selectors, but keep ones that begin with an uppercase" each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]]. "Symbol selectorsContaining: 'scon'"! Item was added: + ----- Method: Symbol class>>selectorsMatching: (in category 'access') ----- + selectorsMatching: aStringPattern + "Answer a list of selectors that match aStringPattern within them. Case-insensitive. + Does return symbols that begin with a capital letter." + + | selectorList | + + selectorList := OrderedCollection new. + + aStringPattern isEmpty ifTrue: [^selectorList]. + + self allSymbolTablesDo: + [:each | (aStringPattern match: each) ifTrue: [selectorList add: each]]. + + ^selectorList reject: "reject non-selectors, but keep ones that begin with an uppercase" + [:each | each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]] + + "Symbol selectorsMatching: 'parse:*'"!

1 0

The Trunk: Collections-eem.367.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Collections-eem.367.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Collections-eem.366.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.366.mcz ==================== Summary ==================== Name: Collections-eem.366 Author: eem Time: 29 June 2010, 5:26:30.834 pm UUID: b8b3d29c-7d22-45a6-a235-aae3dd6316ea Ancestors: Collections-ul.365 Much faster Dictionary>>unreferencedKeys (single pass over class hierarchy) speeds up removeUnreferencedKeys. =============== Diff against Collections-ul.365 =============== Item was changed: ----- Method: Dictionary>>unreferencedKeys (in category 'removing') ----- unreferencedKeys + "| uk | (Time millisecondsToRun: [uk := TextConstants unreferencedKeys]) -> uk" - "TextConstants unreferencedKeys" ^'Scanning for references . . .' displayProgressAt: Sensor cursorPoint from: 0 + to: Smalltalk classNames size * 2 - to: self size during: + [:bar | | currentClass n associations referencedAssociations | + currentClass := nil. - [:bar | - | n | n := 0. + associations := self associations asIdentitySet. + referencedAssociations := IdentitySet new: associations size. + self systemNavigation allSelect: + [:m| + m methodClass ~~ currentClass ifTrue: + [currentClass := m methodClass. + bar value: (n := n + 1)]. + m literalsDo: + [:l| + (l isVariableBinding and: [associations includes: l]) ifTrue: + [referencedAssociations add: l]]. + false]. + ((associations reject: [:assoc | referencedAssociations includes: assoc]) collect: [:assoc| assoc key]) asSet]! - self keys select: - [:key | - bar value: (n := n + 1). - (self systemNavigation allCallsOn: (self associationAt: key)) isEmpty]]!

1 0

The Trunk: Collections-eem.366.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Collections-eem.366.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Monticello-eem.396.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

The Trunk: Monticello-eem.396.mcz
by commits＠source.squeak.org 30 Jun '10

30 Jun '10

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2010