--- a/Tools__LintRuleSettingsApplication.st Tue Oct 14 16:25:19 2014 +0200
+++ b/Tools__LintRuleSettingsApplication.st Tue Oct 14 17:33:08 2014 +0200
@@ -219,22 +219,29 @@
doAdd
<resource: #uiCallback>
- self doAdd: RBCompositeLintRule new
+ | ruleset |
- "Modified: / 27-02-2013 / 11:25:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ ruleset := RBCompositeLintRule new.
+ ruleset name: 'New Rule Set ' , (self rulesetList size + 1) printString.
+ self doAdd: ruleset
+
+ "Modified: / 14-10-2014 / 16:30:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doAdd: anRBCompositeLintRule
+ | dialog |
- anRBCompositeLintRule name isNil ifTrue:[
- anRBCompositeLintRule name: 'New Rule Set ' , (self rulesetList size + 1) printString
+ dialog := LintRuleEditDialog new.
+ dialog rule: anRBCompositeLintRule.
+ dialog open.
+ dialog accepted ifTrue:[
+ self rulesetList add: anRBCompositeLintRule.
+ self rulesetSelectionHolder value: anRBCompositeLintRule.
+ self updateModifiedChannel.
].
- self rulesetList add: anRBCompositeLintRule.
- self rulesetSelectionHolder value: anRBCompositeLintRule.
- self updateModifiedChannel.
- self doEdit.
"Created: / 27-02-2013 / 11:25:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 14-10-2014 / 16:29:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doCopy
@@ -273,27 +280,23 @@
| file |
+ DIalog warn: 'Not yet implemented'.
+ ^ self.
+
file := Dialog requestFileName: (resources string: 'Select file') default: (LastFileName ? Filename currentDirectory / 'exported-ruleset.st').
file isEmptyOrNil ifTrue:[ ^ self ].
self shouldImplement
- "Modified: / 27-02-2013 / 23:53:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 14-10-2014 / 16:33:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doImport
<resource: #uiCallback>
- "automatically generated by UIPainter..."
+ Dialog warn: 'Not yet implemented'
- "*** the code below performs no action"
- "*** (except for some feedback on the Transcript)"
- "*** Please change as required and accept in the browser."
- "*** (and replace this comment by something more useful ;-)"
-
- "action to be defined here..."
-
- Transcript showCR:self class name, ': action for doImport ...'.
+ "Modified: / 14-10-2014 / 16:33:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
doRemove
@@ -424,11 +427,11 @@
!LintRuleSettingsApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.6 2014-04-13 18:24:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.7 2014-10-14 15:33:08 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.6 2014-04-13 18:24:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__LintRuleSettingsApplication.st,v 1.7 2014-10-14 15:33:08 vrany Exp $'
! !