--- a/SourceCodeManagerUtilities.st	Mon Oct 08 11:19:31 2001 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Oct 11 17:19:23 2001 +0200
@@ -461,7 +461,7 @@
     "check a class into the source repository.
      If the argument, aLogMessageOrNil isNil, ask interactively for log-message."
 
-    |logMessage info mgr pri resources|
+    |logMessage info mgr pri resources newSelectors initialLog|
 
     aClass isLoaded ifFalse:[
         self information:'cannot checkin unloaded classes (' , aClass name , ').'.
@@ -477,7 +477,19 @@
     ].
 
     aLogMessageOrNil isNil ifTrue:[
-        logMessage := SourceCodeManagerUtilities getLogMessageFor:aClass name allBold.
+        newSelectors := aClass selectors asSet.
+        newSelectors addAll:(aClass class selectors).
+        newSelectors size == 1 ifTrue:[
+            initialLog := 'Added/changed #' , newSelectors first
+"/        ] ifFalse:[
+"/            newSelectors size > 1 ifTrue:[
+"/                initialLog := 'Added/changed some methods'
+"/            ]
+        ].
+
+        logMessage := self 
+                        getLogMessageFor:aClass name allBold 
+                        initialAnswer:initialLog.
         logMessage isNil ifTrue:[^ false].
     ] ifFalse:[
         logMessage := aLogMessageOrNil
@@ -1614,6 +1626,17 @@
     "get a log message for checking in a class.
      Return the message or nil if aborted."
 
+    ^ self getLogMessageFor:aString initialAnswer:LastSourceLogMessage
+
+    "
+     SourceCodeManagerUtilities getLogMessageFor:'hello'
+    "
+!
+
+getLogMessageFor:aString initialAnswer:initialAnswer
+    "get a log message for checking in a class.
+     Return the message or nil if aborted."
+
     |resources logMsg|
 
     resources := ResourcePack for:self.
@@ -1621,7 +1644,8 @@
         requestText:(resources string:'enter log message for: %1' with:aString)
         lines:10
         columns:70
-        initialAnswer:LastSourceLogMessage.
+        initialAnswer:initialAnswer.
+
     logMsg notNil ifTrue:[
         LastSourceLogMessage := logMsg
     ].
@@ -1630,8 +1654,6 @@
     "
      SourceCodeManagerUtilities getLogMessageFor:'hello'
     "
-
-
 !
 
 getLogMessageFor:aString withButton:additionalButton
@@ -1954,5 +1976,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.66 2001-10-08 09:19:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.67 2001-10-11 15:19:23 cg Exp $'
 ! !