1 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 java.awt.event.MouseMotionAdapter 28 { 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[] = { 35 mouseevent.getModifiers(), 36 mouseevent.isPopupTrigger() ? 1 : 0, 37 mouseevent.getClickCount(), 38 mouseevent.getX(), 39 mouseevent.getY() 40 }; 41 JHandler.callLisp(s, mouseevent.getComponent(), mouseevent.paramString(), ai); 42 } 43 44 public void mouseDragged(MouseEvent mouseevent) { 45 call("MOUSEDRAGGED", mouseevent); 46 } 47 48 public void mouseMoved(MouseEvent mouseevent) { 49 call("MOUSEMOVED", mouseevent); 50 } 51 52 public void mouseWheel(MouseEvent mouseevent) { 53 call("MOUSEWHEEL", mouseevent); 54 } 55 } 56 | Popular Tags |