Packages November 2010

packages@lists.squeakfoundation.org

1 participants
285 discussions

The Trunk: Tools-ul.276.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.276.mcz ==================== Summary ==================== Name: Tools-ul.276 Author: ul Time: 6 November 2010, 4:10:08.889 am UUID: e7a95acb-6dee-e348-9725-7063ed5a72f7 Ancestors: Tools-ul.275 - use ClassDiffBuilder for diffing class definitions and comments in ChangeList - if MessageTally is not in memory, then don't load it in Debugger >> #process:controller:context: (from Cuis) =============== Diff against Tools-ul.275 =============== Item was changed: ----- Method: ChangeList>>contentsDiffedFromCurrent (in category 'viewing access') ----- contentsDiffedFromCurrent "Answer the contents diffed forward from current (in-memory) method version" | aChange aClass | listIndex = 0 ifTrue: [^ '']. aChange := changeList at: listIndex. (aChange type == #method and: [(aClass := aChange methodClass) notNil and: [aClass includesSelector: aChange methodSelector]]) ifTrue: [^Utilities methodDiffFor: aChange text class: aClass selector: aChange methodSelector prettyDiffs: self showingPrettyDiffs]. aChange type == #doIt ifTrue: [| tokens | tokens := Scanner new scanTokens: aChange string. ((tokens select: [:substr| #(subclass: variableByteSubclass: variableWordSubclass: instanceVariableNames: classVariableNames: ) includes: substr]) asSet size >= 3 and: [(aClass := Smalltalk at: tokens third ifAbsent: []) notNil and: [aClass isBehavior]]) ifTrue: + [^ClassDiffBuilder buildDisplayPatchFrom: aClass definition to: aChange string]. - [^TextDiffBuilder buildDisplayPatchFrom: aClass definition to: aChange string]. (tokens size = 4 and: [tokens second == #class and: [tokens third == #instanceVariableNames: and: [(aClass := Smalltalk at: tokens first ifAbsent: []) notNil and: [aClass isBehavior]]]]) ifTrue: + [^ClassDiffBuilder buildDisplayPatchFrom: aClass class definition to: aChange string]]. - [^TextDiffBuilder buildDisplayPatchFrom: aClass class definition to: aChange string]]. (aChange type == #classComment and: [(aClass := aChange commentClass) notNil]) ifTrue: + [^ClassDiffBuilder buildDisplayPatchFrom: aClass comment asString to: aChange string]. - [^TextDiffBuilder buildDisplayPatchFrom: aClass comment asString to: aChange string]. ^(changeList at: listIndex) text! Item was changed: ----- Method: Debugger>>process:controller:context: (in category 'private') ----- process: aProcess controller: aController context: aContext super initialize. + Smalltalk at: #MessageTally ifPresentAndInMemory: [ :tally | + tally terminateTimerProcess]. - Smalltalk at: #MessageTally ifPresent:[:tally| tally terminateTimerProcess]. contents := nil. interruptedProcess := aProcess. interruptedController := aController. contextStackTop := aContext. self newStack: (contextStackTop stackOfSize: 1). contextStackIndex := 1. externalInterrupt := false. selectingPC := true. Smalltalk isMorphic ifTrue: [errorWasInUIProcess := false]!

1 0

The Trunk: Tools-ul.276.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

1 0

The Trunk: Tools-ul.276.mcz
by commits＠source.squeak.org 06 Nov '10

06 Nov '10

1 0

The Trunk: System-ul.390.mcz
by commits＠source.squeak.org 04 Nov '10

04 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.390.mcz ==================== Summary ==================== Name: System-ul.390 Author: ul Time: 4 November 2010, 10:44:58.211 pm UUID: 57baf4d2-ec35-614b-875e-bfbca4d9cbf2 Ancestors: System-ul.389 - be more explicit about attribute changes to gain another 5-10x speedup =============== Diff against System-ul.389 =============== Item was changed: ----- Method: ClassDiffBuilder>>print:withAttributes:on: (in category 'private') ----- print: aString withAttributes: attributes on: stream stream + currentAttributes: attributes; + nextPutAll: aString! - withAttributes: attributes - do: [ stream nextPutAll: aString ]! Item was changed: ----- Method: TextDiffBuilder>>print:withAttributes:on: (in category 'private') ----- print: aString withAttributes: attributes on: stream stream + currentAttributes: attributes; + nextPutAll: aString. + (aString notEmpty and: [ + aString last = Character cr or: [ + aString endsWith: String crlf ] ]) + ifFalse: [ stream cr ]! - withAttributes: attributes - do: [ - stream nextPutAll: aString. - (aString notEmpty and: [ - aString last = Character cr or: [ - aString endsWith: String crlf ] ]) - ifFalse: [ stream cr ] ]!

1 0

The Trunk: System-ul.390.mcz
by commits＠source.squeak.org 04 Nov '10

04 Nov '10

1 0

The Trunk: System-ul.390.mcz
by commits＠source.squeak.org 04 Nov '10

04 Nov '10

1 0

The Trunk: Graphics-ul.153.mcz
by commits＠source.squeak.org 03 Nov '10

