The Trunk: System-dtl.245.mcz

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.245.mcz

==================== Summary ====================

Name: System-dtl.245
Author: dtl
Time: 6 February 2010, 5:03:19.118 pm
UUID: 40e15c69-02a8-4e2c-afe5-0e3499820e37
Ancestors: System-ul.244

Remove explicit reference to MVC ParagraphEditor in Preferences class>>noviceModeSettingChanged.
Add comment and #flag: markers in Project>>dispatchTo:addPrefixAndSend:withArguments: to explain that this method should be replaced by proper ToolBuilder support in classes that use it (PluggableFileList and PopUpMenu so far).

=============== Diff against System-ul.244 ===============

Item was changed:
  ----- Method: Project>>dispatchTo:addPrefixAndSend:withArguments: (in category 'dispatching') -----
  dispatchTo: requestor addPrefixAndSend: baseSelector withArguments: arguments
  "Sender wants to perform a method with dependencies on the type of project.
+ Dispatch to an appropriate method for the current project.
+
+ This method is a workaround for lack of proper ToolBuilder support in the sender,
+ and should be eliminated when possible (dtl Feb 2010)"
- Dispatch to an appropriate method for the current project."
 
  | selector |
+ "Flag target selectors to help identify senders"
+ self flag: #mvcOpenLabel:in: .
+ self flag: #morphicOpenLabel:in: .
+ self flag: #mvcStartUpLeftFlush .
+ self flag: #morphicStartUpLeftFlush .
+ self flag: #mvcStartUpWithCaption:icon:at:allowKeyboard: .
+ self flag: #morphicStartUpWithCaption:icon:at:allowKeyboard: .
+
  selector := (self selectorPrefixForDispatch, baseSelector) asSymbol.
  ^ requestor perform: selector withArguments: arguments!

Item was changed:
  ----- Method: Preferences class>>noviceModeSettingChanged (in category 'reacting to change') -----
  noviceModeSettingChanged
  "The current value of the noviceMode flag has changed;  
  now react"
  TheWorldMainDockingBar updateInstances.
  PasteUpMorph allSubInstances
  select: [:each | each isWorldMorph]
  thenDo: [:each | each initializeDesktopCommandKeySelectors].
+ (Smalltalk hasClassNamed: #ParagraphEditor)
+ ifTrue: [Smalltalk at: #ParagraphEditor initialize]!
- ParagraphEditor ifNotNilDo: [:pe | pe initialize]!