Packages February 2013

packages@lists.squeakfoundation.org

1 participants
180 discussions

The Trunk: Morphic-nice.641.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.641.mcz ==================== Summary ==================== Name: Morphic-nice.641 Author: nice Time: 24 February 2013, 7:46:46.389 pm UUID: d7085035-2ec9-4937-a927-80ad6419a36c Ancestors: Morphic-nice.640 Correct blinkPrevParen: (only in absence of Shout). simplify an initialization. =============== Diff against Morphic-nice.640 =============== Item was changed: ----- Method: MorphicProject>>initializeMenus (in category 'enter') ----- initializeMenus + "Menu setting for these classes may have been modified by another - "Menu setting for these classes may have have been modified by another Morphic project, e.g. SimpleMorphic. Ensure that they are restored to the expected menus." + Editor initialize.! - TextEditor initialize. - SmalltalkEditor initialize! Item was changed: ----- Method: TextEditor>>blinkPrevParen: (in category 'parenblinking') ----- + blinkPrevParen: aCharacter - blinkPrevParen: aKeyboardEvent "Used if not Shout" | openDelimiter closeDelimiter level string here hereChar | string := paragraph string. here := pointBlock stringIndex. + openDelimiter := aCharacter. - openDelimiter := aKeyboardEvent keyCharacter. closeDelimiter := '([{' at: (')]}' indexOf: openDelimiter). level := 1. [level > 0 and: [here > 1]] whileTrue: [hereChar := string at: (here := here - 1). hereChar = closeDelimiter ifTrue: [level := level - 1. level = 0 ifTrue: [^ self blinkParenAt: here]] ifFalse: [hereChar = openDelimiter ifTrue: [level := level + 1]]]!

1 0

The Trunk: Morphic-nice.641.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

1 0

The Trunk: Morphic-nice.641.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

1 0

The Trunk: Morphic-nice.640.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

Nicolas Cellier uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-nice.640.mcz ==================== Summary ==================== Name: Morphic-nice.640 Author: nice Time: 24 February 2013, 6:35:47.345 pm UUID: ad3e00cc-256f-4358-8879-83ae19baf939 Ancestors: Morphic-tfel.639 Diminish excessive usage of ReadWriteStream =============== Diff against Morphic-tfel.639 =============== Item was removed: - (PackageInfo named: 'Morphic') postscriptOfRemoval: 'nil'! Item was removed: - (PackageInfo named: 'Morphic') preamble: 'nil'! Item was changed: ----- Method: MenuIcons class>>importIconNamed: (in category 'import/export') ----- importIconNamed: aString "self importIconNamed: 'appearanceIcon'" "will create a method appearanceIconContents holding the string representation of the icon, and a method appearanceIcon to access a form built using that string" | writer image stream | writer := GIFReadWriter on: (FileStream fileNamed: './icons/', aString, '.gif'). image := [ writer nextImage] ensure: [writer close]. "store string representation" + stream := String new writeStream. - stream := ReadWriteStream on: (String new). stream nextPutAll: aString, 'Contents' ; cr. stream nextPutAll: (self methodStart: aString). image storeOn: stream. stream nextPutAll: self methodEnd. - stream close. MenuIcons class compile: stream contents classified: 'private - icons' notifying: nil. "create accessor method" + stream := String new writeStream. - stream := ReadWriteStream on: (String new). stream nextPutAll: aString ; cr. stream nextPutAll: (self methodAccessorFor: aString). MenuIcons class compile: stream contents classified: 'accessing - icons' notifying: nil. - ^ stream contents! Item was changed: ----- Method: MenuIcons class>>importPngIconNamed: (in category 'import/export') ----- importPngIconNamed: aString "self importIconNamed: 'appearanceIcon'" "will create a method appearanceIconContents holding the string representation of the icon, and a method appearanceIcon to access a form built using that string" | writer image stream | writer := PNGReadWriter on: (FileStream fileNamed: './icons/', aString, '.png'). image := [ writer nextImage] ensure: [writer close]. "store string representation" + stream := String new writeStream. - stream := ReadWriteStream on: (String new). stream nextPutAll: aString, 'Contents' ; cr. stream nextPutAll: (self methodStart: aString). image storeOn: stream. stream nextPutAll: self methodEnd. - stream close. MenuIcons class compile: stream contents classified: 'private - icons' notifying: nil. "create accessor method" + stream := String new writeStream. - stream := ReadWriteStream on: (String new). stream nextPutAll: aString ; cr. stream nextPutAll: (self methodAccessorFor: aString). MenuIcons class compile: stream contents classified: 'accessing - icons' notifying: nil. - ^ stream contents!

1 0

The Trunk: Morphic-nice.640.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

1 0

The Trunk: Morphic-nice.640.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

1 0

The Trunk: Tools-nice.447.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

Nicolas Cellier uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-nice.447.mcz ==================== Summary ==================== Name: Tools-nice.447 Author: nice Time: 24 February 2013, 6:32:05.033 pm UUID: c213012a-b66a-4d1e-99cc-a707e054efc9 Ancestors: Tools-fbs.446 Diminish excessive usage of ReadWriteStream =============== Diff against Tools-fbs.446 =============== Item was changed: ----- Method: CodeHolder>>annotationForSelector:ofClass: (in category 'annotation') ----- annotationForSelector: aSelector ofClass: aClass "Provide a line of content for an annotation pane, representing information about the given selector and class" | separator aStream requestList | aSelector == #Comment ifTrue: [^ self annotationForClassCommentFor: aClass]. aSelector == #Definition ifTrue: [^ self annotationForClassDefinitionFor: aClass]. aSelector == #Hierarchy ifTrue: [^ self annotationForHierarchyFor: aClass]. + aStream := (String new: 512) writeStream. - aStream := ReadWriteStream on: ''. requestList := self annotationRequests. separator := requestList size > 1 ifTrue: [self annotationSeparator] ifFalse: ['']. requestList do: [:aRequest | | aString sendersCount aComment aCategory implementorsCount aList stamp | aRequest == #firstComment ifTrue: [aComment := aClass firstCommentAt: aSelector. aComment isEmptyOrNil ifFalse: [aStream nextPutAll: aComment , separator]]. aRequest == #masterComment ifTrue: [aComment := aClass supermostPrecodeCommentFor: aSelector. aComment isEmptyOrNil ifFalse: [aStream nextPutAll: aComment , separator]]. aRequest == #documentation ifTrue: [aComment := aClass precodeCommentOrInheritedCommentFor: aSelector. aComment isEmptyOrNil ifFalse: [aStream nextPutAll: aComment , separator]]. aRequest == #timeStamp ifTrue: [stamp := self timeStamp. aStream nextPutAll: (stamp size > 0 ifTrue: [stamp , separator] ifFalse: ['no timeStamp' , separator])]. aRequest == #messageCategory ifTrue: [aCategory := aClass organization categoryOfElement: aSelector. aCategory ifNotNil: ["woud be nil for a method no longer present, e.g. in a recent-submissions browser" aStream nextPutAll: aCategory , separator]]. aRequest == #sendersCount ifTrue: [sendersCount := (self systemNavigation allCallsOn: aSelector) size. sendersCount := sendersCount = 1 ifTrue: ['1 sender'] ifFalse: [sendersCount printString , ' senders']. aStream nextPutAll: sendersCount , separator]. aRequest == #implementorsCount ifTrue: [implementorsCount := self systemNavigation numberOfImplementorsOf: aSelector. implementorsCount := implementorsCount = 1 ifTrue: ['1 implementor'] ifFalse: [implementorsCount printString , ' implementors']. aStream nextPutAll: implementorsCount , separator]. aRequest == #priorVersionsCount ifTrue: [self addPriorVersionsCountForSelector: aSelector ofClass: aClass to: aStream]. aRequest == #priorTimeStamp ifTrue: [stamp := VersionsBrowser timeStampFor: aSelector class: aClass reverseOrdinal: 2. stamp ifNotNil: [aStream nextPutAll: 'prior time stamp: ' , stamp , separator]]. aRequest == #recentChangeSet ifTrue: [aString := ChangesOrganizer mostRecentChangeSetWithChangeForClass: aClass selector: aSelector. aString size > 0 ifTrue: [aStream nextPutAll: aString , separator]]. aRequest == #allChangeSets ifTrue: [aList := ChangesOrganizer allChangeSetsWithClass: aClass selector: aSelector. aList size > 0 ifTrue: [aList size = 1 ifTrue: [aStream nextPutAll: 'only in change set '] ifFalse: [aStream nextPutAll: 'in change sets: ']. aList do: [:aChangeSet | aStream nextPutAll: aChangeSet name , ' ']] ifFalse: [aStream nextPutAll: 'in no change set']. aStream nextPutAll: separator]]. ^ aStream contents! Item was changed: ----- Method: TimeProfileBrowser>>runBlock:pollingEvery: (in category 'private') ----- runBlock: aBlock pollingEvery: pollPeriod + | list result | - | stream list result | block := MessageSend receiver: self selector: #runBlock:pollingEvery: arguments: { aBlock. pollPeriod}. "so we can re-run it" tally := MessageTally new. tally reportOtherProcesses: false; maxClassNameSize: 1000; maxClassPlusSelectorSize: 1000; maxTabs: 100. result := tally spyEvery: pollPeriod on: aBlock. + list := OrderedCollection withAll: (String streamContents: [ :s | tally report: s]) lines. - stream := ReadWriteStream - with: (String streamContents: [ :s | - tally report: s]). - stream reset. - list := OrderedCollection new. - [stream atEnd] whileFalse: [list add: stream nextLine]. self initializeMessageList: list. self changed: #messageList. self changed: #messageListIndex. ^result! Item was changed: ----- Method: TimeProfileBrowser>>runProcess:forMilliseconds:pollingEvery: (in category 'private') ----- runProcess: aProcess forMilliseconds: msecDuration pollingEvery: pollPeriod + | list result | - | stream list result | block := MessageSend receiver: self selector: #runProcess:forMilliseconds:pollingEvery: arguments: { aProcess. msecDuration. pollPeriod}. "so we can re-run it" tally := MessageTally new. tally reportOtherProcesses: false; maxClassNameSize: 1000; maxClassPlusSelectorSize: 1000; maxTabs: 100. result := tally spyEvery: pollPeriod onProcess: aProcess forMilliseconds: msecDuration. + list := OrderedCollection withAll: (String streamContents: [ :s | tally report: s]) lines. - stream := ReadWriteStream - with: (String streamContents: [ :s | - tally report: s]). - stream reset. - list := OrderedCollection new. - [stream atEnd] whileFalse: [list add: stream nextLine]. self initializeMessageList: list. self changed: #messageList. self changed: #messageListIndex. ^result!

