--- a/BrowserView.st	Thu Aug 24 23:13:16 2006 +0200
+++ b/BrowserView.st	Thu Aug 24 23:13:22 2006 +0200
@@ -2966,24 +2966,30 @@
     (self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self].
 
     self withWaitCursorDo:[
-        |logMessage classes allSelected|
+        |logInfo classes allSelected|
 
         allSelected := (currentClassCategory = '* all *'
                         or:[currentClassCategory = '* hierarchy *']).
 
-        logMessage := SourceCodeManagerUtilities 
-                        getLogMessageFor:(resources
+        logInfo := SourceCodeManagerUtilities 
+                        getCheckinInfoFor:(resources
                                              string:(allSelected ifTrue:['all classes'] ifFalse:[' any in classCategory ''%1'''])
-                                             with:currentClassCategory).
-
-        logMessage notNil ifTrue:[
+                                             with:currentClassCategory)
+                        initialAnswer:nil
+                        withQuickOption:true.
+
+        logInfo notNil ifTrue:[
             allSelected ifTrue:[
                 classes := self allClasses
             ] ifFalse:[
                 classes := self allClassesInCategory:currentClassCategory.
             ].
             classes := classes select:[:eachClass | eachClass isPrivate not].
-            SourceCodeManagerUtilities checkinClasses:classes withLog:logMessage.
+            logInfo quickCheckIn ifTrue:[
+                classes := classes select:[:aClass | ChangeSet current includesChangeForClass:aClass].
+                classes isEmpty ifTrue:[^ self ].
+            ].
+            SourceCodeManagerUtilities checkinClasses:classes withInfo:logInfo.
         ].
         self normalLabel.
     ]
@@ -5210,21 +5216,13 @@
             self warn:'cannot checkin unloaded classes.'.
             ^ self.
         ].
-        self classCheckin:currentClass withLog:nil
+        SourceCodeManagerUtilities checkinClass:currentClass withInfo:nil
     ].
 
     "Created: 23.11.1995 / 11:41:38 / cg"
     "Modified: 15.4.1996 / 17:07:07 / cg"
 !
 
-classCheckin:aClass withLog:aLogMessage
-    "check a class into the source repository"
-
-    SourceCodeManagerUtilities
-        checkinClass:aClass withLog:aLogMessage.
-    self normalLabel.
-!
-
 classCompareWithRepository
     "open a diff-textView comparing the current (in-image) version
      with the some version found in the repository."
@@ -11384,17 +11382,23 @@
     ].
 
     self withWaitCursorDo:[
-        |logMessage|
-
-
-        logMessage := SourceCodeManagerUtilities 
-                        getLogMessageFor:(resources 
+        |info|
+
+
+        info := SourceCodeManagerUtilities
+                        getCheckinInfoFor:(resources 
                                             string:'(any in nameSpace %1)'
-                                            with:currentNamespace name).
-
-        logMessage notNil ifTrue:[
+                                            with:currentNamespace name)
+                        initialAnswer:nil
+                        withQuickOption:true.
+
+        info notNil ifTrue:[
             "/ ignore private classes
             classes := classes select:[:aClass | aClass owningClass isNil].
+            info quickCheckIn ifTrue:[
+                classes := classes select:[:aClass | ChangeSet current includesChangeForClass:aClass].
+                classes isEmpty ifTrue:[^ self ].
+            ].
 
             classes do:[:aClass |
                 self busyLabel:'checking in %1' with:aClass name.
@@ -11402,7 +11406,8 @@
                 InformationSignal handle:[:ex |
                     Transcript showCR:ex description
                 ] do:[
-                    self classCheckin:aClass withLog:logMessage
+                    SourceCodeManagerUtilities 
+                        checkinClass:aClass withInfo:info.
                 ].
                 self normalLabel.
             ]
@@ -14555,7 +14560,7 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.800 2006-08-23 17:34:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.801 2006-08-24 21:13:22 cg Exp $'
 ! !
 
 BrowserView initialize!