03 Nov '10

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.153.mcz ==================== Summary ==================== Name: Graphics-ul.153 Author: ul Time: 3 November 2010, 6:50:09.075 am UUID: 030e6dfc-71b7-5144-9edd-76f529655456 Ancestors: Graphics-ul.152 - removed the last direct users of CrLfFileStream - replaced the download url of the bdf fonts, because the original doesn't work anymore - removed BDFFontReader class >> #new, because it ignores #initialize which breaks the font conversion process. This stuff is still broken btw. =============== Diff against Graphics-ul.152 =============== Item was changed: ----- Method: BDFFontReader class>>downloadFonts (in category 'resource download') ----- downloadFonts "BDFFontReader downloadFonts" "Download a standard set of BDF sources from x.org. The combined size of these source files is around 1.2M; after conversion to .sf2 format they may be deleted." | heads tails filenames baseUrl basePath | heads := #( 'charR' 'courR' 'helvR' 'lubR' 'luRS' 'lutRS' 'ncenR' 'timR' ). tails := #( '08' '10' '12' '14' '18' '24'). filenames := OrderedCollection new. heads do: [:head | filenames addAll: (tails collect: [:tail | head , tail , '.bdf']) ]. + baseUrl := 'http://cvsweb.xfree86.org/cvsweb/*checkout*/xc/fonts/bdf/75dpi/' asUrl. - - baseUrl := 'http://ftp.x.org/pub/R6.4/xc/fonts/bdf/75dpi/' asUrl. basePath := baseUrl path. + filenames do: [:filename | + | document newPath newUrl | - filenames do: [:filename | | document f newPath newUrl | newUrl := baseUrl clone. newPath := OrderedCollection newFrom: basePath. newPath addLast: filename. newUrl path: newPath. Utilities informUser: 'Fetching ' , filename during: [document := newUrl retrieveContents]. + MultiByteFileStream newFileNamed: filename do: [ :f | + f + wantsLineEndConversion: true; + nextPutAll: document content ] - f := CrLfFileStream newFileNamed: filename. - f nextPutAll: document content. - f close. ]. ! Item was removed: - ----- Method: BDFFontReader class>>new (in category 'file creation') ----- - new - - ^ self basicNew. - ! Item was changed: ----- Method: BDFFontReader>>openFileNamed: (in category 'initialize') ----- openFileNamed: fileName + file := MultiByteFileStream readOnlyFileNamed: fileName. + file wantsLineEndConversion: true! - file := CrLfFileStream readOnlyFileNamed: fileName.!

1 0

The Trunk: Graphics-ul.153.mcz
by commits＠source.squeak.org 03 Nov '10

03 Nov '10

1 0

The Trunk: Graphics-ul.153.mcz
by commits＠source.squeak.org 03 Nov '10

03 Nov '10

1 0

The Trunk: System-ul.389.mcz
by commits＠source.squeak.org 02 Nov '10

02 Nov '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.389.mcz ==================== Summary ==================== Name: System-ul.389 Author: ul Time: 2 November 2010, 10:06:25.693 pm UUID: 77647d29-a395-fe4e-a7d0-013850bdfae2 Ancestors: System-ul.388 - a bit faster ClassDiffBuilder >> #split: - TextDiffBuilder >> #buildDisplayPatch uses AttributedTextStream instead of TextStream, so it takes O(n) time to build a display patch, instead of O(n^2) =============== Diff against System-ul.388 =============== Item was changed: ----- Method: ClassDiffBuilder>>split: (in category 'private') ----- split: aString "I return an array with aString splitted by Character >> #separators." ^Array streamContents: [ :stream | + | input separators | + input := aString readStream. + separators := CharacterSet separators. + [ input atEnd ] whileFalse: [ + | word separator | + word := input + upToAnyOf: separators + do: [ :matchingSeparator | + separator := matchingSeparator ]. + stream nextPut: (separator + ifNil: [ word ] + ifNotNil: [ word, separator asString ]) ] ]! - | out | - out := aString copy writeStream. - aString do: [ :c | - out nextPut: c. - c isSeparator ifTrue:[ - stream nextPut: out contents. - out reset ] ]. - out position = 0 ifFalse: [ - stream nextPut: out contents ] ]! Item was changed: ----- Method: TextDiffBuilder>>buildDisplayPatch (in category 'creating patches') ----- buildDisplayPatch + | stream | + stream := AttributedTextStream new. + self + patchSequenceDoIfMatch: [ :string | + self print: string withAttributes: NormalTextAttributes on: stream ] + ifInsert: [ :string | + self print: string withAttributes: InsertTextAttributes on: stream ] + ifRemove: [ :string | + self print: string withAttributes: RemoveTextAttributes on: stream ]. + ^stream contents! - ^Text streamContents: [ :stream | - self - patchSequenceDoIfMatch: [ :string | - self print: string withAttributes: NormalTextAttributes on: stream ] - ifInsert: [ :string | - self print: string withAttributes: InsertTextAttributes on: stream ] - ifRemove: [ :string | - self print: string withAttributes: RemoveTextAttributes on: stream ] ]!

1 0

← Newer
1
...
22
23
24
25
26
27
28
29
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 November 2010