octave-nkf: scripts/java/org/octave/JDialogBox.java annotate

annotate scripts/java/org/octave/JDialogBox.java @ 20279:db30302bedc3

Added tag rc-4-0-0-3 for changeset 065f933ef083

author	John W. Eaton <jwe@octave.org>
date	Fri, 10 Apr 2015 14:41:21 -0400
parents	4197fc428c7d
children

rev	line source
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	1 /*
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	2
19898 4197fc428c7d maint: Update copyright notices for 2015. John W. Eaton <jwe@octave.org> parents: 18712 diff changeset	3 Copyright (C) 2014-2015 Colin Foster
17744 d63878346099 maint: Update copyright notices for release. John W. Eaton <jwe@octave.org> parents: 15753 diff changeset	4 Copyright (C) 2010, 2013 Martin Hepperle
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	5
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	6 This file is part of Octave.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	7
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	8 Octave is free software; you can redistribute it and/or modify it
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	9 under the terms of the GNU General Public License as published by
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	10 the Free Software Foundation; either version 3 of the License, or (at
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	11 your option) any later version.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	12
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	13 Octave is distributed in the hope that it will be useful, but
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	14 WITHOUT ANY WARRANTY; without even the implied warranty of
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	16 General Public License for more details.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	17
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	18 You should have received a copy of the GNU General Public License
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	19 along with Octave; see the file COPYING. If not, see
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	20 <http://www.gnu.org/licenses/>.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	21
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	22 */
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	23
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	24 package org.octave;
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	25
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	26 import java.net.*;
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	27 import java.util.*;
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	28
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	29 import java.awt.*;
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	30 import javax.swing.*;
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	31
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	32 /**
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	33 * <p>Implementation of various dialog box functions</p>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	34 *
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	35 * <p>The following functions are provided for being called via
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	36 * Octave script files:</p>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	37 * <ul>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	38 * <li>errordlg</li>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	39 * <li>helpdlg</li>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	40 * <li>inputdlg</li>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	41 * </ul>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	42 *
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	43 * <p>Copyright (c) 2010 Martin Hepperle</p>
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	44 *
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	45 * @author Martin Hepperle
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	46 * @version 1.0
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	47 */
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	48 public class JDialogBox
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	49 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	50 public static final int CLOSE_OK = 1;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	51 public static final int CLOSE_NO = 2;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	52 public static final int CLOSE_CANCEL = 3;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	53
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	54 // dialog type
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	55 public static int FLAG_LABEL = 1;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	56 public static int FLAG_TEXT = 2;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	57 public static int FLAG_INPUT = 4;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	58 public static int FLAG_LIST = 8;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	59 // icon selection
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	60 public static int FLAG_QUESTION = 32;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	61 public static int FLAG_ERROR = 64;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	62 public static int FLAG_WARNING = 128;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	63 public static int FLAG_INFORMATION = 256;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	64
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	65 public static int DLG_QUEST = FLAG_QUESTION \| FLAG_TEXT;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	66 public static int DLG_INPUT = FLAG_QUESTION \| FLAG_INPUT;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	67 public static int DLG_LIST = FLAG_QUESTION \| FLAG_LIST;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	68
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	69 private final static String m_OK = "OK";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	70 private final static String m_Yes = "Yes";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	71 private final static String m_No = "No";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	72 private final static String m_Cancel = "Cancel";
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	73
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	74 private JButton m_ButtonNO;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	75 private JButton m_ButtonOK;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	76 private JButton m_ButtonCANCEL;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	77 private JButton m_Focus;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	78 private JTextArea m_TextField[];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	79 private JList m_List;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	80 private JFrame m_ParentFrame;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	81 private int m_CloseMethod;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	82
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	83 // ------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	84 // implementation of listdlg function
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	85 // ------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	86
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	87 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	88 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	89 * @param listcell String[] - a array of strings, one for each list entry
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	90 * @param selmode String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	91 * @param sizecell Object[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	92 * @param initialcell Object[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	93 * @param name String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	94 * @param promptcell String[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	95 * @param okstring String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	96 * @param cancelstring String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	97 * @return String[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	98 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	99 public static int[] listdlg (String[] listcell,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	100 String selmode,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	101 Object[] sizecell,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	102 Object[] initialcell,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	103 String name,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	104 String[] promptcell,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	105 String okstring,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	106 String cancelstring)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	107 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	108 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	109 d.genericdlg (promptcell, listcell, name, selmode,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	110 DLG_LIST,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	111 sizecell, initialcell, okstring, null, cancelstring);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	112 return (d.getSelectedIndices ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	113 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	114
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	115
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	116 // ------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	117 // implementation of inputdlg function
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	118 // -------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	119
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	120 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	121 * Implements a variation of the inputdlg function.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	122 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	123 * @param prompt String[] - an array of text strings to be used as labels.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	124 * @param title String - a text string to be used to label the dialog caption.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	125 * @param RowsCols int - defines the width of the text fields in columns.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	126 * @param defaults Object[] - an array of text strings or numbers to be
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	127 * placed into the text fields as default values.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	128 * @return String[] - an array of text strings containing the content of the
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	129 * text fields.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	130 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	131 public static String[] inputdlg (String[] prompt,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	132 String title,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	133 Object[] RowsCols,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	134 Object[] defaults)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	135 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	136 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	137 d.genericdlg (prompt, null, title, "on",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	138 FLAG_INPUT \| FLAG_QUESTION,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	139 RowsCols, defaults, m_OK, null, m_Cancel);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	140 return (d.getInput ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	141 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	142
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	143
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	144 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	145 * Extract the current content from the text fields of an inputdlg.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	146 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	147 * @return String[] - the text contained in the fields of an inputdlg.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	148 * null if the dialog was cancelled.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	149 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	150 private String[] getInput ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	151 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	152 String s[] = null;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	153
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	154 if (m_CloseMethod == CLOSE_OK)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	155 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	156 s = new String[m_TextField.length];
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	157
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	158 for (int i = 0; i < s.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	159 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	160 s[i] = new String (m_TextField[i].getText ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	161 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	162 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	163
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	164 return (s);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	165 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	166
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	167
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	168 private String getResult ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	169 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	170 String s = null;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	171
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	172 if (m_CloseMethod == CLOSE_OK)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	173 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	174 s = m_ButtonOK.getText ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	175 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	176 else if (m_CloseMethod == CLOSE_CANCEL)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	177 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	178 s = m_ButtonCANCEL.getText ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	179 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	180 else
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	181 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	182 s = m_ButtonNO.getText ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	183 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	184
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	185 return (s);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	186 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	187
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	188
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	189 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	190 * Extract the current content from the text fields of an inputdlg.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	191 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	192 * @return String[] - the text contained in the fields of an inputdlg.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	193 * null if the dialog was cancelled.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	194 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	195 private String[] getSelection ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	196 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	197 String s[] = null;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	198
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	199 if (m_CloseMethod == CLOSE_OK)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	200 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	201 int selection[] = m_List.getSelectedIndices ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	202
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	203 s = new String[selection.length];
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	204
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	205 for (int i = 0; i < s.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	206 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	207
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	208 // s[i] = new String (Integer.toString(selection[i]));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	209 s[i] = (m_List.getSelectedValues ()[i]).toString ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	210 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	211 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	212
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	213 return (s);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	214 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	215
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	216
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	217 private int[] getSelectedIndices ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	218 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	219 int s[] = null;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	220
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	221 if (m_CloseMethod == CLOSE_OK)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	222 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	223 s = m_List.getSelectedIndices ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	224 for (int i = 0; i < s.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	225 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	226
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	227 // translate to 1 based indices
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	228 s[i] = s[i] + 1;
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	229 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	230 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	231
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	232 return (s);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	233 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	234
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	235
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	236 public void SelectAll ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	237 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	238 if (null != m_List)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	239 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	240 m_List.setSelectionInterval (0, m_List.getModel ().getSize () - 1);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	241 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	242 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	243
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	244
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	245 // -------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	246 // implementation of helpdlg function
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	247 // -------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	248
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	249 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	250 * Implements a simple helpdlg with default text and caption. Not very useful.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	251 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	252 * Octave > helpdlg('helpstring','title')
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	253 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	254 * Called via helpdlg.m.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	255 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	256 * @param helpstring String - a message string to be presented to the user.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	257 * The string can have embedded newline (\n) characters to break the message
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	258 * into multiple lines.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	259 * @param title String - a text string to be used to label the dialog caption.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	260 * @return int - always 1
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	261 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	262 public static int helpdlg (String helpstring, String title)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	263 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	264 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	265 String s[] = new String[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	266 s[0] = helpstring;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	267 return (d.genericdlg (s, null, title, "on",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	268 FLAG_TEXT \| FLAG_INFORMATION, null, null,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	269 m_OK, null, m_Cancel));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	270 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	271
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	272
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	273 // -------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	274 // implementation of emptydlg function
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	275 // -------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	276
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	277 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	278 * Implements a simple helpdlg with default text and caption. Not very useful.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	279 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	280 * Octave > emptydlg('messagestring','title')
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	281 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	282 * Called via dlgbox.m.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	283 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	284 * @param messagestring String - a message string to be presented to the user.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	285 * The string can have embedded newline (\n) characters to break the message
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	286 * into multiple lines.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	287 * @param title String - a text string to be used to label the dialog caption.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	288 * @return int - always 1
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	289 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	290 public static int emptydlg (String helpstring, String title)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	291 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	292 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	293 String s[] = new String[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	294 s[0] = helpstring;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	295 return (d.genericdlg (s, null, title, "on",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	296 FLAG_TEXT, null, null,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	297 m_OK, null, m_Cancel));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	298 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	299
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	300
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	301 // -------------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	302 // implementation of questdlg related functions
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	303 // -------------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	304
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	305 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	306 * Implements a simple questdlg with default text and caption. Not very useful.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	307 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	308 * @param question String - the question to be presented
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	309 * @param title String - the caption
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	310 * @param options String[] - 'str1', 'str2', 'str3', 'default'
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	311 * @return String - the caption of the button pressed by the user
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	312 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	313 public static String questdlg (String question,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	314 String title,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	315 String[] options)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	316 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	317 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	318 String s[] = new String[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	319 s[0] = question;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	320 d.genericdlg (s, options, title, "on",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	321 DLG_QUEST, null, null,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	322 options[0], options[1], options[2]);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	323 return (d.getResult ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	324 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	325
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	326
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	327 // -------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	328 // implementation of errordlg function
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	329 // -------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	330
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	331 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	332 * Implements a simple errordlg with default text and caption. Not very useful.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	333 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	334 * @param errorstring String - the error message to display.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	335 * @param dlgname String - the caption of the dialog box.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	336 * @return int - always 1
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	337 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	338 public static int errordlg (String errorstring, String dlgname)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	339 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	340 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	341 String s[] = new String[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	342 s[0] = errorstring;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	343 return (d.genericdlg (s, null, dlgname, "on", FLAG_TEXT \| FLAG_ERROR,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	344 null, null,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	345 m_OK, null, m_Cancel));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	346 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	347
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	348
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	349 // -------------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	350 // implementation of warndlg related functions
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	351 // -------------------------------------------
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	352
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	353 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	354 * Implements a simple warndlg with default text and caption. Not very useful.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	355 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	356 * Called via warndlg.m.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	357 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	358 * @param errorstring String - the message to be presented to the user.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	359 * @param dlgname String - the caption of the dialog box.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	360 * @return int - always 1
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	361 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	362 public static int warndlg (String errorstring, String dlgname)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	363 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	364 JDialogBox d = new JDialogBox ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	365 String s[] = new String[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	366 s[0] = errorstring;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	367 return (d.genericdlg (s, null, dlgname, "on", FLAG_TEXT \| FLAG_WARNING,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	368 null, null,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	369 m_OK, null, m_Cancel));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	370 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	371
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	372
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	373 // -------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	374 // generic dlg function
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	375 // -------------------------------------
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	376 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	377 * A generic dialog creation and display function.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	378 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	379 * @param message String[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	380 * @param list String[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	381 * @param caption String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	382 * @param on String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	383 * @param flag int
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	384 * @param RowsCols Object[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	385 * @param defaults Object[]
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	386 * @param okstring String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	387 * @param nostring String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	388 * @param cancelstring String
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	389 * @return int
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	390 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	391 public int genericdlg (String message[],
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	392 String list[],
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	393 String caption,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	394 String on,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	395 int flag,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	396 Object[] RowsCols,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	397 Object[] defaults,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	398 String okstring,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	399 String nostring,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	400 String cancelstring)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	401 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	402 TeXtranslator theTranslator = new TeXtranslator ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	403 setSystemLnF (true);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	404
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	405 caption = theTranslator.replace (caption);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	406
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	407 m_ButtonNO = null;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	408 m_ButtonOK = null;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	409 m_ButtonCANCEL = null;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	410
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	411 // create a modal dialog with an empty frame as its parent
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	412 m_ParentFrame = new JFrame ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	413
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	414 // --- trick to bring dialog to the front
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	415 // In Windows, the dialog is not brought to the foreground, but hidden
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	416 // behind the Octave window as long as the parent frame is not visible.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	417 // To avoid that the frame is visible, we move it outside of the screen.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	418 m_ParentFrame.setBounds (Toolkit.getDefaultToolkit ().getScreenSize ().
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	419 width + 100,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	420 Toolkit.getDefaultToolkit ().getScreenSize ().
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	421 height + 100, 1, 1);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	422 m_ParentFrame.setVisible (true);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	423 //-- end of trick
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	424
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	425 JDialog dlg;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	426 dlg = new JDialog (m_ParentFrame);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	427 dlg.setTitle (caption);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	428
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	429 dlg.setModal (true);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	430 dlg.setDefaultCloseOperation (JDialog.DISPOSE_ON_CLOSE);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	431
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	432 DlgListener theListener = new DlgListener (this);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	433
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	434 Container d = dlg.getContentPane ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	435 d.setLayout (new BorderLayout (8, 8));
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	436
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	437 // spacer
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	438 d.add (new JLabel (" "), BorderLayout.NORTH);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	439 d.add (new JLabel (" "), BorderLayout.EAST);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	440
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	441 JPanel p = new JPanel ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	442
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	443 if (FLAG_LABEL == (FLAG_LABEL & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	444 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	445 // a single line label
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	446 JLabel l = new JLabel (theTranslator.replace (message[0]));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	447 p.add (l);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	448 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	449 else if (FLAG_TEXT == (FLAG_TEXT & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	450 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	451 String msg = theTranslator.replace (message[0]);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	452 // a multi-line text display for helpdlg
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	453 StringTokenizer st = new StringTokenizer (msg, "\n");
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	454
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	455 int nRows = (null == RowsCols) ? 1 :
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	456 Integer.parseInt (RowsCols[0].toString ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	457 nRows = Math.max (nRows, st.countTokens ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	458 int nCols = Math.max (1, msg.length () / nRows);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	459
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	460 p.setLayout (new GridLayout (message.length, 1));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	461 JTextArea ta = new JTextArea (msg, nRows, nCols);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	462 ta.setEditable (false);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	463 ta.setFocusable (false);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	464 ta.setOpaque (false);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	465 // replace ugly monospaced font
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	466 ta.setFont (p.getFont ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	467 p.add (ta);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	468 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	469 else if (FLAG_INPUT == (FLAG_INPUT & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	470 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	471 // a multi label/textfield entry dialog for inputdlg
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	472 GridBagConstraints gbc = new GridBagConstraints ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	473 gbc.insets.top = 4;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	474 gbc.insets.left = 8;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	475 gbc.gridx = 0;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	476 gbc.anchor = GridBagConstraints.NORTHWEST;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	477
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	478 p.setLayout (new GridBagLayout ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	479 m_TextField = new JTextArea[message.length];
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	480
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	481 // default values
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	482 int nRows = 1;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	483 int nCols = 10;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	484
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	485 for (int i = 0; i < message.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	486 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	487 String msg = theTranslator.replace (message[i]);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	488 JLabel l = new JLabel (msg);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	489 l.setHorizontalAlignment (Label.LEFT);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	490 gbc.gridy = 2 * i;
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	491 p.add (l, gbc);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	492 /**
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	493 * @todo CHECK handling of RowsCols for inputdlg
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	494 */
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	495 if (RowsCols != null)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	496 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	497 if (RowsCols.length == 2 * message.length)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	498 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	499 nRows = Integer.parseInt (RowsCols[i].toString ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	500 nCols = Integer.parseInt (RowsCols[RowsCols.length / 2 +
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	501 i].toString ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	502 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	503 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	504
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	505 m_TextField[i] = new JTextArea ("", Math.max (nRows, 1), nCols);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	506 // avoid resizing
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	507 m_TextField[i].setPreferredSize (new Dimension (Math.max (nRows,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	508 1), nCols));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	509 m_TextField[i].setAutoscrolls (false);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	510 m_TextField[i].setFont (p.getFont ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	511 m_TextField[i].setBorder (new javax.swing.border.EtchedBorder ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	512 m_TextField[i].addKeyListener (theListener);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	513
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	514 gbc.gridy = 2 * i + 1;
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	515 p.add (m_TextField[i], gbc);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	516 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	517
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	518 if (defaults != null)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	519 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	520 if (defaults.length == message.length)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	521 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	522 for (int i = 0; i < message.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	523 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	524 String def = theTranslator.replace (defaults[i].toString ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	525 m_TextField[i].setText (def);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	526 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	527 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	528 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	529 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	530 else if (DLG_LIST == (DLG_LIST & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	531 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	532 GridBagConstraints gbc = new GridBagConstraints ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	533 gbc.insets.top = 4;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	534 gbc.insets.left = 8;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	535 gbc.gridx = 0;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	536 gbc.anchor = GridBagConstraints.NORTHWEST;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	537
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	538 p.setLayout (new GridBagLayout ());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	539
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	540 for (int i = 0; i < message.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	541 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	542 // a single line label
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	543 String msg = theTranslator.replace (message[i]);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	544 JLabel l = new JLabel (msg);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	545 gbc.gridy = i;
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	546 p.add (l, gbc);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	547 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	548
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	549 String lst[] = new String[list.length];
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	550
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	551 for (int i = 0; i < list.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	552 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	553 lst[i] = theTranslator.replace (list[i]);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	554 }
18712 56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	555
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	556 JScrollPane scrollPane = new JScrollPane();
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	557 m_List = new JList (lst);
18712 56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	558 scrollPane.setViewportView(m_List);
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	559
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	560
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	561 // replace ugly monospaced font
18712 56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	562 scrollPane.setFont (p.getFont ());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	563
18712 56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	564 scrollPane.setMinimumSize (
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	565 new Dimension (
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	566 Math.max (1, Integer.parseInt (RowsCols[0].toString ())),
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	567 Math.max (1, Integer.parseInt (RowsCols[1].toString ()))));
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	568 scrollPane.setPreferredSize (
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	569 new Dimension (
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	570 Math.max (1, Integer.parseInt (RowsCols[1].toString ())),
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	571 Math.max (1, Integer.parseInt (RowsCols[0].toString ()))));
56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	572 scrollPane.setBorder (new javax.swing.border.EtchedBorder ());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	573
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	574 gbc.gridy = message.length;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	575 gbc.fill = GridBagConstraints.HORIZONTAL;
18712 56209bab4213 Update java dialog box to support scrolling (bug #41476). Colin Foster <fostercl1+octave@gmail.com> parents: 17744 diff changeset	576 p.add (scrollPane, gbc);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	577
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	578 if (on.toLowerCase ().equals ("single"))
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	579 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	580 // single selection list
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	581 m_List.setSelectionMode (ListSelectionModel.SINGLE_SELECTION);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	582
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	583 m_List.setSelectedIndex (Integer.parseInt (
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	584 defaults[0].toString ()) - 1);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	585 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	586 else
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	587 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	588 // multiple selection possible
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	589 m_List.setSelectionMode (ListSelectionModel.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	590 MULTIPLE_INTERVAL_SELECTION);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	591
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	592 int selection[] = new int[defaults.length];
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	593 for (int i = 0; i < defaults.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	594 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	595 selection[i] = Integer.parseInt (defaults[i].toString ()) - 1;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	596 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	597 m_List.setSelectedIndices (selection);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	598
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	599 JButton b = new JButton ("Select All");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	600 b.setActionCommand ("SELALL");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	601 b.addActionListener (theListener);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	602 gbc.gridy = message.length + 1;
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	603 gbc.fill = GridBagConstraints.HORIZONTAL;
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	604 p.add (b, gbc);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	605 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	606
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	607 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	608
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	609 // prepare icon, if any
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	610 String sIconFile = null;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	611 String sIconResource = null;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	612 Icon theIcon = null;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	613
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	614 if (FLAG_ERROR == (FLAG_ERROR & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	615 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	616 sIconFile = "images/error.png";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	617 // Java for Windows
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	618 sIconResource = "OptionPane.errorIcon";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	619 // Java for Linux does not offer these standard icons...
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	620 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	621 else if (FLAG_WARNING == (FLAG_WARNING & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	622 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	623 sIconFile = "images/warning.png";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	624 // Java for Windows
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	625 sIconResource = "OptionPane.warningIcon";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	626 // Java for Linux does not offer these standard icons...
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	627 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	628 else if (FLAG_QUESTION == (FLAG_QUESTION & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	629 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	630 sIconFile = "images/question.png";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	631 // Java for Windows
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	632 sIconResource = "OptionPane.questionIcon";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	633 // Java for Linux does not offer these standard icons...
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	634 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	635 else if (FLAG_INFORMATION == (FLAG_INFORMATION & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	636 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	637 sIconFile = "images/information.png";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	638 // Java for Windows
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	639 sIconResource = "OptionPane.informationIcon";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	640 // Java for Linux does not offer these standard icons...
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	641 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	642
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	643 // first try to find the UIManager specific icon to fit look and feel
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	644 // Note: the Windows XP look and feel offers 50 icons.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	645 if (sIconResource != null)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	646 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	647 UIDefaults df = UIManager.getLookAndFeelDefaults ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	648 theIcon = df.getIcon (sIconResource);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	649 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	650
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	651 // fallback on bitmap image resource if icon was not found
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	652 if (theIcon == null &&
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	653 sIconFile != null)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	654 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	655 URL theResource = JDialogBox.class.getResource (sIconFile);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	656 if (theResource != null)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	657 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	658 theIcon = new ImageIcon (theResource);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	659 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	660 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	661
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	662 if (theIcon != null)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	663 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	664 // dummy panel to provide space around icon
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	665 JPanel pi = new JPanel (new GridLayout (1, 3));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	666 pi.add (new JLabel ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	667 pi.add (new JLabel (theIcon));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	668 pi.add (new JLabel ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	669 d.add (pi, BorderLayout.WEST);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	670
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	671 // use Octave icon if available. otherwise use dialog icon
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	672 Icon theOctaveIcon = getOctaveIcon ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	673 prepareFrameIcon (m_ParentFrame,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	674 theOctaveIcon == null ? theIcon : theOctaveIcon);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	675 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	676
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	677 d.add (p, BorderLayout.CENTER);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	678
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	679 // button bar (2 rows of 3 columns each
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	680
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	681 p = new JPanel ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	682 p.setLayout (new java.awt.GridLayout (2, 3));
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	683
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	684 // spacer row
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	685 p.add (new JLabel ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	686 p.add (new JLabel ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	687 p.add (new JLabel ());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	688
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	689 if (DLG_QUEST == (DLG_QUEST & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	690 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	691 // questdlg with empty option[2]: only two buttons
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	692 if (nostring.length () < 1)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	693 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	694 // spacer: left
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	695 p.add (new JLabel ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	696 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	697 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	698 else
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	699 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	700 // spacer: left
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	701 p.add (new JLabel ());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	702 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	703
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	704 m_ButtonOK = new JButton (theTranslator.replace (okstring));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	705 m_ButtonOK.setActionCommand ("OK");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	706 m_ButtonOK.addActionListener (theListener);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	707 m_Focus = m_ButtonOK;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	708 p.add (m_ButtonOK);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	709
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	710 if (DLG_QUEST == (DLG_QUEST & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	711 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	712 // questdlg with empty option[2]: only two buttons
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	713 if (nostring.length () > 01)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	714 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	715 // questdlg has three buttons
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	716 m_ButtonNO = new JButton (theTranslator.replace (nostring));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	717 m_ButtonNO.setActionCommand ("NO");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	718 m_ButtonNO.addActionListener (theListener);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	719 p.add (m_ButtonNO);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	720 if (DLG_QUEST == (DLG_QUEST & flag))
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	721 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	722 // select default button
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	723 if (list[3].equals (nostring))
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	724 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	725 m_Focus = m_ButtonNO;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	726 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	727 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	728 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	729 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	730
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	731 if (DLG_INPUT == (DLG_INPUT & flag) \|\|
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	732 DLG_LIST == (DLG_LIST & flag) \|\|
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	733 DLG_QUEST == (DLG_QUEST & flag))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	734 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	735 m_ButtonCANCEL = new JButton (theTranslator.replace (cancelstring));
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	736 m_ButtonCANCEL.setActionCommand ("CANCEL");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	737 m_ButtonCANCEL.addActionListener (theListener);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	738 p.add (m_ButtonCANCEL);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	739 if (DLG_QUEST == (DLG_QUEST & flag))
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	740 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	741 // select default button
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	742 if (list[3].equals (cancelstring))
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	743 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	744 m_Focus = m_ButtonCANCEL;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	745 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	746 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	747 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	748 else
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	749 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	750 // spacer: right
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	751 p.add (new JLabel ());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	752 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	753
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	754 d.add (p, BorderLayout.SOUTH);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	755 dlg.pack ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	756
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	757 dlg.addWindowListener (theListener);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	758
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	759 if (on.equals ("on"))
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	760 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	761 m_ParentFrame.setAlwaysOnTop (true);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	762 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	763
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	764 // center dialog on screen
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	765 Dimension dlgSize = dlg.getSize ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	766 Dimension screenSize = Toolkit.getDefaultToolkit ().getScreenSize ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	767
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	768 dlg.setLocation ((screenSize.width - dlgSize.width) / 2,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	769 (screenSize.height - dlgSize.height) / 2);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	770
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	771 dlg.setVisible (true);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	772 dlg.requestFocus ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	773
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	774 m_ParentFrame.setVisible (false);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	775
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	776 return (1);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	777 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	778
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	779
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	780 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	781 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	782 * @return Icon - null if icon was not found
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	783 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	784 private Icon getOctaveIcon ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	785 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	786 Icon theIcon = null;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	787 URL theResource = JDialogBox.class.getResource ("images/octave.png");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	788 if (theResource != null)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	789 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	790 theIcon = new ImageIcon (theResource);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	791 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	792 return theIcon;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	793 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	794
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	795
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	796 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	797 * Replace the standard Java frame icon with an Octave Icon.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	798 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	799 * @param theFrame Frame - the Frame to decorate
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	800 * @param theIcon Icon - the icon to use if octave icon is not found.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	801 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	802 private void prepareFrameIcon (Frame theFrame, Icon theIcon)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	803 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	804 // prepare icon for upper left corner of Frame window
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	805 // maybe there is a simpler way to achieve this
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	806 int w = theIcon.getIconWidth ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	807 int h = theIcon.getIconHeight ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	808 // Frame must be made displayable by packing it for createImage() to succeed
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	809 theFrame.pack ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	810 Image theImage = theFrame.createImage (w, h);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	811 theIcon.paintIcon (theFrame, theImage.getGraphics (), 0, 0);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	812 theFrame.setIconImage (theImage);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	813 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	814
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	815
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	816 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	817 * Select Look and Feel
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	818 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	819 * @param bSystemLnF boolean - if true, the current systesm Look&Feel is used,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	820 * otherwise the Swing/Metal cross platform Look&Feel is used.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	821 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	822 private void setSystemLnF (boolean bSystemLnF)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	823 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	824 try
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	825 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	826 if (bSystemLnF)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	827 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	828 // switch from Swing LnF to local system LnF
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	829 UIManager.setLookAndFeel (UIManager.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	830 getSystemLookAndFeelClassName ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	831 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	832 else
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	833 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	834 // use Swing LnF
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	835 UIManager.setLookAndFeel (UIManager.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	836 getCrossPlatformLookAndFeelClassName ());
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	837 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	838 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	839 catch (Exception exception)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	840 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	841 exception.printStackTrace ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	842 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	843 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	844
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	845
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	846 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	847 * Called when the dialog is closed. Allows for specific cleanup actions.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	848 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	849 * @param closeMethod int - OctaveDialog.CLOSE_OK, OctaveDialog.CLOSE_CANCEL
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	850 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	851 public void closeDialog (int closeMethod)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	852 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	853 m_CloseMethod = closeMethod;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	854 m_ParentFrame.dispose ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	855 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	856
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	857
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	858 public void setFocus ()
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	859 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	860 if (null != m_Focus)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	861 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	862 m_Focus.requestFocus ();
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	863 m_ParentFrame.getRootPane ().setDefaultButton (m_Focus);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	864 m_ParentFrame.setAlwaysOnTop (true);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	865 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	866 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	867
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	868
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	869 /**
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	870 * Tests the dialogs
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	871 *
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	872 * @param args String[] - not used.
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	873 */
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	874 public static void main (String[] args)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	875 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	876 TeXtranslator t = new TeXtranslator();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	877
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	878 if (false)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	879 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	880 // find out key names of icon UI resources
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	881 UIDefaults df = UIManager.getLookAndFeelDefaults ();
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	882
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	883 for (Enumeration e = df.keys (); e.hasMoreElements ();)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	884 {
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	885 String s = e.nextElement ().toString ();
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	886
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	887 if (s.toLowerCase ().contains ("icon"))
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	888 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	889 System.out.println (s);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	890 }
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	891 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	892 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	893
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	894 try
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	895 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	896 Class[] argTypes = new Class[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	897 argTypes[0] = String.class;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	898
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	899 java.lang.reflect.Constructor c = ClassHelper.findConstructor (java.lang.StringBuffer.class,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	900 argTypes);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	901 Object argValues[] = new Object[1];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	902 argValues[0] = new String("initial value");
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	903 Object sb = c.newInstance(argValues);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	904 System.out.println(sb.toString());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	905
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	906 ClassHelper.invokeMethod(sb,"append",argValues,argTypes);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	907 System.out.println(sb.toString());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	908
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	909 argValues = new Object[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	910 argTypes = new Class[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	911 argTypes[0] = Integer.class;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	912 argTypes[1] = String.class;
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	913 argValues[0] = new Integer(0);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	914 argValues[1] = new String("inserted");
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	915
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	916 ClassHelper.invokeMethod(sb,"insert",argValues,argTypes);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	917 System.out.println(sb.toString());
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	918 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	919 catch (Throwable e)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	920 {}
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	921
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	922 if (true)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	923 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	924 return;
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	925 }
acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	926
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	927 helpdlg ("If you need help\nyou should ask for help\nif someone is around\notherwise you are on your own.",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	928 "Information");
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	929
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	930 String[] options = new String[4];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	931 options[0] = "Yeah \\vartheta is too low";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	932 options[1] = "Maybe";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	933 options[2] = "Nay \\vartheta is too high";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	934 options[3] = "Maybe";
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	935
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	936 System.out.println (questdlg ("Is it too cold?", "Temperature", options));
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	937
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	938 // test variants of errordlg
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	939 // does not affect layering of dialog
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	940 errordlg ("Background error!", "Error");
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	941
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	942 // test variants of helpdlg
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	943
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	944 // test variants of inputdlg
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	945 String prompt[] = new String[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	946 prompt[0] = "Question 1";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	947 prompt[1] = "Question 2";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	948 String defaults[] = new String[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	949 defaults[0] = "1.1";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	950 defaults[1] = "2.2";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	951 String title = "Enter values";
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	952
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	953 Integer rc[] = new Integer[2 * 2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	954 rc[0] = new Integer (1);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	955 rc[1] = new Integer (2);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	956 rc[2] = new Integer (10);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	957 rc[3] = new Integer (20);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	958
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	959 inputdlg (prompt, title, rc, defaults);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	960
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	961 String listcell[] = new String[4];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	962 listcell[0] = "a \\alpha";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	963 listcell[1] = "b \\beta";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	964 listcell[2] = "c \\gamma";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	965 listcell[3] = "d \\delta";
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	966
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	967 Integer size[] = new Integer[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	968 size[0] = new Integer (80);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	969 size[1] = new Integer (100);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	970
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	971 Integer initial[] = new Integer[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	972 initial[0] = new Integer (4);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	973 initial[1] = new Integer (2);
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	974
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	975 String promptcell[] = new String[2];
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	976 promptcell[0] = "Select something";
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	977 promptcell[1] = "(or even more than one thing)";
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	978
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	979 int idx[] = listdlg (listcell,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	980 "Multiple",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	981 size,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	982 initial,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	983 "name",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	984 promptcell,
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	985 "okstring",
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	986 "cancelstring");
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	987
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	988 if (idx != null)
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	989 {
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	990 for (int i = 0; i < idx.length; i++)
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	991 {
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	992 System.out.println (idx[i]);
6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	993 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	994 }
15753 6e39fe7992d9 style fixes and copyright update for java files John W. Eaton <jwe@octave.org> parents: 15625 diff changeset	995 }
15625 acf0addfc610 include Octave Forge java package in core Octave John W. Eaton <jwe@octave.org> parents: diff changeset	996 }

Mercurial > hg > octave-nkf

annotate scripts/java/org/octave/JDialogBox.java @ 20279:db30302bedc3