Packages September 2012

packages@lists.squeakfoundation.org

1 participants
120 discussions

The Trunk: Tests-ul.163.mcz
by commits＠source.squeak.org 14 Sep '12

14 Sep '12

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.163.mcz ==================== Summary ==================== Name: Tests-ul.163 Author: ul Time: 14 September 2012, 1:58:29.425 pm UUID: c716a059-f5d3-724c-b5c4-54ba9613e026 Ancestors: Tests-ul.162 Added ClassRemovalTest which reveals a bug in the current system. =============== Diff against Tests-ul.162 =============== Item was added: + TestCase subclass: #ClassRemovalTest + instanceVariableNames: 'isClean' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Bugs'! Item was added: + ----- Method: ClassRemovalTest>>className1 (in category 'utility') ----- + className1 + + ^#ClassToBeRemoved! Item was added: + ----- Method: ClassRemovalTest>>className2 (in category 'utility') ----- + className2 + + ^#ReferringClass! Item was added: + ----- Method: ClassRemovalTest>>setUp (in category 'running') ----- + setUp + + isClean := (SystemOrganizer default listAtCategoryNamed: self systemCategoryName) isEmpty + and: [ (Smalltalk hasClassNamed: self className1) not + and: [ (Smalltalk hasClassNamed: self className2) not ] ]! Item was added: + ----- Method: ClassRemovalTest>>systemCategoryName (in category 'utility') ----- + systemCategoryName + + ^'ReferencedClassRemoveTest'! Item was added: + ----- Method: ClassRemovalTest>>tearDown (in category 'running') ----- + tearDown + + isClean ifTrue: [ + (Smalltalk at: self className1) removeFromSystem. + (Smalltalk at: self className2) removeFromSystem. + SystemOrganizer default removeCategory: self systemCategoryName ]! Item was added: + ----- Method: ClassRemovalTest>>testClassRemovalAndRecompilcationWontCreateDuplicateVariableBindings (in category 'tests') ----- + testClassRemovalAndRecompilcationWontCreateDuplicateVariableBindings + + self + assert: isClean + description: 'The system category or the classes about to be created already exist.'. + "Create a class" + Object subclass: self className1 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self systemCategoryName. + "Create another" + Object subclass: self className2 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self systemCategoryName. + "Compile a method in the second which references the first" + (Smalltalk at: self className2) + compile: 'foo ^', self className1 + classified: 'accessing'. + "Remove the first class" + (Smalltalk at: self className1) removeFromSystem. + "Compile the first class again" + Object subclass: self className1 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self systemCategoryName. + self + deny: (Smalltalk at: self className2) new foo isObsolete + description: '#foo refers to an obsolete class'. + self + assert: (Smalltalk at: self className1) == + (Smalltalk at: self className2) new foo + description: '#foo refers to a different class'!

1 0

The Trunk: Tests-ul.163.mcz
by commits＠source.squeak.org 14 Sep '12

14 Sep '12

1 0

The Trunk: Tests-ul.163.mcz
by commits＠source.squeak.org 14 Sep '12

14 Sep '12

1 0

The Trunk: Morphic-ul.625.mcz
by commits＠source.squeak.org 13 Sep '12

13 Sep '12

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.625.mcz ==================== Summary ==================== Name: Morphic-ul.625 Author: ul Time: 13 September 2012, 7:51:07.994 pm UUID: 348b15eb-1a3c-6a47-9a2b-feb3fcba920c Ancestors: Morphic-bf.624 Reuse #makeForegroundColor instead of reinventing it in ListItemWrapper >> #highlightingColor. Thanks Bert. =============== Diff against Morphic-bf.624 =============== Item was changed: ----- Method: ListItemWrapper>>highlightingColor (in category 'accessing') ----- highlightingColor + ^Preferences menuSelectionColor makeForegroundColor! - ^Preferences menuSelectionColor luminance > 0.5 - ifTrue: [ Color black ] - ifFalse: [ Color white ]!

1 0

The Trunk: Morphic-ul.625.mcz
by commits＠source.squeak.org 13 Sep '12

13 Sep '12

1 0

The Trunk: Morphic-ul.625.mcz
by commits＠source.squeak.org 13 Sep '12

13 Sep '12

1 0

The Trunk: Morphic-bf.624.mcz
by commits＠source.squeak.org 12 Sep '12

12 Sep '12

