octave-lyh: scripts/ui/private/message

annotate scripts/ui/private/message_dialog.m @ 17512:db92cd6117a9

ndgrid.m: Add explanation of differences with meshgrid to docstring. * scripts/plot/meshgrid.m: Add more explanation of differences with ndgrid to docstring. * scripts/plot/ndgrid.m: Add explanation of differences with meshgrid to docstring.

author	Rik <rik@octave.org>
date	Wed, 25 Sep 2013 16:45:46 -0700
parents	1c89599167a6
children

rev	line source
16508 f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	1 ## Copyright (C) 2010 Martin Hepperle
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	2 ##
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	3 ## This file is part of Octave.
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	4 ##
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	8 ## your option) any later version.
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	9 ##
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	13 ## General Public License for more details.
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	14 ##
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	18
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	19 ## -- texinfo --
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	20 ## @deftypefn {Function File} {@var{h} =} message_dialog (@var{caller}, @var{msg}, @var{title}, @var{icon})
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	21 ## Undocumented internal function.
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	22 ## @end deftypefn
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	23
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	24 function retval = message_dialog (caller, msg, title = "", icon)
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	25
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	26 if (! ischar (msg))
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	27 if (iscell (msg))
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	28 msg = sprintf ("%s\n", msg{:});
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	29 msg(end) = "";
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	30 else
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	31 error ("%s: MSG must be a character string or cellstr array", caller);
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	32 endif
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	33 endif
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	34
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	35 if (! ischar (title))
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	36 error ("%s: TITLE must be a character string", caller);
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	37 endif
16551 6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	38
16508 f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	39 dlg = "emptydlg";
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	40 if (nargin == 4)
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	41 switch (icon)
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	42 case "error"
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	43 dlg = "errordlg";
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	44 case "help"
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	45 dlg = "helpdlg";
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	46 case "warn"
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	47 dlg = "warndlg";
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	48 case "none"
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	49 dlg = "emptydlg";
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	50 otherwise
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	51 error ("%s: ICON is not a valid type", caller);
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	52 endswitch
16551 6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	53 else
6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	54 icon = "none";
16512 7f2395651a1c dialog boxes with Qt widgets Daniel J Sebald <daniel.sebald@ieee.org>, John W. Eaton <jwe@octave.org> parents: 16508 diff changeset	55 endif
7f2395651a1c dialog boxes with Qt widgets Daniel J Sebald <daniel.sebald@ieee.org>, John W. Eaton <jwe@octave.org> parents: 16508 diff changeset	56
16551 6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	57 if (__octave_link_enabled__ ())
6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	58 retval = __octave_link_message_dialog__ (icon, msg, title);
6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	59 elseif (__have_feature__ ("JAVA"))
16508 f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	60 retval = javaMethod (dlg, "org.octave.JDialogBox", msg, title);
16551 6ae555fc8c43 Add questdlg dialog function and fix variety of dialog bugs. Daniel J Sebald <daniel.sebald@ieee.org> parents: 16512 diff changeset	61 else
16508 f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	62 error ("%s is not available in this version of Octave", dlg);
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	63 endif
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	64
f19e24c97b20 move common warndlg, errordlg, helpdlg, and msgbox code to private function John W. Eaton <jwe@octave.org> parents: diff changeset	65 endfunction
17346 1c89599167a6 maint: End m-files with 1 blank line. Rik <rik@octave.org> parents: 16551 diff changeset	66

Mercurial > hg > octave-lyh

annotate scripts/ui/private/message_dialog.m @ 17512:db92cd6117a9