*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 07 Dec 1995 21:07:36 +0100
changeset 251 f71a4bbb4e38
parent 250 16612cb1c470
child 252 5b9377d69ab2
*** empty log message ***
BrowserView.st
BrwsrView.st
--- a/BrowserView.st	Thu Dec 07 20:09:20 1995 +0100
+++ b/BrowserView.st	Thu Dec 07 21:07:36 1995 +0100
@@ -3890,7 +3890,7 @@
 		    currentMethod category:aString asSymbol.
 		    actualClass changed.
 		    currentMethod changed:#category.
-		    actualClass updateRevisionString.
+"/                    actualClass updateRevisionString.
 		    actualClass addChangeRecordForMethodCategory:currentMethod category:aString.
 		    self updateMethodCategoryListWithScroll:false.
 		    self updateMethodListWithScroll:false
@@ -4323,7 +4323,7 @@
     self checkMethodSelected ifFalse:[^ self].
     currentMethod isPublic ifFalse:[
 	currentMethod privacy:how.
-	actualClass updateRevisionString.
+"/        actualClass updateRevisionString.
 	actualClass addChangeRecordForMethodPrivacy:currentMethod.
 	self updateMethodListWithScroll:false keepSelection:true.
     ]
@@ -6021,5 +6021,5 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.59 1995-12-07 12:35:32 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.60 1995-12-07 20:07:36 cg Exp $'! !
 BrowserView initialize!
--- a/BrwsrView.st	Thu Dec 07 20:09:20 1995 +0100
+++ b/BrwsrView.st	Thu Dec 07 21:07:36 1995 +0100
@@ -3890,7 +3890,7 @@
 		    currentMethod category:aString asSymbol.
 		    actualClass changed.
 		    currentMethod changed:#category.
-		    actualClass updateRevisionString.
+"/                    actualClass updateRevisionString.
 		    actualClass addChangeRecordForMethodCategory:currentMethod category:aString.
 		    self updateMethodCategoryListWithScroll:false.
 		    self updateMethodListWithScroll:false
@@ -4323,7 +4323,7 @@
     self checkMethodSelected ifFalse:[^ self].
     currentMethod isPublic ifFalse:[
 	currentMethod privacy:how.
-	actualClass updateRevisionString.
+"/        actualClass updateRevisionString.
 	actualClass addChangeRecordForMethodPrivacy:currentMethod.
 	self updateMethodListWithScroll:false keepSelection:true.
     ]
@@ -6021,5 +6021,5 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.59 1995-12-07 12:35:32 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.60 1995-12-07 20:07:36 cg Exp $'! !
 BrowserView initialize!