Packages October 2009

packages@lists.squeakfoundation.org

1 participants
150 discussions

The Trunk: System-dtl.159.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

David T. Lewis uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-dtl.159.mcz ==================== Summary ==================== Name: System-dtl.159 Author: dtl Time: 31 October 2009, 2:53:47 am UUID: ede05820-00ce-4784-855d-d00142df3598 Ancestors: System-nice.158 Move docking bars support from Project to MorphicProject. =============== Diff against System-nice.158 =============== Item was removed: - ----- Method: Project>>toggleShowWorldMainDockingBar (in category 'docking bars support') ----- - toggleShowWorldMainDockingBar - self showWorldMainDockingBar: self showWorldMainDockingBar not! Item was removed: - ----- Method: Project>>assureMainDockingBarPresenceMatchesPreference (in category 'docking bars support') ----- - assureMainDockingBarPresenceMatchesPreference - "Syncronize the state of the receiver's dockings with the - preference" - (self showWorldMainDockingBar) - ifTrue: [self createOrUpdateMainDockingBar] - ifFalse: [self removeMainDockingBar]! Item was removed: - ----- Method: Project>>removeMainDockingBar (in category 'docking bars support') ----- - removeMainDockingBar - "Remove the receiver's main docking bars" - self world mainDockingBars - do: [:each | each delete]! Item was removed: - ----- Method: Project>>showWorldMainDockingBar: (in category 'docking bars support') ----- - showWorldMainDockingBar: aBoolean - "Change ther receiver to show the main docking bar" - self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBoolean. - "" - self == Project current - ifTrue: ["" - aBoolean == Preferences showWorldMainDockingBar - ifFalse: [Preferences setPreference: #showWorldMainDockingBar toValue: aBoolean]]. - "" - self assureMainDockingBarPresenceMatchesPreference! Item was removed: - ----- Method: Project>>showWorldMainDockingBar (in category 'docking bars support') ----- - showWorldMainDockingBar - - ^ self projectPreferenceFlagDictionary - at: #showWorldMainDockingBar - ifAbsent: [Preferences showWorldMainDockingBar]! Item was removed: - ----- Method: Project>>showWorldMainDockingBarString (in category 'docking bars support') ----- - showWorldMainDockingBarString - ^ (self showWorldMainDockingBar - ifTrue: ['<yes>'] - ifFalse: ['<no>']) - , 'show main docking bar (M)' translated! Item was removed: - ----- Method: Project>>createOrUpdateMainDockingBar (in category 'docking bars support') ----- - createOrUpdateMainDockingBar - "Private - create a new main docking bar or update the current one" - | w mainDockingBars | - w := self world. - mainDockingBars := w mainDockingBars. - mainDockingBars isEmpty - ifTrue: ["no docking bar, just create a new one" - TheWorldMainDockingBar instance createDockingBar openInWorld: w. - ^ self]. - "" - "update if nedeed" - mainDockingBars - do: [:each | TheWorldMainDockingBar instance updateIfNeeded: each]!

1 0

The Trunk: System-dtl.159.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: System-dtl.159.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: Morphic-dtl.218.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.218.mcz ==================== Summary ==================== Name: Morphic-dtl.218 Author: dtl Time: 31 October 2009, 2:51:36 am UUID: 29652e24-9d08-4e81-913d-12ceff09c839 Ancestors: Morphic-MarcoSchmidt.217 Move docking bars support from Project to MorphicProject, with some cosmetic changes and spelling corrections. =============== Diff against Morphic-MarcoSchmidt.217 =============== Item was added: + ----- Method: MorphicProject>>createOrUpdateMainDockingBar (in category 'docking bars support') ----- + createOrUpdateMainDockingBar + "Private - create a new main docking bar or update the current one" + | w mainDockingBars | + w := self world. + mainDockingBars := w mainDockingBars. + mainDockingBars isEmpty + ifTrue: ["no docking bar, just create a new one" + TheWorldMainDockingBar instance createDockingBar openInWorld: w. + ^ self]. + "update if needed" + mainDockingBars + do: [:each | TheWorldMainDockingBar instance updateIfNeeded: each]! Item was added: + ----- Method: MorphicProject>>removeMainDockingBar (in category 'docking bars support') ----- + removeMainDockingBar + "Remove the receiver's main docking bars" + self world mainDockingBars + do: [:each | each delete]! Item was added: + ----- Method: MorphicProject>>showWorldMainDockingBar (in category 'docking bars support') ----- + showWorldMainDockingBar + + ^ self projectPreferenceFlagDictionary + at: #showWorldMainDockingBar + ifAbsent: [Preferences showWorldMainDockingBar]! Item was added: + ----- Method: MorphicProject>>toggleShowWorldMainDockingBar (in category 'docking bars support') ----- + toggleShowWorldMainDockingBar + self showWorldMainDockingBar: self showWorldMainDockingBar not! Item was added: + ----- Method: MorphicProject>>showWorldMainDockingBar: (in category 'docking bars support') ----- + showWorldMainDockingBar: aBoolean + "Change the receiver to show the main docking bar" + self projectPreferenceFlagDictionary at: #showWorldMainDockingBar put: aBoolean. + (self == Project current + and: [aBoolean ~= Preferences showWorldMainDockingBar]) + ifTrue: [Preferences setPreference: #showWorldMainDockingBar toValue: aBoolean]. + self assureMainDockingBarPresenceMatchesPreference! Item was added: + ----- Method: MorphicProject>>showWorldMainDockingBarString (in category 'docking bars support') ----- + showWorldMainDockingBarString + ^ (self showWorldMainDockingBar + ifTrue: ['<yes>'] + ifFalse: ['<no>']) + , 'show main docking bar (M)' translated! Item was added: + ----- Method: MorphicProject>>assureMainDockingBarPresenceMatchesPreference (in category 'docking bars support') ----- + assureMainDockingBarPresenceMatchesPreference + "Synchronize the state of the receiver's dockings with the + preference" + (self showWorldMainDockingBar) + ifTrue: [self createOrUpdateMainDockingBar] + ifFalse: [self removeMainDockingBar]!

1 0

The Trunk: Morphic-dtl.218.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: Morphic-dtl.218.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: Collections-nice.177.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

Nicolas Cellier uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-nice.177.mcz ==================== Summary ==================== Name: Collections-nice.177 Author: nice Time: 31 October 2009, 5:41:03 am UUID: 5444f379-2664-46a1-9db9-7c74edf779fe Ancestors: Collections-ar.176 Patch to make literal Array store Float exactly =============== Diff against Collections-ar.176 =============== Item was changed: ----- Method: Array>>storeOn: (in category 'printing') ----- storeOn: aStream "Use the literal form if possible." self isLiteral ifTrue: [aStream nextPut: $#; nextPut: $(. self do: [:element | + element storeOn: aStream. - element printOn: aStream. aStream space]. aStream nextPut: $)] ifFalse: [super storeOn: aStream]!

1 0

The Trunk: Collections-nice.177.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: Collections-nice.177.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: Kernel-nice.285.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.285.mcz ==================== Summary ==================== Name: Kernel-nice.285 Author: nice Time: 31 October 2009, 5:21:55 am UUID: a71e2eb9-aade-4ec1-8c30-77e6c9eaf9c8 Ancestors: Kernel-ar.284 store a Float exactly so it can be interpreted back unchanged - according to my solution proposed at http://bugs.squeak.org/view.php?id=1631 Note that SqNumberParser SHOULD be used for interpreting the Number exactly. Previous Number>>readFrom: accumulate roundoff errors =============== Diff against Kernel-ar.284 =============== Item was changed: ----- Method: Float>>storeOn:base: (in category 'printing') ----- + storeOn: aStream base: base + "Print the Number exactly so it can be interpreted back unchanged" + self isFinite + ifTrue: [self > 0 + ifTrue: [self absPrintExactlyOn: aStream base: base] + ifFalse: [self sign = -1 + ifTrue: [aStream nextPutAll: '-']. + self = 0.0 + ifTrue: [aStream nextPutAll: '0.0'] + ifFalse: [self negated absPrintExactlyOn: aStream base: base]]] + ifFalse: [self isNaN + ifTrue: [aStream nextPutAll: 'Float nan'] + ifFalse: [self > 0.0 + ifTrue: [aStream nextPutAll: 'Float infinity'] + ifFalse: [aStream nextPutAll: 'Float infinity negated']]]! - storeOn: aStream base: base - "Defined here to handle special cases of NaN Infinity and negative zero" - - | abs | - self isNaN ifTrue: [aStream nextPutAll: 'NaN'. ^ self]. "check for NaN before sign" - abs := self sign = -1 "Test sign rather than > 0 for special case of negative zero" - ifTrue: - [aStream nextPutAll: '-'. - self negated] - ifFalse: [self]. - abs isInfinite ifTrue: [aStream nextPutAll: 'Infinity'. ^ self]. - aStream print: base; nextPut: $r. - self = 0.0 - ifTrue: [aStream nextPutAll: '0.0'. ^ self] - ifFalse: [abs absPrintOn: aStream base: base]! Item was added: + ----- Method: Float>>storeOn: (in category 'printing') ----- + storeOn: aStream + "Print the Number exactly so it can be interpreted back unchanged" + + self storeOn: aStream base: 10!

1 0

← Newer
1
2
3
4
5
6
7
...
15
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 October 2009