#REFACTORING by stefan
Sanitize BlockValues
class: Tools::ChangeSetBrowser2
changed:
#hasSelectionHolder
#isTwoColumnHolder
#isTwoColumnHolderNot
--- a/Tools__ChangeSetBrowser2.st Fri May 17 16:50:59 2019 +0200
+++ b/Tools__ChangeSetBrowser2.st Fri May 17 17:08:10 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 2010 by Jan Vrany, SWING Research Group. CTU in Prague
All Rights Reserved
@@ -2258,12 +2260,13 @@
holder := builder bindings at: #isTwoColumnHolder ifAbsentPut:[
BlockValue
- with:[:v| v value == #twoColumnNavigatorSpec]
+ with:[:v| v == #twoColumnNavigatorSpec]
argument: self navigatorSpecHolder.
].
^holder
"Created: / 30-03-2012 / 12:07:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-05-2019 / 16:10:49 / Stefan Vogel"
!
isTwoColumnHolderNot
@@ -2271,12 +2274,13 @@
holder := builder bindings at: #isTwoColumnHolderNot ifAbsentPut:[
BlockValue
- with:[:v| v value ~~ #twoColumnNavigatorSpec]
+ with:[:v| v ~~ #twoColumnNavigatorSpec]
argument: self navigatorSpecHolder.
].
^holder
"Created: / 30-03-2012 / 12:08:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-05-2019 / 16:10:44 / Stefan Vogel"
!
labelAHolder
@@ -2580,7 +2584,7 @@
hasSelectionHolder :=
BlockValue
with:[:sel1 :sel2|
- sel1 value notEmptyOrNil or:[sel2 value notEmptyOrNil]
+ sel1 notEmptyOrNil or:[sel2 notEmptyOrNil]
]
argument: self selection1Holder
argument: self selection2Holder
@@ -2588,6 +2592,7 @@
^hasSelectionHolder
"Created: / 17-05-2012 / 20:45:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 17-05-2019 / 16:11:01 / Stefan Vogel"
!
isWorkingHolder