--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st Tue Oct 30 15:25:24 2012 +0100
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st Tue Oct 30 15:34:22 2012 +0100
@@ -165,7 +165,7 @@
If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
If doCheckClass is true, the class is checked for send of halts etc."
- |logMessage checkinInfo mgr pri resources|
+ |logMessage checkinInfo mgr pri|
aClass isLoaded ifFalse:[
self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name).
@@ -192,8 +192,6 @@
) ifFalse:[^ false].
].
- resources := self classResources.
-
(self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[
(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
"/ self warn:'did not create a container for ''' , aClass name , ''''.
@@ -312,7 +310,7 @@
"check a bunch of classes into the source repository.
If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
- |classes allClasses checkinInfoOrString resources yesOrNoToAll unchangedClasses|
+ |classes allClasses checkinInfoOrString yesOrNoToAll unchangedClasses|
"/ ignore private classes
classes := aCollectionOfClasses select:[:aClass | aClass owningClass isNil].
@@ -330,8 +328,6 @@
^ self checkinClass:classes first withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:aManagerOrNil.
].
- resources := self classResources.
-
"ask once, for all classes"
aLogInfoOrStringNil isNil ifTrue:[
checkinInfoOrString := self
@@ -406,9 +402,7 @@
"checkin a projects extensions into the source repository.
If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message."
- |logMessage checkinInfo mgr pri resources module directory containerFileName methodSource|
-
- resources := self classResources.
+ |logMessage checkinInfo mgr pri module directory containerFileName methodSource|
"/ the following is wrong - must ask the projectDefinition !!
aPackageID asPackageId projectDefinitionClass notNil ifTrue:[
@@ -711,9 +705,9 @@
!SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.2 2012-09-04 12:09:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.3 2012-10-30 14:34:22 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.2 2012-09-04 12:09:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilitiesForContainerBasedManagers.st,v 1.3 2012-10-30 14:34:22 cg Exp $'
! !