--- a/Tools__LintRuleSettingsApplication.st	Thu Nov 20 20:29:47 2014 +0100
+++ b/Tools__LintRuleSettingsApplication.st	Fri Nov 21 15:01:19 2014 +0100
@@ -52,6 +52,47 @@
     "Modified: / 27-02-2013 / 22:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!LintRuleSettingsApplication class methodsFor:'help specs'!
+
+flyByHelpSpec
+    "This resource specification was automatically generated
+     by the UIHelpTool of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIHelpTool may not be able to read the specification."
+
+    "
+     UIHelpTool openOnClass:Tools::LintRuleSettingsApplication    
+    "
+
+    <resource: #help>
+
+    ^ super flyByHelpSpec addPairsFrom:#(
+
+#add
+'Create a new ruleset'
+
+#copy
+'Create a copy of the selected ruleset'
+
+#edit
+'Edit the selected ruleset'
+
+#export
+'Export the selected ruleset as a file'
+
+#import
+'Import a ruleset from a file'
+
+#remove
+'Remove the selected ruleset'
+
+#resetDefault
+'Recreate the default ruleset with all existing RBRules.\(Do this after new rules have been added or rules class were modified)'
+
+)
+! !
+
 !LintRuleSettingsApplication class methodsFor:'interface opening'!
 
 open    
@@ -121,7 +162,7 @@
            )
           (VerticalPanelViewSpec
              name: 'Buttons1'
-             layout: (LayoutFrame -124 1 65 0 0 1 0 0.7)
+             layout: (LayoutFrame -124 1 65 0 -2 1 0 0.69999999999999996)
              horizontalLayout: fit
              verticalLayout: top
              horizontalSpace: 5
@@ -130,35 +171,39 @@
             (SpecCollection
                collection: (
                 (ActionButtonSpec
-                   label: 'Add'
-                   name: 'ButtonAdd'
+                   label: 'Edit'
+                   name: 'ButtonEdit'
+                   activeHelpKey: edit
                    translateLabel: true
-                   model: doAdd
-                   extent: (Point 124 22)
+                   model: doEdit
+                   enableChannel: canEditHolder
+                   extent: (Point 122 22)
                  )
                 (ActionButtonSpec
                    label: 'Copy'
                    name: 'ButtonCopy'
+                   activeHelpKey: copy
                    translateLabel: true
                    model: doCopy
                    enableChannel: canCopyHolder
-                   extent: (Point 124 22)
+                   extent: (Point 122 22)
                  )
                 (ActionButtonSpec
-                   label: 'Edit'
-                   name: 'ButtonEdit'
+                   label: 'New'
+                   name: 'ButtonAdd'
+                   activeHelpKey: add
                    translateLabel: true
-                   model: doEdit
-                   enableChannel: canEditHolder
-                   extent: (Point 124 22)
+                   model: doAdd
+                   extent: (Point 122 22)
                  )
                 (ActionButtonSpec
                    label: 'Remove'
                    name: 'ButtonRemove'
+                   activeHelpKey: remove
                    translateLabel: true
                    model: doRemove
                    enableChannel: canRemoveHolder
-                   extent: (Point 124 22)
+                   extent: (Point 122 22)
                  )
                 )
               
@@ -166,7 +211,7 @@
            )
           (VerticalPanelViewSpec
              name: 'Buttons2'
-             layout: (LayoutFrame -124 1 0 0.7 0 1 0 1)
+             layout: (LayoutFrame -124 1 0 0.69999999999999996 -2 1 -2 1)
              horizontalLayout: fit
              verticalLayout: bottom
              horizontalSpace: 5
@@ -175,19 +220,33 @@
             (SpecCollection
                collection: (
                 (ActionButtonSpec
+                   label: 'Reset Default'
+                   name: 'Button4'
+                   activeHelpKey: resetDefault
+                   translateLabel: true
+                   model: doResetDefault
+                   extent: (Point 122 22)
+                 )
+                (ViewSpec
+                   name: 'Box1'
+                   extent: (Point 122 30)
+                 )
+                (ActionButtonSpec
                    label: 'Export'
                    name: 'Button2'
+                   activeHelpKey: export
                    translateLabel: true
                    model: doExport
                    enableChannel: canExportHolder
-                   extent: (Point 124 22)
+                   extent: (Point 122 22)
                  )
                 (ActionButtonSpec
                    label: 'Import'
                    name: 'Button3'
+                   activeHelpKey: import
                    translateLabel: true
                    model: doImport
-                   extent: (Point 124 22)
+                   extent: (Point 122 22)
                  )
                 )
               
@@ -253,7 +312,7 @@
     | ruleset |
 
     ruleset := self rulesetSelectionHolder value deepCopy.
-    ruleset name: ruleset name , ' (copy)'.
+    ruleset name: ('Copy of ' , ruleset name).
     self doAdd:  ruleset
 
     "Modified: / 27-02-2013 / 11:30:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -330,6 +389,12 @@
     self updateModifiedChannel
 
     "Modified: / 27-02-2013 / 11:57:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+doResetDefault
+    <resource: #uiCallback>
+
+    RBBuiltinRuleSet flushBuiltinDefault.
 ! !
 
 !LintRuleSettingsApplication methodsFor:'aspects'!
@@ -495,11 +560,11 @@
 !LintRuleSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.13 2014-11-20 01:59:35 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.14 2014-11-21 14:01:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.13 2014-11-20 01:59:35 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.14 2014-11-21 14:01:19 cg Exp $'
 ! !