--- a/SVN__CommitTask.st	Tue Apr 03 19:17:29 2012 +0200
+++ b/SVN__CommitTask.st	Tue Apr 03 19:18:03 2012 +0200
@@ -76,38 +76,28 @@
 message
 
     message ifNil:[
-        | changedClasses changedMethods |
-        changedClasses := OrderedSet new.
-        changedMethods := OrderedSet new.
-        (ChangeSet current changesForPackage: package) do:
-            [:chg| | chgCls |        
-            chg isClassChange ifTrue:
-                [(chgCls := chg changeClass theNonMetaclass) package == package
-                    ifTrue:
-                        [(classes isNil or:[classes includes: chgCls]) ifTrue:
-                            [changedClasses add: chgCls]]
-                    ifFalse:
-                        [chg isMethodDefinitionChange ifTrue:
-                            [changedMethods add: chg changeMethod]]]].
-        message := String streamContents:
-            [:s|
-            s cr.
-            changedClasses isEmpty ifFalse:
-                [s nextPutLine:'## Changed classes:'.
-                changedClasses do:
-                    [:cls|s nextPutAll:'##   ';nextPutAll: cls name; cr]].
-            changedMethods isEmpty ifFalse:
-                [s nextPutLine:'## Changed methods:'.
-                changedMethods do:
-                    [:m|
-                    s   nextPutAll:'##   '; nextPutAll: m mclass name; 
-                        nextPutAll:' >> #'; nextPutAll: m selector;  cr]].     
-            s nextPutLine:'##'.
-            s nextPutLine:'## Lines starting with ## will be removed'.
-    ]].
+        message := String streamContents: [:s|
+            | classes methods msg |    
+            classes := self classesToFileOut.
+            methods := self extensionMethodsToFileOut.
+            classes do:[:cls|
+                msg := SVNSourceCodeManager utilities goodInitialLogMessageForCheckinClassOfClass:cls.
+                msg notEmptyOrNil ifTrue: [
+                    s nextPutLine: ' - ', cls name.
+                    msg asStringCollection do:[:line|
+                        s nextPutAll:'    '; nextPutLine: line.
+                    ]
+                ].
+            ].
+            methods notEmptyOrNil ifTrue:[
+                s nextPutLine: ' - extensions'.
+                s nextPutLine: '    ...'.
+            ].
+        ]
+    ].
     ^message.
 
-    "Modified: / 01-08-2010 / 13:02:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-04-2012 / 18:15:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 message:aString
@@ -218,7 +208,7 @@
      a collection (possibly empty) of found issues."
 
     self isPackageCommit ifFalse:[ ^ nil ].
-    OperatingSystem getLoginName ~= 'jv' ifTrue:[^nil].
+    (ConfigurableFeatures includesFeature:#ProjectChecker) ifFalse:[ ^ nil ].
 
     ^ProjectChecker new 
         package: self package;