Packages June 2010

packages@lists.squeakfoundation.org

1 participants
276 discussions

The Trunk: System-ar.343.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.343.mcz ==================== Summary ==================== Name: System-ar.343 Author: ar Time: 21 June 2010, 8:36:36.846 pm UUID: 178a99de-0c0e-7c42-bf93-a594eacce7aa Ancestors: System-ar.342 Fixes an ancient issue when launching Squeak with a script as argument. The code the converted the script name to a file url was just utterly and horribly broken and could not possibly work. With the fix, one can now again start Squeak with arguments of the form: squeak mysqueak.image file.st squeak mysqueak.image scripts/file.st squeak mysqueak.image ../../svn/scripts/file.st (and of course any kind of URL) =============== Diff against System-ar.342 =============== Item was changed: ----- Method: ProjectLauncher>>startUpAfterLogin (in category 'running') ----- startUpAfterLogin | scriptName loader isUrl | self setupFlaps. Preferences readDocumentAtStartup ifTrue: [ HTTPClient isRunningInBrowser ifTrue:[ self setupFromParameters. scriptName := self parameterAt: 'src'. CodeLoader defaultBaseURL: (self parameterAt: 'Base'). ] ifFalse:[ scriptName := (Smalltalk documentPath) ifNil:['']. scriptName := scriptName convertFromSystemString. scriptName isEmpty ifFalse:[ "figure out if script name is a URL by itself" isUrl := (scriptName asLowercase beginsWith:'http://') or:[ (scriptName asLowercase beginsWith:'file://') or:[ (scriptName asLowercase beginsWith:'ftp://')]]. + isUrl ifFalse:[ + "Allow for ../dir/scriptName arguments" + scriptName := (FileDirectory default uri + resolveRelativeURI: scriptName) asString]]. - isUrl ifFalse:[scriptName := 'file:',scriptName]]. ]. ] ifFalse: [ scriptName := '' ]. scriptName isEmptyOrNil ifTrue:[^Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]]. loader := CodeLoader new. loader loadSourceFiles: (Array with: scriptName). (scriptName asLowercase endsWith: '.pr') ifTrue:[self installProjectFrom: loader] ifFalse:[loader installSourceFiles]. !

1 0

The Trunk: Tests-ar.83.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

Andreas Raab uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ar.83.mcz ==================== Summary ==================== Name: Tests-ar.83 Author: ar Time: 21 June 2010, 8:30:12.745 pm UUID: 8a6352eb-2cfe-ab4e-9749-9337b22f19be Ancestors: Tests-HenrikSperreJohansen.82 Guard TestObjectsAsMethods against crashes on Cog. =============== Diff against Tests-HenrikSperreJohansen.82 =============== Item was changed: ----- Method: TestObjectsAsMethods>>testDNU (in category 'as yet unclassified') ----- testDNU + + "Does crash VM with Cog" + Smalltalk isRunningCog ifTrue:[^self assert: false]. + self class addSelector: #answer42 withMethod: AbstractObjectsAsMethod new. self should: [self answer42] raise: MessageNotUnderstood. self class basicRemoveSelector: #answer42.! Item was added: + ----- Method: TestObjectsAsMethods>>expectedFailures (in category 'as yet unclassified') ----- + expectedFailures + "Does crash VM with Cog" + + ^Smalltalk isRunningCog + ifTrue:[#(testAddNumbers testDNU testAnswer42)] + ifFalse:[#()]! Item was changed: ----- Method: TestObjectsAsMethods>>testAddNumbers (in category 'as yet unclassified') ----- testAddNumbers + "self debug: #testAddNumbers" + + "Does crash VM with Cog" + Smalltalk isRunningCog ifTrue:[^self assert: false]. + - "self debug: #testAddNumbers" "md: I had to comment out the error... did strange things" self class addSelector: #add:with: withMethod: ObjectsAsMethodsExample new. self assert: (self add: 3 with: 4) = 7. "self assert: (self perform: #add:with: withArguments: #(3 4)) = 7. " self class basicRemoveSelector: #add:with:.! Item was changed: ----- Method: TestObjectsAsMethods>>testAnswer42 (in category 'as yet unclassified') ----- testAnswer42 + + "Does crash VM with Cog" + Smalltalk isRunningCog ifTrue:[^self assert: false]. + self class addSelector: #answer42 withMethod: ObjectsAsMethodsExample new. self assert: self answer42 = 42. self class basicRemoveSelector: #answer42.!

1 0

The Trunk: Tests-ar.83.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: Tests-ar.83.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: System-ar.342.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

Andreas Raab uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ar.342.mcz ==================== Summary ==================== Name: System-ar.342 Author: ar Time: 21 June 2010, 8:27:54.927 pm UUID: d5cb0874-d764-e64c-b008-24dda2e88d0d Ancestors: System-cmm.341 Add a test to identify whether the image is running under Cog or not. =============== Diff against System-cmm.341 =============== Item was added: + ----- Method: SmalltalkImage>>isRunningCog (in category 'sources, changes log') ----- + isRunningCog + "Returns true if we're running Cog" + + ^[(self vmParameterAt: 46) > 0] on: Error do:[:ex| ex return: false]!

1 0

The Trunk: System-ar.342.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: System-ar.342.mcz
by commits＠source.squeak.org 22 Jun '10

22 Jun '10

1 0

The Trunk: MorphicExtras-cmm.88.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

Chris Muller uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-cmm.88.mcz ==================== Summary ==================== Name: MorphicExtras-cmm.88 Author: cmm Time: 21 June 2010, 3:01:48.078 pm UUID: 5a1d954c-1d49-45ee-922a-39fb75b5fb81 Ancestors: MorphicExtras-bf.87 Protect from restoring color to nil when using PostscriptCanvas for the first time. =============== Diff against MorphicExtras-bf.87 =============== Item was changed: ----- Method: PostscriptCanvas>>setColor: (in category 'private') ----- setColor: color + (color notNil and: [ currentColor ~= color ]) ifTrue: + [ target write: color asColor. + currentColor := color ]! - currentColor ~= color ifTrue:[ - target write:color asColor. - currentColor := color. - ]. - !

1 0

The Trunk: MorphicExtras-cmm.88.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

The Trunk: MorphicExtras-cmm.88.mcz
by commits＠source.squeak.org 21 Jun '10

21 Jun '10

1 0

← Newer
1
2
3
4
5
6
7
8
9
...
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 2010