class: NewChangesBrowser
changed: #classNameOfChange: (send #copyButLast: instead of #copyWithoutLast:)
--- a/NewChangesBrowser.st Thu Dec 05 04:27:49 2013 +0000
+++ b/NewChangesBrowser.st Thu Dec 05 20:16:06 2013 +0100
@@ -2142,9 +2142,11 @@
name := self fullClassNameOfChange:aChange.
name isNil ifTrue:[^ nil].
(name endsWith:' class') ifTrue:[
- ^ name copyWithoutLast:6
+ ^ name copyButLast:6
].
^ name
+
+ "Modified: / 05-12-2013 / 19:15:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
compareChange:aChange
@@ -3881,9 +3883,10 @@
!NewChangesBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011-08-18 07:51:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.36 2013-12-05 19:16:06 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.35 2011-08-18 07:51:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/NewChangesBrowser.st,v 1.36 2013-12-05 19:16:06 vrany Exp $'
! !
+