Packages June 2013

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: System-fbs.552.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.552.mcz ==================== Summary ==================== Name: System-fbs.552 Author: fbs Time: 29 June 2013, 10:30:53.833 pm UUID: 461ccc11-876e-b444-8ffa-7269e5df5c00 Ancestors: System-fbs.551 WindowColorSpec references belong in System-Support, not Kernel. =============== Diff against System-fbs.551 =============== Item was added: + ----- Method: Object class>>windowColorSpecification (in category '*System-Support-window color') ----- + windowColorSpecification + "Answer a WindowColorSpec object that declares my preference. + This is a backstop for classes that don't otherwise define a preference." + + ^ WindowColorSpec classSymbol: self name + wording: 'Default' brightColor: #white + pastelColor: #white + helpMessage: 'Other windows without color preferences.'! Item was added: + ----- Method: StringHolder class>>windowColorSpecification (in category '*System-Support-window colorwindow color') ----- + windowColorSpecification + "Answer a WindowColorSpec object that declares my preference" + + ^ WindowColorSpec classSymbol: self name wording: 'Workspace' brightColor: #lightYellow pastelColor: #paleYellow helpMessage: 'A place for text in a window.'!

1 0

The Trunk: System-fbs.552.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

1 0

The Trunk: System-fbs.551.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-fbs.551.mcz ==================== Summary ==================== Name: System-fbs.551 Author: fbs Time: 29 June 2013, 10:26:52.25 pm UUID: 4330cca4-fca5-5847-aa40-f7083738b06b Ancestors: System-fbs.550 Break a strand in the Kernel -> System dependency by moving MethodReference references into System-Support. =============== Diff against System-fbs.550 =============== Item was added: + ----- Method: ClassDescription>>methodReferencesInCategory: (in category '*System') ----- + methodReferencesInCategory: aCategoryName + ^(self organization listAtCategoryNamed: aCategoryName) + collect: [:ea | MethodReference new + setClassSymbol: self theNonMetaClass name + classIsMeta: self isMeta + methodSymbol: ea + stringVersion: ''] + ! Item was added: + ----- Method: CompiledMethod>>methodReference (in category '*System-Support') ----- + methodReference + | class selector | + class := self methodClass ifNil: [^nil]. + selector := self selector ifNil: [^nil]. + ^MethodReference class: class selector: selector. + !

1 0

The Trunk: System-fbs.551.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

1 0

The Trunk: System-fbs.551.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

1 0

The Trunk: Kernel-fbs.773.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.773.mcz ==================== Summary ==================== Name: Kernel-fbs.773 Author: fbs Time: 29 June 2013, 10:25:59.798 pm UUID: ab25943a-ccea-0b40-b616-a299a93acd04 Ancestors: Kernel-fbs.772 Break a strand in the Kernel -> System dependency by moving MethodReference references into System-Support. =============== Diff against Kernel-fbs.772 =============== Item was removed: - ----- Method: ClassDescription>>methodReferencesInCategory: (in category 'organization') ----- - methodReferencesInCategory: aCategoryName - ^(self organization listAtCategoryNamed: aCategoryName) - collect: [:ea | MethodReference new - setClassSymbol: self theNonMetaClass name - classIsMeta: self isMeta - methodSymbol: ea - stringVersion: ''] - ! Item was removed: - ----- Method: CompiledMethod>>methodReference (in category 'accessing') ----- - methodReference - | class selector | - class := self methodClass ifNil: [^nil]. - selector := self selector ifNil: [^nil]. - ^MethodReference class: class selector: selector. - !

1 0

The Trunk: Kernel-fbs.773.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

1 0

The Trunk: Kernel-fbs.773.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

1 0

The Trunk: ToolsTests-fbs.66.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

Frank Shearar uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.66.mcz ==================== Summary ==================== Name: ToolsTests-fbs.66 Author: fbs Time: 29 June 2013, 10:23:54.003 pm UUID: ec13d0c3-3b9c-4e40-bfcd-d1c92fb47fd1 Ancestors: ToolsTests-fbs.65 MethodReferenceTest belongs with the other System-Support tests. =============== Diff against ToolsTests-fbs.65 =============== Item was removed: - ClassTestCase subclass: #MethodReferenceTest - instanceVariableNames: 'env' - classVariableNames: '' - poolDictionaries: '' - category: 'ToolsTests-Browser'! Item was removed: - ----- Method: MethodReferenceTest>>createClass: (in category 'private') ----- - createClass: aSymbol - | builder | - builder := ClassBuilder new. - ^ builder - name: aSymbol - inEnvironment: env - subclassOf: Object - type: #normal - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Test'.! Item was removed: - ----- Method: MethodReferenceTest>>setUp (in category 'running') ----- - setUp - | g p | - env := Environment named: 'test'. - g := self createClass: #Griffle. - p := self createClass: #Plonk. - g compile: 'foo ^ 1'. - g organization classify: #foo under: #accessing. - g class compile: 'classFoo ^ 1'. - g compile: 'bar ^ 1'. - p compile: 'foo ^ 2'. - self createClass: #Unused.! Item was removed: - ----- Method: MethodReferenceTest>>testActualClassIsScopedToEnvironment (in category 'tests') ----- - testActualClassIsScopedToEnvironment - | mref | - mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env. - self assert: (env at: #Griffle) equals: mref actualClass.! Item was removed: - ----- Method: MethodReferenceTest>>testCanReferToMethodInSpecificEnvironment (in category 'tests') ----- - testCanReferToMethodInSpecificEnvironment - | mref | - mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals environment: env. - self assert: env equals: mref environment.! Item was removed: - ----- Method: MethodReferenceTest>>testCategory (in category 'tests') ----- - testCategory - | mref | - mref := MethodReference class: (env at: #Griffle) selector: #foo environment: env. - self assert: #accessing equals: mref category.! Item was removed: - ----- Method: MethodReferenceTest>>testEquals (in category 'Running') ----- - testEquals - | aMethodReference anotherMethodReference | - aMethodReference := MethodReference new. - anotherMethodReference := MethodReference new. - "Two fresh instances should be equals between them" - self assert: MethodReference new equals: MethodReference new. - self assert: MethodReference new hash equals: MethodReference new hash. - - "Two instances representing the same method (same class and - same selector) should be equals" - self assert: (MethodReference class: String selector: #foo) equals: (MethodReference class: String selector: #foo). - self assert: (MethodReference class: String selector: #foo) hash equals: (MethodReference class: String selector: #foo) hash.! Item was removed: - ----- Method: MethodReferenceTest>>testNotEquals (in category 'Running') ----- - testNotEquals - self - deny: (MethodReference class: String selector: #foo) = (MethodReference class: String class selector: #foo) - description: 'Different classes, same selector -> no more equals'. - self - deny: (MethodReference class: String selector: #foo) = (MethodReference class: String selector: #bar) - description: 'Same class, different selectors -> no more equals'.! Item was removed: - ----- Method: MethodReferenceTest>>testReferencedEnvironmentDefaultsToSmalltalkGlobals (in category 'tests') ----- - testReferencedEnvironmentDefaultsToSmalltalkGlobals - | mref | - mref := MethodReference class: self class selector: #testReferencedEnvironmentDefaultsToSmalltalkGlobals. - self assert: Smalltalk globals equals: mref environment.!

1 0

The Trunk: ToolsTests-fbs.66.mcz
by commits＠source.squeak.org 29 Jun '13

29 Jun '13

1 0

← Newer
1
2
3
4
5
6
7
8
...
28
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 June 2013