1515 */
1616package org.utplsql.sqldev
1717
18+ import javax.swing.BorderFactory
1819import javax.swing.JCheckBox
20+ import javax.swing.JPanel
1921import javax.swing.JSpinner
2022import javax.swing.JTextField
2123import javax.swing.SpinnerNumberModel
@@ -27,55 +29,69 @@ import org.utplsql.sqldev.model.preference.PreferenceModel
2729import org.utplsql.sqldev.resources.UtplsqlResources
2830
2931class PreferencePanel extends DefaultTraversablePanel {
32+ val JPanel runTestPanel = new JPanel ();
3033 val JCheckBox unsharedWorksheetCheckBox = new JCheckBox
3134 val JCheckBox resetPackageCheckBox = new JCheckBox
3235 val JCheckBox clearScreenCheckBox = new JCheckBox
3336 val JCheckBox autoExecuteCheckBox = new JCheckBox
3437 val JCheckBox checkRunUtplsqlTestCheckBox = new JCheckBox
38+ val JPanel generateTestPanel = new JPanel ();
3539 val JTextField testPackagePrefixTextField = new JTextField
3640 val JTextField testPackageSuffixTextField = new JTextField
3741 val JTextField testUnitPrefixTextField = new JTextField
3842 val JTextField testUnitSuffixTextField = new JTextField
3943 val SpinnerNumberModel numberOfTestsPerUnitModel = new SpinnerNumberModel (1 , 1 , 10 , 1 );
4044 val JSpinner numberOfTestsPerUnitSpinner = new JSpinner (numberOfTestsPerUnitModel);
45+ val JCheckBox checkGenerateUtplsqlTestCheckBox = new JCheckBox
4146
4247 new () {
4348 layoutControls()
4449 }
4550
4651 def private layoutControls () {
47- val FieldLayoutBuilder builder = new FieldLayoutBuilder (this )
48- builder. alignLabelsLeft = true
49- builder. add(
50- builder. field. label. withText(UtplsqlResources . getString(" PREF_UNSHARED_WORKSHEET_LABEL" )). component(
52+ runTestPanel. border = BorderFactory . createTitledBorder(UtplsqlResources . getString(" MENU_RUN_TEST_LABEL" ))
53+ val FieldLayoutBuilder b1 = new FieldLayoutBuilder (runTestPanel)
54+ b1. alignLabelsLeft = true
55+ b1. add(
56+ b1. field. label. withText(UtplsqlResources . getString(" PREF_UNSHARED_WORKSHEET_LABEL" )). component(
5157 unsharedWorksheetCheckBox))
52- builder . add(
53- builder . field. label. withText(UtplsqlResources . getString(" PREF_RESET_PACKAGE_LABEL" )). component(
58+ b1 . add(
59+ b1 . field. label. withText(UtplsqlResources . getString(" PREF_RESET_PACKAGE_LABEL" )). component(
5460 resetPackageCheckBox))
55- builder . add(
56- builder . field. label. withText(UtplsqlResources . getString(" PREF_CLEAR_SCREEN_LABEL" )). component(
61+ b1 . add(
62+ b1 . field. label. withText(UtplsqlResources . getString(" PREF_CLEAR_SCREEN_LABEL" )). component(
5763 clearScreenCheckBox))
58- builder . add(
59- builder . field. label. withText(UtplsqlResources . getString(" PREF_AUTO_EXECUTE_LABEL" )). component(
64+ b1 . add(
65+ b1 . field. label. withText(UtplsqlResources . getString(" PREF_AUTO_EXECUTE_LABEL" )). component(
6066 autoExecuteCheckBox))
61- builder . add(
62- builder . field. label. withText(UtplsqlResources . getString(" PREF_CHECK_RUN_UTPLSQL_TEST_LABEL" )). component(
67+ b1 . add(
68+ b1 . field. label. withText(UtplsqlResources . getString(" PREF_CHECK_RUN_UTPLSQL_TEST_LABEL" )). component(
6369 checkRunUtplsqlTestCheckBox))
64- builder. add(
65- builder. field. label. withText(UtplsqlResources . getString(" PREF_TEST_PACKAGE_PREFIX_LABEL" )). component(
70+ generateTestPanel. border = BorderFactory . createTitledBorder(UtplsqlResources . getString(" MENU_GENERATE_TEST_LABEL" ))
71+ val FieldLayoutBuilder b2 = new FieldLayoutBuilder (generateTestPanel)
72+ b2. alignLabelsLeft = true
73+ b2. add(
74+ b2. field. label. withText(UtplsqlResources . getString(" PREF_TEST_PACKAGE_PREFIX_LABEL" )). component(
6675 testPackagePrefixTextField))
67- builder . add(
68- builder . field. label. withText(UtplsqlResources . getString(" PREF_TEST_PACKAGE_SUFFIX_LABEL" )). component(
76+ b2 . add(
77+ b2 . field. label. withText(UtplsqlResources . getString(" PREF_TEST_PACKAGE_SUFFIX_LABEL" )). component(
6978 testPackageSuffixTextField))
70- builder . add(
71- builder . field. label. withText(UtplsqlResources . getString(" PREF_TEST_UNIT_PREFIX_LABEL" )). component(
79+ b2 . add(
80+ b2 . field. label. withText(UtplsqlResources . getString(" PREF_TEST_UNIT_PREFIX_LABEL" )). component(
7281 testUnitPrefixTextField))
73- builder . add(
74- builder . field. label. withText(UtplsqlResources . getString(" PREF_TEST_UNIT_SUFFIX_LABEL" )). component(
82+ b2 . add(
83+ b2 . field. label. withText(UtplsqlResources . getString(" PREF_TEST_UNIT_SUFFIX_LABEL" )). component(
7584 testUnitSuffixTextField))
76- builder . add(
77- builder . field. label. withText(UtplsqlResources . getString(" PREF_NUMBER_OF_TESTS_PER_UNIT" )). component(
85+ b2 . add(
86+ b2 . field. label. withText(UtplsqlResources . getString(" PREF_NUMBER_OF_TESTS_PER_UNIT" )). component(
7887 numberOfTestsPerUnitSpinner))
88+ b2. add(
89+ b2. field. label. withText(UtplsqlResources . getString(" PREF_CHECK_GENERATE_UTPLSQL_TEST_LABEL" )). component(
90+ checkGenerateUtplsqlTestCheckBox))
91+ val FieldLayoutBuilder builder = new FieldLayoutBuilder (this )
92+ builder. alignLabelsLeft = true
93+ builder. addVerticalField(" " , runTestPanel)
94+ builder. addVerticalField(" " , generateTestPanel)
7995 builder. addVerticalSpring
8096 }
8197
@@ -91,6 +107,7 @@ class PreferencePanel extends DefaultTraversablePanel {
91107 testUnitPrefixTextField. text = info. testUnitPrefix
92108 testUnitSuffixTextField. text = info. testUnitSuffix
93109 numberOfTestsPerUnitSpinner. value = info. numberOfTestsPerUnit
110+ checkGenerateUtplsqlTestCheckBox. selected = info. checkGenerateUtplsqlTest
94111 super . onEntry(traversableContext)
95112 }
96113
@@ -106,6 +123,7 @@ class PreferencePanel extends DefaultTraversablePanel {
106123 info. testUnitPrefix = testUnitPrefixTextField. text
107124 info. testUnitSuffix = testUnitSuffixTextField. text
108125 info. numberOfTestsPerUnit = numberOfTestsPerUnitSpinner. value as Integer
126+ info. checkGenerateUtplsqlTest = checkGenerateUtplsqlTestCheckBox. selected
109127 super . onExit(traversableContext)
110128 }
111129
0 commit comments