01: /*
02: * MouseMotionAdapter.java
03: *
04: * Copyright (C) 2003 Peter Graves
05: *
06: * This program is free software; you can redistribute it and/or
07: * modify it under the terms of the GNU General Public License
08: * as published by the Free Software Foundation; either version 2
09: * of the License, or (at your option) any later version.
10: *
11: * This program is distributed in the hope that it will be useful,
12: * but WITHOUT ANY WARRANTY; without even the implied warranty of
13: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14: * GNU General Public License for more details.
15: *
16: * You should have received a copy of the GNU General Public License
17: * along with this program; if not, write to the Free Software
18: * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
19: */
20:
21: package org.armedbear.lisp.java.awt;
22:
23: import org.armedbear.lisp.JHandler;
24: import java.awt.Component;
25: import java.awt.event.MouseEvent;
26:
27: public class MouseMotionAdapter extends
28: java.awt.event.MouseMotionAdapter {
29: public static synchronized void addTo(Component component) {
30: component.addMouseMotionListener(new MouseMotionAdapter());
31: }
32:
33: private void call(String s, MouseEvent mouseevent) {
34: int ai[] = { mouseevent.getModifiers(),
35: mouseevent.isPopupTrigger() ? 1 : 0,
36: mouseevent.getClickCount(), mouseevent.getX(),
37: mouseevent.getY() };
38: JHandler.callLisp(s, mouseevent.getComponent(), mouseevent
39: .paramString(), ai);
40: }
41:
42: public void mouseDragged(MouseEvent mouseevent) {
43: call("MOUSEDRAGGED", mouseevent);
44: }
45:
46: public void mouseMoved(MouseEvent mouseevent) {
47: call("MOUSEMOVED", mouseevent);
48: }
49:
50: public void mouseWheel(MouseEvent mouseevent) {
51: call("MOUSEWHEEL", mouseevent);
52: }
53: }
|