From xemacs-m  Mon Mar 24 09:50:00 1997
Received: from neal.ctd.comsat.com (exim@neal.ctd.comsat.com [134.133.40.21])
	by xemacs.org (8.8.5/8.8.5) with SMTP id JAA13142
	for <xemacs-beta@xemacs.org>; Mon, 24 Mar 1997 09:49:59 -0600 (CST)
Received: from neal by neal.ctd.comsat.com with local (Exim 1.61 #1)
	id 0w9C0U-00025I-00; Mon, 24 Mar 1997 10:49:58 -0500
To: xemacs-beta@xemacs.org
Subject: [gnu.emacs.sources] strokes for XEmacs
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: multipart/mixed;
 boundary="Multipart_Mon_Mar_24_10:49:58_1997-1"
Content-Transfer-Encoding: 7bit
From: Neal Becker <neal@ctd.comsat.com>
Date: 24 Mar 1997 10:49:58 -0500
Message-ID: <u9zpvtguhl.fsf@neal.ctd.comsat.com>
Lines: 80
X-Mailer: Gnus v5.4.33/XEmacs 20.1(beta9)

--Multipart_Mon_Mar_24_10:49:58_1997-1
Content-Type: text/plain; charset=US-ASCII

This looks interesting:


--Multipart_Mon_Mar_24_10:49:58_1997-1
Content-Type: message/rfc822

From: David Bakhash <cadet@mit.edu>
Newsgroups: gnu.emacs.sources
Subject: strokes for XEmacs
Date: 19 Mar 1997 09:23:13 -0500
Organization: Massachvsetts Institvte of Technology
Message-ID: <c294te8m04u.fsf@mit.edu>

someone requested that I NOT uuencode the stuff.  That's fair.  Here it
is...

dave

;;   -*- Syntax: Emacs-Lisp; Mode: emacs-lisp -*-
;;; strokes.el -- package for XEmacs to be controled through mouse strokes

;; Copyright 1997 by David Bakhash <dave@teracorp.com>

;; This package is written for for Xemacs v19-14. IT IS STILL BETA
;;
;; Author: David Bakhash <dave@teracorp.com>
;; Maintainer: David Bakhash <dave@teracorp.com>
;; Created: 12 March 1997
;; Version: 1.0-beta

;;; This program is free software; you can redistribute it and/or modify
;;; it under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 2 of the License, or
;;; (at your option) any later version.

;;; This program is distributed in the hope that it will be useful,
;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.

;;; You should have received a copy of the GNU General Public License
;;; along with this program; see the file COPYING.  If not, write to
;;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;;; Boston, MA 02111-1307, USA.

;;; Commentary
;;; This is the strokes package.  It is intended to allow the user to
;;; control XEmacs by means of mouse strokes.  A mouse stroke, for now, can
;;; be defined as holding the middle button, for instance, and then moving
;;; the mouse in whatever pattern you wish, which you have set XEmacs to
;;; understand as mapping to a given command.  For example, you may wish
;;; the have a mouse stroke that looks like a capital `C' which means
;;; `copy-region-as-kill'.  Treat strokes just like you do key bindings.
;;; For example, XEmacs sets key bindings globally with the
;;; `global-set-key' command.  Likewise, you can do

;;; M-x global-set-stroke

;;; to interactively program in a stroke.  It would be wise to set the
;;; first one to this very command, so that from then on, you invoke
;;; `global-set-stroke' with a stroke.  likewise, there is a
;;; `local-set-stroke' command, also analogous to `local-set-key'.

;;; Other analogies between strokes and key bindings are as follows:

;;;    1) to describe a stroke binding, you can type `C-h S' (`S' for
;;;       `stroke') which is bound to `describe-stroke', much like `C-h c' to
;;;       describe key bindings.  It's also wise to have a stroke,
;;;       like an `h', for help, or a `?', mapped to `describe-stroke'.

;;;    2) stroke bindings are set internally through the lisp function
;;;       `define-stroke', similar to the `define-key' function.  some
;;;       examples for a 3x3 stroke grid would be 

[...]

--Multipart_Mon_Mar_24_10:49:58_1997-1--

