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 MouseAdapter extends java.awt.event.MouseAdapter 28 { 29 public static synchronized void addTo(Component component) { 30 component.addMouseListener(new MouseAdapter()); 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 mouseClicked(MouseEvent mouseevent) { 45 call("MOUSECLICKED", mouseevent); 46 } 47 48 public void mousePressed(MouseEvent mouseevent) { 49 call("MOUSEPRESSED", mouseevent); 50 } 51 52 public void mouseReleased(MouseEvent mouseevent) { 53 call("MOUSERELEASED", mouseevent); 54 } 55 56 public void mouseEntered(MouseEvent mouseevent) { 57 call("MOUSEENTERED", mouseevent); 58 } 59 60 public void mouseExited(MouseEvent mouseevent) { 61 call("MOUSEEXITED", mouseevent); 62 } 63 } 64 | Popular Tags |