Mercurial > hg > octave-nkf
diff scripts/plot/uiputfile.m @ 11583:c4c2cd67c440
Fixes for ui file functions, bug#32190
author | Kai Habel <kai.habel@gmx.de> |
---|---|
date | Thu, 20 Jan 2011 20:31:30 +0100 |
parents | 8ac9687dbe9f |
children | c792872f8942 |
line wrap: on
line diff
--- a/scripts/plot/uiputfile.m +++ b/scripts/plot/uiputfile.m @@ -55,7 +55,6 @@ function [retfile, retpath, retindex] = uiputfile (varargin) - if (nargin <= 3) defaultvals = {"All Files(*)", #FLTK File Filter @@ -76,7 +75,7 @@ outargs{3} = file_filter; endif endif - + if (nargin > 1) outargs{2} = varargin{2}; endif @@ -90,12 +89,12 @@ endif if (any (cellfun(@(x)strcmp (x, "fltk"), available_graphics_toolkits ()))) - [retfile, retpath, retindex] = __fltk_uigetfile__ (outargs{:}); + [retfile, retpath, retindex] = __fltk_uigetfile__ (outargs{:}); else error ("uiputfile: fltk graphics toolkit required"); endif endfunction -%!demo +%!demo %! uiputfile({"*.gif;*.png;*.jpg", "Supported Picture Formats"})