The Trunk: Tools-tpr.795.mcz

tim Rowledge uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-tpr.795.mcz

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

Name: Tools-tpr.795
Author: tpr
Time: 1 February 2018, 3:53:29.550569 pm
UUID: 48432526-9fe6-4888-bfee-3b9ea75145e7
Ancestors: Tools-mt.794

Preliminary support for changes involved in removing the Project>>dispatchTo:addPrefixAndSend:withArguments: method.

=============== Diff against Tools-mt.794 ===============

Item was removed:
- ----- Method: Debugger class>>context: (in category 'instance creation') -----
- context: aContext
- "Answer an instance of me for debugging the active process starting with the given context."
-
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #Context:
- withArguments: { aContext }!

Item was removed:
- ----- Method: Debugger class>>openContext:label:contents: (in category 'opening') -----
- openContext: aContext label: aString contents: contentsStringOrNil
- "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short view of the sender stack and provides a menu that lets the user open a full debugger."
-
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #OpenContext:label:contents:
- withArguments: { aContext . aString . contentsStringOrNil }!

Item was removed:
- ----- Method: Debugger class>>openInterrupt:onProcess: (in category 'opening') -----
- openInterrupt: aString onProcess: interruptedProcess
- "Open a notifier in response to an interrupt. An interrupt occurs when the user types the interrupt key (cmd-. on Macs, ctrl-c or alt-. on other systems) or when the low-space watcher detects that memory is low."
-
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #OpenInterrupt:onProcess:
- withArguments: { aString . interruptedProcess }!

Item was changed:
  ----- Method: Debugger class>>openOn:context:label:contents:fullView: (in category 'opening') -----
  openOn: process context: context label: title contents: contentsStringOrNil fullView: bool
  "Open a notifier in response to an error, halt, or notify. A notifier view just shows a short
  view of the sender stack and provides a menu that lets the user open a full debugger.
+ Dispatch the request to a method appropriate for the active project.
+ The two versions for mvc & morphic are very close and can surely be merged so that this can be simplified"
- Dispatch the request to a method appropriate for the active project."
 
+ ^ Project uiManager openDebugger: self on: process context: context label: title contents: contentsStringOrNil fullView: bool
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #OpenOn:context:label:contents:fullView:
- withArguments: { process . context . title . contentsStringOrNil . bool }
  !

Item was changed:
  ----- Method: Debugger>>resumeProcess: (in category 'private') -----
  resumeProcess: aTopView
 
+ ^ Project uiManager resumeDebugger: self process: aTopView!
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #ResumeProcess:
- withArguments: { aTopView }
- !

Item was changed:
  ----- Method: FileList2 class>>modalFolderSelectorForProject: (in category 'modal dialogs') -----
  modalFolderSelectorForProject: aProject
  "
  FileList2 modalFolderSelectorForProject: Project current
  "
+ "Not currently being converted to FileSaverDialog etc because it implements the decidedly outre looking 'blue ui' Project dialog. "
  | window fileModel w |
 
  window := FileList2 morphicViewProjectSaverFor: aProject.
  fileModel := window valueOfProperty: #FileList.
  w := self currentWorld.
  window position: w topLeft + (w extent - window extent // 2).
  w addMorphInLayer: window.
  w startSteppingSubmorphsOf: window.
  UserInterfaceTheme current applyTo: window allMorphs.
  self modalLoopOn: window.
  ^fileModel getSelectedDirectory withoutListWrapper!

Item was changed:
  ----- Method: PluggableFileList class>>getFile (in category 'standard dialog operations') -----
  getFile
-
  | result |
+
+ self flag: #unused.
  result := self getFilePathName.
  ^result ifNotNil: [FileStream oldFileNamed: result]!

Item was changed:
  ----- Method: PluggableFileList>>initialize (in category 'initialize-release') -----
  initialize
 
+ super initialize.
  prompt := 'Select File'.
  directory := FileDirectory default.
  newFiles := OrderedCollection new.
  fileFilterBlock := PluggableFileList allFilesAndFoldersFileFilter.
  canAcceptBlock := PluggableFileList fileNameSelectedAcceptBlock.
  resultBlock := PluggableFileList pathNameResultBlock.
  validateBlock := PluggableFileList checkExistingFileValidateBlock.
  !

Item was changed:
  ----- Method: PluggableFileList>>open (in category 'initialize-release') -----
  open
+ "PluggableFileList is being deprecated and this can go away soon"
+ self deprecated: 'PluggableFileList must die'.
 
+ ^ Project uiManager openPluggableFileList: self label: prompt in: self currentWorld!
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #OpenLabel:in:
- withArguments: { prompt . self currentWorld }
- !

Item was removed:
- ----- Method: PopUpMenu>>startUpLeftFlush (in category 'basic control sequence') -----
- startUpLeftFlush
- "Build and invoke this menu with no initial selection.  By Jerry Archibald, 4/01.
- If in MVC, align menus items with the left margin.
- Answer the selection associated with the menu item chosen by the user or nil if none is chosen.  
- The mechanism for getting left-flush appearance in mvc leaves a tiny possibility for misadventure: if the user, in mvc, puts up the jump-to-project menu, then hits cmd period while it is up, then puts up a second jump-to-project menu before dismissing or proceeding through the debugger, it's possible for mvc popup-menus thereafter to appear left-aligned rather than centered; this very unlikely condition can be cleared by evaluating 'PopUpMenu alignment: 2'"
-
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #StartUpLeftFlush
- withArguments: #()
- !

Item was changed:
  ----- Method: PopUpMenu>>startUpWithCaption:icon:at:allowKeyboard: (in category 'basic control sequence') -----
  startUpWithCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean
  "Display the menu, with caption if supplied. Wait for the mouse button to go down, then track the selection as long as the button is pressed. When the button is released,
  Answer the index of the current selection, or zero if the mouse is not released over  any menu item. Location specifies the desired topLeft of the menu body rectangle. The final argument indicates whether the menu should seize the keyboard focus in order to allow the user to navigate it via the keyboard."
 
  | maxHeight |
  (ProvideAnswerNotification signal: captionOrNil) ifNotNil:
  [:answer | ^ selection := answer ifTrue: [1] ifFalse: [2]].
 
  maxHeight := Display height*3//4.
  self frameHeight > maxHeight ifTrue:
  [^ self
  startUpSegmented: maxHeight
  withCaption: captionOrNil
  at: location
  allowKeyboard: aBoolean].
 
+ ^ Project uiManager startUpMenu: self withCaption: captionOrNil icon: aForm at: location allowKeyboard: aBoolean!
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #StartUpWithCaption:icon:at:allowKeyboard:
- withArguments: {captionOrNil. aForm. location. aBoolean}!

Item was changed:
  ----- Method: SyntaxError class>>open: (in category 'instance creation') -----
  open: aSyntaxError
  "Answer a standard system view whose model is an instance of me."
 
  <primitive: 19> "Simulation guard"
+ ^ Project uiManager openSyntaxError: aSyntaxError
- ^ Project current
- dispatchTo: self
- addPrefixAndSend: #Open:
- withArguments: {aSyntaxError}
  !