1 0

The Trunk: Tools-nice.447.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

1 0

The Trunk: Tools-nice.447.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

1 0

The Trunk: System-nice.513.mcz
by commits＠source.squeak.org 24 Feb '13

24 Feb '13

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.513.mcz ==================== Summary ==================== Name: System-nice.513 Author: nice Time: 24 February 2013, 6:29:23.564 pm UUID: 496d2bbf-34f3-43cf-9e2f-cae95c1d0604 Ancestors: System-dtl.512 Diminish excessive usage of ReadWriteStream. Bonus: correct outdated code sample in comment =============== Diff against System-dtl.512 =============== Item was changed: ----- Method: Utilities class>>createPageTestWorkspace (in category 'miscellaneous') ----- createPageTestWorkspace "Used to generate a workspace window for testing page up and page down stuff." "Utilities createPageTestWorkspace" | numberOfLines maxStringLength minLineCounterSize lineCounterSize offsetSize stream headerConstant prevStart prevStrLen prevLineNumber | numberOfLines := 400. maxStringLength := 22. minLineCounterSize := 3. lineCounterSize := (numberOfLines log asInteger + 1) max: minLineCounterSize. offsetSize := 5. + stream := String new writeStream. - stream := ReadWriteStream on: ''. headerConstant := lineCounterSize + 1 + offsetSize + 1. prevStart := headerConstant negated. prevStrLen := 0. prevLineNumber := 0. numberOfLines timesRepeat: [ | log stringLen pad lineNumber charIndex start | stringLen := maxStringLength atRandom max: 1. lineNumber := prevLineNumber + 1. start := prevStart + prevStrLen + headerConstant + 1. prevStart := start. prevStrLen := stringLen. prevLineNumber := lineNumber. log := lineNumber log asInteger. pad := lineCounterSize - log - 1. pad timesRepeat: [stream nextPutAll: '0']. stream nextPutAll: lineNumber printString. stream space. log := start log asInteger. pad := offsetSize - log - 1. pad timesRepeat: [stream nextPutAll: '0']. stream nextPutAll: start printString. stream space. charIndex := 'a' first asInteger. stringLen timesRepeat: [ | char | char := Character value: charIndex. charIndex := charIndex + 1. stream nextPut: char]. lineNumber = numberOfLines ifFalse: [stream cr] ]. UIManager default edit: stream contents label: 'Test Data'. ! Item was changed: ----- Method: Utilities class>>instanceComparisonsBetween:and: (in category 'miscellaneous') ----- instanceComparisonsBetween: fileName1 and: fileName2 "For differential results, run printSpaceAnalysis twice with different fileNames, then run this method... + SpaceTally new printSpaceAnalysis: 0 on: 'STspace.text1'. - Smalltalk printSpaceAnalysis: 0 on: 'STspace.text1'. --- do something that uses space here --- + SpaceTally new printSpaceAnalysis: 0 on: 'STspace.text2'. + Utilities instanceComparisonsBetween: 'STspace.text1' and: 'STspace.text2'" - Smalltalk printSpaceAnalysis: 0 on: 'STspace.text2'. - Smalltalk instanceComparisonsBetween: 'STspace.text1' and 'STspace.text2'" | instCountDict report f aString items className newInstCount oldInstCount newSpace oldPair oldSpace | instCountDict := Dictionary new. + report := String new writeStream. - report := ReadWriteStream on: ''. f := FileStream readOnlyFileNamed: fileName1. [f atEnd] whileFalse: [aString := f nextLine. items := aString findTokens: ' '. (items size = 4 or: [items size = 5]) ifTrue: [instCountDict at: items first put: (Array with: items third asNumber with: items fourth asNumber)]]. f close. f := FileStream readOnlyFileNamed: fileName2. [f atEnd] whileFalse: [aString := f nextLine. items := aString findTokens: ' '. (items size = 4 or: [items size = 5]) ifTrue: [className := items first. newInstCount := items third asNumber. newSpace := items fourth asNumber. oldPair := instCountDict at: className ifAbsent: [nil]. oldInstCount := oldPair ifNil: [0] ifNotNil: [oldPair first]. oldSpace := oldPair ifNil: [0] ifNotNil: [oldPair second]. oldInstCount ~= newInstCount ifTrue: [report nextPutAll: (newInstCount - oldInstCount) printString; tab; nextPutAll: (newSpace - oldSpace) printString; tab; nextPutAll: className asString; cr]]]. f close. (StringHolder new contents: report contents) openLabel: 'Instance count differentials between ', fileName1, ' and ', fileName2!

1 0

← Newer
1
2
3
4
5
6
7
...
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2013