The Inbox: Tools-ct.943.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Inbox: Tools-ct.943.mcz

commits-2
Christoph Thiede uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/Tools-ct.943.mcz

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

Name: Tools-ct.943
Author: ct
Time: 17 February 2020, 9:09:11.873012 pm
UUID: 772c4136-520d-af40-9fce-04903066e908
Ancestors: Tools-mt.939

Adds shortcut <cmd>v for pasting morph from PasteBuffer.

=============== Diff against Tools-mt.939 ===============

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"
  "World initializeDesktopCommandKeySelectors"
 
  | noviceKeys expertKeys |
 
  noviceKeys := {
  { $o. ActiveWorld. #activateObjectsTool. 'Activate the "Objects Tool"'}.
  { $r. ActiveWorld. #restoreMorphicDisplay. 'Redraw the screen'}.
+ { $v. ActiveWorld. #pasteMorph. 'Paste morph'}.
  { $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. self. #closeTopWindow. 'Close the topmost window'}.
+ { Character escape. self. #closeTopWindow. 'Close the topmost window'}.
- { $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.'}.
 
  { $-. Preferences. #decreaseFontSize. 'Decrease all font sizes'}.
  { $+. Preferences. #increaseFontSize. 'Increase all font sizes'}.
  }.
 
  ^ noviceKeys, expertKeys
  !

Item was added:
+ (PackageInfo named: 'Tools') postscript: 'World initializeDesktopCommandKeySelectors.'!