Mercurial > octave
view scripts/gui/inputdlg.m @ 21630:b5d9b95d1e1a
Removing Java dialog boxes.
* scripts/gui/module.mk: removed message_dialog.m entry.
* scripts/gui/private/message_dialog.m: merged code to msgbox.
* scripts/gui/errordlg.m: function now redirects to msgbox. New tests.
* scripts/gui/helpdlg.m: function now redirects to msgbox. New tests.
* scripts/gui/warndlg.m: function now redirects to msgbox. New tests.
* scripts/gui/msgbox.m: merged code from message_dialog.
Stripped Java dialog boxes. New tests.
* scripts/gui/inputdlg.m: stripped Java dialog boxes. Improved doc. New tests.
* scripts/gui/listdlg.m: stripped Java dialog boxes. Improved doc. New tests.
* scripts/gui/questdlg.m: stripped Java dialog boxes. Improved doc. New tests.
* scripts/miscellaneous/menu.m: stripped Java dialog boxes. Improved doc.
* scripts/java/module.mk: removed entries of deleted files.
* scripts/java/org/octave/DlgListener.java: removed Java dialog box Listener.
* scripts/java/org/octave/images/error.png: removed unused image.
* scripts/java/org/octave/images/information.png: removed unused image.
* scripts/java/org/octave/images/octave.png: removed unused image.
* scripts/java/org/octave/images/question.png: removed unused image.
* scripts/java/org/octave/images/warning.png: removed unused image.
* scripts/java/org/octave/JDialogBox.java: removed Java dialog box class.
* scripts/java/org/octave/TeXcode.java: removed class used by Java dialogs.
* scripts/java/org/octave/TeXtranslator.java: removed class used by Java dialogs.
* doc/module.mk: removed unused java images and java.txi.
* doc/interpreter/java.txi: merged content as minor sections to following files.
* doc/interpreter/bugs.txi: moved Java distinguish section here.
* doc/interpreter/external.txi: moved Java Interface description here.
* doc/interpreter/gui.txi: moved dialog box docstrings here.
* doc/interpreter/octave.texi: corrected TOC.
* doc/interpreter/java-images/image001.png: removed unused image.
* doc/interpreter/java-images/image002.png: removed unused image.
* doc/interpreter/java-images/image003.png: removed unused image.
* doc/interpreter/java-images/image004.png: removed unused image.
* doc/interpreter/java-images/image005.png: removed unused image.
* doc/interpreter/java-images/image006.png: removed unused image.
* doc/interpreter/java-images/image007.png: removed unused image.
* doc/interpreter/java-images/image008.png: removed unused image.
* doc/interpreter/java-images/image009.png: removed unused image.
* NEWS: Announced changes.
author | Kai T. Ohlhus <k.ohlhus@gmail.com> |
---|---|
date | Tue, 19 Apr 2016 15:27:19 +0200 |
parents | 3be6a07e8bad |
children | 59ebef9680ef |
line wrap: on
line source
## 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 {} {@var{cstr} =} inputdlg (@var{prompt}) ## @deftypefnx {} {@var{cstr} =} inputdlg (@var{prompt}, @var{title}) ## @deftypefnx {} {@var{cstr} =} inputdlg (@var{prompt}, @var{title}, @var{rowscols}) ## @deftypefnx {} {@var{cstr} =} inputdlg (@var{prompt}, @var{title}, @var{rowscols}, @var{defaults}) ## Return user input from a multi-textfield dialog box in a cell array of ## strings, or an empty cell array if the dialog is closed by the Cancel ## button. ## ## Inputs: ## ## @table @var ## @item prompt ## A cell array with strings labeling each text field. This input is required. ## ## @item title ## String to use for the caption of the dialog. The default is ## @qcode{"Input Dialog"}. ## ## @item rowscols ## Specifies the size of the text fields and can take three forms: ## ## @enumerate ## @item a scalar value which defines the number of rows used for each text field. ## ## @item a vector which defines the individual number of rows used for each text field. ## ## @item a matrix which defines the individual number of rows and columns used for each text field. In the matrix each row describes a single text field. The first column specifies the number of input rows to use and the second column specifies the text field width. ## @end enumerate ## ## @item defaults ## A list of default values to place in each text fields. It must be a cell ## array of strings with the same size as @var{prompt}. ## @end table ## ## Example: ## ## @example ## @group ## prompt = @{"Width", "Height", "Depth"@}; ## defaults = @{"1.10", "2.20", "3.30"@}; ## rowscols = [1,10; 2,20; 3,30]; ## dims = inputdlg (prompt, "Enter Box Dimensions", rowscols, defaults); ## @end group ## @end example ## ## @seealso{errordlg, helpdlg, listdlg, msgbox, questdlg, warndlg} ## @end deftypefn function cstr = inputdlg (prompt, varargin) narginchk (1, 4); if (iscell (prompt)) ## Silently extract only char elements prompt = prompt(cellfun ("isclass", prompt, "char")); elseif (ischar (prompt)) prompt = {prompt}; else error ("PROMPT must be a character string or cellstr array"); endif dlg_title = "Input Dialog"; if (nargin > 1) dlg_title = varargin{1}; if (! ischar (dlg_title)) error ("TITLE must be a character string"); endif endif linespec = 1; if (nargin > 2) linespec = varargin{2}; endif defaults = cellstr (cell (size (prompt))); if (nargin > 3) defaults = varargin{3}; endif ## specification of text field sizes as in Matlab ## Matlab requires a matrix for linespec, not a cell array... ## rc = [1,10; 2,20; 3,30]; ## c1 c2 ## r1 1 10 first text field is 1x10 ## r2 2 20 second text field is 2x20 ## r3 3 30 third text field is 3x30 if (! isnumeric (linespec)) error ("ROWSCOLS must be numeric"); endif if (isscalar (linespec)) ## only scalar value in lineTo, copy from linespec and add defaults rowscols = zeros (numel (prompt), 2); ## cols rowscols(:,2) = 25; rowscols(:,1) = linespec; elseif (isvector (linespec)) if (numel (linespec) == numel (prompt)) ## only one column in lineTo, copy from vector linespec and add defaults rowscols = zeros (numel (prompt), 2); ## rows from colum vector linespec, columns are set to default rowscols(:,2) = 25; rowscols(:,1) = linespec(:); else error ("ROWSCOLS vector does not match size of PROMPT"); endif elseif (ismatrix (linespec)) if (rows (linespec) == columns (prompt) && columns (linespec) == 2) ## (rows x columns) match, copy array linespec rowscols = linespec; else error ("ROWSCOLS matrix does not match size of PROMPT"); endif else ## dunno error ("unknown form of ROWSCOLS argument"); endif rowscols = ceil (rowscols); ## convert numeric values in defaults cell array to strings defs = cellfun (@num2str, defaults, "UniformOutput", false); if (__octave_link_enabled__ ()) cstr = __octave_link_input_dialog__ (prompt, dlg_title, rowscols, defs); else error ("inputdlg is not available in this version of Octave"); endif endfunction %!demo %! disp ('- test inputdlg with prompt and caption only.'); %! prompt = {'Width','Height','Depth'}; %! dims = inputdlg (prompt, 'Enter Box Dimensions'); %! if (isempty (dims)) %! helpdlg ('Canceled by user', 'Information'); %! else %! volume = str2num (dims{1}) * str2num (dims{2}) * str2num (dims{3}); %! surface = 2 * (str2num (dims{1}) * str2num (dims{2}) + ... %! str2num (dims{2}) * str2num (dims{3}) + ... %! str2num (dims{1}) * str2num (dims{3})); %! helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions'); %! end %!demo %! disp ('- test inputdlg with prescribed scalar (2 lines per text field) and defaults.'); %! prompt = {'Width','Height','Depth'}; %! default = {'1.1','2.2','3.3'}; %! rc = 2; %! dims = inputdlg (prompt, 'Enter Box Dimensions',rc,default); %! if (isempty (dims)) %! helpdlg ('Canceled by user', 'Information'); %! else %! volume = str2num (dims{1}) * str2num (dims{2}) * str2num (dims{3}); %! surface = 2 * (str2num (dims{1}) * str2num (dims{2}) + ... %! str2num (dims{2}) * str2num (dims{3}) + ... %! str2num (dims{1}) * str2num (dims{3})); %! helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions'); %! end %!demo %! disp ('- test inputdlg with prescribed vector [1,2,3] for # of lines per text field and defaults.'); %! prompt = {'Width','Height','Depth'}; %! default = {'1.10', '2.10', '3.10'}; %! rc = [1,2,3]; % NOTE: must be an array %! dims = inputdlg (prompt, 'Enter Box Dimensions',rc,default); %! if (isempty (dims)) %! helpdlg ('Canceled by user', 'Information'); %! else %! volume = str2num (dims{1}) * str2num (dims{2}) * str2num (dims{3}); %! surface = 2 * (str2num (dims{1}) * str2num (dims{2}) + ... %! str2num (dims{2}) * str2num (dims{3}) + ... %! str2num (dims{1}) * str2num (dims{3})); %! helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions'); %! end %!demo %! disp ('- test inputdlg with prescribed row by column sizes and defaults.'); %! prompt = {'Width','Height','Depth'}; %! default = {'1.10', '2.20', '3.30'}; %! rc = [1,10; 2,20; 3,30]; % NOTE: must be an array %! dims = inputdlg (prompt, 'Enter Box Dimensions',rc,default); %! if (isempty (dims)) %! helpdlg ('Canceled by user', 'Information'); %! else %! volume = str2num (dims{1}) * str2num (dims{2}) * str2num (dims{3}); %! surface = 2 * (str2num (dims{1}) * str2num (dims{2}) + ... %! str2num (dims{2}) * str2num (dims{3}) + ... %! str2num (dims{1}) * str2num (dims{3})); %! helpdlg (sprintf ('Results:\nVolume = %.3f\nSurface = %.3f', volume, surface), 'Box Dimensions'); %! end %!error<narginchk> inputdlg (1, 2, 3, 4, 5) %!error<PROMPT must be a character string> inputdlg (1) %!error<TITLE must be a character string> inputdlg ("msg", 1) %!error<ROWSCOLS must be numeric> inputdlg ("msg", "title", "1") %!error<ROWSCOLS vector does not match size> %! inputdlg ({"a1", "a2"}, "title", [1, 2, 3])