Example: Add data (#192)

* *: Add mouseButton

Signed-off-by: Ce Gao <ce.gao@outlook.com>

* coala: Fix coding style issues

Signed-off-by: Ce Gao <ce.gao@outlook.com>

Author: gaocegege

examples/reference/mouseButton/mouseButton0/mouseButton0.rpde

@@ -0,0 +1,15 @@
+# Click within the image and press the left and right mouse buttons to change the
+# value of the rectangle
+draw <- function() {
+    rect(25, 25, 50, 50)
+}
+
+mousePressed <- function() {
+    if (mouseButton == LEFT) {
+        fill(0)
+    } else if (mouseButton == RIGHT) {
+        fill(255)
+    } else {
+        fill(126)
+    }
+}

src/rprocessing/RLangPApplet.java

@@ -26,6 +26,7 @@
 import processing.core.PApplet;
 import processing.core.PConstants;
 import processing.core.PSurface;
+import processing.event.MouseEvent;
 import processing.javafx.PSurfaceFX;
 import processing.opengl.PSurfaceJOGL;
 import rprocessing.applet.BuiltinApplet;
@@ -381,6 +382,12 @@ protected void wrapProcessingVariables() {
     // this.renjinEngine.put("keyPressed", keyPressed);
   }
 
+  @Override
+  protected void handleMouseEvent(MouseEvent event) {
+    super.handleMouseEvent(event);
+    wrapMouseVariables();
+  }
+
   @Override
   public void mouseClicked() {
     wrapMouseVariables();
@@ -436,7 +443,7 @@ private void wrapMouseVariables() {
     this.renjinEngine.put("mouseY", mouseY);
     this.renjinEngine.put("pmouseX", pmouseX);
     this.renjinEngine.put("pmouseY", pmouseY);
-    // this.renjinEngine.put("mouseButton", mouseButton);
+    this.renjinEngine.put("mouseButton", mouseButton);
   }
 
   private void applyFunction(String name) {