author | xdono |
Thu, 18 Dec 2008 21:34:08 -0800 | |
changeset 1749 | ff917d84bdf3 |
parent 443 | b49bc385fa7e |
child 5506 | 202f599c92aa |
permissions | -rw-r--r-- |
443
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
1 |
/* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
2 |
* Copyright 1999-2008 Sun Microsystems, Inc. All Rights Reserved. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
3 |
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
4 |
* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
5 |
* This code is free software; you can redistribute it and/or modify it |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
6 |
* under the terms of the GNU General Public License version 2 only, as |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
7 |
* published by the Free Software Foundation. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
8 |
* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
9 |
* This code is distributed in the hope that it will be useful, but WITHOUT |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
10 |
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
11 |
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
12 |
* version 2 for more details (a copy is included in the LICENSE file that |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
13 |
* accompanied this code). |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
14 |
* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
15 |
* You should have received a copy of the GNU General Public License version |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
16 |
* 2 along with this work; if not, write to the Free Software Foundation, |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
17 |
* Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
18 |
* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
19 |
* Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara, |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
20 |
* CA 95054 USA or visit www.sun.com if you need additional information or |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
21 |
* have any questions. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
22 |
*/ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
23 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
24 |
/* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
25 |
test |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
26 |
@bug 4118621 |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
27 |
@summary tests that selected text isn't scrolled when there is enough room. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
28 |
@author prs: area=TextField |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
29 |
@run applet/manual=yesno ScrollSelectionTest.html |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
30 |
*/ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
31 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
32 |
/** |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
33 |
* ScrollSelectionTest.java |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
34 |
* |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
35 |
* summary: tests that selected text isn't scrolled when there is enough room. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
36 |
*/ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
37 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
38 |
import java.applet.Applet; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
39 |
import java.awt.Dialog; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
40 |
import java.awt.Frame; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
41 |
import java.awt.TextField; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
42 |
import java.awt.TextArea; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
43 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
44 |
public class ScrollSelectionTest extends Applet |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
45 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
46 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
47 |
Frame frame = new Frame("ScrollSelectionTest frame"); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
48 |
TextField tf = new TextField(40); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
49 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
50 |
public void init() |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
51 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
52 |
tf.setText("abcdefghijklmnopqrstuvwxyz"); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
53 |
frame.add(tf); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
54 |
tf.select(0, 20); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
55 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
56 |
String[] instructions = |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
57 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
58 |
"INSTRUCTIONS:", |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
59 |
"This is a test for a win32 specific problem", |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
60 |
"If you see all the letters from 'a' to 'z' and", |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
61 |
"letters from 'a' to 't' are selected then test passes" |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
62 |
}; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
63 |
Sysout.createDialogWithInstructions( instructions ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
64 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
65 |
}// init() |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
66 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
67 |
public void start () |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
68 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
69 |
setSize (300,300); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
70 |
setVisible(true); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
71 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
72 |
frame.setVisible(true); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
73 |
frame.setBounds (400, 0, 300, 300); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
74 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
75 |
}// start() |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
76 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
77 |
}// class ScrollSelectionTest |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
78 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
79 |
/**************************************************** |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
80 |
Standard Test Machinery |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
81 |
DO NOT modify anything below -- it's a standard |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
82 |
chunk of code whose purpose is to make user |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
83 |
interaction uniform, and thereby make it simpler |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
84 |
to read and understand someone else's test. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
85 |
****************************************************/ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
86 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
87 |
/** |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
88 |
This is part of the standard test machinery. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
89 |
It creates a dialog (with the instructions), and is the interface |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
90 |
for sending text messages to the user. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
91 |
To print the instructions, send an array of strings to Sysout.createDialog |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
92 |
WithInstructions method. Put one line of instructions per array entry. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
93 |
To display a message for the tester to see, simply call Sysout.println |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
94 |
with the string to be displayed. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
95 |
This mimics System.out.println but works within the test harness as well |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
96 |
as standalone. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
97 |
*/ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
98 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
99 |
class Sysout |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
100 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
101 |
private static TestDialog dialog; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
102 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
103 |
public static void createDialogWithInstructions( String[] instructions ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
104 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
105 |
dialog = new TestDialog( new Frame(), "Instructions" ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
106 |
dialog.printInstructions( instructions ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
107 |
dialog.show(); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
108 |
println( "Any messages for the tester will display here." ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
109 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
110 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
111 |
public static void createDialog( ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
112 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
113 |
dialog = new TestDialog( new Frame(), "Instructions" ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
114 |
String[] defInstr = { "Instructions will appear here. ", "" } ; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
115 |
dialog.printInstructions( defInstr ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
116 |
dialog.show(); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
117 |
println( "Any messages for the tester will display here." ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
118 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
119 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
120 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
121 |
public static void printInstructions( String[] instructions ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
122 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
123 |
dialog.printInstructions( instructions ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
124 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
125 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
126 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
127 |
public static void println( String messageIn ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
128 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
129 |
dialog.displayMessage( messageIn ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
130 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
131 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
132 |
}// Sysout class |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
133 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
134 |
/** |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
135 |
This is part of the standard test machinery. It provides a place for the |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
136 |
test instructions to be displayed, and a place for interactive messages |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
137 |
to the user to be displayed. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
138 |
To have the test instructions displayed, see Sysout. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
139 |
To have a message to the user be displayed, see Sysout. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
140 |
Do not call anything in this dialog directly. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
141 |
*/ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
142 |
class TestDialog extends Dialog |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
143 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
144 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
145 |
TextArea instructionsText; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
146 |
TextArea messageText; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
147 |
int maxStringLength = 80; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
148 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
149 |
//DO NOT call this directly, go through Sysout |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
150 |
public TestDialog( Frame frame, String name ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
151 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
152 |
super( frame, name ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
153 |
int scrollBoth = TextArea.SCROLLBARS_BOTH; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
154 |
instructionsText = new TextArea( "", 15, maxStringLength, scrollBoth ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
155 |
add( "North", instructionsText ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
156 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
157 |
messageText = new TextArea( "", 5, maxStringLength, scrollBoth ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
158 |
add("South", messageText); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
159 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
160 |
pack(); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
161 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
162 |
show(); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
163 |
}// TestDialog() |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
164 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
165 |
//DO NOT call this directly, go through Sysout |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
166 |
public void printInstructions( String[] instructions ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
167 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
168 |
//Clear out any current instructions |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
169 |
instructionsText.setText( "" ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
170 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
171 |
//Go down array of instruction strings |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
172 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
173 |
String printStr, remainingStr; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
174 |
for( int i=0; i < instructions.length; i++ ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
175 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
176 |
//chop up each into pieces maxSringLength long |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
177 |
remainingStr = instructions[ i ]; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
178 |
while( remainingStr.length() > 0 ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
179 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
180 |
//if longer than max then chop off first max chars to print |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
181 |
if( remainingStr.length() >= maxStringLength ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
182 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
183 |
//Try to chop on a word boundary |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
184 |
int posOfSpace = remainingStr. |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
185 |
lastIndexOf( ' ', maxStringLength - 1 ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
186 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
187 |
if( posOfSpace <= 0 ) posOfSpace = maxStringLength - 1; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
188 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
189 |
printStr = remainingStr.substring( 0, posOfSpace + 1 ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
190 |
remainingStr = remainingStr.substring( posOfSpace + 1 ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
191 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
192 |
//else just print |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
193 |
else |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
194 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
195 |
printStr = remainingStr; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
196 |
remainingStr = ""; |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
197 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
198 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
199 |
instructionsText.append( printStr + "\n" ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
200 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
201 |
}// while |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
202 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
203 |
}// for |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
204 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
205 |
}//printInstructions() |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
206 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
207 |
//DO NOT call this directly, go through Sysout |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
208 |
public void displayMessage( String messageIn ) |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
209 |
{ |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
210 |
messageText.append( messageIn + "\n" ); |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
211 |
} |
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
212 |
|
b49bc385fa7e
6686273: Some AWT reg. tests should be moved to open repository (for CRs 6444769, 6480547, and 6560348)
volk
parents:
diff
changeset
|
213 |
}// TestDialog class |