Mercurial > hg > octave-nkf

comparison scripts/plot/util/private/__gnuplot_ginput__.m @ 19031:dd34502e5c3c stable

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use button value 1 for mouse button keypress 1063 (Bug #42489) * scripts/plot/util/private/__gnuplot_ginput__.m: if MOUSE_KEY=1063, use value '1'
author John Donoghue
date Tue, 17 Jun 2014 12:04:18 -0400
parents d63878346099
children 6ca096827123
comparison
equal deleted inserted replaced
19026:7bf70dc7f06c 19031:dd34502e5c3c
99 fclose (gpin); 99 fclose (gpin);
100 else 100 else
101 fputs (ostream, "set print \"-\";\n"); 101 fputs (ostream, "set print \"-\";\n");
102 fflush (ostream); 102 fflush (ostream);
103 fputs (ostream, "pause mouse any;\n\n"); 103 fputs (ostream, "pause mouse any;\n\n");
104 fputs (ostream, "\nif (exists(\"MOUSE_KEY\") && exists(\"MOUSE_X\")) print \"OCTAVE: \", MOUSE_X, MOUSE_Y, MOUSE_KEY; else print \"0 0 -1\"\n"); 104 fputs (ostream, "\nif (exists(\"MOUSE_KEY\") && exists(\"MOUSE_X\")) key = (MOUSE_KEY==1063 ? 1 : MOUSE_KEY); print \"OCTAVE: \", MOUSE_X, MOUSE_Y, key; else print \"0 0 -1\"\n");
105 105
106 ## Close output file, to force it to be flushed 106 ## Close output file, to force it to be flushed
107 fputs (ostream, "set print;\n"); 107 fputs (ostream, "set print;\n");
108 fflush (ostream); 108 fflush (ostream);
109 109