1616package org.utplsql.sqldev
1717
1818import javax.swing.JCheckBox
19+ import javax.swing.JSpinner
20+ import javax.swing.JTextField
21+ import javax.swing.SpinnerNumberModel
1922import oracle.ide.panels.DefaultTraversablePanel
2023import oracle.ide.panels.TraversableContext
2124import oracle.ide.panels.TraversalException
@@ -29,6 +32,12 @@ class PreferencePanel extends DefaultTraversablePanel {
2932 val JCheckBox clearScreenCheckBox = new JCheckBox
3033 val JCheckBox autoExecuteCheckBox = new JCheckBox
3134 val JCheckBox checkRunUtplsqlTestCheckBox = new JCheckBox
35+ val JTextField testPackagePrefixTextField = new JTextField
36+ val JTextField testPackageSuffixTextField = new JTextField
37+ val JTextField testUnitPrefixTextField = new JTextField
38+ val JTextField testUnitSuffixTextField = new JTextField
39+ val SpinnerNumberModel numberOfTestsPerUnitModel = new SpinnerNumberModel (1 , 1 , 10 , 1 );
40+ val JSpinner numberOfTestsPerUnitSpinner = new JSpinner (numberOfTestsPerUnitModel);
3241
3342 new () {
3443 layoutControls()
@@ -52,6 +61,21 @@ class PreferencePanel extends DefaultTraversablePanel {
5261 builder. add(
5362 builder. field. label. withText(UtplsqlResources . getString(" PREF_CHECK_RUN_UTPLSQL_TEST_LABEL" )). component(
5463 checkRunUtplsqlTestCheckBox))
64+ builder. add(
65+ builder. field. label. withText(UtplsqlResources . getString(" PREF_TEST_PACKAGE_PREFIX_LABEL" )). component(
66+ testPackagePrefixTextField))
67+ builder. add(
68+ builder. field. label. withText(UtplsqlResources . getString(" PREF_TEST_PACKAGE_SUFFIX_LABEL" )). component(
69+ testPackageSuffixTextField))
70+ builder. add(
71+ builder. field. label. withText(UtplsqlResources . getString(" PREF_TEST_UNIT_PREFIX_LABEL" )). component(
72+ testUnitPrefixTextField))
73+ builder. add(
74+ builder. field. label. withText(UtplsqlResources . getString(" PREF_TEST_UNIT_SUFFIX_LABEL" )). component(
75+ testUnitSuffixTextField))
76+ builder. add(
77+ builder. field. label. withText(UtplsqlResources . getString(" PREF_NUMBER_OF_TESTS_PER_UNIT" )). component(
78+ numberOfTestsPerUnitSpinner))
5579 builder. addVerticalSpring
5680 }
5781
@@ -62,6 +86,11 @@ class PreferencePanel extends DefaultTraversablePanel {
6286 clearScreenCheckBox. selected = info. clearScreen
6387 autoExecuteCheckBox. selected = info. autoExecute
6488 checkRunUtplsqlTestCheckBox. selected = info. checkRunUtplsqlTest
89+ testPackagePrefixTextField. text = info. testPackagePrefix
90+ testPackageSuffixTextField. text = info. testPackageSuffix
91+ testUnitPrefixTextField. text = info. testUnitPrefix
92+ testUnitSuffixTextField. text = info. testUnitSuffix
93+ numberOfTestsPerUnitSpinner. value = info. numberOfTestsPerUnit
6594 super . onEntry(traversableContext)
6695 }
6796
@@ -72,6 +101,11 @@ class PreferencePanel extends DefaultTraversablePanel {
72101 info. clearScreen = clearScreenCheckBox. selected
73102 info. autoExecute = autoExecuteCheckBox. selected
74103 info. checkRunUtplsqlTest = checkRunUtplsqlTestCheckBox. selected
104+ info. testPackagePrefix = testPackagePrefixTextField. text
105+ info. testPackageSuffix = testPackageSuffixTextField. text
106+ info. testUnitPrefix = testUnitPrefixTextField. text
107+ info. testUnitSuffix = testUnitSuffixTextField. text
108+ info. numberOfTestsPerUnit = numberOfTestsPerUnitSpinner. value as Integer
75109 super . onExit(traversableContext)
76110 }
77111
0 commit comments