*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 12 Oct 2006 21:32:13 +0200
changeset 1864 0a1a62489122
parent 1863 fcd1a38eaf7a
child 1865 89d9aef483b2
*** empty log message ***
SourceCodeManagerUtilities.st
--- a/SourceCodeManagerUtilities.st	Thu Oct 12 16:29:19 2006 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Oct 12 21:32:13 2006 +0200
@@ -745,7 +745,7 @@
 
     sourceInfo := mgr sourceInfoOfClass:currentClass.
     sourceInfo notNil ifTrue:[
-        currentClass package ~= Project defaultProject package ifTrue:[
+        currentClass package ~= Project noProjectID ifTrue:[
             containerPackage := mgr directoryFromSourceInfo:sourceInfo.
             containerModule := mgr moduleFromSourceInfo:sourceInfo.
         ].
@@ -760,7 +760,7 @@
         ].
         rev isNil ifTrue:[
             pkg := currentClass package.
-            (pkg notNil and:[pkg ~= Project defaultProject package]) ifTrue:[
+            (pkg notNil and:[pkg ~= Project noProjectID]) ifTrue:[
                 containerModule := pkg upTo:$:.
                 containerPackage := pkg copyFrom:(containerModule size + 2).
             ].
@@ -1104,7 +1104,7 @@
     Smalltalk changed:#projectOrganization.
 
     "Modified: / 07-02-2001 / 18:18:32 / ps"
-    "Modified: / 21-09-2006 / 17:45:56 / cg"
+    "Modified: / 12-10-2006 / 20:52:13 / cg"
 !
 
 checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge using:aSourceCodeManager
@@ -1418,7 +1418,7 @@
             (ChangeSet current includesChangeForClassOrMetaclassOrPrivateClassOf:classToCompare) ifTrue:[
                 (self confirm:(resources 
                                 stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
-                                with:classToCompare name)) ifTrue:[
+                                with:classToCompare name allBold)) ifTrue:[
                     ChangeSet current condenseChangesForClass:classToCompare.
                 ].
             ] ifFalse:[
@@ -1450,7 +1450,7 @@
       self compareClassWithRepository:Array
     "
 
-    "Modified: / 21-06-2006 / 12:12:56 / cg"
+    "Modified: / 12-10-2006 / 17:37:21 / cg"
 !
 
 createSourceContainerForClass:aClass
@@ -2625,5 +2625,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.145 2006-10-09 11:14:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.146 2006-10-12 19:32:13 cg Exp $'
 ! !