Packages October 2009

packages@lists.squeakfoundation.org

1 participants
150 discussions

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

31 Oct '09

David T. Lewis uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-dtl.61.mcz ==================== Summary ==================== Name: ST80-dtl.61 Author: dtl Time: 31 October 2009, 4:06:56 am UUID: 9b865334-94c9-49ca-80cb-48ece4c9b55c Ancestors: ST80-ar.60 Add #defaultBackgroundColor (moved from Project to MVCProject) =============== Diff against ST80-ar.60 =============== Item was added: + ----- Method: MVCProject>>defaultBackgroundColor (in category 'initialize') ----- + defaultBackgroundColor + ^ Color r: 1.0 g: 1.0 b: 0.065!

1 0

The Trunk: Multilingual-ar.58.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

Andreas Raab uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ar.58.mcz ==================== Summary ==================== Name: Multilingual-ar.58 Author: ar Time: 31 October 2009, 1:03:32 am UUID: e1ea7f20-44ca-6b44-82ab-f0c6fadc9e87 Ancestors: Multilingual-ar.57 Undeclared cleanup. Declare acceptEncodings in CompoundTextConverter. ==== ERROR === Error: subscript is out of bounds: 0 31 October 2009 8:04:15 pm VM: unix - a SmalltalkImage Image: Squeak3.7 [latest update: #5989] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/squeaksource Trusted Dir /home/squeaksource/secure Untrusted Dir /home/squeaksource/My Squeak Array(Object)>>error: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: aString: 'subscript is out of bounds: 0' Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>errorSubscriptBounds: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Array(Object)>>at: Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Arguments and temporary variables: index: 0 Receiver's instance variables: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xDelimiter #xDe...etc... Parser(Scanner)>>scanToken Receiver: a Parser Arguments and temporary variables: Receiver's instance variables: source: a ReadStream mark: nil hereChar: $ aheadChar: $ token: nil tokenType: nil currentComment: nil buffer: a WriteStream typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: nil hereType: nil hereMark: nil hereEnd: nil prevMark: nil prevEnd: nil encoder: nil requestor: nil parseNode: nil failBlock: [] in Parser>>initPattern:notifying:return: {[^ nil]} requestorOffset: nil tempsMark: nil doitFlag: nil --- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Parser(Scanner)>>scanToken - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Parser(Scanner)>>scan: Parser>>init:notifying:failBlock: Parser>>initPattern:notifying:return: Parser>>parseSelector: ChangeList>>scanCategory:class:meta:stamp: ChangeList>>scanCategory [] in ChangeList>>scanFile:from:to: {[:bar | [file position < stopPosition] whileTrue: [bar value: file positi...]} ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: String>>displayProgressAt:from:to:during: ChangeList>>scanFile:from:to: FilePackage>>fileInFrom: MCStReader>>loadDefinitions MCStReader(MCSnapshotReader)>>definitions [] in MCMczReader>>extractDefinitionsFrom: {[:rc | reader := rc on: member contentStream text. definitions addAll: rea...]} MCStReader class(Object)>>ifNotNilDo: MCMczReader>>extractDefinitionsFrom: [] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]} OrderedCollection>>do: MCMczReader>>loadDefinitions MCMczReader(MCVersionReader)>>definitions MCMczReader(MCVersionReader)>>snapshot [] in SSDiffyTextWriter>>writeVersion:for: {[ancestor ifNil: [self writeSnapshot: reader snapshot] ifNotNil: [patch ...]} BlockContext>>on:do: SSDiffyTextWriter>>writeVersion:for: SSEMailSubscription>>versionAdded:to: [] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]} [] in BlockContext>>newProcess {[self value. Processor terminateActive]}

1 0

The Trunk: Multilingual-ar.58.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: Multilingual-ar.58.mcz
by commits＠source.squeak.org 31 Oct '09

31 Oct '09

1 0

The Trunk: System-dtl.160.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.160.mcz ==================== Summary ==================== Name: System-dtl.160 Author: dtl Time: 31 October 2009, 3:30:47 am UUID: d705035f-648c-41cc-b196-76a6532ea36b Ancestors: System-dtl.159 Move flaps support from Project to MorphicProject. =============== Diff against System-dtl.159 =============== Item was removed: - ----- Method: Project>>showSharedFlaps (in category 'flaps support') ----- - showSharedFlaps - "Answer whether shared flaps are shown or suppressed in this project" - - | result | - result := Preferences showSharedFlaps. - ^ self == Project current - ifTrue: - [result] - ifFalse: - [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]! Item was removed: - ----- Method: Project>>suppressFlapsString (in category 'flaps support') ----- - suppressFlapsString - ^ (self flapsSuppressed - ifTrue: ['<no>'] - ifFalse: ['<yes>']), 'show shared tabs (F)' translated! Item was removed: - ----- Method: Project>>globalFlapWithIDEnabledString: (in category 'flaps support') ----- - globalFlapWithIDEnabledString: aFlapID - "Answer the string to be shown in a menu to represent the status of the given flap regarding whether it it should be shown in this project." - - | aFlapTab | - aFlapTab := Flaps globalFlapTabWithID: aFlapID. - ^ (self isFlapEnabled: aFlapTab) - ifTrue: - ['<on>', aFlapTab wording] - ifFalse: - ['<off>', aFlapTab wording]! Item was removed: - ----- Method: Project>>flapsSuppressed (in category 'flaps support') ----- - flapsSuppressed - "Answer whether flaps are suppressed in this project" - - ^ self showSharedFlaps not! Item was removed: - ----- Method: Project>>assureFlapIntegrity (in category 'flaps support') ----- - assureFlapIntegrity - "Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them. Also, old (and damaging) parameters that held references to actual disabled flaps are cleansed" - - | disabledFlapIDs currentGlobalIDs oldList | - Smalltalk isMorphic ifTrue: - [disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new]. - currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID]. - oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil]. - oldList ifNotNil: - [disabledFlapIDs := oldList collect: [:aFlap | aFlap flapID]. - disabledFlapIDs addAll: {'Scripting' translated. 'Stack Tools' translated. 'Painting' translated}]. - disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID]. - self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs asSet. - self assureNavigatorPresenceMatchesPreference]. - - projectParameters ifNotNil: - [projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]! Item was removed: - ----- Method: Project>>cleanseDisabledGlobalFlapIDsList (in category 'flaps support') ----- - cleanseDisabledGlobalFlapIDsList - "Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them" - - | disabledFlapIDs currentGlobalIDs oldList | - Smalltalk isMorphic ifTrue: - [disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new]. - currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID]. - oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil]. - oldList ifNotNil: - [disabledFlapIDs := oldList select: [:aFlap | aFlap flapID]]. - disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID]. - self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs]. - - projectParameters ifNotNil: - [projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]. - ! Item was removed: - ----- Method: Project>>enableDisableGlobalFlap: (in category 'flaps support') ----- - enableDisableGlobalFlap: aFlapTab - "For the benefit of pre-existing which-global-flap buttons from a design now left behind." - - self flag: #toRemove. - ^ self inform: - 'Sorry, this is an obsolete menu; please - dismiss it and get a fresh menu. Thanks.'.! Item was removed: - ----- Method: Project>>toggleFlapsSuppressed (in category 'flaps support') ----- - toggleFlapsSuppressed - "Project toggleFlapsSuppressed" - - ^self flapsSuppressed: self flapsSuppressed not.! Item was removed: - ----- Method: Project>>isFlapEnabled: (in category 'flaps support') ----- - isFlapEnabled: aFlapTab - "Answer whether the given flap tab is enabled in this project" - - ^ self isFlapIDEnabled: aFlapTab flapID! Item was removed: - ----- Method: Project>>isFlapIDEnabled: (in category 'flaps support') ----- - isFlapIDEnabled: aFlapID - "Answer whether a flap of the given ID is enabled in this project" - - | disabledFlapIDs | - disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [^ true]. - ^ (disabledFlapIDs includes: aFlapID) not! Item was removed: - ----- Method: Project>>flapsSuppressed: (in category 'flaps support') ----- - flapsSuppressed: aBoolean - "Make the setting of the flag that governs whether global flaps are suppressed in the project be as indicated and add or remove the actual flaps" - - self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not. - self == Project current "Typical case" - ifTrue: - [Preferences setPreference: #showSharedFlaps toValue: aBoolean not] - ifFalse: "Anomalous case where this project is not the current one." - [aBoolean - ifTrue: - [Flaps globalFlapTabsIfAny do: - [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]] - - ifFalse: - [Smalltalk isMorphic ifTrue: - [self currentWorld addGlobalFlaps]]]. - Project current assureNavigatorPresenceMatchesPreference! Item was removed: - ----- Method: Project>>globalFlapEnabledString: (in category 'flaps support') ----- - globalFlapEnabledString: aFlapTab - "Answer the string to be shown in a menu to represent the status of the givne flap regarding whether it it should be shown in this project." - - ^ (self isFlapEnabled: aFlapTab) - ifTrue: - ['<on>', aFlapTab wording] - ifFalse: - ['<off>', aFlapTab wording]!

