Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Thu, 22 Jul 1999 14:51:47 +0200
changeset 2290 59207b94df0c
parent 2289 f11b1b928d2c
child 2291 6f517d3e1d83
checkin from browser
CBrowser.st file | annotate | diff | comparison | revisions
ChangesBrowser.st file | annotate | diff | comparison | revisions 
--- a/CBrowser.st	Wed Jul 21 12:52:16 1999 +0200
+++ b/CBrowser.st	Thu Jul 22 14:51:47 1999 +0200
@@ -1304,24 +1304,14 @@
                                         changeString := self contractClass:cls selector:sel to:maxLen.
                                     ].
                                 ].
-                                (#(#'subclass:'
-                                  #'variableSubclass:'
-                                  #'variableByteSubclass:'
-                                  #'variableWordSubclass:'
-                                  #'variableLongSubclass:'
-                                  #'variableLongLongSubclass:'
-                                  #'variableSignedWordSubclass:'
-                                  #'variableSignedLongSubclass:'
-                                  #'variableSignedLongLongSubclass:'
-                                  #'variableFloatSubclass:'
-                                  #'variableDoubleSubclass:'
-                                 ) includes:sel) ifTrue:[
+                                (Class definitionSelectors includes:sel) ifTrue:[
                                     changeType := '(class definition)'.
                                     clsName := (p args at:1) evaluate.
                                     cls := Smalltalk at:clsName ifAbsent:nil.
                                     cls isNil ifTrue:[
                                         changeDelta := '+'.
-                                    ]
+                                    ].
+                                    changeString := clsName.
                                 ] ifFalse:[
                                     (#(
                                       #'primitiveDefinitions:'
@@ -3089,5 +3079,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.160 1999-07-19 16:36:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/CBrowser.st,v 1.161 1999-07-22 12:51:47 cg Exp $'
 ! !
--- a/ChangesBrowser.st	Wed Jul 21 12:52:16 1999 +0200
+++ b/ChangesBrowser.st	Thu Jul 22 14:51:47 1999 +0200
@@ -1304,24 +1304,14 @@
                                         changeString := self contractClass:cls selector:sel to:maxLen.
                                     ].
                                 ].
-                                (#(#'subclass:'
-                                  #'variableSubclass:'
-                                  #'variableByteSubclass:'
-                                  #'variableWordSubclass:'
-                                  #'variableLongSubclass:'
-                                  #'variableLongLongSubclass:'
-                                  #'variableSignedWordSubclass:'
-                                  #'variableSignedLongSubclass:'
-                                  #'variableSignedLongLongSubclass:'
-                                  #'variableFloatSubclass:'
-                                  #'variableDoubleSubclass:'
-                                 ) includes:sel) ifTrue:[
+                                (Class definitionSelectors includes:sel) ifTrue:[
                                     changeType := '(class definition)'.
                                     clsName := (p args at:1) evaluate.
                                     cls := Smalltalk at:clsName ifAbsent:nil.
                                     cls isNil ifTrue:[
                                         changeDelta := '+'.
-                                    ]
+                                    ].
+                                    changeString := clsName.
                                 ] ifFalse:[
                                     (#(
                                       #'primitiveDefinitions:'
@@ -3089,5 +3079,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.160 1999-07-19 16:36:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.161 1999-07-22 12:51:47 cg Exp $'
 ! !
hg/stx-libtool