Tools__ChangeSetBrowser2.st
changeset 18765 01fbee71432b
parent 18442 fc2249b0ed74
child 18778 6989043ad348
--- 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