Mercurial > hg > octave-nkf

diff scripts/plot/util/ginput.m @ 19705:bf27e21f0bfb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Merge default to temporary audio-gsoc branch.
author John W. Eaton <jwe@octave.org>
date Wed, 31 Dec 2014 14:59:42 -0500
parents 60e54be64f37
children 4197fc428c7d
line wrap: on
line diff
copy from scripts/plot/ginput.m
copy to scripts/plot/util/ginput.m
--- a/scripts/plot/ginput.m
+++ b/scripts/plot/util/ginput.m
@@ -1,4 +1,4 @@
-## Copyright (C) 2008-2012 David Bateman
+## Copyright (C) 2008-2013 David Bateman
 ##
 ## This file is part of Octave.
 ##
@@ -39,16 +39,15 @@
     print_usage ();
   endif
 
-  f = gcf ();
   a = gca ();  # Create an axis, if necessary
   drawnow ();
-  toolkit = get (f, "__graphics_toolkit__");
+  toolkit = get (gcf, "__graphics_toolkit__");
 
   varargout = cell (1, nargout);
   if (nargin == 0)
-    [varargout{:}] = feval (["__" toolkit "_ginput__"], f);
+    [varargout{:}] = feval (["__" toolkit "_ginput__"]);
   else
-    [varargout{:}] = feval (["__" toolkit "_ginput__"], f, n);
+    [varargout{:}] = feval (["__" toolkit "_ginput__"], n);
   endif
 
 endfunction