--- a/SourceCodeManagerUtilities.st	Fri Sep 28 16:29:53 2001 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Oct 04 19:26:38 2001 +0200
@@ -419,7 +419,7 @@
                           request:msg withCRs
                           label:'Really checkIn ?'
                           form:(InfoBox iconBitmap)
-                          buttonLabels:#('yes' 'yes to all' 'no' 'no to all')
+                          buttonLabels:#('Yes' 'Yes to all' 'No' 'No to all')
                           values:#(true #yesToAll false #noToAll)
                           default:#yesToAll
                           onCancel:false.
@@ -1272,7 +1272,7 @@
 
     resources := ResourcePack for:self.
     aClass isLoaded ifFalse:[
-        self warn:'please load the class first'.
+        self warn:(resources string:'Please load the %1-class first' with:aClass name).
         ^ false.
     ].
 
@@ -1373,7 +1373,7 @@
                             with:module
                             with:package
                             with:fileName)
-                labels:(resources array:#('cancel' 'check in' 'change')).
+                labels:(resources array:#('Cancel' 'Check in' 'Change')).
         answer isNil ifTrue:[AbortSignal raise].
         answer ifTrue:[
             doCheckinWithoutAsking := false.
@@ -1449,7 +1449,7 @@
                 (Dialog 
                     confirm:(resources string:'The repository already contains a container named "%3" in "%1/%2" !!\\Checkin %4 anyway ? (DANGER - be careful)'
                          withArgs:(Array with:module with:package with:fileName with:className)) withCRs
-                    noLabel:'cancel')
+                    noLabel:'Cancel')
                 ifFalse:[
                     ^ false
                 ].
@@ -1459,7 +1459,7 @@
         true "doCheckinWithoutAsking" ifFalse:[
             answer := Dialog 
                  confirmWithCancel:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:className) withCRs
-                 labels:(resources array:#( 'cancel' 'no' 'yes')).
+                 labels:(resources array:#( 'Cancel' 'No' 'Yes')).
             answer isNil ifTrue:[^ false].
         ] ifTrue:[
             answer := true.
@@ -1477,17 +1477,17 @@
     "/
     (mgr checkForExistingModule:module) ifFalse:[
         (createDirs or:[creatingNew]) ifFalse:[
-            self warn:(resources string:'a module named %1 does not exist in the source code management' with:module).
+            self warn:(resources string:'A module named %1 does not exist in the source code management' with:module).
             ^ false
         ].
         (Dialog 
             confirm:(resources string:'%1 is a new module.\\create it ?' with:module) withCRs
-            noLabel:'cancel') 
+            noLabel:'Cancel') 
         ifFalse:[
             ^ false.
         ].
         (mgr createModule:module) ifFalse:[
-            self warn:(resources string:'cannot create new module: %1' with:module).
+            self warn:(resources string:'Cannot create new module: %1' with:module).
             ^ false.
         ]
     ].
@@ -1504,12 +1504,12 @@
         ].
         (Dialog 
             confirm:(resources string:'%1 is a new package (in module %2).\\create it ?' with:package with:module) withCRs
-            noLabel:'cancel') 
+            noLabel:'Cancel') 
         ifFalse:[
             ^ false.
         ].
         (mgr createModule:module package:package) ifFalse:[
-            self warn:(resources string:'cannot create new package: %1 (in module %2)' with:package with:module).
+            self warn:(resources string:'Cannot create new package: %1 (in module %2)' with:package with:module).
             ^ false.
         ]
     ].
@@ -1520,7 +1520,7 @@
     "/
     (mgr checkForExistingContainerInModule:module package:package container:fileName) ifTrue:[
         creatingNew ifTrue:[
-            self warn:(resources string:'container for %1 already exists in %2/%3.' with:fileName with:module with:package) withCRs.
+            self warn:(resources string:'Container for %1 already exists in %2/%3.' with:fileName with:module with:package) withCRs.
         ].
 
 "/            (oldModule notNil
@@ -1541,7 +1541,7 @@
                                 with:module 
                                 with:package 
                                 with:fileName) withCRs
-                noLabel:'cancel') 
+                noLabel:'Cancel') 
             ifFalse:[
                 ^ false.
             ].  
@@ -1565,8 +1565,8 @@
             ifFalse:[
                 doCheckinWithoutAsking ifFalse:[
                     (Dialog 
-                        confirm:'no easy merge seems possible; force checkin (no merge) ?'
-                        noLabel:'cancel') 
+                        confirm:'No easy merge seems possible; force checkin (no merge) ?'
+                        noLabel:'Cancel') 
                     ifFalse:[
                         ^ false.
                     ].
@@ -1583,7 +1583,7 @@
                 logMessage:msg
                 force:true)
             ifFalse:[
-                self warn:(resources string:'failed to check into existing container.').
+                self warn:(resources string:'Failed to check into existing container.').
                 ^ false.
             ].
         ].
@@ -1591,9 +1591,9 @@
     ] ifFalse:[
         (createContainer or:[creatingNew]) ifFalse:[
             (Dialog
-                 confirm:(resources string:'no container exists for %1 in %2/%3\\create ?' 
+                 confirm:(resources string:'No container exists for %1 in %2/%3\\create ?' 
                                       with:fileName with:module with:package) withCRs
-                 noLabel:'cancel') ifFalse:[
+                 noLabel:'Cancel') ifFalse:[
                 ^ false
             ]
         ]
@@ -1604,7 +1604,7 @@
             inModule:module
             package:package
             container:fileName) ifFalse:[
-        self warn:(resources string:'failed to create container.').
+        self warn:(resources string:'Failed to create container.').
         ^ false.
     ].
     ^ true
@@ -1954,5 +1954,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.64 2001-09-10 14:12:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.65 2001-10-04 17:26:38 cg Exp $'
 ! !