#REFACTORING by stefan cvs_MAIN expecco_19_1_0 expecco_19_1_0_final1
authorStefan Vogel <sv@exept.de>
Fri, 17 May 2019 16:56:31 +0200
branchcvs_MAIN
changeset 3899 3c0aea90b463
parent 3898 d8c5eadc3a52
child 3900 7acd9bc59ce6
#REFACTORING by stefan Sanitize BlockValues class: JavaCodeBundleEditor changed: #canAddHolder #canEditHolder #canRemoveHolder
tools/JavaCodeBundleEditor.st
--- a/tools/JavaCodeBundleEditor.st	Thu Apr 11 18:36:26 2019 +0200
+++ b/tools/JavaCodeBundleEditor.st	Fri May 17 16:56:31 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libjava/tools' }"
 
 "{ NameSpace: Smalltalk }"
@@ -327,31 +329,31 @@
 !JavaCodeBundleEditor methodsFor:'aspects-queries'!
 
 canAddHolder
-    ^BlockValue 
-        with:[:ro :sel| ro value not" and:[sel value isNil or:[sel value libraryOrBundle isBundle]]"]
+    ^ BlockValue 
+        with:[:ro :sel| ro not "and:[sel isNil or:[sel libraryOrBundle isBundle]]"]
         argument: self readonlyHolder
         argument: self bundleTreeSelectionHolder
 
     "Created: / 30-01-2013 / 16:43:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 21-02-2013 / 23:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-05-2019 / 16:19:21 / Stefan Vogel"
 !
 
 canEditHolder
-    ^BlockValue 
-        with:[:ro :sel|ro value not and:[sel value notNil]]
+    ^ BlockValue 
+        with:[:ro :sel| ro not and:[sel notNil]]
         argument: self readonlyHolder
         argument: self bundleTreeSelectionHolder
 
     "Modified: / 30-01-2013 / 16:33:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-05-2019 / 16:18:57 / Stefan Vogel"
 !
 
 canRemoveHolder
-    ^BlockValue 
-        with:[:ro :sel|ro value not and:[sel value notNil]]
-        argument: self readonlyHolder
-        argument: self bundleTreeSelectionHolder
+    ^ self canEditHolder
 
     "Modified: / 30-01-2013 / 16:32:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 17-05-2019 / 16:56:14 / Stefan Vogel"
 ! !
 
 !JavaCodeBundleEditor methodsFor:'change & update'!