Bert Freudenberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-bf.624.mcz ==================== Summary ==================== Name: Morphic-bf.624 Author: bf Time: 12 September 2012, 5:47:14.352 pm UUID: 2b4cb6c4-49df-4186-b43d-2c3c6cf7fd1b Ancestors: Morphic-ul.623 Do not freeze when an alarm callback raises an error. Thanks to John McKeon for finding the cause! =============== Diff against Morphic-ul.623 =============== Item was changed: ----- Method: WorldState>>triggerAlarmsBefore: (in category 'alarms') ----- triggerAlarmsBefore: nowTime "Trigger all pending alarms that are to be executed before nowTime." + | triggered | lastAlarmTime ifNil:[lastAlarmTime := nowTime]. (nowTime < lastAlarmTime or:[nowTime - lastAlarmTime > 10000]) ifTrue:[self adjustAlarmTimes: nowTime]. + triggered := OrderedCollection new. self lockAlarmsDuring: [:pending | + (pending isEmpty not and: [pending first scheduledTime < nowTime]) + ifTrue: [triggered add: pending removeFirst]]. + triggered do: [:alarm | alarm value: nowTime]. - [pending isEmpty not and:[pending first scheduledTime < nowTime]] - whileTrue:[pending removeFirst value: nowTime]. - ]. lastAlarmTime := nowTime.!

1 0

The Trunk: Morphic-bf.624.mcz
by commits＠source.squeak.org 12 Sep '12

12 Sep '12

1 0

The Trunk: Morphic-bf.624.mcz
by commits＠source.squeak.org 12 Sep '12

12 Sep '12

1 0

The Trunk: Tools-ul.423.mcz
by commits＠source.squeak.org 09 Sep '12

09 Sep '12

Levente Uzonyi uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ul.423.mcz ==================== Summary ==================== Name: Tools-ul.423 Author: ul Time: 4 September 2012, 2:25:58.433 am UUID: 2ca7cf6f-060f-d847-95d4-e52506e7b5e7 Ancestors: Tools-ul.422 - enh: IndentingListItemMorph's color is set by its complextContent's preferred and highlighted colors instead of hardcoded black. - enh: PointerExplorerWrapper is gray instead of black if the wrapped item only has a weak reference to the object. The downside is that when the element is highlighted the text is hardly readable. It's because #highlightingColor is not taking into account the selection's color. - enh: #highlightingColor is never nil, so don't check for that Note: there are two different highlighting mechanisms. See #highlightColor vs #highlightingColor =============== Diff against Tools-ul.422 =============== Item was added: + ----- Method: IndentingListItemMorph>>defaultColor (in category 'initialization') ----- + defaultColor + + ^complexContents + ifNil: [ super defaultColor ] + ifNotNil: [ complexContents preferredColor ]! Item was changed: ----- Method: IndentingListItemMorph>>highlight (in category 'private-container protocol') ----- highlight + self color: complexContents highlightingColor. - complexContents highlightingColor ifNotNil: [self color: complexContents highlightingColor]. self changed. ! Item was changed: ----- Method: IndentingListItemMorph>>unhighlight (in category 'drawing') ----- unhighlight + self color: complexContents preferredColor. - complexContents highlightingColor ifNotNil: [self color: Color black]. self changed. ! Item was changed: ObjectExplorerWrapper subclass: #PointerExplorerWrapper + instanceVariableNames: 'weakOnly' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tools-Explorer'! !PointerExplorerWrapper commentStamp: 'avi 8/21/2004 19:58' prior: 0! A subclass of ObjectExplorerWrapper for use with PointerExplorer. #contents is overridden to work backwards: it returns wrappers for the objects pointing to item rather than for the objects that item points to.! Item was changed: ----- Method: PointerExplorerWrapper>>contents (in category 'accessing') ----- contents "Return the wrappers with the objects holding references to item. Eldest objects come first, weak only referencers are at the end and have parentheses around their identity hash." | objects weakOnlyReferences | objects := item inboundPointersExcluding: { self. model }. weakOnlyReferences := OrderedCollection new. objects removeAllSuchThat: [ :each | each class == self class or: [ each class == PointerExplorer or: [ (each class == MethodContext and: [ each receiver class == PointerExplorer ] ) or: [ (each pointsOnlyWeaklyTo: item) ifTrue: [ weakOnlyReferences add: each. true ] ifFalse: [ false ] ] ] ] ]. ^(objects replace: [ :each | self class with: each name: each identityHash asString model: item ]) addAll: (weakOnlyReferences replace: [ :each | + (self class with: each name: '(', each identityHash asString, ')' model: item) + weakOnly: true; + yourself ]); - self class with: each name: '(', each identityHash asString, ')' model: item ]); yourself! Item was added: + ----- Method: PointerExplorerWrapper>>isWeakOnly (in category 'testing') ----- + isWeakOnly + + ^weakOnly ifNil: [ false ] "This #ifNil: message is only here to avoid errors when updating an image with opened PointerExplorers."! Item was added: + ----- Method: PointerExplorerWrapper>>preferredColor (in category 'accessing') ----- + preferredColor + + ^self isWeakOnly + ifTrue: [ Color gray ] + ifFalse: [ Color black ]! Item was added: + ----- Method: PointerExplorerWrapper>>weakOnly: (in category 'accessing') ----- + weakOnly: aBoolean + + weakOnly := aBoolean!

1 0

← Newer
1
...
4
5
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2012