Newsgroups: comp.lang.smalltalk
Path: cantaloupe.srv.cs.cmu.edu!das-news2.harvard.edu!oitnews.harvard.edu!purdue!lerc.nasa.gov!magnus.acs.ohio-state.edu!math.ohio-state.edu!howland.reston.ans.net!ix.netcom.com!netcom.com!pencin
From: pencin@netcom.com (Russell Pencin)
Subject: [VW]Keyboard short-cuts
Message-ID: <44k7p6$1scu_001@netcom.com>
Sender: pencin@netcom14.netcom.com
Organization: NETCOM On-line Communication Services (408 261-4700 guest)
X-Newsreader: News Xpress Version 1.0 Beta #4
Date: Sat, 30 Sep 1995 20:02:46 GMT
Lines: 36

I lost the original posting requesting SHORT-CUT Keys.  Here is code that will 
give you "ALT+somekey" to do your editing.  The reason I chose 'ALT' is that 
control-c would cause an interrupt.  There is a fix for this as well, but I 
can't locate it right now.  You must execute the comment to re-initialize the 
Table.  Then any window after that will have the short-cuts.

Russell Pencin
The Smalltalk Brewery,Inc


<ParagraphEditor class>>initializeDispatchTable
	"Initialize the keyboard dispatch table."
	"ParagraphEditor initializeDispatchTable."

	Keyboard := DispatchTable new.
<BEGINNING OF ADDITION>
	DispatchTable
		bindValue: #undoKey:
		to: $z
		modifiers: #(#alt).
	DispatchTable
		bindValue: #cutKey:
		to: $x
		modifiers: #(#alt).
	DispatchTable
		bindValue: #copyKey:
		to: $c
		modifiers: #(#alt).
	DispatchTable
		bindValue: #pasteKey:
		to: $v
		modifiers: #(#alt).
<END OF ADDITION>
	Keyboard defaultForCharacters: #normalCharacterKey:.
	Keyboard defaultForNonCharacters: #ignoreInputKey:.
[REST OF METHOD]...
