[squeak-dev] The Trunk: Morphic-topa.1012.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Oct 19 18:05:44 UTC 2015
Tobias Pape uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-topa.1012.mcz
==================== Summary ====================
Name: Morphic-topa.1012
Author: topa
Time: 19 October 2015, 8:04:58.41 pm
UUID: a7d3cb1c-06ac-4e63-9b29-71258d7b53f3
Ancestors: Morphic-cmm.1011
Exchange #duplicate for #debugIt on CMD-D
=============== Diff against Morphic-cmm.1011 ===============
Item was changed:
----- Method: SmalltalkEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') -----
initializeShiftCmdKeyShortcuts
"Initialize the shift-command-key (or control-key) shortcut table."
"NOTE: if you don't know what your keyboard generates, use Sensor kbdTest"
"wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the
capitalized versions of the letters.
TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values."
"SmalltalkEditor initialize"
| cmds |
super initializeShiftCmdKeyShortcuts.
cmds := #(
$a argAdvance:
$b browseItHere:
+ $d debugIt:
$e methodStringsContainingIt:
$f displayIfFalse:
$g fileItIn:
$i exploreIt:
$n referencesToIt:
$s invokePrettyPrint:
$t displayIfTrue:
$v pasteInitials:
$w methodNamesContainingIt:
).
1 to: cmds size by: 2 do: [ :i |
shiftCmdActions at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys"
shiftCmdActions at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys"
shiftCmdActions at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys"
].!
Item was changed:
----- Method: TextEditor class>>initializeShiftCmdKeyShortcuts (in category 'keyboard shortcut tables') -----
initializeShiftCmdKeyShortcuts
"Initialize the shift-command-key (or control-key) shortcut table."
"NOTE: if you don't know what your keyboard generates, use Sensor kbdTest"
"wod 11/3/1998: Fix setting of cmdMap for shifted keys to actually use the
capitalized versions of the letters.
TPR 2/18/99: add the plain ascii values back in for those VMs that don't return the shifted values."
"TextEditor initialize"
| cmdMap cmds |
"shift-command and control shortcuts"
cmdMap := Array new: 256 withAll: #noop:. "use temp in case of a crash"
cmdMap at: ( 1 + 1) put: #cursorHome:. "home key"
cmdMap at: ( 4 + 1) put: #cursorEnd:. "end key"
cmdMap at: ( 8 + 1) put: #forwardDelete:. "ctrl-H or delete key"
cmdMap at: (11 + 1) put: #cursorPageUp:. "page up key"
cmdMap at: (12 + 1) put: #cursorPageDown:. "page down key"
cmdMap at: (13 + 1) put: #crWithIndent:. "ctrl-Return"
cmdMap at: (27 + 1) put: #offerMenuFromEsc:. "escape key"
cmdMap at: (28 + 1) put: #cursorLeft:. "left arrow key"
cmdMap at: (29 + 1) put: #cursorRight:. "right arrow key"
cmdMap at: (30 + 1) put: #cursorUp:. "up arrow key"
cmdMap at: (31 + 1) put: #cursorDown:. "down arrow key"
cmdMap at: (32 + 1) put: #selectWord:. "space bar key"
cmdMap at: (45 + 1) put: #changeEmphasis:. "cmd-sh-minus"
cmdMap at: (61 + 1) put: #changeEmphasis:. "cmd-sh-plus"
cmdMap at: (127 + 1) put: #forwardDelete:. "del key"
"On some keyboards, these characters require a shift"
'([<{|"''9' do: [:char | cmdMap at: char asciiValue + 1 put: #enclose:].
"NB: sw 12/9/2001 commented out the idiosyncratic line just below, which was grabbing shift-esc in the text editor and hence which argued with the wish to have shift-esc be a universal gesture for escaping the local context and calling up the desktop menu."
"cmdMap at: (27 + 1) put: #shiftEnclose:." "ctrl-["
"'""''(' do: [ :char | cmdMap at: (char asciiValue + 1) put: #enclose:]."
cmds := #(
$c compareToClipboard:
+ "$d duplicate:"
- $d duplicate:
$h cursorTopHome:
$j doAgainMany:
$k changeStyle:
$l outdent:
$m selectCurrentTypeIn:
$r indent:
$s search:
$u changeLfToCr:
$x makeLowercase:
$y makeUppercase:
$z makeCapitalized:
).
1 to: cmds size by: 2 do: [ :i |
cmdMap at: ((cmds at: i) asciiValue + 1) put: (cmds at: i + 1). "plain keys"
cmdMap at: ((cmds at: i) asciiValue - 32 + 1) put: (cmds at: i + 1). "shifted keys"
cmdMap at: ((cmds at: i) asciiValue - 96 + 1) put: (cmds at: i + 1). "ctrl keys"
].
shiftCmdActions := cmdMap!
Item was added:
+ ----- Method: TextEditor>>debugIt: (in category 'editing keys') -----
+ debugIt: aKeyboardEvent
+
+ self debugIt.
+ ^ true!
More information about the Squeak-dev
mailing list
|