Mercurial > octave-dspies

diff scripts/gui/uiputfile.m @ 18971:f084aab05cd9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move checks for graphics_toolkit GUI functions to own script. * __get_funcname__.m: New function to buid the function name from basename and graphics_toolkit. * uigetdir.m, uigetfile.m, uiputfile.m: Adapt to use __get_funcname__ with basename = mfilename ()
author Andreas Weber <andy.weber.aw@gmail.com>
date Thu, 31 Jul 2014 00:03:56 +0200
parents bb2a03f9ed20
children
line wrap: on
line diff
--- a/scripts/gui/uiputfile.m	Wed Jul 30 23:34:14 2014 +0200
+++ b/scripts/gui/uiputfile.m	Thu Jul 31 00:03:56 2014 +0200
@@ -56,14 +56,7 @@
 
 function [retfile, retpath, retindex] = uiputfile (varargin)
 
-  if (! __octave_link_enabled__ ())
-    tk = graphics_toolkit ();
-    funcname = ["uiputfile", tk, "__"];
-    if (numel (tk) > 0 && ! __is_function__ (funcname))
-      warning ("uiputfile: no implementation for toolkit '%s', using 'fltk' instead", tk);
-    endif
-    funcname = "__uiputfile_fltk__";
-  endif
+  funcname = __get_funcname__ (mfilename ());
 
   if (nargin > 3)
     print_usage ();