In Pharo3, there seems to be new shortcuts going on.
These do interfere with TWM ones (or the other way around).
What to do to get this to work again?
TWMKeyMapping>>buildKeyMappingOn: aBuilder
<keymap>
"See shortucts accessor to add/change a shortcut "
self shortcutsActionAndKeysDo: [:action :keys|
(aBuilder shortcut: action)
category: self shortcutCategory
default: keys
do: [ self windowManager perform: action ].
].
aBuilder
attachShortcutCategory: self shortcutCategory
to: PasteUpMorph..
TWMKeyMapping class>>shortcuts
^ {
#minimizeAllWindows -> 'Minimize all windows' -> [$r command, $m command].
#maximizeAllWindows -> 'Maximize all windows' -> [$r command, $m shift
command].
#tileVisibleWindows -> 'Tile visible windows' -> [$r command, $t command].
#tileLastUsedWindows -> 'Tile last used windows' -> [$r command, $l
command].
#tileBrowsers -> 'Tile browsers' -> [$r command, $b command].
#tileWorkspaces -> 'Tile workspaces' -> [$r command, $z command].
#tileTesters -> 'Tile testers' -> [$r command, $u command].
#tileMonticellos -> 'Tile monticellos' -> [$r command, $c command].
#tileInspectors -> 'Tile inspectors' -> [$r command, $i command].
#tileDebuggers -> 'Tile debuggers' -> [$r command, $d command].
#tileChanges -> 'Tile changes' -> [$r command, $c shift command].
#tileTools -> 'Tile tools' -> [$r command, $t shift command].
#tileSystem -> 'Tile system windows' -> [$r command, $y command].
#snapshotWorld -> 'Snapshot current world state' -> [$r command, $s
command].
#worldBackward -> 'Move to previous world state' -> [$r command, $p
command].
#worldForward -> 'Move to next world state' -> [$r command, $n command].
#deleteCurrentSnapshot -> 'Delete current world state' -> [$r command, $d
shift command].
#topWindowMoveLeft -> 'Move window to left area' -> [$r command, $1].
#topWindowMoveRight -> 'Move window to right area' -> [$r command, $2].
#topWindowMoveTop -> 'Move window to top area' -> [$r command, $3].
#topWindowMoveBottom -> 'Move window to bottom area' -> [$r command, $4].
#topWindowMoveTopLeft -> 'Move window to top left area' -> [$r command,
$5].
#topWindowMoveTopRight -> 'Move window to top right area' -> [$r command,
$6].
#topWindowMoveBottomLeft -> 'Move window to bottom left area' -> [$r
command, $7].
#topWindowMoveBottomRight -> 'Move window to bottom right area' -> [$r
command, $8].
#cycleClockwise -> 'Last visible window on stack come to top' -> [$r
command, $>].
#cycleCounterClockwise -> 'First visible window on stack go to bottom' ->
[$r command, $<].
#switchToNextWorld -> 'Switch to next world' -> [$r command, $r command]
}
Phil
