Mercurial > octave-nkf
diff scripts/gui/warndlg.m @ 17745:93b3d03b05e7 classdef
maint: periodic merge of default to classdef
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Wed, 23 Oct 2013 22:29:06 -0400 |
parents | scripts/ui/warndlg.m@bc924baa2c4e scripts/ui/warndlg.m@d63878346099 |
children | 0e1f5a750d00 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scripts/gui/warndlg.m Wed Oct 23 22:29:06 2013 -0400 @@ -0,0 +1,50 @@ +## Copyright (C) 2010, 2013 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{h} =} warndlg (@var{msg}) +## @deftypefnx {Function File} {@var{h} =} warndlg (@var{msg}, @var{title}) +## Display @var{msg} using a warning dialog box. +## +## The message may have multiple lines separated by newline characters +## ("\n"), or it may be a cellstr array with one element for each +## line. The optional input @var{title} (character string) can be used to +## set the dialog caption. The default title is @qcode{"Warning Dialog"}. +## +## @seealso{helpdlg, inputdlg, listdlg, questdlg} +## @end deftypefn + +function retval = warndlg (msg, title = "Warning Dialog") + + if (nargin < 1 || nargin > 2) + print_usage (); + endif + + retval = message_dialog ("warndlg", msg, title, "warn"); + +endfunction + + +%!demo +%! disp ('- test warndlg with prompt only.'); +%! warndlg ('Oh, a warning occured'); + +%!demo +%! disp ('- test warndlg with prompt and caption.'); +%! warndlg ('Oh, No...','This is the last Warning'); +