The Trunk: Tools-cmm.642.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.642.mcz

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

Name: Tools-cmm.642
Author: cmm
Time: 19 October 2015, 4:42:55.028 pm
UUID: ed37650d-b99a-40be-bfba-49fbb02ba8a4
Ancestors: Tools-topa.641

- Fix hot-key for Eliot's "copy reference (C)".  It was overloaded with "show category (C)", so show category was changed to Command+Y.
- Restore the original Desktop Command keys when the user does not have Enable Global Command Keys enabled, but overload Command+Escape at the desktop level for a uniform way to close windows.

=============== Diff against Tools-topa.641 ===============

Item was changed:
  ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') -----
  messageListKey: aChar from: view
  "Respond to a Command key.  I am a model with a code pane, and I also
  have a listView that has a list of methods.  The view knows how to get
  the list and selection."
  | sel class |
  aChar == $D ifTrue: [^ self toggleDiffing].
  sel := self selectedMessageName.
  aChar == $m ifTrue:  "These next two put up a type in if no message selected"
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ].
  aChar == $n ifTrue:
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ].
  aChar == $d ifTrue: [^ self removeMessageFromBrowser].
  "The following require a class selection"
  (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view].
  aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel].
  aChar == $N ifTrue: [^ self browseClassRefs].
  aChar == $i ifTrue: [^ self methodHierarchy].
  aChar == $h ifTrue: [^ self classHierarchy].
  aChar == $p ifTrue: [^ self browseFullProtocol].
  aChar == $r ifTrue: [^ self browseVariableReferences].
  aChar == $a ifTrue: [^ self browseVariableAssignments].
  "The following require a method selection"
  sel ifNotNil:
  [aChar == $o ifTrue: [^ self fileOutMessage].
  aChar == $c ifTrue: [^ self copySelector].
  aChar == $v ifTrue: [^ self browseVersions].
  aChar == $x ifTrue: [^ self removeMessage].
+ aChar == $C ifTrue: [ self copyReference ].
+ (aChar == $Y and: [self canShowMultipleMessageCategories])
- (aChar == $C and: [self canShowMultipleMessageCategories])
  ifTrue: [^ self showHomeCategory]].
  ^ self arrowKey: aChar from: view!

Item was changed:
  ----- Method: PasteUpMorph>>defaultDesktopCommandKeyTriplets (in category '*Tools') -----
  defaultDesktopCommandKeyTriplets
  "Answer a list of triplets of the form
  <key> <receiver> <selector>   [+ optional fourth element, a <description> for use in desktop-command-key-help]
  that will provide the default desktop command key handlers.  If the selector takes an argument, that argument will be the command-key event"
 
  | noviceKeys expertKeys |
 
  noviceKeys := {
  { $o. ActiveWorld. #activateObjectsTool. 'Activate the "Objects Tool"'}.
  { $r. ActiveWorld. #restoreMorphicDisplay. 'Redraw the screen'}.
  { $z. self. #undoOrRedoCommand. 'Undo or redo the last undoable command'}.
  { $F. Project current. #toggleFlapsSuppressed. 'Toggle the display of flaps'}.
  { $N. self. #toggleClassicNavigatorIfAppropriate. 'Show/Hide the classic Navigator, if appropriate'}.
  { $M. self. #toggleShowWorldMainDockingBar. 'Show/Hide the Main Docking Bar'}.
+ { $]. Smalltalk. #saveSession. 'Save the image.'}.
  }.
 
  Preferences noviceMode
  ifTrue:[^ noviceKeys].
 
  expertKeys := {
  { $b. SystemBrowser. #defaultOpenBrowser. 'Open a new System Browser'}.
  { $k. StringHolder. #open. 'Open a new, blank Workspace'}.
  { $m. self. #putUpNewMorphMenu. 'Put up the "New Morph" menu'}.
+ { $O. self. #findAMonticelloBrowser. 'Bring a Monticello window into focus.'}.
  { $t. self. #findATranscript:. 'Make a System Transcript visible'}.
  { $w. SystemWindow. #closeTopWindow. 'Close the topmost window'}.
+ { Character escape. SystemWindow. #closeTopWindow. 'Close the topmost window'}.
+
  { $C. self. #findAChangeSorter:. 'Make a Change Sorter visible'}.
+
  { $L. self. #findAFileList:. 'Make a File List visible'}.
  { $P. self. #findAPreferencesPanel:. 'Activate the Preferences tool'}.
  { $R. Utilities. #browseRecentSubmissions. 'Make a Recent Submissions browser visible'}.
 
  { $W. self. #findAMessageNamesWindow:. 'Make a MessageNames tool visible'}.
  { $Z. ChangeList. #browseRecentLog. 'Browse recently-logged changes'}.
 
+ { $\. SystemWindow. #sendTopWindowToBack. 'Send the top window to the back'}.
  { $_. Smalltalk. #quitPrimitive. 'Quit the image immediately.'}.
  }.
 
  ^ noviceKeys, expertKeys
  !

Item was changed:
  ----- Method: StringHolder>>messageListKey:from: (in category '*Tools') -----
  messageListKey: aChar from: view
  "Respond to a Command key.  I am a model with a code pane, and I also
  have a listView that has a list of methods.  The view knows how to get
  the list and selection."
 
  | sel class |
  aChar == $D ifTrue: [^ self toggleDiffing].
 
  sel := self selectedMessageName.
  aChar == $m ifTrue:  "These next two put up a type in if no message selected"
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self systemNavigation].
  aChar == $n ifTrue:
  [^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation].
 
  "The following require a class selection"
  (class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view].
  aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel].
  aChar == $N ifTrue: [^ self browseClassRefs].
  aChar == $i ifTrue: [^ self methodHierarchy].
  aChar == $h ifTrue: [^ self classHierarchy].
  aChar == $p ifTrue: [^ self browseFullProtocol].
 
  "The following require a method selection"
  sel ifNotNil:
  [aChar == $o ifTrue: [^ self fileOutMessage].
  aChar == $c ifTrue: [^ self copySelector].
+ aChar == $C ifTrue: [^ self copyReference].
  aChar == $v ifTrue: [^ self browseVersions].
  aChar == $x ifTrue: [^ self removeMessage]].
 
  ^ self arrowKey: aChar from: view!

Item was changed:
+ (PackageInfo named: 'Tools') postscript: '"Updated for new global hot-key support."
+ ActiveWorld initializeDesktopCommandKeySelectors'!
- (PackageInfo named: 'Tools') postscript: 'ActiveWorld initializeDesktopCommandKeySelectors'!