Mercurial > octave-libtiff
view scripts/gui/questdlg.m @ 30195:a7981aa5822b
event-manager: Add function to signal valid implementation of GUI dialogs (bug #60980).
The event-manager is also enabled when starting with --no-gui-libs. But not all
implementations of the event-manager have dialogs (only Qt at the moment which
isn't used when starting with --no-gui-libs). Add functions that return if the
event-manager has implemented dialogs.
* libinterp/corefcn/event-manager.h (interpreter_events::have_dialogs,
event_manager::have_dialogs): Add new function "have_dialogs".
(event_manager::file_dialog, event_manager::input_dialog,
event_manager::list_dialog, event_manager::question_dialog): Guard with
"have_dialogs".
* libinterp/corefcn/event-manager.cc (F__event_manager_have_dialogs__): Add new
function.
* libgui/src/qt-interpreter-events.h (qt_interpreter_events::have_dialogs): Add
new function.
* scripts/gui/inputdlg.m, scripts/gui/listdlg.m, scripts/gui/msgbox.m,
scripts/gui/questdlg.m, scripts/gui/uigetdir.m, scripts/gui/uigetfile.m,
scripts/gui/uiputfile.m: Check "____event_manager_have_dialogs__" instead of
"__event_manager_enabled__".
* scripts/gui/private/__get_funcname__.m: Try to use dialog functions specific
to the current graphics toolkit if the event-manager doesn't have implemented
dialogs.
author | Markus Mützel <markus.muetzel@gmx.de> |
---|---|
date | Sun, 19 Sep 2021 15:36:19 +0200 |
parents | 7854d5752dd2 |
children | 796f54d4ddbf |
line wrap: on
line source
######################################################################## ## ## Copyright (C) 2010-2021 The Octave Project Developers ## ## See the file COPYRIGHT.md in the top-level directory of this ## distribution or <https://octave.org/copyright/>. ## ## 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 ## <https://www.gnu.org/licenses/>. ## ######################################################################## ## -*- texinfo -*- ## @deftypefn {} {@var{btn} =} questdlg (@var{msg}) ## @deftypefnx {} {@var{btn} =} questdlg (@var{msg}, @var{title}) ## @deftypefnx {} {@var{btn} =} questdlg (@var{msg}, @var{title}, @var{default}) ## @deftypefnx {} {@var{btn} =} questdlg (@var{msg}, @var{title}, @var{btn1}, @var{btn2}, @var{default}) ## @deftypefnx {} {@var{btn} =} questdlg (@var{msg}, @var{title}, @var{btn1}, @var{btn2}, @var{btn3}, @var{default}) ## Display @var{msg} using a question dialog box and return the caption of ## the activated button. ## ## 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 @var{title} (character string) can be used to specify the ## dialog caption. It defaults to @qcode{"Question Dialog"}. ## ## The dialog may contain two or three buttons which will all close the dialog. ## ## The string @var{default} identifies the default button, which is activated ## by pressing the @key{ENTER} key. It must match one of the strings given ## in @var{btn1}, @var{btn2}, or @var{btn3}. ## ## If only @var{msg} and @var{title} are specified, three buttons with the ## default captions @qcode{"Yes"}, @qcode{"No"}, and @qcode{"Cancel"} are used. ## ## If only two button captions, @var{btn1} and @var{btn2}, are specified the ## dialog will have only these two buttons. ## ## Examples: ## ## @example ## @group ## btn = questdlg ("Close Octave?", "Some fancy title", ... ## "Yes", "No", "No"); ## if (strcmp (btn, "Yes")) ## exit (); ## endif ## @end group ## @end example ## ## @seealso{errordlg, helpdlg, inputdlg, listdlg, msgbox, warndlg} ## @end deftypefn function btn = questdlg (msg, title = "Question Dialog", varargin) if (nargin < 1 || nargin > 6) print_usage (); endif if (! ischar (msg)) if (! iscell (msg)) error ("questdlg: MSG must be a character string or cellstr array"); endif msg = sprintf ("%s\n", msg{:}); msg(end) = ""; endif if (! ischar (title)) error ("questdlg: TITLE must be a character string"); endif options{1} = "Yes"; # button1 options{2} = "No"; # button2 options{3} = "Cancel"; # button3 options{4} = "Yes"; # default defbtn_error_msg = "questdlg: DEFAULT must match one of the button options"; switch (numel (varargin)) case 0 ## use default default case 1 ## default button string options{4} = varargin{1}; # default if (! any (strcmp (options{4}, options(1:3)))) error (defbtn_error_msg); endif case 3 ## two buttons and default button string options{1} = varargin{1}; # button1 options{2} = ""; # not used, no middle button options{3} = varargin{2}; # button3 options{4} = varargin{3}; # default if (! any (strcmp (options{4}, options([1 3])))) error (defbtn_error_msg); endif case 4 ## three buttons and default button string options{1} = varargin{1}; # button1 options{2} = varargin{2}; # button2 options{3} = varargin{3}; # button3 options{4} = varargin{4}; # default if (! any (strcmp (options{4}, options(1:3)))) error (defbtn_error_msg); endif endswitch if (__event_manager_have_dialogs__ ()) btn = __event_manager_question_dialog__ (msg, title, options{1}, options{2}, options{3}, options{4}); else error ("questdlg is not available in this version of Octave"); endif endfunction %!demo %! disp ('- test questdlg with two buttons'); %! a = questdlg ('Would you like some free money?',... %! '$ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $ $',... %! 'No', 'Cancel', 'Cancel'); %! if (strcmp (a, 'No')) %! msgbox ('Suit yourself.', 'Message Box'); %! endif %!demo %! disp ('- test questdlg with message and title only.'); %! a = 'Yes'; %! c = 0; %! while (strcmp (a, 'Yes') && ! c) %! a = questdlg ('Close this Question Dialog?', 'Reductio Ad Absurdum'); %! if (strcmp (a, 'Yes')) %! q = 'Are you sure?'; %! while (strcmp (a, 'Yes')) %! a = questdlg (q, 'Reductio Ad Absurdum'); %! word = ' really'; %! i = strfind (q, word); %! if (isempty (i)) %! i = strfind (q, ' sure'); %! q = [q '!']; %! else %! word = [word ',']; %! endif %! q = [q(1:i-1) word q(i:end)]; %! endwhile %! endif %! if (strcmp (a, 'Cancel')) %! uiwait (warndlg ('Answer "Yes" or "No".', 'Warning Dialog')); %! c = 1; %! endif %! endwhile %! msgbox ('Whew!'); %!demo %! disp ('- test questdlg with five inputs'); %! ans = questdlg ('Are you ready Steve?', 'Brian', 'No', 'Uh huh', 'Uh huh'); %! if (! strcmp (ans, 'No')) %! ans = questdlg ('Andy?', 'Brian', 'No', 'Yeah', 'Yeah'); %! if (! strcmp (ans, 'No')) %! ans = questdlg ('Mick?', 'Brian', 'No', 'Okay', 'Okay'); %! if (! strcmp (ans, 'No')) %! ans = msgbox ("Well all right, fellas. \n\n Let''s GO!!!!!",... %! 'Ballroom Blitz', 'none'); %! endif %! endif %! endif ## Test input validation %!error <Invalid call> questdlg () %!error <Invalid call> questdlg (1,2,3,4,5,6,7) %!error <MSG must be a character string or cellstr array> questdlg (1) %!error <TITLE must be a character string> questdlg ("msg", 1) %!error <DEFAULT must match one of the button> questdlg ("msg", "title", "ABC") %!error <DEFAULT must match one of the button> %! questdlg ("msg", "title", "btn1", "btn2", "ABC"); %!error <DEFAULT must match one of the button> %! questdlg ("msg", "title", "btn1", "btn2", "btn3", "ABC");