--- a/ChangesBrowser.st	Sat Feb 12 17:14:36 2000 +0100
+++ b/ChangesBrowser.st	Mon Feb 14 13:02:47 2000 +0100
@@ -880,6 +880,7 @@
        #'commentStamp:prior:'        "/ Squeak support
        #'addClassVarName:'           "/ Squeak support
        #methodsFor                   "/ Dolphin support
+       #methods                      "/ STV support
     ) includes:sel) ifTrue:[
         "
          yes, the className is the receiver
@@ -995,7 +996,7 @@
     ].
     ^ nil
 
-    "Modified: / 3.8.1998 / 19:58:17 / cg"
+    "Modified: / 13.2.2000 / 15:05:28 / cg"
 !
 
 numberOfChanges
@@ -1126,6 +1127,7 @@
                #methodsFor:stamp:             "/ Squeak support
                #commentStamp:prior:           "/ Squeak support
                #methodsFor                    "/ Dolphin support
+               #methods                       "/ STV support
               ) 
             includes:sel) ifTrue:[
                 sourceChunk := aStream nextChunk.
@@ -1136,7 +1138,7 @@
     ^ sourceChunk
 
     "Created: / 5.9.1996 / 17:11:32 / cg"
-    "Modified: / 3.8.1998 / 20:00:21 / cg"
+    "Modified: / 13.2.2000 / 15:05:45 / cg"
 !
 
 streamForChange:changeNr
@@ -1480,6 +1482,7 @@
                                    #methodsFor:stamp:             "/ Squeak support
                                    #'commentStamp:prior:'         "/ Squeak support
                                    #methodsFor                    "/ Dolphin support
+                                   #methods                       "/ STV support
                                   ) 
                                 includes:sel) ifTrue:[
                                     methodChunks := true.
@@ -1491,10 +1494,14 @@
                                         className := p receiver name.
                                         changeClass := Smalltalk classNamed:className
                                     ].
-                                    sel == #'methodsFor' ifTrue:[
+                                    (sel == #'methodsFor') ifTrue:[
                                         category := 'Dolphin methods'.
                                     ] ifFalse:[
-                                        category := (p args at:1) evaluate.
+                                        (sel == #methods) ifTrue:[
+                                            category := 'STV methods'.
+                                        ] ifFalse:[
+                                            category := (p args at:1) evaluate.
+                                        ]
                                     ].
                                     sel == #'methodsFor:stamp:' ifTrue:[
                                         "/ Squeak timeStamp
@@ -1644,7 +1651,7 @@
     self checkIfFileHasChanged
 
     "Modified: / 27.8.1995 / 23:06:55 / claus"
-    "Modified: / 17.7.1998 / 11:10:07 / cg"
+    "Modified: / 13.2.2000 / 15:02:11 / cg"
 !
 
 writeBackChanges
@@ -2017,6 +2024,7 @@
 
                #methodsFor:stamp:             "/ Squeak support
                #methodsFor                    "/ Dolphin support
+               #methods                       "/ STV support
               ) 
             includes:parseTree selector) ifTrue:[
                 thisClass := (parseTree receiver evaluate).
@@ -2028,7 +2036,11 @@
                     parseTree selector == #methodsFor ifTrue:[
                         cat := 'Dolphin methods'.
                     ] ifFalse:[
-                        cat := parseTree arg1 evaluate.
+                        parseTree selector == #methods ifTrue:[
+                            cat := 'STV methods'.
+                        ] ifFalse:[
+                            cat := parseTree arg1 evaluate.
+                        ].
                     ].
                     newSource := aStream nextChunk.
 
@@ -2119,7 +2131,7 @@
     ].
 
     "Created: / 24.11.1995 / 14:30:46 / cg"
-    "Modified: / 6.7.1998 / 17:07:47 / cg"
+    "Modified: / 13.2.2000 / 15:04:39 / cg"
 !
 
 compressForClass:aClassNameOrNil
@@ -2190,6 +2202,7 @@
                        #protectedMethodsFor:
                        #methodsFor:stamp:             "/ Squeak support
                        #methodsFor                    "/ Dolphin support
+                       #methods                       "/ STV support
                       ) 
                     includes:aParseTree selector) ifTrue:[
                         thisClass := (aParseTree receiver evaluate).
@@ -2302,7 +2315,7 @@
     self newLabel:''.
 
     "Created: / 29.10.1997 / 01:02:44 / cg"
-    "Modified: / 29.10.1997 / 01:26:59 / cg"
+    "Modified: / 13.2.2000 / 15:05:07 / cg"
 !
 
 deleteChange:changeNr
@@ -3396,5 +3409,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.190 2000-02-12 15:31:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.191 2000-02-14 12:02:47 cg Exp $'
 ! !