--- a/MCRepository.st Sat Aug 20 13:43:28 2011 +0200
+++ b/MCRepository.st Sat Aug 20 13:43:33 2011 +0200
@@ -8,6 +8,17 @@
!
+!MCRepository class methodsFor:'initialization'!
+
+initialize
+ "self initialize"
+ "
+ ExternalSettings registerClient: self.
+ "
+
+ "Modified: / 13-10-2010 / 14:13:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!MCRepository class methodsFor:'as yet unclassified'!
allConcreteSubclasses
@@ -22,33 +33,6 @@
^ nil
!
-fillInTheBlankConfigure
- ^ self fillInTheBlankConfigure: self creationTemplate
-
-!
-
-fillInTheBlankConfigure: aTemplateString
- | chunk repo |
-
- aTemplateString ifNil: [ ^ false ].
- chunk _ FillInTheBlankMorph
- request: self fillInTheBlankRequest
- initialAnswer: aTemplateString
- centerAt: Sensor cursorPoint
- inWorld: World
- onCancelReturn: nil
- acceptOnCR: false
- answerExtent: 400@120.
-
- chunk
- ifNotNil: [
- repo _ self readFrom: chunk readStream.
- repo creationTemplate: chunk.
- ].
-
- ^ repo
-!
-
fillInTheBlankRequest
self subclassResponsibility.
!
@@ -59,20 +43,6 @@
morphicConfigure
^ self new
-!
-
-new
- ^ self basicNew initialize
-! !
-
-!MCRepository class methodsFor:'class initialization'!
-
-initialize
- "self initialize"
-
- Smalltalk isSmalltalkX ifFalse:[
- ExternalSettings registerClient: self.
- ]
! !
!MCRepository class methodsFor:'external settings'!
@@ -84,15 +54,17 @@
| stream |
(aDirectory fileExists: self settingsFileName)
ifFalse: [^self].
- stream _ aDirectory readOnlyFileNamed: self settingsFileName.
+ stream := aDirectory readOnlyFileNamed: self settingsFileName.
stream
ifNotNil: [
- [Settings _ ExternalSettings parseServerEntryArgsFrom: stream]
+ [Settings := ExternalSettings parseServerEntryArgsFrom: stream]
ensure: [stream close]].
+
!
releaseExternalSettings
Settings := nil.
+
!
settingsFileName
@@ -118,9 +90,10 @@
!
closestAncestorVersionFor: anAncestry ifNone: errorBlock
+ | v |
anAncestry breadthFirstAncestorsDo:
[:ancestorInfo |
- (self versionWithInfo: ancestorInfo) ifNotNilDo: [:v | ^ v]].
+ (v := self versionWithInfo: ancestorInfo) ifNotNil: [ ^ v]].
^ errorBlock value
!
@@ -131,7 +104,7 @@
creationTemplate: aString
self creationTemplate ifNotNil: [ self error: 'Creation template already set for this MCRepository instance.' ].
- creationTemplate _ aString.
+ creationTemplate := aString.
!
description
@@ -139,20 +112,17 @@
!
doAlwaysStoreDiffs
- storeDiffs _ true
+ storeDiffs := true
!
doNotAlwaysStoreDiffs
- storeDiffs _ false
+ storeDiffs := false
!
hash
^ self description hash
!
-initialize
-!
-
notificationForVersion: aVersion
^ MCVersionNotification version: aVersion repository: self
!
@@ -182,9 +152,9 @@
sendNotificationsForVersion: aVersion
| notification notifyList |
- notifyList _ self notifyList.
+ notifyList := self notifyList.
notifyList isEmpty ifFalse:
- [notification _ self notificationForVersion: aVersion.
+ [notification := self notificationForVersion: aVersion.
notifyList do: [:ea | notification notify: ea]]
!
@@ -199,18 +169,6 @@
self subclassResponsibility
!
-morphicOpen
- self morphicOpen: nil
-!
-
-morphicOpen: aWorkingCopy
- self subclassResponsibility
-!
-
-openAndEditTemplateCopy
- ^ self class fillInTheBlankConfigure: (self asCreationTemplate ifNil: [^nil])
-!
-
versionWithInfo: aVersionInfo
^ self versionWithInfo: aVersionInfo ifAbsent: [nil]
!
@@ -228,11 +186,16 @@
!MCRepository class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.2 2009-10-26 15:24:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.3 2011-08-20 11:43:33 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.2 2009-10-26 15:24:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCRepository.st,v 1.3 2011-08-20 11:43:33 cg Exp $'
+!
+
+version_SVN
+
+ ^'§Id: MCRepository.st 18 2010-10-13 12:27:08Z vranyj1 §'
! !
MCRepository initialize!