Packages January 2012

packages@lists.squeakfoundation.org

1 participants
84 discussions

The Trunk: Kernel-cmm.667.mcz
by commits＠source.squeak.org 28 Jan '12

28 Jan '12

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.667.mcz ==================== Summary ==================== Name: Kernel-cmm.667 Author: cmm Time: 28 January 2012, 4:37:01.086 pm UUID: 40c83fd8-7462-4d3e-807e-ead52745f4eb Ancestors: Kernel-ul.666 Fix copying a Stopwatch. =============== Diff against Kernel-ul.666 =============== Item was added: + ----- Method: Stopwatch>>postCopy (in category 'copying') ----- + postCopy + super postCopy. + timespans := timespans copy!

1 0

The Trunk: Kernel-cmm.667.mcz
by commits＠source.squeak.org 28 Jan '12

28 Jan '12

1 0

The Trunk: Tests-eem.140.mcz
by commits＠source.squeak.org 27 Jan '12

27 Jan '12

Eliot Miranda uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-eem.140.mcz ==================== Summary ==================== Name: Tests-eem.140 Author: eem Time: 27 January 2012, 1:41:11.707 pm UUID: bd545d35-d256-40dd-a901-848fcb70be5d Ancestors: Tests-laza.139 Test FileDirectory>relativeNameIfAbsoluteFor: =============== Diff against Tests-laza.139 =============== Item was added: + ----- Method: FileDirectoryTest>>testRelativeNameIfAbsoluteFor (in category 'tests') ----- + testRelativeNameIfAbsoluteFor + | cwd notcwd | + cwd := FileDirectory default. + self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName) = cwd class currentDirectoryNickname. + self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName, cwd slash) = cwd class currentDirectoryNickname. + self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName, cwd slash, 'foo', cwd slash, 'bar') = ('foo', cwd slash, 'bar'). + notcwd := cwd fullName copy. "Argh!!!!!!" + notcwd at: notcwd size put: (($a asInteger to: $z asInteger) detect: [:i| notcwd last ~= i asCharacter]) asCharacter. + self assert: (cwd relativeNameIfAbsoluteFor: notcwd) = notcwd!

1 0

The Trunk: Tests-eem.140.mcz
by commits＠source.squeak.org 27 Jan '12

27 Jan '12

1 0

The Trunk: Tests-eem.140.mcz
by commits＠source.squeak.org 27 Jan '12

27 Jan '12

1 0

The Trunk: Files-eem.116.mcz
by commits＠source.squeak.org 27 Jan '12

27 Jan '12

Eliot Miranda uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-eem.116.mcz ==================== Summary ==================== Name: Files-eem.116 Author: eem Time: 27 January 2012, 1:40:14.298 pm UUID: 7d927cda-c15f-4700-81bc-65cec58c3a02 Ancestors: Files-eem.115 Provide FileDirectory>relativeNameIfAbsoluteFor:, which does what I expect relativeNameFor: to do. =============== Diff against Files-eem.115 =============== Item was added: + ----- Method: FileDirectory>>relativeNameIfAbsoluteFor: (in category 'file name utilities') ----- + relativeNameIfAbsoluteFor: aFileName + "Answer either the relative name for aFileName, if aFileName names a file in me or + subdirectories, or aFileName's absolute path if it isn't in me or subdirectories. + P.S. Ths is what I'd expect relativeNameFor: to do, but it is taken and means + exactly the opposite, i.e. the absolute path for a relative name." + | fullNameSize fullName fileNameSize | + (aFileName isEmpty or: [aFileName first ~= self pathNameDelimiter]) ifTrue: + [self error: 'this method expects an absolute filename']. + fullNameSize := (fullName := self fullName) size. + fileNameSize := aFileName size. + ^(aFileName beginsWith: fullName) + ifTrue: [(fileNameSize = fullNameSize + or: [fileNameSize - 1 = fullNameSize + and: [(aFileName at: fileNameSize) = self pathNameDelimiter]]) + ifTrue: [self class currentDirectoryNickname] + ifFalse: [aFileName copyFrom: fullNameSize + 2 to: fileNameSize]] + ifFalse: [aFileName] + + "SourceFiles asArray collect: [:sf| FileDirectory default relativeNameIfAbsoluteFor: sf fullName]" + "FileDirectory default relativeNameIfAbsoluteFor: FileDirectory default fullName" "should be dot" + "FileDirectory default relativeNameIfAbsoluteFor: FileDirectory default fullName, FileDirectory default slash" "should also be dot"!

1 0

The Trunk: Files-eem.116.mcz
by commits＠source.squeak.org 27 Jan '12

27 Jan '12

1 0

The Trunk: Files-eem.116.mcz
by commits＠source.squeak.org 27 Jan '12

27 Jan '12

1 0

The Trunk: Morphic-cao.591.mcz
by commits＠source.squeak.org 25 Jan '12

25 Jan '12

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cao.591.mcz ==================== Summary ==================== Name: Morphic-cao.591 Author: cao Time: 16 December 2011, 5:12:55.114 pm UUID: 7755dc7f-9fa9-4a3d-a7e1-082ca3072df2 Ancestors: Morphic-cwp.590 move asStringOrText conversion from drawOn: (the caller) to display:atRow:on: (the called) to avoid destroying column info used by the MulticolumnLazyListMorph. =============== Diff against Morphic-cwp.590 =============== Item was changed: ----- Method: LazyListMorph>>display:atRow:on: (in category 'drawing') ----- display: item atRow: row on: canvas "display the given item at row row" + | drawBounds itemAsText | + itemAsText := item asStringOrText. - | drawBounds | drawBounds := self drawBoundsForRow: row. drawBounds := drawBounds intersect: self bounds. + itemAsText isText + ifTrue: [ canvas drawString: itemAsText in: drawBounds + font: (font emphasized: (itemAsText emphasisAt: 1)) + color: (self colorForRow: row) ] + ifFalse: [ canvas drawString: itemAsText in: drawBounds + font: font color: (self colorForRow: row) ].! - item isText - ifTrue: [ canvas drawString: item in: drawBounds font: (font emphasized: (item emphasisAt: 1)) color: (self colorForRow: row) ] - ifFalse: [ canvas drawString: item in: drawBounds font: font color: (self colorForRow: row) ].! Item was changed: ----- Method: LazyListMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas | | listItems size = 0 ifTrue: [ ^self ]. self drawSelectionOn: aCanvas. (self topVisibleRowForCanvas: aCanvas) to: (self bottomVisibleRowForCanvas: aCanvas) do: [ :row | (listSource itemSelectedAmongMultiple: row) ifTrue: [ self drawBackgroundForMulti: row on: aCanvas. ]. + self display: (self item: row) atRow: row on: aCanvas. - self display: (self item: row) asStringOrText atRow: row on: aCanvas. ]. listSource potentialDropRow > 0 ifTrue: [ self highlightPotentialDropRow: listSource potentialDropRow on: aCanvas ].!

1 0

The Trunk: Morphic-cao.591.mcz
by commits＠source.squeak.org 25 Jan '12

25 Jan '12

1 0

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2012