Mercurial > octave-libgccjit
view scripts/java/inputdlg.m @ 15625:acf0addfc610
include Octave Forge java package in core Octave
* scripts/java: New directory tree.
* scripts/Makefile.am: Include java/module.mk.
(JAR_FILES): New variable.
(nobase_fcnfile_DATA): Include $(JAR_FILES) in the list.
(all-local): Depend on $(JAR_FILES).
(java/PKG_ADD, java_GEN_FCN_FILES, java/$(octave_dirstamp)):
New rules.
* libinterp/link-deps (LIBOCTINTERP_LINK_DEP): Include $(JAVA_LIBS) in
the list.
* dldfcn/__java__.h, dldfcn/__java__.cc: New files.
* dldfcn/module-files (__java__.cc): New file description.
* doc/interpreter/java.txi: New file.
* doc/interpreter/octave.texi: Include java.texi.
* doc/interpreter/java-images: New directory.
* doc/interpreter/Makefile.am (JAVA_IMAGES): New variable.
(IMAGES): Include $(JAVA_IMAGSES) in the list.
(MUNGED_TEXI_SRC): Include java.texi in the list.
* configure.ac: Check for Java libraries and tools.
Include Java info in the summary message.
* build-aux/common.mk (JAVA_CPPFLAGS, JAVA_LIBS): New variables.
* NEWS: Update.
* contributors.in: Include Martin Hepperle in the list.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Fri, 23 Nov 2012 15:29:13 -0500 |
parents | |
children | 9fee0b741de6 |
line wrap: on
line source
## Copyright (C) 2010 Martin Hepperle ## ## This program 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 2 of the License, or ## (at your option) any later version. ## ## This program 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 this program; If not, see <http://www.gnu.org/licenses/>. ## -*- texinfo -*- ## @deftypefn {Function file} {@var{P} =} inputdlg (@var{PROMPT} [,@var{TITLE} [,@var{ROWSCOLS}, @var{DEFAULTS}]]) ## ## Returns the user's inputs from a multi-textfield dialog box in form of a cell array of strings. ## If the dialog is closed by the Cancel button, an empty cell array is returned. ## ## @table @samp ## @item PROMPT ## The first argument @var{PROMPT} is mandatory. ## It is a cell array with strings labeling each textfield. ## @item TITLE ## The optional string @var{TITLE} can be used as the caption of the dialog. ## @item ROWSCOLS ## The size of the text fields can be defined by the argument @var{ROWSCOLS}, ## which can have three forms: ## - a scalar value which defines the number of rows used for each text field. ## - a vector which defines the individual number of rows used for each text field. ## - a matrix which defines the individual number of rows and columns used for each text field. ## @item DEFAULTS ## It is possible to place default values into the text fields by supplying ## the a cell array of strings or number for the argument @var{DEFAULTS}. ## @end table ## ## @end deftypefn ## @seealso{errordlg, helpdlg, listdlg, questdlg, warndlg} function varargout = inputdlg(prompt,varargin) switch length (varargin) case 0 title = "Input Dialog"; lineNo = 1; defaults = cellstr(cell(size(prompt))); case 1 title = varargin{1}; lineNo = 1; defaults = cellstr(cell(size(prompt))); case 2 title = varargin{1}; lineNo = varargin{2}; defaults = cellstr(cell(size(prompt))); otherwise title = varargin{1}; lineNo = varargin{2}; defaults = varargin{3}; end % specification of text field sizes as in Matlab % Matlab requires a matrix for lineNo, 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 isscalar(lineNo) % only scalar value in lineTo, copy from lineNo and add defaults rowscols = zeros(size(prompt)(2),2); % cols rowscols(:,2) = 25; rowscols(:,1) = lineNo; elseif isvector(lineNo) % only one column in lineTo, copy from vector lineNo and add defaults rowscols = zeros(size(prompt)(2),2); % rows from colum vector lineNo, columns are set to default rowscols(:,2) = 25; rowscols(:,1) = lineNo(:); elseif ismatrix(lineNo) if (size(lineNo)(1) == size(prompt)(2)) && (size(lineNo)(2) == 2) % (rows x columns) match, copy array lineNo rowscols = lineNo; end else % dunno disp('inputdlg: unknown form of lineNo argument.'); lineNo end % convert numeric values in defaults cell array to strings defs = cellfun(@num2str,defaults,'UniformOutput',false); rc = arrayfun(@num2str,rowscols,'UniformOutput',false); user_inputs = java_invoke ("org.octave.JDialogBox", "inputdlg", prompt, title, rc, defs); if isempty(user_inputs) varargout{1} = {}; % empty else varargout{1} = cellstr (user_inputs); end end