1 0

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

31 Oct '09

1 0

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

31 Oct '09

1 0

The Trunk: Morphic-dtl.219.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.219.mcz ==================== Summary ==================== Name: Morphic-dtl.219 Author: dtl Time: 31 October 2009, 3:28:41 am UUID: 2a3f5c6f-3317-469a-a1ed-3f5014f5024f Ancestors: Morphic-dtl.218 Move flaps support from Project to MorphicProject. Remove 3 #isMorphic: sends, fix spelling error and comment example. =============== Diff against Morphic-dtl.218 =============== Item was added: + ----- Method: MorphicProject>>globalFlapEnabledString: (in category 'flaps support') ----- + globalFlapEnabledString: aFlapTab + "Answer the string to be shown in a menu to represent the status of the given flap regarding whether it it should be shown in this project." + + ^ (self isFlapEnabled: aFlapTab) + ifTrue: + ['<on>', aFlapTab wording] + ifFalse: + ['<off>', aFlapTab wording]! Item was added: + ----- Method: MorphicProject>>suppressFlapsString (in category 'flaps support') ----- + suppressFlapsString + ^ (self flapsSuppressed + ifTrue: ['<no>'] + ifFalse: ['<yes>']), 'show shared tabs (F)' translated! Item was added: + ----- Method: MorphicProject>>toggleFlapsSuppressed (in category 'flaps support') ----- + toggleFlapsSuppressed + "Project current toggleFlapsSuppressed" + + ^self flapsSuppressed: self flapsSuppressed not.! Item was added: + ----- Method: MorphicProject>>flapsSuppressed: (in category 'flaps support') ----- + flapsSuppressed: aBoolean + "Make the setting of the flag that governs whether global flaps are suppressed in the project be as indicated and add or remove the actual flaps" + + self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not. + self == Project current "Typical case" + ifTrue: + [Preferences setPreference: #showSharedFlaps toValue: aBoolean not] + ifFalse: "Anomalous case where this project is not the current one." + [aBoolean + ifTrue: + [Flaps globalFlapTabsIfAny do: + [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]] + + ifFalse: + [self currentWorld addGlobalFlaps]]. + Project current assureNavigatorPresenceMatchesPreference! Item was added: + ----- Method: MorphicProject>>cleanseDisabledGlobalFlapIDsList (in category 'flaps support') ----- + cleanseDisabledGlobalFlapIDsList + "Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them" + + | disabledFlapIDs currentGlobalIDs oldList | + disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new]. + currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID]. + oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil]. + oldList ifNotNil: + [disabledFlapIDs := oldList select: [:aFlap | aFlap flapID]]. + disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID]. + self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs. + + projectParameters ifNotNil: + [projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]. + ! Item was added: + ----- Method: MorphicProject>>isFlapEnabled: (in category 'flaps support') ----- + isFlapEnabled: aFlapTab + "Answer whether the given flap tab is enabled in this project" + + ^ self isFlapIDEnabled: aFlapTab flapID! Item was added: + ----- Method: MorphicProject>>showSharedFlaps (in category 'flaps support') ----- + showSharedFlaps + "Answer whether shared flaps are shown or suppressed in this project" + + | result | + result := Preferences showSharedFlaps. + ^ self == Project current + ifTrue: + [result] + ifFalse: + [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]! Item was added: + ----- Method: MorphicProject>>isFlapIDEnabled: (in category 'flaps support') ----- + isFlapIDEnabled: aFlapID + "Answer whether a flap of the given ID is enabled in this project" + + | disabledFlapIDs | + disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [^ true]. + ^ (disabledFlapIDs includes: aFlapID) not! Item was added: + ----- Method: MorphicProject>>globalFlapWithIDEnabledString: (in category 'flaps support') ----- + globalFlapWithIDEnabledString: aFlapID + "Answer the string to be shown in a menu to represent the status of the given flap regarding whether it it should be shown in this project." + + | aFlapTab | + aFlapTab := Flaps globalFlapTabWithID: aFlapID. + ^ (self isFlapEnabled: aFlapTab) + ifTrue: + ['<on>', aFlapTab wording] + ifFalse: + ['<off>', aFlapTab wording]! Item was added: + ----- Method: MorphicProject>>flapsSuppressed (in category 'flaps support') ----- + flapsSuppressed + "Answer whether flaps are suppressed in this project" + + ^ self showSharedFlaps not! Item was added: + ----- Method: MorphicProject>>assureFlapIntegrity (in category 'flaps support') ----- + assureFlapIntegrity + "Make certain that the items on the disabled-global-flap list are actually global flaps, and if not, get rid of them. Also, old (and damaging) parameters that held references to actual disabled flaps are cleansed" + + | disabledFlapIDs currentGlobalIDs oldList | + disabledFlapIDs := self parameterAt: #disabledGlobalFlapIDs ifAbsent: [Set new]. + currentGlobalIDs := Flaps globalFlapTabsIfAny collect: [:f | f flapID]. + oldList := Project current projectParameterAt: #disabledGlobalFlaps ifAbsent: [nil]. + oldList ifNotNil: + [disabledFlapIDs := oldList collect: [:aFlap | aFlap flapID]. + disabledFlapIDs addAll: {'Scripting' translated. 'Stack Tools' translated. 'Painting' translated}]. + disabledFlapIDs := disabledFlapIDs select: [:anID | currentGlobalIDs includes: anID]. + self projectParameterAt: #disabledGlobalFlapIDs put: disabledFlapIDs asSet. + self assureNavigatorPresenceMatchesPreference. + + projectParameters ifNotNil: + [projectParameters removeKey: #disabledGlobalFlaps ifAbsent: []]! Item was added: + ----- Method: MorphicProject>>enableDisableGlobalFlap: (in category 'flaps support') ----- + enableDisableGlobalFlap: aFlapTab + "For the benefit of pre-existing which-global-flap buttons from a design now left behind." + + self flag: #toRemove. + ^ self inform: + 'Sorry, this is an obsolete menu; please + dismiss it and get a fresh menu. Thanks.'.!

1 0

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

31 Oct '09

1 0

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

31 Oct '09

1 0

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