Squeak-dev October 2009

squeak-dev@lists.squeakfoundation.org

84 participants
353 discussions

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

31 Oct '09

Andreas Raab uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-ar.22.mcz ==================== Summary ==================== Name: Nebraska-ar.22 Author: ar Time: 31 October 2009, 1:10:28 am UUID: cc21cf2c-b7ac-d948-ab7e-b8e856347873 Ancestors: Nebraska-ul.21 Companion change to Morphic-ar.220: Check all morphs of the world to be shared whether it's safe to serve them or not. =============== Diff against Nebraska-ul.21 =============== Item was changed: ----- Method: NebraskaServerMorph class>>serveWorld: (in category 'as yet unclassified') ----- serveWorld: aWorld "Check to make sure things won't crash. See Mantis #0000519" + aWorld allMorphsDo:[:m| + m isSafeToServe ifFalse:[ + ^self inform: 'Can not share world if a ', m class, ' is present. Close the mprph and try again']]. + ^self serveWorld: aWorld onPort: NebraskaServer defaultPort! - aWorld isSafeToServe ifTrue:[ - ^self serveWorld: aWorld onPort: NebraskaServer defaultPort] - !

1 0

The Trunk: Morphic-dtl.220.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.220.mcz ==================== Summary ==================== Name: Morphic-dtl.220 Author: dtl Time: 31 October 2009, 4:08:25 am UUID: a5c199c0-651e-454b-b2a2-df72baf20589 Ancestors: Morphic-dtl.219 Add #defaultBackgroundColor (moved from Project to MorphicProject). Move #initMorphic and #InstallPasteUpAsWorld: from Project. Flag #initMorphic for removal (but check if Etoys uses it). =============== Diff against Morphic-dtl.219 =============== Item was added: + ----- Method: MorphicProject>>initMorphic (in category 'initialize') ----- + initMorphic + "Written so that Morphic can still be removed. Note that #initialize is never actually called for a morphic project -- see the senders of this method." + + self flag: #toRemove. "check if this method still used by Etoys" + Smalltalk verifyMorphicAvailability ifFalse: [^ nil]. + changeSet := ChangeSet new. + transcript := TranscriptStream new. + displayDepth := Display depth. + parentProject := CurrentProject. + isolatedHead := false. + world := PasteUpMorph newWorldForProject: self. + Locale switchToID: CurrentProject localeID. + self initializeProjectPreferences. "Do this *after* a world is installed so that the project will be recognized as a morphic one." + Preferences useVectorVocabulary ifTrue: [world installVectorVocabulary]! Item was added: + ----- Method: MorphicProject>>defaultBackgroundColor (in category 'initialize') ----- + defaultBackgroundColor + ^ Preferences defaultWorldColor! Item was added: + ----- Method: MorphicProject>>installPasteUpAsWorld: (in category 'initialize') ----- + installPasteUpAsWorld: pasteUpMorph + "(ProjectViewMorph newMorphicProjectOn: aPasteUpMorph) openInWorld." + + world := pasteUpMorph beWorldForProject: self!

1 0

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

31 Oct '09

Andreas Raab uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ar.220.mcz ==================== Summary ==================== Name: Morphic-ar.220 Author: ar Time: 31 October 2009, 1:07:39 am UUID: 0e2ac93f-debe-6d40-922f-67364e663932 Ancestors: Morphic-dtl.219 Undeclared cleanup. Declare DefaultFill in MorphicProject and promote isSafeToServe into Morph to remove FlashMorph reference (requires companion change in Nebraska). =============== Diff against Morphic-dtl.219 =============== Item was changed: Project subclass: #MorphicProject instanceVariableNames: '' + classVariableNames: 'DefaultFill' - classVariableNames: '' poolDictionaries: '' category: 'Morphic-Support'! !MorphicProject commentStamp: 'ar 9/18/2009 21:38' prior: 0! Holds Morphic Projects. Very much in transition.! Item was added: + ----- Method: Morph>>isSafeToServe (in category 'testing') ----- + isSafeToServe + "Return true if it is safe to serve this Morph using Nebraska." + ^true! Item was removed: - ----- Method: PasteUpMorph>>isSafeToServe (in category 'Nebraska') ----- - isSafeToServe - "True if all conditions are met to share safely. - (attends to mantis bug #0000519). - Right now we reject worlds with FlashMorphs for subMorphs." - - (self findA: FlashMorph) ifNil: [^true]. - self inform: 'Can not share world if Squeaklogo is present. Collapse logo and try again'. - ^false!

1 0

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

Unloading the Services package?
by Andreas Raab 31 Oct '09

31 Oct '09

Folks - I've been looking at the Services package again and was yet again wondering what it is useful for. If any of you use it, in particular if you need it to be in the kernel image (instead of externally loadable) could you send a brief comment explaining how Services is useful to you and how it is superior to the alternatives? Thanks, - Andreas

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: 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: 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: 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

Jump to page: