hg/stx-libscm: mercurial/HGPackageModel.st@b690f5845323 (annotated)

46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	1	"{ Package: 'stx:libscm/mercurial' }"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	2
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	3	SCMAbstractPackageModel subclass:#HGPackageModel
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	4	instanceVariableNames:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	5	classVariableNames:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	6	poolDictionaries:''
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	7	category:'SCM-Mercurial-StX'
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	8	!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	9
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	10
69 17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	11	!HGPackageModel class methodsFor:'instance creation'!
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	12
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	13	named:package
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	14	^HGPackageModelRegistry packageNamed: package
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	15
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	16	"Modified: / 16-11-2012 / 19:53:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	17	! !
17045d49309f Refactoring: preparation for accessing changeset contents. vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 57 diff changeset	18
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	19	!HGPackageModel methodsFor:'accessing'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	20
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	21	manager
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	22	^ HGSourceCodeManager
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	23
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	24	"Created: / 14-11-2012 / 01:02:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
57 47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	25	!
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	26
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	27	repository
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	28	self ensureWorkingCopy.
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	29	^wc repository
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	30
47b14a8b7eb8 Some hacks to make basic Mercurial commit working vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 54 diff changeset	31	"Created: / 15-11-2012 / 09:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	32	!
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	33
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	34	revision
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	35	"Return a logical revision of the package, i.e., a revision
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	36	on which the next commit will be based on"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	37
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	38	^self definition hgLogicalRevision
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	39
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	40	"Created: / 28-11-2012 / 09:41:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	41	!
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	42
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	43	upstreamRepository
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	44	"Returns original package repository (not the temporary repository)"
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	45
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	46	"Stupid naming here..."
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	47
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	48	^repository
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	49
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	50	"Created: / 27-11-2012 / 23:22:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	51	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	52
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	53	!HGPackageModel methodsFor:'accessing-classes'!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	54
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	55	commitDialogClass
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	56	"raise an error: must be redefined in concrete subclass(es)"
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	57
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	58	^ HGCommitDialog
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	59
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	60	"Created: / 14-11-2012 / 22:30:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	61	!
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	62
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	63	commitTaskClass
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	64	^ HGCommitTask
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	65
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	66	"Created: / 14-11-2012 / 00:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	67	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	68
102 16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	69	!HGPackageModel methodsFor:'private'!
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	70
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	71	commited
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	72	"Sent by commit task once commited"
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	73
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	74	\| versionMethod \|
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	75
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	76	super commited.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	77
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	78	versionMethod := self definition class compiledMethodAt: HGSourceCodeManager nameOfVersionMethodInClasses.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	79	versionMethod isNil ifTrue:[
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	80	self error:'Should not happen!!'.
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	81	].
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	82	versionMethod annotateWith:
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	83	(HGRevisionAnnotation revision: wc changeset id)
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	84
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	85	"Created: / 23-11-2012 / 22:52:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	86	! !
16bc16d9e6d5 Update logical revision on commit, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 88 diff changeset	87
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	88	!HGPackageModel methodsFor:'utils'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	89
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	90	ensureWorkingCopy
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	91	"raise an error: must be redefined in concrete subclass(es)"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	92
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	93	\| rev tmpPath tmpRepo tmpWc \|
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	94
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	95	rev := self definition hgLogicalRevision.
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	96	(wc notNil and:[wc path exists]) ifTrue:[ ^ self ].
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	97
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	98	tmpPath := self manager temporaryWorkingCopyDirectory / repository uuid printString.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	99	tmpPath exists ifTrue:[
1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	100	tmpRepo := HGRepository on: tmpPath.
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	101	tmpRepo pull.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	102	] ifFalse:[
1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	103	tmpRepo := repository cloneTo: tmpPath update: false.
1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	104	].
109 08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	105	tmpWc := tmpRepo workingCopy.
08c6eca6df25 Added warning about commiting new head to HGCommitDialog. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 102 diff changeset	106	tmpWc update: rev.
88 1ad71a063a20 Bunch of fixes. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 86 diff changeset	107
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	108	self wc: tmpWc
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	109
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	110	"Created: / 14-11-2012 / 00:16:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	111	"Modified: / 28-11-2012 / 09:38:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	112	!
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	113
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	114	ensureWorkingCopyAtRevision: rev
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	115	"Make sure temporary working exists and is at
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	116	given revision"
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	117
116 b690f5845323 Class revision ID refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	118	self assert: rev revno notNil.
b690f5845323 Class revision ID refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	119
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	120	self ensureWorkingCopy.
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	121	rev notNil ifTrue:[
116 b690f5845323 Class revision ID refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	122	wc update: rev revno printString.
111 6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	123	].
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	124
6439af30a24b Fix in temporary working copy update. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 109 diff changeset	125	"Created: / 28-11-2012 / 09:38:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
116 b690f5845323 Class revision ID refactoring. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 115 diff changeset	126	"Modified: / 30-11-2012 / 23:22:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	127	! !
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	128
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	129	!HGPackageModel class methodsFor:'documentation'!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	130
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	131	version_GIT
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	132	"Never, ever change this method. Ask JV or CG why"
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	133	^thisContext method mclass theNonMetaclass instVarNamed: #revision
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	134	!
d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	135
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	136	version_HG
115 b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	137
b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	138	^ '$Changeset: <not expanded> $'
54 66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	139	!
66045198bfbc More changes towards self hosting. Some work on model is still missing... vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: 46 diff changeset	140
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	141	version_SVN
115 b1ed2d29054b version_HG changed to return string. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 111 diff changeset	142	^ '�Id:: �'
46 d5a192b11a1a - More Smalltalk/X support vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177 parents: diff changeset	143	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 30 Nov 2012 23:56:15 +0000
changeset 116	b690f5845323
parent 115	b1ed2d29054b
child 118	5a8b78ad48ae
permissions	-rw-r--r--