--- a/ChangesBrowser.st	Sun Nov 02 19:29:16 1997 +0100
+++ b/ChangesBrowser.st	Sun Nov 02 20:16:30 1997 +0100
@@ -407,9 +407,16 @@
     "/
     changeListView hasSelection ifFalse:[
         m disableAll:#(doApply doApplyClassRest doApplyRest doDelete doDeleteRest doDeleteClassRest
-                       doDeleteClassFromBeginning 
-                       doDeleteClassAll doCompare doMakePatch doSaveChangeInFile doMakePermanent
+                       doDeleteClassFromBeginning doDeleteClassAll 
+                       doCompare doCompressClass doMakePatch doSaveChangeInFile doMakePermanent
                        doSave doSaveRest doSaveClassAll doSaveClassRest doBrowse doFileoutAndDeleteClassAll) 
+    ] ifTrue:[
+        (self classNameOfChange:(changeListView selection)) isNil ifTrue:[
+            m disableAll:#(doApplyClassRest doDeleteClassRest
+                           doDeleteClassFromBeginning doDeleteClassAll 
+                           doCompressClass
+                           doSaveClassAll doSaveClassRest doBrowse doFileoutAndDeleteClassAll) 
+        ]
     ].
 
     "/
@@ -424,7 +431,7 @@
     ^ m
 
     "Modified: / 6.9.1995 / 17:14:22 / claus"
-    "Modified: / 29.10.1997 / 03:39:46 / cg"
+    "Modified: / 30.10.1997 / 22:25:00 / cg"
 !
 
 compare:aBoolean
@@ -2643,5 +2650,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.119 1997-10-29 15:56:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.120 1997-11-02 19:16:30 cg Exp $'
 ! !