hg/stx-goodies-monticello: MCDirectoryRepository.st@f43bfccabfdb (annotated)

1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	1	"
1142 f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	2	COPYRIGHT (c) 2020-2021 LabWare
1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	3	"
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4	"{ Package: 'stx:goodies/monticello' }"
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5
1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	6	"{ NameSpace: Smalltalk }"
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	7
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	MCFileBasedRepository subclass:#MCDirectoryRepository
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	9	instanceVariableNames:'directory'
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	classVariableNames:''
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11	poolDictionaries:''
623 4bbca2eb4aee category change Claus Gittinger <cg@exept.de> parents: 528 diff changeset	12	category:'SCM-Monticello-Repositories'
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	15	!MCDirectoryRepository class methodsFor:'documentation'!
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	16
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	17	copyright
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	18	"
1142 f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	19	COPYRIGHT (c) 2020-2021 LabWare
1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	20
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	21
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	22	"
c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	23	! !
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	25	!MCDirectoryRepository class methodsFor:'initialization'!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	26
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	27	new
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	28	^self basicNew initialize
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	29	! !
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	30
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	!MCDirectoryRepository class methodsFor:'instance creation'!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	33	directory: aStringOrFileDirectory
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	34
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	35	^self new directory: aStringOrFileDirectory
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	36
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	37	"Created: / 16-09-2010 / 14:51:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	38	"Modified: / 16-09-2010 / 15:59:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	39	!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	40
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	morphicConfigure
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	42	\| directory \|
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	43	^ (directory := UIManager default chooseDirectory) ifNotNil:
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	44	[
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	self new directory: directory]
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	! !
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	48	!MCDirectoryRepository class methodsFor:'as yet unclassified'!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	49
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	50	fillInTheBlankRequest
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	51	"superclass MCRepository class says that I am responsible to implement this method"
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	52
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	53	^ self shouldImplement
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	54	! !
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	55
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	56	!MCDirectoryRepository class methodsFor:'queries'!
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	57
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	58	creationTemplate
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	59	"superclass MCRepository class says that I am responsible to implement this method"
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	60
1142 f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	61	^ self creationTemplateDirectory: (Filename currentDirectory asAbsoluteFilename / 'package-cache') asString
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	62
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	63	"
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	64	MCDirectoryRepository creationTemplate
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	65	(TonelRepository directory:'/tmp') asCreationTemplate
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	66	"
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	67
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	68	"Modified: / 16-09-2010 / 14:53:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
526 4a1d6bba1036 changed: #creationTemplate Claus Gittinger <cg@exept.de> parents: 343 diff changeset	69	"Modified: / 01-12-2011 / 20:31:31 / cg"
1142 f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	70	"Modified (comment): / 03-05-2021 / 22:02:22 / Jan Vrany <jan.vrany@labware.com>"
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	71	!
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	72
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	73	creationTemplateDirectory: directory
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	74	"superclass MCRepository class says that I am responsible to implement this method"
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	75
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	76	^'%1 directory: ''%2''' bindWith: self name with: directory
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	77
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	78	"Created: / 03-05-2021 / 21:21:19 / Jan Vrany <jan.vrany@labware.com>"
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	79	!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	80
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	81	description
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	82	^ 'directory'
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	83	! !
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	84
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	85	!MCDirectoryRepository methodsFor:'accessing'!
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	86
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	87	description
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	88	^ directory pathName
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	89	!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	90
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	91	directory
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	92	^ directory
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	93	!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	94
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	95	directory: aStringOrFilename
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	96	self assert: (aStringOrFilename isString or: [ aStringOrFilename isFilename ]).
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	97
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	98	directory := aStringOrFilename asFilename
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	99
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	100	"Modified: / 16-09-2010 / 15:58:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	101	"Modified: / 25-08-2020 / 10:00:58 / Jan Vrany <jan.vrany@labware.com>"
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	102	! !
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	103
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	104	!MCDirectoryRepository methodsFor:'as yet unclassified'!
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	105
1142 f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	106	asCreationTemplate
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	107	self creationTemplate isNil ifTrue: [
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	108	^ self class creationTemplateDirectory: directory pathName.
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	109	].
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	110	^ super asCreationTemplate
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	111
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	112	"Created: / 03-05-2021 / 21:19:21 / Jan Vrany <jan.vrany@labware.com>"
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	113	!
f43bfccabfdb Add creation template for `MCDirectoryRepository` Jan Vrany <jan.vrany@labware.com> parents: 1121 diff changeset	114
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	115	isValid
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	116	^directory exists
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	117	!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	118
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	119	literalArrayEncoding
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	120
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	121	^Array
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	122	with: self class name asSymbol
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	123	with: #directory:
528 ea2c305d04fe changed: Claus Gittinger <cg@exept.de> parents: 526 diff changeset	124	with: directory pathName "directoryName"
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	125
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	126	"
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	127	(MCDirectoryRepository directory: '/tmp')
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	128	literalArrayEncoding decodeAsLiteralArray
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	129	"
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	130
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	131	"Created: / 16-09-2010 / 16:01:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
528 ea2c305d04fe changed: Claus Gittinger <cg@exept.de> parents: 526 diff changeset	132	"Modified: / 01-12-2011 / 21:01:25 / cg"
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	133	!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	134
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	135	readStreamForFileNamed: aString do: aBlock
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	136	^ (directory / aString) readingFileDo: aBlock
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	137
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	138	"Modified: / 25-08-2020 / 10:10:34 / Jan Vrany <jan.vrany@labware.com>"
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	139	!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	140
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	141	writeStreamForFileNamed: aString replace: aBoolean do: aBlock
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	142	\| file \|
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	143
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	144	file := directory / aString.
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	145	(aBoolean not and: [ file exists ]) ifTrue: [
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	146	self error: ('File already exists: %1' bindWith: file pathName)
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	147	].
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	148	^ file writingFileDo: aBlock
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	149
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	150	"Modified: / 25-08-2020 / 10:10:39 / Jan Vrany <jan.vrany@labware.com>"
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	151	! !
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	152
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	153	!MCDirectoryRepository methodsFor:'comparing'!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	154
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	155	hash
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	156	^ directory pathName hash
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	157	! !
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	158
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	159	!MCDirectoryRepository methodsFor:'displaying'!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	160
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	161	displayString
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	162
528 ea2c305d04fe changed: Claus Gittinger <cg@exept.de> parents: 526 diff changeset	163	^directory pathName "/ directoryName
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	164
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	165	"Created: / 14-09-2010 / 23:18:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
528 ea2c305d04fe changed: Claus Gittinger <cg@exept.de> parents: 526 diff changeset	166	"Modified: / 01-12-2011 / 21:00:33 / cg"
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	167	! !
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	168
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	169	!MCDirectoryRepository methodsFor:'initialization'!
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	170
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	171	initialize
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	172	super initialize.
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	173	directory := Filename currentDirectory
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	174
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	175	"Modified: / 25-08-2020 / 10:05:44 / Jan Vrany <jan.vrany@labware.com>"
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	176	! !
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	177
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	178	!MCDirectoryRepository methodsFor:'queries'!
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	179
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	180	allFileNames
1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	181	^ (directory directoryContentsAsFilenames asArray sortBy: [:a :b \| a modificationTime >= b modificationTime]) collect: [:ea \| ea baseName]
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	182
1121 c5661215109c Tonel: various fixes here and there (part 2) Jan Vrany <jan.vrany@labware.com> parents: 1115 diff changeset	183	"Modified: / 03-07-2020 / 20:30:51 / Jan Vrany <jan.vrany@labware.com>"
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	184	! !
fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	185
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186	!MCDirectoryRepository class methodsFor:'documentation'!
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	187
102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	188	version
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	189	^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.7 2014-02-12 14:53:38 cg Exp $'
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	190	!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	191
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	192	version_CVS
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	193	^ '$Header: /cvs/stx/stx/goodies/monticello/MCDirectoryRepository.st,v 1.7 2014-02-12 14:53:38 cg Exp $'
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	194	!
96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	195
1115 12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	196	version_HG
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	197
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	198	^ '$Changeset: <not expanded> $'
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	199	!
12c55ec23e26 Refactor `MCDirectoryRepository` to use `Filename` Jan Vrany <jan.vrany@labware.com> parents: 907 diff changeset	200
228 96243bb824dc added: #version_CVS Claus Gittinger <cg@exept.de> parents: 109 diff changeset	201	version_SVN
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	202	^ '$Id: MCDirectoryRepository.st,v 1.7 2014-02-12 14:53:38 cg Exp $'
109 102a441aafcd initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	203	! !
907 fce2e5941124 categories Claus Gittinger <cg@exept.de> parents: 623 diff changeset	204

author	Jan Vrany <jan.vrany@labware.com>
	Mon, 03 May 2021 22:03:54 +0100
branch	jv
changeset 1142	f43bfccabfdb
parent 1121	c5661215109c
permissions	-rw-r--r--