Mercurial > octave-dspies
view scripts/java/errordlg.m @ 15750:05c781cca57e
use numel instead of length in newly imported java functions
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 07 Dec 2012 18:03:01 -0500 |
parents | 54e8c2527a9e |
children | 0f1a143e5002 |
line wrap: on
line source
## Copyright (C) 2010 Martin Hepperle ## ## This file is part of Octave. ## ## Octave is free software; you can redistribute it and/or modify it ## under the terms of the GNU General Public License as published by ## the Free Software Foundation; either version 3 of the License, or (at ## your option) any later version. ## ## Octave is distributed in the hope that it will be useful, but ## WITHOUT ANY WARRANTY; without even the implied warranty of ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ## General Public License for more details. ## ## You should have received a copy of the GNU General Public License ## along with Octave; see the file COPYING. If not, see ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function file} {@var{p} =} errordlg (@var{msg}, @var{title}) ## Display @var{msg} using an error dialog box. ## ## The message may have multiple lines separated by newline characters ## (@code{"\n"}), or it may be a cellstr array with one element for each ## line. The optional @var{title} (character string) can be used to ## decorate the dialog caption. ## ## The return value is always 1. ## @seealso{helpdlg, inputdlg, listdlg, questdlg, warndlg} ## @end deftypefn function retval = errordlg (message, varargin) if (! ischar (message)) if (iscell (message)) message = cell2mlstr (message); else error ("errordlg: character string or cellstr array expected for message"); endif endif switch (numel (varargin)) case 0 title = "Error Dialog"; otherwise title = varargin{1}; endswitch if (! ischar (title)) error ("errordlg: character string expected for title"); endif retval = java_invoke ("org.octave.JDialogBox", "errordlg", message, title); endfunction