class: Tools::ChangeList
authorClaus Gittinger <cg@exept.de>
Thu, 04 Apr 2013 02:42:59 +0200
changeset 12640 ff31bac2fd1b
parent 12639 6a0a5bf99236
child 12641 f982fff8acc5
child 12650 e0f607754b9a
class: Tools::ChangeList
Tools__ChangeList.st
--- a/Tools__ChangeList.st	Thu Apr 04 00:22:29 2013 +0200
+++ b/Tools__ChangeList.st	Thu Apr 04 02:42:59 2013 +0200
@@ -1097,13 +1097,14 @@
 !ChangeList::ListEntry methodsFor:'private'!
 
 iconSelector
-    | delta |
+    | delta sym |
 
     delta := change deltaDetail.
-    delta shortDeltaSymbol = #+ ifTrue:[^#iconPlus].
-    delta shortDeltaSymbol = #- ifTrue:[^#iconMinus].
-    delta shortDeltaSymbol = #= ifTrue:[^#iconEqual].
-
+    sym := delta shortDeltaSymbol.
+    sym = #+ ifTrue:[^#iconPlus].
+    sym = #- ifTrue:[^#iconMinus].
+    sym = #= ifTrue:[^#iconEqual].
+    "/ different.
     ^ nil.
 
     "Modified: / 31-08-2011 / 10:39:32 / cg"
@@ -1121,11 +1122,11 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.21 2013-03-30 01:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.22 2013-04-04 00:42:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.21 2013-03-30 01:59:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.22 2013-04-04 00:42:59 cg Exp $'
 !
 
 version_SVN