--- a/ChangesBrowser.st	Thu Sep 27 09:58:07 2001 +0200
+++ b/ChangesBrowser.st	Thu Sep 27 19:50:51 2001 +0200
@@ -19,7 +19,8 @@
 		changeNrShown changeNrProcessed skipSignal autoCompare
 		changeFileSize changeFileTimestamp checkBlock changeTimeStamps
 		tabSpec autoUpdate editingClassSource lastSearchType
-		lastSearchString applyInOriginalNameSpace lastSaveFileName'
+		lastSearchString applyInOriginalNameSpace lastSaveFileName
+		readOnly'
 	classVariableNames:'CompressSnapshotInfo NoColoring ShowWarningDialogs DefaultIcon'
 	poolDictionaries:''
 	category:'Interface-Browsers'
@@ -556,6 +557,18 @@
     ^ self editingClassSource not
 !
 
+notEditingClassSourceAndNotReadOnly
+    ^ (self editingClassSource or:[readOnly == true]) not
+!
+
+notReadOnly
+    ^ (readOnly ~~ true)
+!
+
+readOnly:aBoolean
+    readOnly := aBoolean
+!
+
 theSingleSelection
     |sel|
 
@@ -900,6 +913,7 @@
                        doFileoutAndDeleteClassAll doCheckinAndDeleteClassAll
                        doWriteBack)
     ].
+
     ^ m
 
     "Modified: / 6.9.1995 / 17:14:22 / claus"
@@ -4276,5 +4290,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.224 2001-09-26 09:57:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.225 2001-09-27 17:50:51 cg Exp $'
 ! !