X-Git-Url: http://git.maemo.org/git/?p=gnuplot;a=blobdiff_plain;f=demo%2Fmouselab_2.dem;fp=demo%2Fmouselab_2.dem;h=cb09f1cd664649b0a7f49fab7a650b28e318206d;hp=0000000000000000000000000000000000000000;hb=39ec1247a71f61152a4a7f502a30f06a3896c5da;hpb=06be459be4f5f6a7c6ff878e84f355fb2575caa8

diff --git a/demo/mouselab_2.dem b/demo/mouselab_2.dem
new file mode 100644
index 0000000..cb09f1c
--- /dev/null
+++ b/demo/mouselab_2.dem
@@ -0,0 +1,41 @@
+#
+# $Id: mouselab_2.dem,v 1.1 2006/07/10 19:49:54 sfeam Exp $
+#
+# Wait for keystroke in plot window
+#
+pause mouse key
+#
+# Add new printable character to label
+#
+if (31 < MOUSE_KEY && MOUSE_KEY < 127) \
+    LABEL = LABEL.MOUSE_CHAR
+#
+# Add newline to label if input character was <cr>
+#
+if (MOUSE_KEY == 13) \
+    LABEL = LABEL."\n"
+#
+# Delete previous character from label on <backspace> or <delete>
+#
+if (MOUSE_KEY == 8 || MOUSE_KEY == 127) \
+    LABEL = LABEL[1:strlen(LABEL)-1]
+#
+# Allow arrow keys to tweak label position
+# The GP_Up GP_Right GP_Down GP_Left (1008-1011) are defined in mousecmn.h
+#
+if (MOUSE_KEY == 1009) LABEL_Y = LABEL_Y + (GPVAL_Y_MAX-GPVAL_Y_MIN)/100.
+if (MOUSE_KEY == 1010) LABEL_X = LABEL_X + (GPVAL_X_MAX-GPVAL_X_MIN)/100.
+if (MOUSE_KEY == 1011) LABEL_Y = LABEL_Y - (GPVAL_Y_MAX-GPVAL_Y_MIN)/100.
+if (MOUSE_KEY == 1008) LABEL_X = LABEL_X - (GPVAL_X_MAX-GPVAL_X_MIN)/100.
+#
+# Update label
+#
+set label LID LABEL at LABEL_X, LABEL_Y
+replot
+#
+# DEBUG feedback 
+#       print "<",MOUSE_KEY,">"
+#
+# Return to caller on <esc> or <tab>, otherwise loop
+#
+if (MOUSE_KEY != 27 && MOUSE_CHAR ne "	") reread