hg/stx-libbasic3: SourceCodeManagerUtilities.st@b76ba0a9cf83 (annotated)

906 862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	1	"
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	2	COPYRIGHT (c) 2000 eXept Software AG
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	3	All Rights Reserved
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	4
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	5	This software is furnished under a license and may be used
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	6	only in accordance with the terms of that license and with the
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	7	inclusion of the above copyright notice. This software may not
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	8	be provided or otherwise made available to, or used by, any
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	9	other person. No title to or ownership of the software is
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	10	hereby transferred.
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	11	"
920 ab68cf4c6ee6 * empty log message * Claus Gittinger <cg@exept.de> parents: 906 diff changeset	12	"{ Package: 'stx:libbasic3' }"
ab68cf4c6ee6 * empty log message * Claus Gittinger <cg@exept.de> parents: 906 diff changeset	13
3812 173678af0074 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	14	"{ NameSpace: Smalltalk }"
173678af0074 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	15
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	Object subclass:#SourceCodeManagerUtilities
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	17	instanceVariableNames:'manager resources confirmNewFiles'
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	18	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
3635 765b567f596a oops - a global variable named "Default" was introduced Claus Gittinger <cg@exept.de> parents: 3633 diff changeset	19	YesToAllNotification LastSourceLogMessages DefaultUtilities'
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	20	poolDictionaries:''
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	21	category:'System-SourceCodeManagement'
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24	!SourceCodeManagerUtilities class methodsFor:'documentation'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25
906 862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	26	copyright
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	27	"
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	28	COPYRIGHT (c) 2000 eXept Software AG
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	29	All Rights Reserved
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	30
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	31	This software is furnished under a license and may be used
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	32	only in accordance with the terms of that license and with the
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	33	inclusion of the above copyright notice. This software may not
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	34	be provided or otherwise made available to, or used by, any
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	35	other person. No title to or ownership of the software is
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	36	hereby transferred.
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	37	"
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	38
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	39	!
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	40
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	documentation
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	"
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43	utility code which is useful at more than one place
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	(extracted from the browser)
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46	[author:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	Claus Gittinger (cg@exept)
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	[see also:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	[instance variables:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	52
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	53	[class variables:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54	"
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	55	! !
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	56
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	57	!SourceCodeManagerUtilities class methodsFor:'instance creation'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	58
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	59	forManager: aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	60
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	61	^self new setManager: aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	62
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	63	"Created: / 10-10-2011 / 11:45:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	64	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	65
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	66	new
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	67	"return an initialized instance"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	68
2969 3549ac095c10 changed: #new Claus Gittinger <cg@exept.de> parents: 2950 diff changeset	69	self == SourceCodeManagerUtilities ifTrue:[
3549ac095c10 changed: #new Claus Gittinger <cg@exept.de> parents: 2950 diff changeset	70	self abstractClassInstantiationError
3549ac095c10 changed: #new Claus Gittinger <cg@exept.de> parents: 2950 diff changeset	71	].
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	72	^ self basicNew initialize.
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	73
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	74	"Modified: / 25-07-2012 / 17:10:55 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	75	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	76
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	77	!SourceCodeManagerUtilities class methodsFor:'Signal constants'!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	78
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	79	yesToAllNotification
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	80	YesToAllNotification isNil ifTrue:[
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	81	YesToAllNotification := QuerySignal new.
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	82	].
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	83	^ YesToAllNotification
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	84	!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	85
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	86	yesToAllQuery
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	87	YesToAllQuery isNil ifTrue:[
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	88	YesToAllQuery := QuerySignal new.
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	89	].
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	90	^ YesToAllQuery
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	91	! !
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	92
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	93	!SourceCodeManagerUtilities class methodsFor:'accessing'!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	94
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	95	default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	96
3635 765b567f596a oops - a global variable named "Default" was introduced Claus Gittinger <cg@exept.de> parents: 3633 diff changeset	97	DefaultUtilities isNil ifTrue:[DefaultUtilities := SourceCodeManagerUtilitiesForContainerBasedManagers new].
3642 28683778b9c3 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3635 diff changeset	98	^ DefaultUtilities
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	99
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	100	"Created: / 10-10-2011 / 11:28:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2864 835ad5141223 changed: #default Claus Gittinger <cg@exept.de> parents: 2847 diff changeset	101	"Modified: / 26-07-2012 / 20:31:52 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	102	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	103
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	104	lastModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	105	"return the value of the static variable 'LastModule' (automatically generated)"
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	106
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	107	^ LastModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	108	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	109
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	110	lastModule:something
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	111	"set the value of the static variable 'LastModule' (automatically generated)"
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	112
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	113	LastModule := something.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	114	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	115
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	116	lastPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	117	"return the value of the static variable 'LastPackage' (automatically generated)"
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	118
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	119	^ LastPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	120	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	121
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	122	lastPackage:something
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	123	"set the value of the static variable 'LastPackage' (automatically generated)"
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	124
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	125	LastPackage := something.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	126	! !
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	127
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	128	!SourceCodeManagerUtilities class methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	129
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	130	doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	131
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	132	(self default respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	133	"Bad, method moved to instance side but not forwarded"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	134	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	135	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	136
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	137	^aMessage sendTo: self default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	138	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	139	^super doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	140	]
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	141
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	142	"Created: / 10-10-2011 / 14:04:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	143	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	144
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	145	!SourceCodeManagerUtilities class methodsFor:'private-migration'!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	146
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	147	compileForwarders
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	148
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	149	"Utility method"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	150
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	151	"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	152	SourceCodeManagerUtilities compileForwarders.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	153	"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	154
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	155	self methodsDo:[:m\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	156	\| sel \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	157	sel := m selector.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	158	((self class includesSelector: sel) and: [(self class >> sel) source = m source]) ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	159	\| source header \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	160
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	161	header := m source asStringCollection first.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	162	source := '%1
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	163
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	164	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	165
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	166	self obsoleteMethodWarning: ''Please use instance protocol (SourceCodeManagerUtilities default doSomething)''.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	167
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	168	^self default %1' bindWith: header with: header.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	169
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	170	self halt: 'Inspect source'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	171	self class compile: source classified: m category.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	172	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	173
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	174	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	175
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	176	"Created: / 11-10-2011 / 10:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	177	! !
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	178
1806 fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	179	!SourceCodeManagerUtilities class methodsFor:'resources'!
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	180
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	181	resourcePackage
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	182	^ #'stx:libtool'
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	183	! !
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	184
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	185	!SourceCodeManagerUtilities class methodsFor:'utilities'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	186
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	187	classIsNotYetInRepository:aClass withManager:mgr
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	188
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	189	<resource: #obsolete>
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	190
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	191	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	192
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	193	^self default classIsNotYetInRepository:aClass withManager:mgr
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	194	!
8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	195
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	196	nameOfExtensionsContainer
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	197
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	198	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	199
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	200	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	201
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	202	^self default nameOfExtensionsContainer
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	203	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	204
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	205	setPackageOfAllMethodsIn:aClass to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	206
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	207	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	208
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	209	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	210
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	211	^self default setPackageOfAllMethodsIn:aClass to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	212
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	213	"Modified: / 10-10-2011 / 14:00:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	214	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	215
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	216	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	217
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	218	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	219
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	220	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	221
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	222	^self default setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	223
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	224	"Created: / 10-10-2011 / 14:00:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	225	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	226
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	227	sourceCodeManagerFor:aClass
3370 9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	228	\|mgr assumption\|
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	229
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	230	mgr := aClass theNonMetaclass sourceCodeManager.
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	231	mgr isNil ifTrue:[
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	232	SourceCodeManager isNil ifTrue:[
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	233	"/ self warn:'SourceCodeManagement is disabled or not configured.\\Please setup in the Launcher.' withCRs.
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	234	^ nil.
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	235	].
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	236	assumption := AbstractSourceCodeManager defaultManager ? CVSSourceCodeManager.
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	237	assumption notNil ifTrue:[
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	238	(self confirm:('Class does not seem to provide a valid sourceCodeManager.\\Assume %1 ?' bindWith:assumption managerTypeName) withCRs) ifFalse:[
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	239	^ nil
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	240	].
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	241	mgr := assumption.
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	242	].
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	243	].
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	244	^ mgr
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	245	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	246
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	247	sourceCodeOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	248
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	249	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	250
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	251	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	252
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	253	^self default sourceCodeOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	254	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	255
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	256	versionString:a isLessThan:b
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	257
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	258	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	259
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	260	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	261
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	262	^self default versionString:a isLessThan:b
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	263	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	264
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	265	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	266
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	267	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	268
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	269	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	270
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	271	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	272
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	273	^self default changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	274
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	275	"Created: / 29-12-2011 / 14:28:08 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	276	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	277
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	278	changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	279
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	280	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	281
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	282	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	283
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	284	^self default
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	285	changeSetForExtensionMethodsForPackage:packageToCheckOut
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	286	revision:revisionOrNil
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	287	orAskForRevision:askForRevision
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	288	usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	289
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	290	"Created: / 29-12-2011 / 14:28:14 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	291	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	292
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	293	checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	294
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	295	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	296
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	297	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	298
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	299	^self default checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	300
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	301	"Created: / 29-12-2011 / 14:30:37 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	302	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	303
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	304	checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	305
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	306	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	307
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	308	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	309
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	310	^self default checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	311
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	312	"Created: / 29-12-2011 / 14:29:02 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	313	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	314
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	315	checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	316
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	317	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	318
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	319	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	320
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	321	^self default checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	322
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	323	"Created: / 29-12-2011 / 14:30:00 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	324	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	325
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	326	checkinClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	327
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	328	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	329
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	330	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	331
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	332	^self default checkinClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	333	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	334
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	335	checkinClass:aClass withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	336
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	337	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	338
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	339	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	340
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	341	^self default checkinClass:aClass withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	342	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	343
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	344	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	345
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	346	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	347
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	348	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	349
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	350	^self default checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	351	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	352
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	353	checkinClasses:aCollectionOfClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	354
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	355	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	356
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	357	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	358
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	359	^self default checkinClasses:aCollectionOfClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	360	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	361
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	362	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	363
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	364	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	365
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	366	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	367
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	368	^self default checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	369	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	370
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	371	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	372
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	373	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	374
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	375	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	376
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	377	^self default checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	378	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	379
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	380	checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	381
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	382	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	383
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	384	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	385
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	386	^self default checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	387	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	388
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	389	checkoutClass:aClass askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	390
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	391	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	392
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	393	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	394
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	395	^self default checkoutClass:aClass askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	396	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	397
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	398	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	399
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	400	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	401
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	402	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	403
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	404	^self default checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	405	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	406
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	407	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	408
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	409	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	410
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	411	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	412
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	413	^self default checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	414	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	415
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	416	checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	417
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	418	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	419
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	420	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	421
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	422	^self default checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	423
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	424	"Created: / 29-12-2011 / 14:34:24 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	425	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	426
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	427	compareClassWithRepository:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	428
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	429	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	430
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	431	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	432
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	433	^self default compareClassWithRepository:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	434	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	435
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	436	compareClassWithRepository:aClass askForRevision:askForRevision
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	437
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	438	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	439
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	440	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	441
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	442	^self default compareClassWithRepository:aClass askForRevision:askForRevision
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	443	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	444
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	445	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	446
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	447	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	448
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	449	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	450
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	451	^self default compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	452	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	453
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	454	compareProjectWithRepository:aProject
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	455
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	456	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	457
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	458	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	459
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	460	^self default compareProjectWithRepository:aProject
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	461	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	462
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	463	createSourceContainerForClass:aClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	464
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	465	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	466
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	467	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	468
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	469	^self default createSourceContainerForClass:aClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	470	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	471
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	472	defineSourceContainerForClass:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	473
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	474	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	475
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	476	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	477
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	478	^self default defineSourceContainerForClass:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	479	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	480
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	481	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	482
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	483	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	484
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	485	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	486
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	487	^self default diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	488	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	489
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	490	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	491
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	492	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	493
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	494	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	495
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	496	^self default ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	497
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	498	"Created: / 29-12-2011 / 14:33:37 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	499	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	500
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	501	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	502
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	503	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	504
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	505	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	506
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	507	^self default getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	508	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	509
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	510	removeSourceContainerForClass:aClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	511
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	512	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	513
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	514	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	515
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	516	^self default removeSourceContainerForClass:aClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	517	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	518
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	519	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	520
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	521	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	522
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	523	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	524
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	525	^self default removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	526	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	527
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	528	repositoryLogOf:aClass onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	529
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	530	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	531
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	532	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	533
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	534	^self default repositoryLogOf:aClass onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	535	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	536
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	537	repositoryLogOf:aClass short:shortOrNot onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	538
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	539	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	540
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	541	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	542
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	543	^self default repositoryLogOf:aClass short:shortOrNot onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	544	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	545
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	546	tagClass:aClass as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	547
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	548	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	549
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	550	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	551
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	552	^self default tagClass:aClass as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	553	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	554
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	555	tagClasses:aCollectionOfClasses as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	556
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	557	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	558
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	559	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	560
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	561	^self default tagClasses:aCollectionOfClasses as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	562	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	563
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	564	tagPath:aPath as:tag usingManager:aManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	565
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	566	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	567
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	568	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	569
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	570	^self default tagPath:aPath as:tag usingManager:aManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	571
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	572	"Created: / 29-12-2011 / 14:31:43 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	573	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	574
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	575	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-helpers'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	576
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	577	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	578
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	579	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	580
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	581	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	582
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	583	^self default getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	584	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	585
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	586	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-user interaction'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	587
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	588	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	589
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	590	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	591
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	592	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	593
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	594	^self default askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	595	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	596
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	597	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	598
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	599	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	600
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	601	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	602
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	603	^self default askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	604	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	605
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	606	askForExistingRevision:boxText title:title class:aClass
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	607
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	608	<resource: #obsolete>
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	609
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	610	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	611
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	612	^self default askForExistingRevision:boxText title:title class:aClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	613	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	614
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	615	askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	616
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	617	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	618
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	619	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	620
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	621	^self default askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	622	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	623
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	624	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	625
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	626	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	627
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	628	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	629
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	630	^self default checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	631	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	632
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	633	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	634	^self default
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	635	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	636	initialAnswer:initialAnswerOrNil
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	637
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	638	"Modified: / 12-03-2012 / 12:56:45 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	639	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	640
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	641	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	642	^self default
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	643	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	644	initialAnswer:initialAnswerOrNil
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	645	withQuickOption:withQuickOption
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	646
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	647	"Modified: / 12-03-2012 / 12:56:50 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	648	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	649
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	650	goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	651
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	652	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	653
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	654	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	655
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	656	^self default goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	657	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	658
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	659	!SourceCodeManagerUtilities class methodsFor:'utilities-encoding'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	660
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	661	guessEncodingOfFile:aFilename
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	662
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	663	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	664
2818 82c73234ac2d changed: #guessEncodingOfFile: Stefan Vogel <sv@exept.de> parents: 2817 diff changeset	665	self obsoleteMethodWarning:'ask CharacterEncoder'.
82c73234ac2d changed: #guessEncodingOfFile: Stefan Vogel <sv@exept.de> parents: 2817 diff changeset	666	^ CharacterEncoder guessEncodingOfFile:aFilename
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	667	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	668
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	669	guessEncodingOfStream:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	670
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	671	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	672
2817 8a836ca902d4 changed: #guessEncodingOfStream: Stefan Vogel <sv@exept.de> parents: 2796 diff changeset	673	self obsoleteMethodWarning:'ask CharacterEncoder'.
8a836ca902d4 changed: #guessEncodingOfStream: Stefan Vogel <sv@exept.de> parents: 2796 diff changeset	674	^ CharacterEncoder guessEncodingOfStream:aStream
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	675	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	676
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	677	!SourceCodeManagerUtilities methodsFor:'accessing'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	678
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	679	confirmNewFiles:aBoolean
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	680	"if true, ask if new files are about to be added to the repo"
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	681
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	682	confirmNewFiles := aBoolean.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	683
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	684	"Modified (comment): / 24-07-2012 / 18:18:34 / cg"
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	685	!
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	686
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	687	lastSourceLogMessageHeadlines
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	688	LastSourceLogMessage isNil ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	689	LastSourceLogMessages := OrderedCollection new.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	690	].
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	691	^ LastSourceLogMessages
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	692	collect:[:msg \|
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	693	msg withoutLeadingSeparators asCollectionOfLines first , '...'
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	694	]
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	695
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	696	"Created: / 12-03-2012 / 12:34:35 / cg"
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	697	!
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	698
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	699	yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	700
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	701	^self class yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	702
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	703	"Created: / 11-10-2011 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	704	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	705
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	706	yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	707
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	708	^self class yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	709
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	710	"Created: / 11-10-2011 / 12:01:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	711	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	712
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	713	!SourceCodeManagerUtilities methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	714
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	715	doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	716
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	717	(self class respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	718	"Bad, method is not moved the the instance side"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	719	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	720	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	721
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	722	^aMessage sendTo: self class
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	723	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	724	^super doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	725	]
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	726
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	727	"Created: / 10-10-2011 / 14:02:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	728	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	729
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	730	!SourceCodeManagerUtilities methodsFor:'initialization'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	731
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	732	initialize
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	733	confirmNewFiles := true.
3551 e8feddd829f9 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	734	resources := self class classResources.
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	735
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	736	"Modified: / 13-10-2011 / 11:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	737	"Modified: / 24-07-2012 / 18:17:57 / cg"
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	738	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	739
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	740	setManager: aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	741
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	742	manager := aSourceCodeManager.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	743	manager isContainerBased ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	744	confirmNewFiles isNil "not yet set by user" ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	745	confirmNewFiles := false.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	746	]
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	747	].
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	748
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	749	"Created: / 10-10-2011 / 11:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	750	"Modified: / 25-07-2012 / 08:35:35 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	751	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	752
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	753	!SourceCodeManagerUtilities methodsFor:'utilities'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	754
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	755	classIsNotYetInRepository:aClass withManager:mgr
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	756	\|info\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	757
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	758	info := mgr sourceInfoOfClass:aClass.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	759
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	760	^ (info isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	761	or:[(info at:#fileName ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	762	or:[(info at:#module ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	763	or:[(info at:#directory ifAbsent:nil) isNil]]])
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	764
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	765	"Created: / 25-10-2006 / 09:43:00 / cg"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	766	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	767
2673 06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	768	defaultManager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	769	^ manager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	770
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	771	"Created: / 22-12-2011 / 10:59:28 / cg"
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	772	!
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	773
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	774	nameOfExtensionsContainer
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	775	^ 'extensions.st'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	776	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	777
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	778	setPackageOfAllMethodsIn:aClass to:aPackage
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	779	"make all methods belong to the classes project"
933 84fd7806afaf offer existing modules/packages in source-container dialog Claus Gittinger <cg@exept.de> parents: 923 diff changeset	780
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	781	\|anyChange anyChangeHere\|
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	782
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	783	anyChange := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	784	aClass withAllPrivateClassesDo:[:eachClass \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	785	anyChangeHere := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	786	eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	787	mthd package ~= aPackage ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	788	mthd setPackage:aPackage.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	789	anyChangeHere := true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	790	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	791	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	792	anyChangeHere ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	793	eachClass changed:#projectOrganization
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	794	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	795	anyChangeHere ifTrue:[anyChange := true].
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	796	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	797	anyChange ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	798	Smalltalk changed:#projectOrganization
1185 e86907810d1f handle abortAll in checkIn Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	799	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	800	^ anyChange
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	801	!
09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	802
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	803	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	804	"make all methods belong to the classes project"
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	805
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	806	aChangeSet do:[:eachChange \|
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	807	eachChange isMethodCodeChange ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	808	eachChange changeMethod package ~= aPackage ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	809	Transcript showCR:'change package of ',eachChange changeMethod whoString.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	810	eachChange changeMethod setPackage:aPackage.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	811	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	812	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	813	].
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	814	!
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	815
3134 93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	816	sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManagerOrNil
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	817	\|s methodsSortedByName defClass\|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	818
3201 f0993e3fdf02 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3199 diff changeset	819	s := CharacterWriteStream on:(String new:1000).
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	820
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	821	s nextPutAll:'"{ Package: '''.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	822	s nextPutAll:aPackageID asString.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	823	s nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	824
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	825	"/ don't write a timestamp. Otherwise we would always generate a new version, even if nothing changed
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	826	"/ s nextPutAll:(Smalltalk timeStamp).
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	827	"/ s nextPutChunkSeparator.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	828	"/ s cr; cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	829
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	830	"/ sort them by name (to avoid conflicts due to SCM merge)
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	831	methodsSortedByName := aCollectionOfMethods asOrderedCollection.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	832	methodsSortedByName sort:[:a :b \|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	833	\|clsA clsB\|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	834
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	835	clsA := a mclass name.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	836	clsB := b mclass name.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	837	clsA < clsB ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	838	true
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	839	] ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	840	clsA > clsB ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	841	false
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	842	] ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	843	a selector < b selector
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	844	]
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	845	]
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	846	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	847	methodsSortedByName do:[:aMethod \|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	848	aMethod mclass fileOutMethod:aMethod on:s.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	849	s cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	850	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	851
3134 93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	852	scmManagerOrNil notNil ifTrue:[
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	853	defClass := ProjectDefinition definitionClassForPackage:aPackageID.
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	854	defClass notNil ifTrue:[
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	855	"/ make sure, an extensionVersion_XXX method is included...
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	856	"/ (notice: no need to support a secondary backward compatible non-manager related version method here)
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	857	(methodsSortedByName contains:[:aMethod \| aMethod selector == scmManagerOrNil nameOfVersionMethodForExtensions]) ifFalse:[
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	858	s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	859	s cr.
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	860	s nextChunkPut:
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	861	(scmManagerOrNil versionMethodTemplateForSmalltalkFor:(scmManagerOrNil nameOfVersionMethodForExtensions)).
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	862	s space; nextPutChunkSeparator; cr.
93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	863	].
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	864	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	865	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	866
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	867	^ s contents.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	868
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	869	"Created: / 25-07-2012 / 18:38:05 / cg"
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	870	!
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	871
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	872	sourceCodeManagerFor:aClass
3370 9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	873	manager notNil ifTrue:[^ manager].
9953065c1ea1 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3354 diff changeset	874	^ self class sourceCodeManagerFor:aClass.
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	875	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	876
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	877	sourceCodeOfClass:aClass
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	878	\|stream src\|
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	879
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	880	stream := '' writeStream.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	881	Method flushSourceStreamCache.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	882	aClass fileOutOn:stream withTimeStamp:false.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	883	src := stream contents asString.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	884	stream close.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	885	^ src
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	886	!
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	887
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	888	validateConsistencyOfPackage:aPackage
3146 913e76c86499 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3140 diff changeset	889	^ self validateConsistencyOfPackage:aPackage doClasses:true doExtensions:true
913e76c86499 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3140 diff changeset	890	!
913e76c86499 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3140 diff changeset	891
913e76c86499 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3140 diff changeset	892	validateConsistencyOfPackage:aPackage doClasses:doClasses doExtensions:doExtensions
3692 ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	893	\|checker report msg answer dialog problems numProblems\|
3155 9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	894
9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	895	"/ also done by ProjectChecker...
9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	896	"/ defClass := aPackage asPackageId projectDefinitionClass.
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	897	"/ defClass validateDescription.
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	898
3146 913e76c86499 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3140 diff changeset	899	checker := ProjectChecker new.
913e76c86499 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3140 diff changeset	900	checker checkExtensionsOnly:(doClasses not and:[ doExtensions ]).
3155 9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	901	report := checker check: aPackage.
3692 ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	902	(report notNil and:[(problems := report problems) notEmptyOrNil]) ifTrue:[
ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	903	numProblems := problems size.
ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	904	numProblems == 1 ifTrue:[
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	905	msg := 'The ProblemChecker found the following error/inconsistency:\\ %2\\Need more detail or help for repair?'
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	906	] ifFalse:[
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	907	msg := 'The ProblemChecker found %1 errors/inconsistencies.\\Browse them for detail or repair?'
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	908	].
3692 ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	909	answer := Dialog confirmWithCancel:(msg bindWith:numProblems
ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	910	with:problems first label) withCRs.
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	911	answer isNil ifTrue:[
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	912	"/ cancel
3433 eee3079d18d3 AbortSignal -> AbortOperationRequest Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	913	AbortOperationRequest raiseRequest
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	914	].
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	915	answer == true ifTrue:[
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	916	dialog := Tools::ProjectCheckerBrowser new.
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	917	dialog
3155 9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	918	projectChecker: (ProjectChecker forPackage: aPackage);
3692 ce00ca02e94a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3683 diff changeset	919	problemList:problems;
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	920	showCancel:true;
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	921	openModal.
3155 9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	922
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	923	dialog accepted ifFalse:[
3433 eee3079d18d3 AbortSignal -> AbortOperationRequest Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	924	AbortOperationRequest raiseRequest
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	925	].
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	926	].
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	927	].
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	928	!
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	929
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	930	versionString:a isLessThan:b
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	931	"compare two strings of the form: a.b.c..."
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	932
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	933	\|i1 i2 a1 b1 rest1 rest2\|
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	934
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	935	i1 := a indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	936	i2 := b indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	937	i1 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	938	i1 := a size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	939	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	940	i2 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	941	i2 := b size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	942	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	943
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	944	a1 := Integer readFrom:(a copyTo:i1-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	945	b1 := Integer readFrom:(b copyTo:i2-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	946	a1 < b1 ifTrue:[^ true].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	947	a1 > b1 ifTrue:[^ false].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	948	rest1 := (a copyFrom:i1+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	949	rest2 := (b copyFrom:i2+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	950	rest1 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	951	^ rest2 notEmpty
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	952	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	953	rest2 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	954	^ false
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	955	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	956	^ self versionString:rest1 isLessThan:rest2
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	957
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	958	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	959	self assert:(self versionString:'12.34.66' isLessThan:'12.35.66').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	960	self assert:(self versionString:'12.34.66' isLessThan:'12.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	961	self assert:(self versionString:'11.34.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	962	self assert:(self versionString:'11.35.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	963	self assert:(self versionString:'13.35.66' isLessThan:'12.34.67') not.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	964	self assert:(self versionString:'13.35.66' isLessThan:'13.34.67') not.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	965	self assert:(self versionString:'13.35.66' isLessThan:'13.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	966	self assert:(self versionString:'13.35.66' isLessThan:'13.35.65') not.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	967	self assert:(self versionString:'13.35.66.1' isLessThan:'13.35.66') not.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	968	self assert:(self versionString:'13.35.66' isLessThan:'13.35.66.1').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	969	self assert:(self versionString:'13.35.66.2' isLessThan:'13.35.66.1') not.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	970	self assert:(self versionString:'13.35.66.1' isLessThan:'13.35.66.2').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	971	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	972
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	973	"Modified: / 17-02-2011 / 10:20:14 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	974	! !
1160 d56159f5a86f * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	975
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	976	!SourceCodeManagerUtilities methodsFor:'utilities-cvs'!
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	977
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	978	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	979	"check-out an extension container from the source repository, and return the methods there as a change set.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	980	If askForRevision is false, check-out the newest version.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	981	Return a changeSet or nil (if any error occurred)"
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	982
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	983	^ self
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	984	changeSetForExtensionMethodsForPackage:packageToCheckOut
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	985	revision:nil orAskForRevision:askForRevision
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	986	usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	987
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	988	"Created: / 29-12-2011 / 14:26:01 / cg"
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	989	!
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	990
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	991	changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	992	"check-out an extension container from the source repository, and return the methods there as a change set.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	993	If askForRevision is false, check-out the newest version.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	994	Return a changeSet or nil (if any error occurred)"
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	995
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	996	\|directory module file aStream sourceToLoad rev msg newestRev \|
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	997
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	998	directory := packageToCheckOut asPackageId directory.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	999	module := packageToCheckOut asPackageId module.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1000	file := self nameOfExtensionsContainer.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1001
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1002	"/
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1003	"/ ask for revision
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1004	"/
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1005	(rev := revisionOrNil) isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1006	newestRev := aSourceCodeManager newestRevisionInFile:file directory:directory module:module.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1007	askForRevision ifFalse:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1008	rev := newestRev ? ''
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1009	] ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1010	msg := resources string:'CheckOut which revision of extensions for ''%1'': (empty for newest)' with:packageToCheckOut allBold.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1011	newestRev notNil ifTrue:[
3261 7a585999dcef class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3259 diff changeset	1012	msg := msg , '\' , (resources string:'Newest in repository is %1.' with:newestRev)
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1013	].
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1014
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1015	rev := self
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1016	askForExistingRevision:msg
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1017	title:'CheckOut from repository'
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1018	class:nil
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1019	manager:aSourceCodeManager
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1020	module:module package:directory fileName:file.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1021
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1022	rev isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1023	^ nil "/ canceled
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1024	].
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1025	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1026	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1027	rev withoutSpaces isEmpty ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1028	rev := #newest.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1029	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1030	] ifFalse:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1031	msg := 'extracting previous %1'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1032	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1033	aStream := aSourceCodeManager
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1034	streamForClass:nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1035	fileName:file
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1036	revision:rev
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1037	directory:directory
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1038	module:module
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1039	cache:true.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1040
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1041	aStream isNil ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1042	self warn:(resources string:'Could not extract "extensions.st" for %1 from repository' with:packageToCheckOut allBold).
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1043	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1044	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1045	aStream class readErrorSignal handle:[:ex \|
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1046	self warn:('read error while reading extracted source\\' , ex description) withCRs.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1047	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1048	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1049	] do:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1050	sourceToLoad := aStream contents asString.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1051	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1052	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1053	^ ChangeSet fromStream:(sourceToLoad readStream).
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1054
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1055	"Created: / 29-12-2011 / 14:27:00 / cg"
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1056	!
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1057
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1058	checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1059	\|moduleName directoryName containerName\|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1060
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1061	moduleName := module allBold.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1062	directoryName := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1063	containerName := containerFileName allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1064
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1065	"/
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1066	"/ check for the container
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1067	"/
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	1068	(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1069	allowCreate ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1070	self warn:(resources string:'A container for ''%1'' does not exist in ''%2:%3'''
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1071	with:containerName with:moduleName with:directoryName) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1072	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1073	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1074	(Dialog
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1075	confirm:(resources string:'''%1'' is a new container (in ''%2:%3'').\\Create it ?'
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1076	with:containerName with:moduleName with:directoryName) withCRs
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1077	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1078	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1079	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1080	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1081	(mgr createContainerForText:'' inModule:module package:directory container:containerFileName) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1082	self warn:(resources string:'Cannot create new container: ''%1'' (in ''%2:%3'')'
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1083	with:containerName with:moduleName with:directoryName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1084	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1085	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1086	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1087	^ true.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1088
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	1089	"Modified: / 13-09-2006 / 18:24:57 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1090	"Created: / 29-12-2011 / 14:35:36 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1091	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1092
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1093	checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1094	\|moduleNameBold directoryNameBold\|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1095
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1096	moduleNameBold := module allBold.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1097	directoryNameBold := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1098
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1099	"/
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1100	"/ check for the directory
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1101	"/
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1102	(mgr checkForExistingModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1103	allowCreate ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1104	self warn:(resources string:'A directory for ''%1'' does not exist in module ''%2'''
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1105	with:directoryNameBold with:moduleNameBold) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1106	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1107	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1108	(Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1109	confirm:(resources stringWithCRs:'''%1'' is a new directory in module ''%2''.\\Create it in %3?'
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1110	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1111	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1112	with:mgr managerTypeName)
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1113	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1114	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1115	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1116	].
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1117	(mgr createModule:module directory:directory) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1118	self warn:(resources stringWithCRs:'Cannot create new directory: ''%1'' in module ''%2'' in %3'
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1119	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1120	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1121	with:mgr managerTypeName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1122	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1123	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1124	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1125	^ true.
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1126
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1127	"Modified: / 21-12-2011 / 18:46:11 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1128	"Created: / 29-12-2011 / 14:35:20 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1129	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1130
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1131	checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1132	\|moduleName answer\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1133
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1134	(mgr checkForExistingModule:module) ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1135	moduleName := module allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1136
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1137	allowCreate ifFalse:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	1138	self warn:(resources stringWithCRs:'A module named ''%1'' does not exist in the repository'
d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	1139	with:moduleName) .
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1140	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1141	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1142	AbortAllOperationWantedQuery query ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1143	answer := Dialog
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1144	confirmWithCancel:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1145	labels:(resources array:#('Cancel All' 'Cancel' 'Yes' )).
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1146	answer isNil ifTrue:[ AbortAllOperationRequest raise ].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1147	] ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1148	answer := Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1149	confirm:(resources stringWithCRs:'''%1'' is a new module in %2.\\create it ?' with:moduleName with:mgr managerTypeName)
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1150	noLabel:'Cancel'
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1151	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1152	answer ifFalse:[ ^ false].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1153
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1154	(mgr createModule:module) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1155	self warn:(resources stringWithCRs:'Cannot create new module: ''%1'' in %2' with:moduleName with:mgr managerTypeName) .
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1156	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1157	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1158	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1159	^ true.
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1160
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1161	"Modified: / 21-12-2011 / 18:42:03 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1162	"Created: / 29-12-2011 / 14:35:06 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1163	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1164
3534 914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1165	checkOutPackages: packages askForRevision: askForRevision
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1166	"Updates code of given packages (loaded in the image) to a specific revision.
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1167	If `askForRevision` is true, then user is asked to specify to which revision to
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1168	update. If `askForRevision` is false, then packages are updated to a 'newest'
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1169	revision.
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1170
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1171	NOTE: Definition of `newest` revision may vary. For SCMs which allows for multiple
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1172	heads, it is not clear which one it is. In that case, even if `askForRevision` is
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1173	false, this method may result in user interation, asking user to select which of the
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1174	newest she wants.
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1175
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1176	NOTE: Naming is bit confusing, it should be something like #updatePackages:ask...
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1177	but to keep this in line with other methods, we use #checkOutPackages"
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1178
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1179	^ self subclassResponsibility.
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1180
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1181	"Created: / 01-04-2014 / 21:50:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1182	!
914309d517ed class: SourceCodeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3514 diff changeset	1183
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1184	checkinClass:aClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1185	"check a class into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1186	Asks interactively for a log-message."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1187
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1188	^ self checkinClass:aClass withInfo:nil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1189	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1190
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1191	checkinClass:aClass withInfo:aLogInfoOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1192	"check a class into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1193	If the argument, aLogInfoOrNil isNil, ask interactively for a log-message."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1194
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1195	^ self checkinClass:aClass withInfo:aLogInfoOrNil withCheck:true
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1196	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1197
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1198	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1199	"check a class into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1200	If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1201	If doCheckClass is true, the class is checked for send of halts etc."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1202
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1203	^ self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1204	checkinClass:aClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1205	withInfo:aLogInfoOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1206	withCheck:doCheckClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1207	usingManager:(self sourceCodeManagerFor:aClass)
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1208
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1209	"Modified: / 21-12-2011 / 18:19:55 / cg"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1210	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1211
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1212	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClassHolder usingManager:managerOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1213	"check a class into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1214	If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1215	If doCheckClass is true, the class is checked for send of halts etc."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1216
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1217	\|logMessage checkinInfo mgr pri\|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1218
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1219	aClass isLoaded ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1220	self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name).
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1221	^ false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1222	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1223
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1224	mgr := managerOrNil.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1225	mgr isNil ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1226	mgr := self sourceCodeManagerFor:aClass.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1227	mgr isNil ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1228	^ false
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1229	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1230	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1231
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1232	self ensureCorrectVersionMethodsInClass:aClass usingManager:mgr.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1233	mgr supportsCheckinLogMessages ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1234	(self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1235	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1236	forClass:aClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1237	valuesInto:[:logMessageRet :checkinInfoRet \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1238	logMessage := logMessageRet.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1239	checkinInfo := checkinInfoRet.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1240	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1241	) ifFalse:[^ false].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1242	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1243
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1244	(self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1245	(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1246	"/ self warn:'did not create a container for ''' , aClass name , ''''.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1247	^ false
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1248	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1249	^ true.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1250	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1251
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1252	self activityNotification:(resources string:'checking in %1' with:aClass name).
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1253	pri := Processor activePriority.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1254	Processor activeProcess withPriority:pri-1 to:pri
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1255	do:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1256	\|revision aborted freshCreated\|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1257
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1258	freshCreated := false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1259	revision := aClass revision.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1260	revision isNil ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1261	mgr isContainerBased ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1262	"/ mhmh - check if it has a container.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1263	(mgr checkForExistingContainerForClass:aClass) ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1264	(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1265	self warn:'Did not create/change repository container for ''' , aClass name allBold , ''''.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1266	^ false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1267	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1268	freshCreated := true.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1269	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1270	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1271	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1272
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1273	doCheckClassHolder value ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1274	"/ check if the class contains halts, error-sends etc.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1275	(self checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:doCheckClassHolder) ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1276	^ false
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1277	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1278	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1279
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1280	freshCreated ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1281	aborted := false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1282	AbortOperationRequest handle:[:ex \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1283	aborted := true.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1284	ex return.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1285	] do:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1286	\|checkinState cause\|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1287	checkinState := false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1288	cause := ''.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1289	[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1290	checkinState := mgr checkinClass:aClass logMessage:logMessage
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1291	] on:SourceCodeManagerError do:[:ex\|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1292	cause := ex description.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1293	"/ ex proceed.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1294	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1295
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1296	checkinState ifFalse:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1297	Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1298	self warn:(resources stringWithCRs:'Checkin of "%1" failed\\' with:aClass name allBold),cause.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1299	AbortOperationRequest raise.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1300	"/ ^ false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1301	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1302	checkinInfo notNil ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1303	checkinInfo isStable ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1304	"set stable tag for class that has been checked in"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1305	self tagClass:aClass as:#stable.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1306	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1307	checkinInfo tagIt ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1308	"set any additional tags for the class that has been checked in"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1309	(checkinInfo tag asCollectionOfSubstringsSeparatedByAny:',;') do:[:eachTag \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1310	self tagClass:aClass as:eachTag withoutSeparators.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1311	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1312	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1313	CVSSourceCodeManager recentTag:checkinInfo tag.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1314	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1315	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1316	aborted ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1317	Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1318
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1319	AbortAllOperationWantedQuery query ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1320	(Dialog
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1321	confirm:(resources stringWithCRs:'Checkin of "%1" aborted.\\Cancel all ?' with:aClass name)
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1322	default:false)
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1323	ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1324	AbortAllOperationRequest raise.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1325	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1326	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1327	^ false.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1328	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1329	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1330	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1331	^ true
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1332
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1333	"Created: / 21-12-2011 / 18:19:14 / cg"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1334	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1335
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1336	checkinClasses:aCollectionOfClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1337	"check a collection of classes into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1338	Asks interactively for log-message."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1339
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1340	^ self checkinClasses:aCollectionOfClass withInfo:nil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1341	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1342
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1343	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1344	"check a bunch of classes into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1345	If the argument, aLogInfoOrNil isNil, ask interactively for log-message."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1346
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1347	\|checkClassWhenCheckingInHolder\|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1348
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1349	checkClassWhenCheckingInHolder := ValueHolder with:(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true).
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1350	checkClassWhenCheckingInHolder
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1351	onChangeEvaluate:[ UserPreferences current at:#checkClassesWhenCheckingIn put:checkClassWhenCheckingInHolder value ].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1352
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1353	^ self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1354	checkinClasses:aCollectionOfClasses
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1355	withInfo:aLogInfoOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1356	withCheck:checkClassWhenCheckingInHolder
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1357	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1358
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1359	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClassesHolder
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1360	"check a bunch of classes into the source repository.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1361	If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1362
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1363	self checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClassesHolder usingManager:nil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1364
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1365	"Modified: / 21-12-2011 / 18:24:47 / cg"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1366	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1367
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1368	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringOrNil withCheck:doCheckClassesHolder usingManager:aManagerOrNil
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1369	"check a bunch of classes into the source repository.
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1370	If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message."
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1371
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1372	\|classes allClasses checkinInfoOrString yesOrNoToAll unchangedClasses\|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1373
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1374	"/ ignore private classes
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1375	classes := aCollectionOfClasses select:[:aClass \| aClass owningClass isNil].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1376	classes isEmpty ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1377	self information:'Only private classes given - nothing checked in.'.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1378	^ self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1379	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1380	classes := classes select:[:aClass \| aClass isLoaded].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1381	classes isEmpty ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1382	self information:'Only unloaded classes given - nothing checked in.'.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1383	^ self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1384	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1385
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1386	classes size == 1 ifTrue:[
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1387	^ self checkinClass:classes first withInfo:aLogInfoOrStringOrNil withCheck:doCheckClassesHolder usingManager:aManagerOrNil.
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1388	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1389
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1390	"ask once, for all classes"
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1391	aLogInfoOrStringOrNil isNil ifTrue:[
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1392	checkinInfoOrString := self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1393	getCheckinInfoFor:(resources string:'%1 classes to checkin' with:aCollectionOfClasses size)
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1394	initialAnswer:nil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1395	withQuickOption:true.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1396	checkinInfoOrString isNil ifTrue:[^ self].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1397	] ifFalse:[
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1398	checkinInfoOrString := aLogInfoOrStringOrNil.
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1399	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1400
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1401	allClasses := classes.
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1402	(checkinInfoOrString isString not and:[checkinInfoOrString quickCheckIn]) ifTrue:[
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1403	"/ not only the one's in the changeSet;
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1404	"/ also those which have not been checked in before.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1405	classes := classes select:[:each \| each hasUnsavedChanges or:[ (each revisionOfManager:aManagerOrNil) isNil ]].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1406	classes isEmpty ifTrue:[ Dialog information:'no changes to checkin (quickCheckIn)' ]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1407	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1408
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1409	"abortAll is handled, and also asked for here!!"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1410	AbortAllOperationRequest handleAndAnswerQueryIn:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1411	classes notEmpty ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1412	self yesToAllNotification handle:[:ex \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1413	yesOrNoToAll := ex parameter.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1414	ex proceed
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1415	] do:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1416	self yesToAllQuery handle:[:ex \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1417	ex proceedWith:yesOrNoToAll
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1418	] do:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1419	classes do:[:aClass \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1420	self activityNotification:(resources string:'checking in %1' with:aClass name).
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1421	"/ ca does not want boxes to pop up all over ...
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1422	UserInformation handle:[:ex \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1423	Transcript showCR:ex description.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1424	ex proceed.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1425	] do:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1426	AbortOperationRequest catch:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1427	self
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1428	checkinClass:aClass
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1429	withInfo:checkinInfoOrString
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1430	withCheck:doCheckClassesHolder
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1431	usingManager:aManagerOrNil
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1432	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1433	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1434	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1435	]
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1436	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1437	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1438
3818 25607a4f1e98 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3814 diff changeset	1439	(checkinInfoOrString isString not and:[ (checkinInfoOrString isStable or:[checkinInfoOrString tagIt]) ])
3602 d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1440	ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1441	"/mhmh - but tag should be set on all (even unchanged ones)
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1442	"/ the other onces have already been tagged
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1443	unchangedClasses := allClasses reject:[:eachClass \| (classes includes:eachClass)].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1444
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1445	"mhmh - could still have to tag them"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1446	checkinInfoOrString isStable ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1447	unchangedClasses do:[:eachClass \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1448	self tagClass:eachClass as:#stable.
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1449	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1450	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1451	checkinInfoOrString tagIt ifTrue:[
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1452	unchangedClasses do:[:eachClass \|
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1453	self tagClass:eachClass as:(checkinInfoOrString tag).
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1454	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1455	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1456	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1457	].
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1458
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1459	"Created: / 21-12-2011 / 18:24:25 / cg"
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1460	!
d5a67c9e51dd class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3594 diff changeset	1461
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1462	checkoutClass:aClass askForMerge:askForMerge
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1463	"check-out a class from the source repository."
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1464
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1465	self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1466	checkoutClass:aClass
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1467	askForRevision:true
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1468	askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1469	!
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1470
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1471	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1472	"check-out a class from the source repository.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1473	If askForRevision is false, check-out the newest version."
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1474
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1475	self
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1476	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1477	askForConfirmation:true
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1478	!
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1479
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1480	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1481	"check-out a class from the source repository.
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1482	If askForRevision is false, check-out the newest version."
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1483
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1484	\|mgr sourceInfo
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1485	currentClass inChangeSet
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1486	aStream sourceToLoad currentSource rev revString
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1487	nm msg rev2 newestRev
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1488	containerModule containerPackage containerFile rslt
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1489	pkg listHere listRep diffSet
1054 4ecc5aeca084 * empty log message * Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	1490	changed onlyHere onlyInRep answer labels values singleChangeSelector
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1491	changedClasses default versionMethodsHere versionMethodsRep changedClassDefinitions
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1492	wasInChangeSetBefore\|
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1493
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1494	aClass isNil ifTrue:[self error:'nil class'].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1495
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1496	currentClass := aClass theNonMetaclass.
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1497
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1498	nm := currentClass name.
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1499	mgr := self sourceCodeManagerFor:currentClass.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1500	mgr isNil ifTrue:[
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1501	^ self
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1502	].
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1503
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1504	sourceInfo := mgr sourceInfoOfClass:currentClass.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1505	sourceInfo notNil ifTrue:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1506	currentClass package ~= PackageId noProjectID ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1507	containerPackage := mgr directoryFromSourceInfo:sourceInfo.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1508	containerModule := mgr moduleFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1509	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1510	containerFile := mgr containerFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1511	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1512
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1513	currentClass isLoaded ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1514	rev := currentClass binaryRevision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1515	rev2 := currentClass revision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1516	rev isNil ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1517	rev := rev2
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1518	].
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1519	rev isNil ifTrue:[
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1520	pkg := currentClass package.
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1521	(pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1522	containerModule := pkg upTo:$:.
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1523	containerPackage := pkg copyFrom:(containerModule size + 2).
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1524	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1525	containerModule size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1526	containerModule := (self class lastModule ) ? Project current repositoryModule.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1527	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1528	containerPackage size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1529	containerPackage := (self class lastPackage ) ? Project current package.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1530	].
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1531	answer := self confirmWithCancel:(resources
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1532	string:'The class %3 seems to have no (valid) repository information.\\I assume you want to check it out from: %1/%2.'
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1533	with:containerModule allBold
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1534	with:containerPackage allBold
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1535	with:currentClass name allBold) withCRs.
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1536	answer isNil ifTrue:[^ self "cancelled"].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1537	answer ifFalse:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1538	rslt := self
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1539	askForContainer:(resources string:'The class seems to have no repository information.\\Do you want to checkOut from an existing containers contents ?')
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1540	title:'Container to load from' note:nil
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1541	initialModule:containerModule
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1542	initialPackage:containerPackage
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1543	initialFileName:(currentClass nameWithoutPrefix , '.st')
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1544	forNewContainer:false.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1545
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1546	rslt isNil ifTrue:[
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1547	"/ canel
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1548	^ self
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1549	].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1550	containerModule := "lastModule :=" rslt at:#module.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1551	containerPackage := "lastPackage :=" rslt at:#package.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1552	containerFile := rslt at:#fileName.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1553	].
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1554
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1555	"/ rslt := self
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1556	"/ askForContainer:(resources string:'The class seems to have no (valid) repository information.\\Do you want to check it out from an existing container ?')
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1557	"/ title:'Container to checkOut' note:nil
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1558	"/ initialModule:containerModule
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1559	"/ initialPackage:containerPackage
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1560	"/ initialFileName:(currentClass name , '.st').
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1561	"/ forNewContainer:false.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1562	"/ rslt isNil ifTrue:[^ self].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1563	"/ self warn:(resources string:'Class %1 seems to be not yet in the repository' with:currentClass name allBold).
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1564	"/ ^ self
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1565	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1566	].
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1567
1966 d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1568	containerFile isNil ifTrue:[
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1569	containerFile := currentClass classFilename.
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1570	].
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1571
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1572	"/
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1573	"/ class in repository - ask for revision
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1574	"/
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1575	containerModule isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1576	containerModule := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1577	stringWithCRs:'Missing Module Information for CheckOut of "%1".\\Module:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1578	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1579	containerModule isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1580	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1581	containerPackage isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1582	containerPackage := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1583	stringWithCRs:'Missing Package Information for CheckOut of "%1".\\Package:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1584	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1585	containerPackage isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1586	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1587
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1588	newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1589	askForRevision ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1590	rev := newestRev ? ''
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1591	] ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1592	msg := resources string:'CheckOut which revision of ''%1'': (empty for newest)' with:nm allBold.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1593	rev notNil ifTrue:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1594	msg := msg , '\\' , (resources string:'Current ''%1'' is based upon rev %2.'
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1595	with:nm allBold with:rev).
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1596	(rev2 notNil and:[rev2 ~= rev]) ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1597	msg := msg , '\' , (resources string:'And has been checked into the repository as %1.' with:rev2)
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1598	]
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1599	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1600	newestRev notNil ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1601	msg := msg , '\' , (resources string:'Newest in repository is %1.' with:newestRev)
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1602	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1603
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1604	rev := self
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1605	askForExistingRevision:msg
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1606	title:'CheckOut from repository'
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1607	class:currentClass.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1608	rev isNil ifTrue:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1609	^ self "/ canceled
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1610	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1611	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1612
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1613	rev withoutSpaces isEmpty ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1614	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1615	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1616	aStream := mgr getSourceStreamFor:currentClass revision:newestRev.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1617	revString := '(newest: ' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1618	] ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1619	msg := 'extracting previous %1'.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1620	"/ aStream := mgr getSourceStreamFor:currentClass revision:rev.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1621	"/ revString := rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1622	aStream := mgr
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1623	streamForClass:currentClass
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1624	fileName:containerFile
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1625	revision:rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1626	directory:containerPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1627	module:containerModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1628	cache:true.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1629	].
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1630
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1631	aStream isNil ifTrue:[
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1632	self warn:(resources string:'Could not extract source of %1 from repository' with:aClass name allBold).
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1633	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1634	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1635	aStream class readErrorSignal handle:[:ex \|
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1636	self warn:('Read error while reading extracted source\\' , ex description) withCRs.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1637	aStream close.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1638	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1639	] do:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1640	sourceToLoad := aStream contents asString.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1641	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1642	aStream close.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1643
1919 8d30ac5be40f * empty log message * boris parents: 1913 diff changeset	1644	wasInChangeSetBefore := ChangeSet current includesChangeForClassOrMetaclass:currentClass.
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1645
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1646	currentClass isLoaded ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1647	rev = newestRev ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1648	currentClass autoload.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1649	] ifFalse:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1650	sourceToLoad readStream fileIn.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1651	].
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1652	wasInChangeSetBefore ifFalse:[
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1653	ChangeSet current condenseChangesForClass:currentClass.
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1654	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1655	^ self.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1656	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1657
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1658	inChangeSet := aClass hasUnsavedChanges.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1659
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1660	Error handle:[:ex \|
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1661	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1662	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1663	stringWithCRs:'An error:\ %1\was encountered while generating the current source of the class %2.\This might be due to some missing or corrupted source file.\You may proceed, but no information about the differences between your current version and the repositories version can be shown.\\Continue ?'
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1664	with:ex description
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1665	with:currentClass name allBold)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1666	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1667	ifFalse:[
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1668	AbortOperationRequest raise
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1669	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1670	sourceToLoad readStream fileIn.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1671	^ self.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1672	] do:[
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1673	self activityNotification:'generating current source...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1674
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1675	currentSource := self sourceCodeOfClass:currentClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1676
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1677	self activityNotification:'comparing...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1678
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1679	sourceToLoad = currentSource ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1680	"/ make all methods belong to the classes project
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1681	self setPackageOfAllMethodsIn:aClass to:aClass package.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1682	inChangeSet ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1683	rev = newestRev ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1684	(askForConfirmation not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1685	or:[ wasInChangeSetBefore not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1686	or:[ self confirm:(resources
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1687	stringWithCRs:'%1 is up-to-date.\\Remove entries for %1 from changeSet ?'
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1688	with:aClass name)]])
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1689	ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1690	ChangeSet current condenseChangesForClass:aClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1691	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1692	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1693	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1694	self activityNotification:'... nothing changed in repository'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1695	^ self.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1696	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1697
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1698	self activityNotification:'generating diffSet...'.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1699	listHere := ChangeSet fromStream:(currentSource readStream).
32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1700	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1701
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1702	listRep := ChangeSet fromStream:(sourceToLoad readStream).
1051 9f76e78c91d4 * empty log message * frank parents: 1050 diff changeset	1703
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1704	Error handle:[:ex \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1705	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1706	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1707	stringWithCRs:'An error:\ %1\was encountered while trying to figure out what has changed.\This might be due to some missing or corrupted source file.\If you proceed, the old code will be loaded over the existing code without further checks (fileIn).\\Continue ?'
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1708	with:ex description
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1709	)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1710	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1711	ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1712	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1713	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1714	sourceToLoad readStream fileIn.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1715	^ self.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1716	] do:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1717	versionMethodsHere := listHere select:[:change \| (change isMethodChange
3354 d36778f0ff0b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	1718	and:[((self sourceCodeManagerFor:aClass) "AbstractSourceCodeManager" isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1719	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1720
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1721	versionMethodsRep := listRep select:[:change \| (change isMethodChange
3354 d36778f0ff0b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	1722	and:[((self sourceCodeManagerFor:aClass) "AbstractSourceCodeManager" isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1723	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1724
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1725	"/ compare all but the version methods
3291 7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	1726	listHere := listHere reject:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	1727	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
3291 7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	1728	and:[change changeClass isMeta]])].
7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	1729	listRep := listRep reject:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	1730	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
3291 7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	1731	and:[change changeClass isMeta]])].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1732
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1733	diffSet := listHere diffSetsAgainst:listRep.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1734	changed := diffSet changed.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1735	onlyHere := diffSet onlyInReceiver.
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1736
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1737	"/ reject extensions
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1738	onlyHere := onlyHere reject:[:eachDiff\|
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	1739	\|method methodsPackage\|
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1740
3272 6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1741	eachDiff isMethodChange
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1742	and:[ eachDiff changeClass notNil
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1743	and:[ (method := (eachDiff changeClass compiledMethodAt:eachDiff selector)) notNil
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1744	and:[ (methodsPackage := method package) ~= containerPackage
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1745	and:[ methodsPackage ~= PackageId noProjectID ]]]]
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1746	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1747
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1748	onlyInRep := diffSet onlyInArg.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1749
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1750	changedClassDefinitions := changed select:[:eachChangePair \| eachChangePair first isClassDefinitionChange].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1751	changed := changed reject:[:eachChangePair \| eachChangePair first isClassDefinitionChange].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1752	changed := changed reject:[:eachChangePair \| eachChangePair first isClassCommentChange].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1753
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1754	labels := #('Cancel' 'Merge' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1755	values := #(nil #merge #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1756	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1757	ifTrue:[3. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1758	ifFalse:[2. "i.e. merge"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1759
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1760	msg := 'About to load ''%4''.\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1761	onlyInRep size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1762	msg := msg , 'The repositories version contains %1 method(s) which are not in your current class.\'.
2064 3e7b6104ce47 When checking out newest sources from a repository, Stefan Vogel <sv@exept.de> parents: 2063 diff changeset	1763	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1764	onlyHere size > 0 ifTrue:[
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1765	msg := msg , (onlyInRep size > 0 ifTrue:['And there '] ifFalse:['There ']).
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1766	msg := msg , 'are %2 methods in your current class, which are not in the repository.\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1767	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1768	changed size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1769	changed size == 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1770	msg := msg , 'The ''%6''-method is different (present in both).\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1771	singleChangeSelector := changed first first selector allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1772	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1773	msg := msg , '%3 methods are different (present in both).\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1774	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1775	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1776	changedClassDefinitions size > 0 ifTrue:[
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1777	msg := msg , (changedClassDefinitions size == 1
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1778	ifTrue:['The class definition is different.\\']
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1779	ifFalse:['%5 class definitions are different.\\'])
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1780	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1781
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1782	onlyHere isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1783	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1784	(changed isEmpty and:[changedClassDefinitions isEmpty]) ifTrue:[
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1785	versionMethodsRep notEmpty ifTrue:[
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1786	(self confirm:(resources string:'Only version methods are different in %1.\\Update the version-IDs ?' with:aClass name allBold) withCRs) ifTrue:[
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1787	versionMethodsRep do:[:each \| each apply].
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1788	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1789	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1790	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1791	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1792	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1793	self activityNotification:'Only version methods are different in the repository'.
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1794	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1795	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1796	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1797	msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made).'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1798	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1799	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1800	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1801	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1802	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1803	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1804	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1805	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1806	changed isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1807	msg := msg , '\Attention:\Load will load methods which are not present in ''%4''.'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1808	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1809	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1810	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1811	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1812	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1813	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1814	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1815	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1816	msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1817	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1818	msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1819	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1820	]
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1821	] ifFalse:[
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1822	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1823	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1824	msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made),'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1825	msg := msg , '\and remove added methods which are not present in the repository version.'.
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1826	].
1121 7531e9dd8ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1827	labels := #('Cancel' 'Load').
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1828	values := #(nil #load).
1007 44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1829	default := askForRevision
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1830	ifTrue:[2. "i.e. load"]
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1831	ifFalse:[1. "i.e. cancel"].
1907 30ca5aea5a7a dialogs defaults fm parents: 1886 diff changeset	1832	default := 2.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1833	] ifFalse:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1834	inChangeSet ifTrue:[
9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1835	msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1836	msg := msg , '\Merge will only load methods which are not present in ''%4'' (i.e. undo removals but preserve changes).'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1837	]
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1838	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1839	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1840
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1841	msg := msg bindWith:onlyInRep size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1842	with:onlyHere size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1843	with:changed size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1844	with:aClass name allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1845	with:changedClassDefinitions size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1846	with:singleChangeSelector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1847
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1848	askForConfirmation ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1849	answer := #load
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1850	] ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1851	answer := (Dialog confirmWithCancel:msg withCRs
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1852	labels:(resources array:labels)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1853	values:values
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1854	default:default).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1855	answer isNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1856	self activityNotification:'...cancelled'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1857	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1858	].
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1859	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1860	self activityNotification:'updating...'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1861	changedClasses := IdentitySet new.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1862
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1863	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1864	"when loading, remove all the methods which are no longer in classes with a changed
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1865	class definition. So we avoid possible compile errors of old methods, which will go away"
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1866	onlyHere do:[:eachChange \|
3272 6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1867	"remove this change (method not present in repository version)"
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1868	\|cClass\|
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1869	eachChange isMethodChange ifTrue:[
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1870	cClass := eachChange changeClass.
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1871	cClass notNil ifTrue:[
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1872	cClass basicRemoveSelector:eachChange selector
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1873	].
6ce72ad3d416 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3261 diff changeset	1874	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1875	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1876
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1877	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1878	\|cHere eachChangedClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1879	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1880	eachChangedClass := cHere changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1881	eachChangedClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1882	changedClasses add:eachChangedClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1883	eachChangedClass := eachChangedClass theNonMetaclass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1884
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1885	"remove changed methods now, but keep the changes (to be applied later)"
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1886	changed do:[:eachChangeArr\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1887	\|eachChange eachClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1888
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1889	eachChange := eachChangeArr first.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1890	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1891	eachClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1892	eachClass theNonMetaclass == eachChangedClass ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1893	eachClass basicRemoveSelector:eachChange selector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1894	].
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1895	].
57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1896	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1897	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1898	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1899
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1900	"apply class definition changes (use the repository version)"
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1901	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1902	\|cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1903	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1904	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1905	].
1057 6903d4d5097d do not update the changesFile, when checkingOut Claus Gittinger <cg@exept.de> parents: 1056 diff changeset	1906	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1907
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1908	onlyInRep do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1909	\|changeClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1910
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1911	"apply this change (method only present in rep-version)"
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1912	eachChange apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1913	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1914	changeClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1915	changeClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1916	eachChange changeMethod setPackage:(changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1917	changedClasses add:changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1918	]
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1919	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1920	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1921	.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1922	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1923	changed do:[:eachChangeArr \| "apply this change (go to rep-version)"
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1924	\|cHere cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1925	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1926	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1927	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1928	cRep isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1929	cRep changeMethod setPackage:(cRep changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1930	changedClasses add:cRep changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1931	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1932	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1933
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1934	versionMethodsRep size >= 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1935	versionMethodsRep last apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1936	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1937	self error:'missing version method in repository' mayProceed:true.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1938	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1939	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1940	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1941	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1942	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1943
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1944	answer == #load ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1945	inChangeSet := aClass hasUnsavedChanges.
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1946	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1947	rev = newestRev ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1948	(wasInChangeSetBefore not
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1949	or:[ self confirm:(resources
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1950	stringWithCRs:'%1 is now up-to-date.\\Remove entries for %1 from changeSet ?'
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1951	with:aClass name)])
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1952	ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1953	ChangeSet current condenseChangesForClass:aClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1954	].
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1955	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1956	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1957	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1958
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1959	changedClasses do:[:eachClass \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1960	eachClass changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1961	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1962	Smalltalk changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1963	self activityNotification:'... done'.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1964	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1965
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1966	"Modified: / 07-02-2001 / 18:18:32 / ps"
3354 d36778f0ff0b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3351 diff changeset	1967	"Modified: / 22-07-2013 / 13:17:32 / cg"
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1968	!
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1969
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1970	checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1971	"check-out a class from the source repository.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1972	If askForRevision is false, check-out the newest version."
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1973
3291 7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	1974	\|inChangeSet extensionMethods msg
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1975	listHere listRep diffSet
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1976	changed onlyHere onlyInRep answer labels values singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1977	changedClasses default \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1978
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1979	listRep := self changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager.
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1980	listRep isNil ifTrue:[ ^self ].
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1981
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1982	self activityNotification:'generating diffSet...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1983
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1984	extensionMethods := OrderedCollection new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1985	Smalltalk allClassesDo:[:aClass \| \|owner classPackage\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1986	"/ individual methods ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1987	aClass isMeta ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1988	(aClass package ~= packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1989	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1990	"/ methods in this project ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1991	(mthd package = packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1992	"/ ... whose class is not in the ckechIn-set
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1993	extensionMethods add:mthd
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1994	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1995	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1996	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1997	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1998	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1999	listHere := ChangeSet forExistingMethods:extensionMethods.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2000
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2001	inChangeSet := listRep contains:[:someChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2002	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2003
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2004	someChange isMethodChange ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2005	cClass := someChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2006	cSel := someChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2007	ChangeSet current includesChangeForClass:cClass selector:cSel
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2008	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2009	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2010
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2011	diffSet := listHere diffSetsAgainst:listRep.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2012	changed := diffSet changed.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2013	onlyHere := diffSet onlyInReceiver.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2014	onlyInRep := diffSet onlyInArg.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2015
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2016	labels := #('Cancel' 'Merge' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2017	values := #(nil #merge #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2018	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2019	ifTrue:[3. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2020	ifFalse:[2. "i.e. merge"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2021
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2022	msg := 'About to load extensions for ''%5''.\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2023	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2024	msg := msg , 'The repositories version contains %1 extension method(s) which are not in your current image.\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2025	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2026	onlyHere size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2027	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2028	msg := msg , 'And there '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2029	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2030	msg := msg , 'There '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2031	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2032	msg := msg , 'are %2 extension methods in your current image, which are not in the repository.\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2033	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2034	changed size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2035	changed size == 1 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2036	msg := msg , 'The ''%5''-method is different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2037	singleChangeSelector := changed first first selector allBold
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2038	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2039	msg := msg , '%3 methods are different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2040	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2041	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2042
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2043	onlyHere isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2044	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2045	(changed isEmpty) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2046	listRep do:[:eachChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2047	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2048	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2049	^ self
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2050	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2051	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2052	msg := msg , '\Attention:\Load may undo any changes made to on of the extension methods (if any were made).'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2053	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2054	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2055	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2056	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2057	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2058	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2059	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2060	changed isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2061	msg := msg , '\Attention:\Load will load methods which are not present in the image.'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2062	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2063	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2064	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2065	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2066	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2067	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2068	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2069	msg := msg , '\Attention:\Load will undo your changes made to the image (if any were made);'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2070	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2071	msg := msg , '\Merge will only load methods which are not present in the image (i.e. undo removals but preserve changes).'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2072	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2073	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2074	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2075	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2076	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2077	msg := msg , '\Attention:\Load will undo your changes made to the image (if any were made),'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2078	msg := msg , '\and remove added methods which are not present in the repository version.'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2079	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2080	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2081	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2082	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2083	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2084	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2085	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2086	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2087	msg := msg , '\Attention:\Load will undo your changes made to the image (if any were made);'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2088	msg := msg , '\Merge will only load methods which are not present in the image (i.e. undo removals but preserve changes).'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2089	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2090	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2091	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2092
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2093	msg := msg bindWith:onlyInRep size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2094	with:onlyHere size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2095	with:changed size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2096	with:singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2097	with:packageToCheckOut allBold.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2098
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2099	answer := (Dialog confirmWithCancel:msg withCRs
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2100	labels:(resources array:labels)
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2101	values:values
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2102	default:default).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2103	answer isNil ifTrue:[^ self].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2104
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2105	self activityNotification:'updating...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2106	changedClasses := IdentitySet new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2107
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2108	"/ Class withoutUpdatingChangesDo:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2109	onlyInRep do:[:eachChange \| "apply this change (method only present in rep-version)"
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2110	Class withoutUpdatingChangeSetDo:[ eachChange apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2111
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2112	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2113	changedClasses add:eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2114	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2115	answer == #load ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2116	onlyHere do:[:eachChange \| "remove this change (method not present in rep-version)"
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2117	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2118
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2119	cClass := eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2120	cSel := eachChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2121	Class withoutUpdatingChangeSetDo:[ cClass removeSelector:cSel ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2122	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2123	changed do:[:eachChangeArr \| "apply this change (go to rep-version)"
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2124	\|cHere cRep\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2125	cHere := eachChangeArr at:1.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2126	cRep := eachChangeArr at:2.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2127	Class withoutUpdatingChangeSetDo:[ cRep apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2128
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2129	cRep changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2130	changedClasses add:cRep changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2131	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2132	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2133	"/ ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2134	changedClasses do:[:eachClass \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2135	eachClass changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2136	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2137	Smalltalk changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2138
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2139	"Modified: / 07-02-2001 / 18:18:32 / ps"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2140	"Created: / 29-12-2011 / 14:34:12 / cg"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2141	!
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2142
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2143	compareClassWithRepository:aClass
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2144	"open a diff-textView comparing the current (in-image) version
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2145	against its orgiginal version found in the repository."
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2146
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2147	self compareClassWithRepository:aClass askForRevision:true
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2148
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2149	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2150	self compareClassWithRepository:Array
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2151	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2152	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2153
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2154	compareClassWithRepository:aClass askForRevision:askForRevision
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2155	"open a diff-textView comparing the current (in-image) version
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2156	against its orgiginal version found in the repository."
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2157
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2158	\|classToCompare brwsr
1194 d60b2ed25f45 Remove unused method vars. Stefan Vogel <sv@exept.de> parents: 1193 diff changeset	2159	aStream comparedSource currentSource rev revString thisRevString mgr
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2160	nm msg revisionInClass newestRev versionsAreTheSame\|
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2161
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2162	classToCompare := aClass theNonMetaclass.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2163
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2164	nm := classToCompare name.
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2165	(mgr := manager) isNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2166	mgr := self sourceCodeManagerFor:classToCompare.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2167	mgr isNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2168	self error:'oops - no sourcecode manager' mayProceed:true.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2169	^ self
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2170	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2171	].
2397 e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2172
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2173	rev := classToCompare revisionInfoOfManager:mgr.
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2174	"/ rev := classToCompare binaryRevision.
3544 7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2175	revisionInClass := classToCompare revisionOfManager:mgr.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2176	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2177	rev := revisionInClass
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2178	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2179	rev isNil ifTrue:[
3546 13f0b8ba6c85 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3544 diff changeset	2180	(Dialog confirm:'Class seems to be not yet in the repository (or classes revision info is missing or corrupted)\\Proceed ?' withCRs)
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2181	ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2182	^ self
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2183	]
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2184	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2185
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2186	"/
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2187	"/ class in repository - ask for revision
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2188	"/
2793 3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2189	SourceCodeManagerError handle:[:ex \|
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2190	Dialog warn:(resources
3679 287d95522230 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3676 diff changeset	2191	stringWithCRs:'Could not fetch revision info of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
2793 3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2192	with:classToCompare name
3313 7765a349ce83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3291 diff changeset	2193	with:classToCompare sourceCodeManager managerTypeName
7765a349ce83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3291 diff changeset	2194	with:classToCompare package).
2793 3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2195	^ self.
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2196	] do:[
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2197	newestRev := mgr newestRevisionOf:classToCompare.
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2198	].
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2199	askForRevision ifTrue:[
1466 82e4152d5e9e * empty log message * Claus Gittinger <cg@exept.de> parents: 1462 diff changeset	2200	msg := resources string:'Compare to revision: (empty for newest)'.
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2201	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2202	msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2203	with:nm allBold with:rev).
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2204	(revisionInClass notNil and:[revisionInClass ~= rev]) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2205	msg := msg , '\' , (resources string:'And has been checked into the repository as %1.'
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2206	with:revisionInClass)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2207	]
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2208	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2209	newestRev notNil ifTrue:[
3261 7a585999dcef class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3259 diff changeset	2210	msg := msg , '\' , (resources string:'Newest in repository is %1.'
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2211	with:newestRev)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2212	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2213
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	2214	rev := self
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2215	askForExistingRevision:msg
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2216	title:'Compare with repository'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2217	class:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2218	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2219	rev := newestRev.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2220	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2221
3544 7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2222	rev isNil ifTrue:[
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2223	mgr = classToCompare sourceCodeManager ifTrue:[
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2224	msg := 'Could not figure out the newest revision of "%1".\\Please check if this class is really contained in that repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2225	] ifFalse:[
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2226	msg := 'Could not figure out the newest revision of "%1".\\Notice that the class is actually maintained by %4, not %2.\Please check if this class is really in the %2 repository,\and also your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2227	].
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2228	Dialog warn:(resources
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2229	stringWithCRs:msg
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2230	with:classToCompare name
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2231	with:mgr managerTypeName
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2232	with:classToCompare package
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2233	with:(classToCompare sourceCodeManager managerTypeName)).
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2234	^ self.
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2235
7efd6c5b392f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3536 diff changeset	2236	] ifFalse:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2237	rev withoutSpaces isEmpty ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2238	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2239	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2240	aStream := mgr getSourceStreamFor:classToCompare revision:newestRev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2241	revString := '(newest: ' , (newestRev ? '???') , ')'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2242	] ifFalse:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2243	msg := 'extracting previous %1'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2244	aStream := mgr getSourceStreamFor:classToCompare revision:rev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2245	revString := rev
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2246	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2247
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2248	aStream isNil ifTrue:[
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2249	self warn:'Could not extract source from repository (check repository settings / network)'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2250	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2251	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2252	aStream class readErrorSignal handle:[:ex \|
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2253	self warn:('Read error while reading extracted source\\' , ex description) withCRs.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2254	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2255	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2256	] do:[
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2257	comparedSource := aStream contents asString.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2258	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2259	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2260
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2261	self activityNotification:'generating current source...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2262
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2263	currentSource := self sourceCodeOfClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2264
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2265	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2266
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2267	versionsAreTheSame := false.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2268	comparedSource = currentSource ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2269	versionsAreTheSame := true.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2270	] ifFalse:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2271	thisRevString := revisionInClass ? 'no revision'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2272
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2273	revString = '(newest)' ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2274	(rev := mgr newestRevisionOf:classToCompare) notNil ifTrue:[
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2275	revString := '(newest is ' , rev , ')'
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2276	]
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2277	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2278
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2279	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2280
3579 d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2281	ChangeSet invalidChangeChunkError handle:[:ex \|
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2282	\|answer\|
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2283
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2284	answer := Dialog
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2285	confirm:(resources
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2286	stringWithCRs:'An invalid change chunk was encountered when reading the source of %1.\This may be due to a currupted source file (or source file was modified/updated in the meantime, without recompilation).\\Proceed in debugger?'
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2287	with:aClass)
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2288	yesLabel:(resources string:'Debug')
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2289	noLabel:(resources string:'Cancel')
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2290	initialAnswer:false.
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2291	answer ifTrue:[ex reject].
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2292	AbortOperationRequest raise.
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2293	] do:[
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2294	brwsr := (UserPreferences versionDiffViewerClass)
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2295	openOnClass:classToCompare
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2296	labelA:('Repository: ' , revString)
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2297	sourceA:comparedSource
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2298	labelB:('Current: (based on: ' , thisRevString , ')')
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2299	sourceB:currentSource
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2300	title:('Comparing ' , classToCompare name)
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2301	ifSame:[versionsAreTheSame := true].
d175474155c8 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3551 diff changeset	2302	].
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2303	versionsAreTheSame ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2304	brwsr classChangeSet
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2305	classBeingCompared:classToCompare;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2306	versionA:rev;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2307	versionB:rev , 'mod'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2308	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2309	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2310
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2311	versionsAreTheSame ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	2312	(classToCompare hasUnsavedChanges) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2313	(self confirm:(resources
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2314	stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
1864 0a1a62489122 * empty log message * Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	2315	with:classToCompare name allBold)) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2316	ChangeSet current condenseChangesForClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2317	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2318	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2319	self information:'Versions are identical.'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2320	ChangeSet current unrememberChangedClasses.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2321	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2322	revisionInClass isNil ifTrue:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2323	(Dialog confirm:'Update (Fix) the classes Revision Info ?' withCRs)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2324	ifTrue:[
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2325	\|newString root\|
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2326
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2327	newString := mgr updatedRevisionStringOf:aClass forRevision:rev with:aClass revisionString.
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2328	newString isNil ifTrue:[
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2329	root := mgr getCVSROOTForModule:(aClass package upTo:$:).
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2330	root := mgr repositoryTopDirectoryFromCVSRoot:root.
1500 70a48e2f5921 * empty log message * Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	2331	newString := '$', 'Header: ',(root copyReplaceAll: $: with:$/ ),'/'
1911 d4088b5ba0ac * empty log message * Claus Gittinger <cg@exept.de> parents: 1907 diff changeset	2332	,(Smalltalk fileNameForClass:aClass),'.st,v ',rev,' '
2006 11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2333	,(Date today printStringFormat:'%y-%m-%d'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2334	,(Time now printStringFormat:'%h:%m:%s'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2335	,'+0000 '
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2336	,(OperatingSystem getLoginName),' Exp $'.
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2337	].
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2338	mgr updateVersionMethodOf:aClass for:newString.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2339	]
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2340	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2341	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2342	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2343
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2344	"
997 c55b39b6c7a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 996 diff changeset	2345	self compareClassWithRepository:Array
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2346	"
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2347
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2348	"Modified: / 24-07-2012 / 18:11:27 / cg"
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2349	!
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2350
3536 cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2351	comparePackages:packages askForRevision:askForRevision
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2352	"Compares code of given packages (loaded in the image) against a specific revision
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2353	and opens a diff browser on differences.
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2354
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2355	If `askForRevision` is true, then user is asked to specify to which revision to
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2356	update. If `askForRevision` is false, then packages are updated to a 'newest'
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2357	revision.
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2358
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2359	NOTE: Definition of `newest` revision may vary. For SCMs which allows for multiple
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2360	heads, it is not clear which one it is. In that case, even if `askForRevision` is
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2361	false, this method may result in user interation, asking user to select which of the
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2362	newest she wants."
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2363
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2364	^ self subclassResponsibility.
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2365
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2366	"Created: / 04-04-2014 / 15:23:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2367	!
cb8679184d3b Compare packages functionality moved from browser to SourceCoeManagerUtilities Jan Vrany <jan.vrany@fit.cvut.cz> parents: 3534 diff changeset	2368
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2369	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2370	\|diffSet\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2371
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2372	diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest.
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2373	VersionDiffBrowser
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2374	openOnDiffSet:diffSet
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2375	labelA:'Repository'
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2376	labelB:'Image'
2522 d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2377	title:('Differences of %1' bindWith:aProject)
2949 83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2378	ignoreExtensions:true
83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2379	ignoreVersionMethods:true.
2522 d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2380
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2381	"Modified: / 12-09-2011 / 11:56:01 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2382	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2383
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2384	compareProject:aProject withRepositoryVersionTaggedAs:aSymbolicName
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2385	\|diffSet\|
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2386
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2387	diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aSymbolicName.
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2388
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2389	VersionDiffBrowser
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2390	openOnDiffSet:diffSet
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2391	labelA:'Repository ("',aSymbolicName,'")'
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2392	labelB:'Image'
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2393	title:('Differences of %1' bindWith:aProject)
2949 83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2394	ignoreExtensions:true
83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2395	ignoreVersionMethods:true.
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2396
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2397	"Modified: / 12-09-2011 / 11:56:01 / cg"
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2398	!
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2399
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2400	compareProjectWithRepository:aProject
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2401	^ self compareProject:aProject withRepositoryVersionFrom:nil
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2402	!
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2403
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2404	createSourceContainerForClass:aClass
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2405	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2406	Return false, if failed."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2407
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2408	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2409	createSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2410	usingManager:(self sourceCodeManagerFor:aClass).
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2411
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2412	"Modified: / 21-12-2011 / 18:31:49 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2413	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2414
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2415	createSourceContainerForClass:aClass usingManager:aManager
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2416	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2417	Return false, if failed."
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2418
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2419	aManager isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2420
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2421	^ self
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2422	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2423	usingManager:aManager
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2424	title:(resources string:'Repository information for %1' with:aClass name)
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2425	text:(resources string:'Create new %1-repository container for ''%2'''
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2426	with:aManager managerTypeName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2427	with:aClass name allBold)
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2428	createDirectories:true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2429	createContainer:true.
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2430
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2431	"Created: / 21-12-2011 / 18:31:23 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2432	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2433
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2434	defineSourceContainerForClass:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2435	"let user specify the source-repository values for aClass"
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2436
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2437	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2438	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2439	usingManager:(self sourceCodeManagerFor:aClass)
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2440	title:title
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2441	text:boxText
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2442	createDirectories:createDirs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2443	createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2444
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2445	"Modified: / 21-12-2011 / 18:34:44 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2446	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2447
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2448	defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2449	"let user specify the source-repository values for aClass"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2450
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2451	\|className
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2452	"oldModule oldPackage" oldFileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2453	module directory fileName nameSpace nameSpacePrefix
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2454	info project nm creatingNew msg
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2455	answer doCheckinWithoutAsking forceCheckIn rslt note
3276 e6902cec8b2f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3272 diff changeset	2456	requiredPackage classPackage\|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2457
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2458	mgr isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2459
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2460	aClass isLoaded ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2461	self warn:(resources string:'Please load the %1-class first' with:aClass name).
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2462	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2463	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2464
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2465	className := aClass name.
3276 e6902cec8b2f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3272 diff changeset	2466	classPackage := aClass package.
e6902cec8b2f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3272 diff changeset	2467	classPackage ~= PackageId noProjectID ifTrue:[
e6902cec8b2f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3272 diff changeset	2468	module := classPackage asPackageId module.
e6902cec8b2f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3272 diff changeset	2469	directory := classPackage asPackageId directory.
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2470	] ifFalse:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2471	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2472	"/ defaults, if nothing at all is known
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2473	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2474	(module := LastModule) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2475	module := (OperatingSystem getLoginName).
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2476	].
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2477	(directory := LastPackage) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2478	directory := 'private'.
3153 c2bca6dbe3a7 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3146 diff changeset	2479	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2480	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2481
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2482	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2483	"/ try to extract some useful defaults from the current project
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2484	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2485	(Project notNil and:[(project := Project current) notNil]) ifTrue:[
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2486	directory isNil ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2487	(nm := project repositoryDirectory) isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2488	nm := project name
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2489	].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2490	directory := nm.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2491	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2492	module isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2493	(nm := project repositoryModule) notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2494	module := nm
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2495	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2496	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2497	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2498
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2499	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2500	"/ ask the sourceCodeManager if it knows anything about that class
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2501	"/ if so, take that as a default.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2502	"/
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	2503	info := mgr sourceInfoOfClass:aClass.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2504	info notNil ifTrue:[
1368 20cde03a3cd6 defineSource - fixed package & module extraction martin parents: 1347 diff changeset	2505	true "module ~= LastModule" ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2506	(info includesKey:#module) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2507	module := (info at:#module).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2508	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2509	].
1401 102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2510	"/ true "package ~= LastPackage" ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2511	"/ (info includesKey:#directory) ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2512	"/ package := (info at:#directory).
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2513	"/ ].
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2514	"/ ].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2515	fileName := mgr containerFromSourceInfo:info.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2516	(nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2517	nameSpacePrefix := nameSpace name , '::'.
3259 5eb58e78257e refactored Claus Gittinger <cg@exept.de> parents: 3227 diff changeset	2518	fileName := fileName withoutPrefix:nameSpacePrefix.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2519	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2520	"/ (info includesKey:#fileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2521	"/ fileName := (info at:#fileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2522	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2523	"/ (info includesKey:#expectedFileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2524	"/ fileName := (info at:#expectedFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2525	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2526	"/ (info includesKey:#classFileNameBase) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2527	"/ fileName := (info at:#classFileNameBase) , '.st'.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2528	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2529	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2530	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2531	].
3514 a35b833ed992 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3433 diff changeset	2532	directory isEmptyOrNil ifTrue:[
a35b833ed992 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3433 diff changeset	2533	directory := LastPackage.
a35b833ed992 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3433 diff changeset	2534	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2535
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2536	fileName isNil ifTrue:[
1338 bad5961fbff1 fileNameForClass: Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	2537	fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2538	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2539
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2540	OperatingSystem isMSDOSlike ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2541	module replaceAll:$\ with:$/.
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2542	directory replaceAll:$\ with:$/.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2543	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2544
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2545	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2546	"/ check for conflicts (i.e. if such a container already exists) ...
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2547	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2548	doCheckinWithoutAsking := false.
1831 cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2549	"/false ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2550	"/ (mgr checkForExistingContainer:fileName inModule:module directory:directory) ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2551	"/ answer := Dialog confirmWithCancel:(resources
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2552	"/ string:'About to change the source container.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2553	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2554	"/Notice: there is a container for %1 in:
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2555	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2556	"/ %2 / %3 / %4
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2557	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2558	"/Do you want to change it or check right into that container ?'
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2559	"/ with:className
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2560	"/ with:module
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2561	"/ with:directory
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2562	"/ with:fileName)
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2563	"/ labels:(resources array:#('Cancel' 'Check in' 'Change')).
3433 eee3079d18d3 AbortSignal -> AbortOperationRequest Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	2564	"/ answer isNil ifTrue:[AbortOperationRequest raise].
1831 cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2565	"/ answer ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2566	"/ doCheckinWithoutAsking := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2567	"/ oldModule := module.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2568	"/ oldPackage := directory.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2569	"/ oldFileName := fileName
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2570	"/ ] ifFalse:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2571	"/ doCheckinWithoutAsking := true.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2572	"/ creatingNew := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2573	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2574	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2575	"/].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2576	mgr isContainerBased ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2577	doCheckinWithoutAsking ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2578	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2579	"/ open a dialog for this
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2580	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2581	(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2582	note := 'Notice: class seems to have no container yet.'.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2583	creatingNew := true.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2584	] ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2585	creatingNew := false.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2586	].
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2587	confirmNewFiles ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2588	rslt := self
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2589	askForContainer:boxText title:title note:note
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2590	initialModule:module initialPackage:directory initialFileName:fileName
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2591	forNewContainer:true.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2592
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2593	rslt isNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2594	^ false
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2595	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2596
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2597	module := rslt at:#module.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2598	directory := rslt at:#package.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2599	fileName := rslt at:#fileName.
3514 a35b833ed992 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3433 diff changeset	2600	(module isEmptyOrNil or:[directory isEmptyOrNil or:[fileName isEmptyOrNil]]) ifTrue:[
a35b833ed992 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3433 diff changeset	2601	^ false
a35b833ed992 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3433 diff changeset	2602	].
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2603	]
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2604	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2605	(fileName endsWith:',v') ifTrue:[
3227 bcaec3eb2d97 Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 3202 diff changeset	2606	fileName := fileName copyButLast:2
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2607	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2608	(fileName endsWith:'.st') ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2609	fileName := fileName , '.st'
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2610	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2611
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2612	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2613
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2614	"/ we require the packageID to be <module>:<container-dir>
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2615	"/ check for this ...
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2616
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2617	requiredPackage := ((module ? '') , ':' , (directory ? '')) asSymbol.
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2618	requiredPackage ~= aClass package ifTrue:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2619	"/ doCheckinWithoutAsking ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2620	"/ (self confirm:'Change the classes packageID to: ''', requiredPackage , ''' ?')
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2621	"/ ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2622	"/ ^ false
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2623	"/ ]
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2624	"/ ].
1077 6b1bcfd27521 renamed: #allSelectorsAndMethodsDo: into: #instAndClassSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 1076 diff changeset	2625	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \| mthd setPackage:requiredPackage].
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2626	aClass package:requiredPackage.
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2627	].
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2628
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2629	info := aClass revisionInfo.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2630	info notNil ifTrue:[
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2631	(info repositoryPathName isNil) ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2632	info := nil
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2633	].
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2634	"/ (info includesKey:#repositoryPathName) ifFalse:[
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2635	"/ info := nil
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2636	"/ ]
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2637	].
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	2638
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2639	info isNil ifTrue:[
1004 1bd564960810 dont ask if a version method should be created - just do it. Claus Gittinger <cg@exept.de> parents: 1000 diff changeset	2640	true "doCheckinWithoutAsking" ifFalse:[
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2641	answer := Dialog
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2642	confirmWithCancel:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:className) withCRs
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2643	labels:(resources array:#( 'Cancel' 'No' 'Yes')).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2644	answer isNil ifTrue:[^ false].
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2645	] ifTrue:[
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2646	answer := true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2647	].
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2648	answer ifTrue:[
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2649	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2650	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2651	for:(mgr initialRevisionStringFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2652	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2653	directory:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2654	container:fileName).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2655	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2656	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2657
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2658	(self checkForExistingModule:module usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2659	ifFalse:[^ false].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2660	LastModule := module.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2661
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2662	(self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2663	ifFalse:[^ false].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2664	LastPackage := directory.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2665
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2666	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2667	"/ check for the container itself
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2668	"/
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2669	(mgr isContainerBased not
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2670	or:[ mgr checkForExistingContainer:fileName inModule:module directory:directory ]) ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2671	"/ (oldModule notNil
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2672	"/ and:[(oldModule ~= module)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2673	"/ or:[oldPackage ~= package
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2674	"/ or:[oldFileName ~= fileName]]])
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2675	"/ ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2676	"/ self warn:(resources string:'no change').
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2677	"/ ^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2678	"/ ].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2679
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2680	mgr isContainerBased ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2681	creatingNew ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2682	self warn:(resources string:'Container for %1 already exists in %2/%3.' with:fileName with:module with:directory) withCRs.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2683	].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2684
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2685	doCheckinWithoutAsking ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2686	(Dialog
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2687	confirm:(resources string:'check %1 into the existing container
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2688
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2689	%2 / %3 / %4 ?'
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2690	with:className
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2691	with:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2692	with:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2693	with:fileName) withCRs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2694	noLabel:'Cancel')
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2695	ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2696	^ false.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2697	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2698	].
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2699	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2700
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2701	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2702	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2703	for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2704
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2705	oldFileName notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2706	msg := ('forced checkin / source container change from ' , oldFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2707	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2708	msg := 'defined source container'
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2709	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2710
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2711	(forceCheckIn := doCheckinWithoutAsking) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2712	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2713	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2714	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2715	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2716	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2717	logMessage:msg)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2718	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2719	doCheckinWithoutAsking ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2720	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2721	confirm:'No easy merge seems possible; force checkin (no merge) ?'
4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2722	noLabel:'Cancel')
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2723	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2724	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2725	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2726	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2727	forceCheckIn := true.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2728	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2729	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2730	forceCheckIn ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2731	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2732	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2733	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2734	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2735	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2736	logMessage:msg
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2737	force:true)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2738	ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2739	self warn:(resources string:'Failed to check into existing container.').
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2740	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2741	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2742	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2743	^ true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2744	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2745	(createContainer or:[creatingNew]) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2746	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2747	confirm:(resources string:'No container exists for %1 in %2/%3\\create ?'
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2748	with:fileName with:module with:directory) withCRs
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2749	noLabel:'Cancel') ifFalse:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2750	^ false
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2751	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2752	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2753	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2754
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	2755	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \| mthd setPackage:requiredPackage].
8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	2756	aClass package:requiredPackage.
1913 d87c1ed5bf1f oops - halt Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	2757
3155 9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	2758	[ mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2759	createContainerFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2760	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2761	package:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2762	container:fileName
3155 9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	2763	] whileFalse:[
9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	2764	(Dialog confirm:(resources stringWithCRs:'Failed to create container.\(fix your setup then retry, or cancel)\\Retry?') yesLabel:'Retry') ifFalse:[
9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	2765	^ false.
9c22d8b4315b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3153 diff changeset	2766	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2767	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2768	^ true
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2769
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2770	"Created: / 21-12-2011 / 18:34:02 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2771	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2772
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2773	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2774	^ self
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2775	diffSetOfProject:aProject
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2776	againstRepositoryVersionFrom:aDateOrNilForNewest
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2777	orTag:nil
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2778	!
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2779
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2780	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil
2950 cd6dc0f1d994 comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag: Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	2781	"return a diffset against either the newest (head), or the version at a particular date,
cd6dc0f1d994 comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag: Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	2782	or a the version with a particular tag."
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2783
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2784	\|classesInImage filesInImage module directory perProjectInfo
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2785	classesNotInRepository filesNotInImage classesDeletedInRepository
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2786	classesModifiedInImage classesNotReallyModified classesReallyModified classesNewerInRepository
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2787	classesAddedInImage extensionMethods extensionsInImage extensionsInRepository extensionDiffs
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2788	box doCleanup diffSet def autoloadedFilesNotInImage
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2789	autoloadedClassesInImage autoloadedFilesInImage versionMethodsAndDoitsRejected\|
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2790
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2791	module := aProject asPackageId module.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2792	directory := aProject asPackageId directory.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2793
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2794	(aDateOrNilForNewest isNil and:[ aTagOrNil notNil ]) ifTrue:[
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2795	perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory taggedAs:aTagOrNil.
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2796	] ifFalse:[
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2797	perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilForNewest.
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2798	].
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2799	perProjectInfo := perProjectInfo ? #().
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2800	perProjectInfo := perProjectInfo select:[:info \| info key asFilename hasSuffix:'st'].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2801	perProjectInfo := Dictionary withAssociations:perProjectInfo.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2802
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2803	"/ to ignore version_xxx methods
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2804	versionMethodsAndDoitsRejected :=
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2805	[:aChangeSet \|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2806	aChangeSet reject:[:chg \|
2949 83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2807	false "chg isMethodChangeForVersionMethod"
83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2808	or:[false "chg isMethodChangeForExtensionsVersionMethod"
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2809	or:[chg isDoIt]]]
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2810	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2811
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2812	classesInImage := Smalltalk allClassesInPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2813	autoloadedClassesInImage := classesInImage reject:[:cls \| cls isLoaded].
2903 482f5086773d changed: #diffSetOfProject:againstRepositoryVersionFrom: Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	2814	classesInImage := classesInImage select:[:cls \| cls isLoaded and:[cls isPrivate not]].
482f5086773d changed: #diffSetOfProject:againstRepositoryVersionFrom: Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	2815	filesInImage := classesInImage collect:[:cls \| cls classBaseFilename] as:Set.
482f5086773d changed: #diffSetOfProject:againstRepositoryVersionFrom: Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	2816	autoloadedFilesInImage := autoloadedClassesInImage collect:[:cls \| cls classBaseFilename] as:Set.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2817	"/ any differences ?
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2818	classesNotInRepository := classesInImage reject:[:cls \| (perProjectInfo includesKey:cls classBaseFilename)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2819	classesDeletedInRepository := classesInImage select:[:cls \| (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2820	perProjectInfo := perProjectInfo reject:[:v \| v == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2821	filesNotInImage := perProjectInfo keys reject:[:file \| (filesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2822	filesNotInImage := filesNotInImage reject:[:file \| (autoloadedFilesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2823	filesNotInImage remove:'extensions.st' ifAbsent:[].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2824
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2825	"/ if comparing against the newest, only look for chaged stuff
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2826	classesModifiedInImage := classesInImage select:[:cls \| ChangeSet current includesChangeForClassOrMetaclass:cls].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2827	classesModifiedInImage := classesModifiedInImage \ classesNotInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2828
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2829	classesNewerInRepository := classesInImage
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2830	select:[:cls \|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2831	\|v clsRevision\|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2832
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2833	v := (perProjectInfo at:cls classBaseFilename ifAbsent:nil).
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2834	v notNil
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2835	and:[ cls isLoaded
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2836	and:[ (clsRevision := cls revision) notNil
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2837	and:[ v > clsRevision ]]]
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2838	].
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2839
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2840	"/ stupid: as we do not have any revision information for extensions (sigh);
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2841	"/ we must checkout and look at the extension.st contents, to see if it has changed.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2842
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2843	extensionMethods := Smalltalk allExtensionsForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2844	extensionsInImage := ChangeSet forExistingMethods:extensionMethods.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2845
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2846	[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2847	\|s extensionsRevision\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2848
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2849	extensionsRevision := perProjectInfo at:'extensions.st' ifAbsent:#newest.
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2850	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2851	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2852	streamForClass:nil fileName:'extensions.st' revision:extensionsRevision
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2853	directory:directory module:module cache:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2854	s notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2855	extensionsInRepository := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2856	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2857	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2858	s notNil ifTrue:[s close]
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2859	].
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2860	extensionsInRepository isNil ifTrue:[extensionsInRepository := ChangeSet new].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2861
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2862	"/ ignore package doIts and all extensionVersion_xxx methods
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2863	extensionsInRepository := versionMethodsAndDoitsRejected value:extensionsInRepository.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2864	] value.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2865	extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2866
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2867	diffSet := extensionDiffs copy.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2868
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2869	(aDateOrNilForNewest isNil and:[aTagOrNil isNil]) ifTrue:[
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2870	"/ we could do the same as below for each class.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2871	"/ however - as we do have change-info and revision info, we can avoid checking out
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2872	"/ for all classes which are not changed and which have the same version info.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2873	classesModifiedInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2874	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2875	classesModifiedInImage select:[:eachChangedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2876	\|currentVersion repositoryVersion s stFile diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2877
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2878	stFile := eachChangedClass classBaseFilename.
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2879	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2880	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2881	streamForClass:nil fileName:stFile revision:#newest
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2882	directory:directory module:module cache:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2883	s notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2884	repositoryVersion := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2885	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2886	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2887	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2888	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2889	repositoryVersion isNil ifTrue:[ repositoryVersion := ChangeSet new ].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2890	repositoryVersion := versionMethodsAndDoitsRejected value:repositoryVersion.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2891
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2892	currentVersion := ChangeSet forExistingClass:eachChangedClass withExtensions:false withLooseMethods:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2893	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2894	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2895	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2896	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2897	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2898
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2899	classesNotReallyModified := classesModifiedInImage \ classesReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2900	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2901	] ifFalse:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2902	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2903	classesInImage select:[:eachClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2904	\|currentVersion repositoryVersion s stFile stRevision diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2905
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2906	stFile := eachClass classBaseFilename.
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2907	stRevision := perProjectInfo at:stFile ifAbsent:nil.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2908	stRevision notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2909	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2910	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2911	streamForClass:nil fileName:stFile revision:stRevision
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2912	directory:directory module:module cache:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2913	s notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2914	repositoryVersion := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2915	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2916	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2917	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2918	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2919	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2920	repositoryVersion isNil ifTrue:[
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	2921	repositoryVersion := ChangeSet new.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	2922	].
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2923	repositoryVersion := versionMethodsAndDoitsRejected value:repositoryVersion.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2924
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2925	currentVersion := ChangeSet forExistingClass:eachClass withExtensions:false withLooseMethods:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2926	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2927	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2928	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2929	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2930	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2931	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2932
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2933	filesNotInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2934	"/ first, check if these are autoloaded classes which have NOT been installed
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2935	"/ (for example, due to a --quick argument during startup)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2936	autoloadedFilesNotInImage := OrderedCollection new.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2937
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2938	def := ProjectDefinition definitionClassForPackage:aProject createIfAbsent:false projectType:nil.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2939	def notNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2940	def classNamesAndAttributesDo:[:eachClassname :eachAttributes \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2941	\|cls eachFileName isAutoload\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2942
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2943	cls := Smalltalk classNamed:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2944	cls isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2945	isAutoload := eachAttributes includes:#autoload.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2946	isAutoload ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2947	eachFileName := Smalltalk fileNameForClass:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2948	autoloadedFilesNotInImage add:(eachFileName , '.st')
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2949	]
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2950	]
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2951	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2952	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2953
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2954	(filesNotInImage \ autoloadedFilesNotInImage) do:[:eachSTFile \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2955	\|s chgSet classDefinitions\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2956
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2957	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2958	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2959	streamForClass:nil fileName:eachSTFile revision:#newest directory:directory module:module cache:true.
3594 407ae2f32318 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3591 diff changeset	2960	s isNil ifTrue:[
407ae2f32318 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3591 diff changeset	2961	chgSet := ChangeSet new
407ae2f32318 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3591 diff changeset	2962	] ifFalse:[
407ae2f32318 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3591 diff changeset	2963	chgSet := ChangeSet fromStream:s.
407ae2f32318 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3591 diff changeset	2964	]
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2965	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2966	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2967	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2968	chgSet := versionMethodsAndDoitsRejected value:chgSet.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2969	diffSet onlyInReceiver addAll:chgSet
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2970	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2971	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2972
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2973	classesNewerInRepository notEmpty ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2974	classesNewerInRepository do:[:eachClass\|
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2975	\|s diffs repositoryVersion currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2976
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2977	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2978	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2979	streamForClass:eachClass fileName:nil revision:#newest directory:directory module:module cache:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2980	repositoryVersion := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2981	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2982	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2983	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2984
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2985	currentVersion := ChangeSet forExistingClass:eachClass withExtensions:false withLooseMethods:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2986	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2987	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2988	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2989	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2990	].
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2991
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2992	classesDeletedInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2993	"/ self halt.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2994	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2995	classesNotInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2996	"/ if there are no changeSet entries for those classes, they seem to be
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2997	"/ no longer in the repository (possibly moved ?)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2998	"/ If there are entries, these might have been added in the image and need a check-in
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2999
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3000	classesAddedInImage := classesNotInRepository \ classesDeletedInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3001	classesAddedInImage do:[:eachAddedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3002	\|currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3003
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	3004	currentVersion := ChangeSet forExistingClass:eachAddedClass withExtensions:false withLooseMethods:true.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	3005	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3006	diffSet onlyInArg addAll:currentVersion.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3007	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3008	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3009
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3010	diffSet isEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3011	"/ Dialog information:(resources string:'%1 is up-to-date.' with:eachProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3012	Transcript showCR:('%1 is up-to-date.' bindWith:aProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3013	(ChangeSet current includesChangeForPackage:aProject) ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3014	(Dialog confirm:('%1 is up-to-date.\\Cleanup ChangeSet ?' bindWith:aProject allBold) withCRs) ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3015	ChangeSet current condenseChangesForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3016	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3017	].
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3018	^ diffSet.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3019	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3020
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3021	"/ as a side-effect, if we find that some classes are modified but the same as in the repository,
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3022	"/ give user a chance to cleanup the changeSet here.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3023	aDateOrNilForNewest isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3024	classesNotReallyModified notEmptyOrNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3025	doCleanup := false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3026	box := Dialog
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3027	forRequestText:(resources
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3028	stringWithCRs:'The following classes from %1 are equal to the repository version.\\Remove entries from the changeSet?'
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3029	with:aProject allBold)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3030	editViewClass:ListView
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3031	lines:10 columns:20
3199 830195868b71 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3155 diff changeset	3032	initialAnswer:nil
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3033	setupWith:
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3034	[:v :d \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3035	\|removeButton\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3036
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3037	v list:classesNotReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3038	removeButton := Button label:(resources string:'Cleanup ChangeSet').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3039	removeButton action:[ doCleanup := true. box okPressed. ].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3040	d addButton:removeButton after:(d okButton).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3041	d okButton label:(resources string:'Continue').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3042	d okButton isReturnButton:false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3043	removeButton isReturnButton:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3044	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3045	box open.
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3046	box accepted ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3047	doCleanup ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3048	classesNotReallyModified do:[:class \|
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3049	ChangeSet current condenseChangesForClass:class.
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3050	]
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3051	].
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3052	]
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3053	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3054	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3055	^ diffSet
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3056
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3057	"Modified: / 01-11-2010 / 21:02:52 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3058	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3059
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3060	diffSetOfProject:aProject againstRepositoryVersionTaggedAs:symbolicName
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3061	^ self
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3062	diffSetOfProject:aProject
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3063	againstRepositoryVersionFrom:nil
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3064	orTag:symbolicName
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3065	!
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	3066
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3067	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
3674 d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3068	\|theMetaclass versionMthd src newSrc versionMethodName oldVersionMethodName\|
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3069
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3070	theMetaclass := aClass theMetaclass.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3071	versionMethodName := aManager nameOfVersionMethodInClasses.
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3072	oldVersionMethodName := aClass nameOfOldVersionMethod.
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3073
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3074	(theMetaclass includesSelector:versionMethodName) ifTrue:[
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3075	"/ (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3076	"/ theMetaclass removeSelector:oldVersionMethodName.
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3077	"/ ].
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3078	"/ ensure that my version method is parsable (contains $'s)
3674 d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3079	versionMthd := theMetaclass compiledMethodAt:versionMethodName.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3080	versionMthd notNil ifTrue:[
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3081	src := versionMthd source.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3082	src notNil ifTrue:[
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3083	newSrc := aManager ensureDollarsInVersionMethod:src.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3084	newSrc ~= src ifTrue:[
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3085	theMetaclass compile:newSrc categorized:#documentation.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3086	]
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3087	].
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3088	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3089	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3090	(theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3091	"/ but make sure, it is a version method for this sourcecodemanager...
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3092	(theMetaclass methodDictionary keys count:[:sel \| sel startsWith:'version']) size == 1 ifTrue:[
3674 d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3093	versionMthd := theMetaclass compiledMethodAt:oldVersionMethodName.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3094	versionMthd notNil ifTrue:[
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3095	src := versionMthd source.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3096	(src startsWith:oldVersionMethodName) ifTrue:[
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3097	newSrc := versionMethodName , (src copyFrom:(oldVersionMethodName size + 1))
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3098	].
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3099	theMetaclass compile:newSrc categorized:#documentation.
d9b94d8afb2c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3657 diff changeset	3100	]
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3101	]
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3102	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3103	].
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3104
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3105	"Modified: / 20-08-2011 / 14:40:27 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3106	"Created: / 29-12-2011 / 14:33:46 / cg"
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3107	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3108
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3109	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
3325 944f6a6e66ff class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3313 diff changeset	3110	"open a dialog, asking for commit/checkin log info.
944f6a6e66ff class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3313 diff changeset	3111	Returns 2 values: a log message and additional checkinInfo (containing things like
944f6a6e66ff class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3313 diff changeset	3112	markAsStable, etc,)"
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3113
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3114	\|initialLogMessage checkinInfo logMessage\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3115
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3116	"/ heuristics for a useful initial log message...
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3117	aLogInfoOrNil isNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3118	initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3119	"/ initial checkin ?
3657 2de3a610d07c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	3120	(aClass package isNil or:[(aClass revisionOfManager:manager) "revision" isNil]) ifTrue:[
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3121	initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3122	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3123	checkinInfo := self
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3124	getCheckinInfoFor:aClass name
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3125	initialAnswer:initialLogMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3126	checkinInfo isNil ifTrue:[^ false].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3127	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3128	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3129	aLogInfoOrNil isString ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3130	"soon obsolete..."
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3131	logMessage := aLogInfoOrNil
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3132	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3133	checkinInfo := aLogInfoOrNil.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3134	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3135	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3136	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3137	logMessage notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3138	logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3139	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3140	aBlock value:logMessage value:checkinInfo.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3141	^ true
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3142	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3143
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3144	removeSourceContainerForClass:aClass
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3145	"show container & let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3146
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3147	^ self removeSourceContainerForClass:aClass confirm:true warn:true
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3148	!
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3149
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3150	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3151	"show container & optionally let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3152
3814 466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3153	\|info mgr\|
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3154
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3155	aClass isLoaded ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3156	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3157	self warn:(resources string:'Please load the class first.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3158	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3159	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3160	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3161
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3162	"/
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3163	"/ ask the sourceCodeManager if it knows anything about that class
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3164	"/ if so, take that as a default.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3165	"/
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3166	mgr := self sourceCodeManagerFor:aClass.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3167	mgr isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3168	^ false
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3169	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3170
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3171	info := mgr sourceInfoOfClass:aClass.
3814 466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3172	^ self removeSourceContainerForClass:aClass usingSourceInfo:info confirm:doConfirm warn:doWarn
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3173
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3174	"Modified: / 16-07-2013 / 19:46:50 / cg"
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3175	!
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3176
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3177	removeSourceContainerForClass:aClass usingSourceInfo:info confirm:doConfirm warn:doWarn
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3178	"show container & optionally let user confirm twice."
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3179
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3180	\|module directory fileName mgr\|
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3181
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3182	aClass isLoaded ifFalse:[
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3183	doWarn ifTrue:[
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3184	self warn:(resources string:'Please load the class first.').
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3185	].
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3186	^ false.
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3187	].
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3188
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3189	"/
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3190	"/ ask the sourceCodeManager if it knows anything about that class
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3191	"/ if so, take that as a default.
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3192	"/
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3193	mgr := self sourceCodeManagerFor:aClass.
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3194	mgr isNil ifTrue:[
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3195	^ false
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3196	].
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3197
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3198	info notNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3199	(info includesKey:#module) ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3200	module := (info at:#module).
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3201	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3202	(info includesKey:#directory) ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3203	directory := (info at:#directory).
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3204	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3205	fileName := mgr containerFromSourceInfo:info.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3206	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3207
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3208	module isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3209	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3210	self warn:(resources stringWithCRs:'classes module is unknown.\\It seems to not have a container.') .
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3211	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3212	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3213	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3214	directory isNil ifTrue:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3215	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3216	self warn:(resources stringWithCRs:'classes package is unknown.\\It seems to not have a container.') .
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3217	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3218	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3219	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3220	fileName isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3221	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3222	self warn:(resources stringWithCRs:'classes container fileName is unknown.\\It seems to not have a container.') .
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3223	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3224	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3225	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3226
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3227	OperatingSystem isMSDOSlike ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3228	"cvs expects unix-filenames"
3591 d86841bb0d5c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3579 diff changeset	3229	module := module asUnixFilenameString.
d86841bb0d5c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3579 diff changeset	3230	directory := directory asUnixFilenameString.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3231	].
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3232	(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3233	doWarn ifTrue:[
2830 f5204449764a changed: #removeSourceContainerForClass:confirm:warn: Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	3234	self warn:(resources stringWithCRs:'Class had no source container (or SCM access is broken).') .
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3235	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3236	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3237	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3238
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3239	doConfirm ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3240	(Dialog
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3241	choose:(resources
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3242	stringWithCRs:'Please confirm removal of the container for %1:
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3243
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3244	container: %2 / %3 / %4
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3245
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3246	Really remove ?'
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3247	with:aClass name
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3248	with:module
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3249	with:directory
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3250	with:fileName)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3251	labels:(Array
1129 89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	3252	with:(resources string:'No')
89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	3253	with:(resources string:'Remove'))
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3254	values:#(false true)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3255	default:false) ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3256	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3257	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3258	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3259
3814 466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3260	(mgr removeContainer:fileName inModule:module directory:directory)
466fa886aa65 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3812 diff changeset	3261	ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3262	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3263	self warn:(resources string:'failed to remove container.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3264	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3265	^ true.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3266	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3267	^ false
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3268
3351 68989ed1137f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3344 diff changeset	3269	"Modified: / 16-07-2013 / 19:46:50 / cg"
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3270	!
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3271
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3272	repositoryLogOf:aClass onto:aStream
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3273	self repositoryLogOf:aClass short:false onto:aStream
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3274	!
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3275
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3276	repositoryLogOf:aClass short:shortOrNot onto:aStream
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3277	\|info rv mgr info2 module fn msg s\|
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3278
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3279	info := aClass revisionInfo.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3280
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3281	rv := aClass binaryRevision.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3282	rv notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3283	aStream nextPutLine:'** Loaded classes binary information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3284	aStream nextPutLine:' Binary based upon : ' , rv.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3285	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3286	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3287
3344 4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3288	"/ old
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3289	"/ info isNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3290	"/ aStream nextPutLine:'No revision info found'.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3291	"/ aClass isLoaded ifFalse:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3292	"/ aStream cr; nextPutAll:'This is an autoloaded class - you may see more after it is loaded.'
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3293	"/ ] ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3294	"/ fn := aClass classFilename.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3295	"/ aClass wasAutoloaded ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3296	"/ msg := 'This class was autoloaded.'.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3297	"/ msg := msg , ' (from ''' , fn , ''')'.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3298	"/ ] ifFalse:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3299	"/ msg := 'This class was loaded from ''' , fn , '''.'
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3300	"/ ].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3301	"/ msg notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3302	"/ aStream cr; nextPutAll:msg.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3303	"/ ]
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3304	"/ ].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3305	"/ ^ self
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3306	"/ ]
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3307
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3308	info isNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3309	aClass isLoaded ifFalse:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3310	aStream nextPutLine:'This is an autoloaded class - you may see more after it is loaded.'
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3311	] ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3312	fn := aClass classFilename.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3313	aClass wasAutoloaded ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3314	msg := 'This class was autoloaded.'.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3315	msg := msg , ' (from ''' , fn , ''')'.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3316	] ifFalse:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3317	msg := 'This class was loaded from ''' , fn , '''.'
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3318	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3319	msg notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3320	aStream nextPutLine:msg.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3321	]
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3322	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3323	aStream cr.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3324	] ifFalse:[
2041 fb85bf748dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2013 diff changeset	3325	(info revision notNil) ifFalse:[
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3326	aStream nextPutLine:'WARNING:'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3327	aStream nextPutLine:' The class seems not to be loaded from the repository.'.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3328	aStream nextPutLine:' Check carefully before checking anything in.'.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3329	aStream nextPutLine:' (i.e. compare with repository for renamed class(es), same-name but unrelated etc.)'.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3330	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3331	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3332
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3333	aStream nextPutLine:'** Classes source information **'; cr.
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3334	s := info repositoryPathName.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3335	s notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3336	aStream nextPutLine:' Source repository : ' , s
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3337	].
3676 51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3338	aStream nextPutLine:(' Filename ........ : %1' bindWith: (info fileName ? '?')).
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3339	info symbolicVersionName ~= info revision ifTrue:[
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3340	aStream nextPutLine:(' Symbolic Version : %1' bindWith: (info symbolicVersionName ? '?')).
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3341	].
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3342	aStream nextPutLine:(' Revision ........ : %1' bindWith: (info revision ? '?')).
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3343	aStream nextPutLine:(' Checkin date .... : %1 %2 %3' bindWith: (info date ? '?')
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3344	with:(info time ? '?')
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3345	with:(info timezone ? '')).
51859e5df3b5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3674 diff changeset	3346	aStream nextPutLine:(' Checkin user .... : %1' bindWith: (info user ? '?')).
3344 4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3347	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3348
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3349	(info2 := aClass packageSourceCodeInfo) notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3350	aStream nextPutLine:' Repository: ..... : ' , (info2 at:#module ifAbsent:'?').
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3351	aStream nextPutLine:' Directory: ...... : ' , (info2 at:#directory ifAbsent:'?').
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3352	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3353	info notNil ifTrue:[
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3354	aStream nextPutLine:' Container ....... : ' , (info repositoryPathName ? '?').
3344 4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3355	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3356	aStream cr.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3357	mgr := self sourceCodeManagerFor:aClass.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3358	mgr notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3359	aStream nextPutLine:'** Repository information **'; cr.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3360
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3361	module := nil.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3362	info2 notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3363	module := info2 at:#module ifAbsent:nil.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3364	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3365	module notNil ifTrue:[
3632 c39f5d147a8b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3602 diff changeset	3366	aStream nextPutLine:(' Repository URL ......: %1' bindWith:
3633 abe27fb2c473 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3632 diff changeset	3367	((mgr repositoryNameForPackage:aClass package) ifNil:[mgr repositoryName , ' (default)']) asString).
3344 4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3368	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	3369	mgr writeRevisionLogOf:aClass short:shortOrNot to:aStream.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3370	]
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3371
2836 91e9be94d80b changed: #repositoryLogOf:short:onto: Claus Gittinger <cg@exept.de> parents: 2835 diff changeset	3372	"Modified: / 12-10-2011 / 18:06:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
91e9be94d80b changed: #repositoryLogOf:short:onto: Claus Gittinger <cg@exept.de> parents: 2835 diff changeset	3373	"Modified: / 11-07-2012 / 13:50:59 / cg"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3374	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3375
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3376	tagClass:aClass as:tag
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3377	\|mgr\|
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3378
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3379	mgr := self sourceCodeManagerFor:aClass.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3380	mgr
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3381	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3382	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3383	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3384	class:aClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3385
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3386	"Modified: / 12-09-2006 / 13:03:59 / cg"
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3387	!
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3388
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3389	tagClasses:aCollectionOfClasses as:tag
3847 94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3390	^ self tagClasses:aCollectionOfClasses as:tag revision:nil
94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3391
94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3392	"Created: / 12-09-2006 / 13:04:29 / cg"
94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3393	!
94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3394
94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3395	tagClasses:aCollectionOfClasses as:tag revision:revision
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3396	\|classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3397
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3398	classesPerManager := Dictionary new.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3399	aCollectionOfClasses
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3400	do:[:eachClass \|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3401	\|manager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3402
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3403	manager := self sourceCodeManagerFor:eachClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3404	(classesPerManager at:manager ifAbsentPut:[Set new]) add:eachClass
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3405	].
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3406
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3407	classesPerManager keysAndValuesDo:[:manager :classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3408	manager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3409	setSymbolicName:tag
3847 94661e33541c class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3818 diff changeset	3410	revision:revision
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3411	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3412	classes:classesPerManager.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3413	].
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3414	^ true
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3415	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3416
2602 a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3417	tagPackage: package as:tag
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3418
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3419	self tagClasses:(Smalltalk allClassesInPackage:package) as:tag.
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3420
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3421	"Created: / 12-09-2006 / 13:04:29 / cg"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3422	"Created: / 15-10-2011 / 22:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3423	!
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3424
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3425	tagPath:aPath as:tag usingManager:aManager
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3426	aManager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3427	setSymbolicName:tag
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3428	revision:nil
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3429	overWrite:true
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3430	path:aPath.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3431
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3432	"Modified: / 12-09-2006 / 12:04:44 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3433	"Created: / 29-12-2011 / 14:32:38 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3434	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3435
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3436	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-helpers'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3437
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3438	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3439	"check-out all previous versions of aClass and retrieve the history of selector.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3440	Return a dictionary associating revision with a changeList entries for that method.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3441	Unfinished - need a GUI for that."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3442
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3443	\|mgr theClass revisionLog revisions items s entriesPerRevision previousVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3444
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3445	theClass := aClass theNonMetaclass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3446
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3447	mgr := self sourceCodeManagerFor:theClass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3448	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3449	self error:'no sourceCodeManager'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3450	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3451
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3452	revisionLog := mgr
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3453	revisionLogOf:theClass
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3454	numberOfRevisions:numberOfRevisionsOrNil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3455
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3456	revisions := revisionLog at:#revisions.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3457	items := revisions collect:[:each \| \|rev date who\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3458	rev := each at:#revision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3459	date := each at:#date.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3460	who := each at:#author.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3461	rev allBold , ' [' , date , ' by ' , who , ']'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3462	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3463
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3464	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3465	revisions addFirst:#current.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3466	entriesPerRevision := Dictionary new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3467
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3468	previousVersion := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3469	revisions reverseDo:[:eachRevision \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3470	\|srcStream entries thisVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3471
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3472	eachRevision == #current ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3473	s := '' writeStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3474	theClass fileOutOn:s withTimeStamp:false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3475	srcStream := s contents readStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3476	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3477	self activityNotification:('checking out revision ' , eachRevision , '...').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3478	srcStream := mgr getSourceStreamFor:theClass revision:eachRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3479	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3480
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3481	entries := ChangeSet fromStream:srcStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3482	srcStream close.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3483
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3484	"/ remove all definitions
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3485	entries := entries select:[:each \| each isMethodChange].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3486	"/ remove all methods which are for other selectors
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3487	entries := entries select:[:each \| each selector == selector].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3488	"/ remove all methods which are for private subclasses
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3489	entries := entries select:[:each \| each className = aClass name].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3490
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3491	entries size == 1 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3492	"/ the method is there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3493	thisVersion := entries first.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3494	(previousVersion notNil and:[previousVersion sameAs:thisVersion]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3495	"/ no change
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3496	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3497	entriesPerRevision at:eachRevision put:thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3498	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3499	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3500	"/ the method is not there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3501	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3502	previousVersion := thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3503	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3504	self error:'unfinished code'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3505
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3506	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3507	self getMethodVersionsOfClass:MenuPanel selector:#'helpTextForItem:' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3508	self getMethodVersionsOfClass:NewLauncher class selector:#'menu' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3509	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3510	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3511
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3512	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-user interaction'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3513
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3514	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3515	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3516	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3517	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3518
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3519	^ self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3520	askForContainer:boxText title:title note:notice
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3521	initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3522	forNewContainer:true
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3523	!
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3524
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3525	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName forNewContainer:forNewContainer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3526	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3527	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3528	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3529
3551 e8feddd829f9 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	3530	\|box y component answer
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3531	moduleHolder packageHolder fileNameHolder
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3532	module package fileName
3202 b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3533	allPackageIDs knownContainers knownPackages packageUpdater
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3534	packageBoxComponent fileNameBoxComponent fileNameUpdater\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3535
3202 b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3536	allPackageIDs := Smalltalk allProjectIDs.
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3537
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3538	knownContainers := allPackageIDs collect:[:package \| (package upTo:$:)] as:Set.
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3539
3394 8e7ee24c6e7b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	3540	knownContainers := knownContainers asOrderedCollection reject:[:module \| module isBlank].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3541	knownContainers sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3542
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3543	packageUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3544	\|theModulePrefix\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3545
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3546	theModulePrefix := moduleHolder value , ':'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3547
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3548	Cursor wait showWhile:[
3202 b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3549	knownPackages :=
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3550	allPackageIDs
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3551	select:[:package \| (package startsWith:theModulePrefix)]
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3552	thenCollect:[:package \| \|idx\|
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3553	idx := package indexOf:$:.
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3554	(package copyFrom:idx + 1)].
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3555
b58b19cac708 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3201 diff changeset	3556	knownPackages := knownPackages asSet asOrderedCollection.
3291 7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	3557	knownPackages := knownPackages reject:[:package \| package isBlank].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3558	knownPackages sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3559	packageBoxComponent list:knownPackages.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3560	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3561	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3562
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3563	fileNameUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3564	\|module package files\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3565
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3566	Cursor read showWhile:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3567	module := moduleHolder value ? (PackageId noProjectID).
e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3568	package := packageHolder value ? (PackageId noProjectID).
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3569
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3570	files := SourceCodeManager getExistingContainersInModule:module directory:package.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3571	files := files asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3572	files := files select:[:eachFile \| eachFile asFilename hasSuffix:'st'].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3573	files sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3574	fileNameBoxComponent list:files.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3575	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3576	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3577
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3578	moduleHolder := initialModule asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3579	packageHolder := initialPackage asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3580	fileNameHolder := initialFileName asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3581
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3582	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3583	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3584	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3585	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3586	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3587
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3588	component := box addTextLabel:boxText withCRs adjust:#left.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3589	component borderWidth:0.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3590	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3591	box addVerticalSpace.
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3592
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3593	y := box yPosition.
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3594	component := box addTextLabel:(resources string:'Module:') adjust:#right.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3595	component width:0.4.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3596	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3597	component := box addComboBoxOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3598	component list:knownContainers.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3599
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3600	"/ component := box addInputFieldOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3601	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3602
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3603	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3604	y := box yPosition.
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3605	component := box addTextLabel:(resources string:'Package:') adjust:#right.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3606	component width:0.4.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3607	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3608	packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3609	"/ component := box addInputFieldOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3610	component width:0.6; left:0.4; "immediateAccept:true; "acceptOnLeave:true; cursorMovementWhenUpdating:#beginOfLine.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3611	packageUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3612	moduleHolder onChangeEvaluate:packageUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3613
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3614	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3615	y := box yPosition.
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3616	component := box addTextLabel:(resources string:'Filename:') adjust:#right.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3617	component width:0.4.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3618	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3619
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3620	forNewContainer ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3621	component := box addInputFieldOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3622	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3623	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3624	fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3625	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3626	fileNameUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3627	packageHolder onChangeEvaluate:fileNameUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3628	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3629
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3630	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3631
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3632	notice notNil ifTrue:[
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3633	component := box addTextLabel:notice adjust:#left.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3634	component borderWidth:0.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3635	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3636
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3637	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3638	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3639
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3640	(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[
3683 fb6ad154b94d class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	3641	component := Button label:(resources string:'Yes to All').
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3642	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3643	YesToAllNotification queryWith:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3644	box doAccept.
2253 7d7b0d2d1fe7 changed: #askForContainer:title:note:initialModule:initialPackage:initialFileName:forNewContainer: Claus Gittinger <cg@exept.de> parents: 2242 diff changeset	3645	box okPressed.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3646	].
3394 8e7ee24c6e7b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	3647	box addButton:component.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3648	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3649	(AbortAllSignal isHandled) ifTrue:[
3683 fb6ad154b94d class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3679 diff changeset	3650	component := Button label:(resources string:'Cancel All').
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3651	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3652	box hide.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3653	AbortAllSignal raiseSignal.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3654	].
3394 8e7ee24c6e7b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	3655	box addButton:component before:nil.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3656	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3657
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3658	(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3659	answer := YesToAllQuery query.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3660	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3661
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3662	answer isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3663	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3664	answer := box accepted
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3665	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3666
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3667	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3668	answer ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3669	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3670	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3671
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3672	module := moduleHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3673	package := packageHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3674	fileName := fileNameHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3675	^ Dictionary new
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3676	at:#module put:module;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3677	at:#package put:package;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3678	at:#fileName put:fileName;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3679	yourself
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3680
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3681	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3682	self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3683	askForContainer:'enter container' title:'container' note:'some note'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3684	initialModule:'foo' initialPackage:'bar' initialFileName:'baz'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3685	"
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3686
3394 8e7ee24c6e7b class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3384 diff changeset	3687	"Modified: / 29-08-2013 / 12:26:04 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3688	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3689
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3690	askForExistingRevision:boxText title:title class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3691	"open a dialog asking for a containers revision;
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3692	return a revision number, or nil if canceled."
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3693
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3694	\|mgr sourceInfo module package fileName\|
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3695
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3696	mgr := self sourceCodeManagerFor:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3697	sourceInfo := mgr sourceInfoOfClass:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3698	sourceInfo isNil ifTrue:[^ nil].
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3699
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3700	package := mgr directoryFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3701	module := mgr moduleFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3702	fileName := mgr containerFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3703	^ self
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3704	askForExistingRevision:boxText
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3705	title:title
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3706	class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3707	manager:mgr
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3708	module:module package:package
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3709	fileName:fileName
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3710
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3711	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3712	SourceCodeManagerUtilities
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3713	askForRevisionToCompare:'enter revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3714	title:'revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3715	class:Array
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3716	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3717
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3718	"Modified: / 12-09-2006 / 14:17:04 / cg"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3719	!
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3720
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3721	askForExistingRevision:boxText title:title class:clsOrNil manager:aSourceCodeManager module:module package:directory fileName:fileName
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3722	"open a dialog asking for a containers revision;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3723	return a revision number, or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3724
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3725	\|partialLog revisions items newestRev
3551 e8feddd829f9 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	3726	box y component revisionHolder symbolicNames stableRevision releasedRevision
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3727	tagHolder tagList lockChange\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3728
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3729	partialLog := aSourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3730	revisionLogOf:clsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3731	numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3732	fileName:fileName
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3733	directory:directory
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3734	module:module.
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	3735
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3736	partialLog notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3737	newestRev := partialLog at:#newestRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3738	revisions := partialLog at:#revisions.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3739	symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3740	symbolicNames notNil ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3741	stableRevision := symbolicNames at:'stable' ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3742	releasedRevision := symbolicNames at:'released' ifAbsent:[].
3332 bc7ab41bb5bb class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3327 diff changeset	3743	tagList := ((symbolicNames associations sort:[:a :b \| a key < b key "self versionString:(a value) isLessThan:(b value)"])
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3744	collect:[:assoc \| assoc key]) reverse.
3332 bc7ab41bb5bb class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3327 diff changeset	3745	tagList remove:'stable' ifAbsent:[].
bc7ab41bb5bb class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3327 diff changeset	3746	tagList notEmpty ifTrue:[tagList addFirst:'-'].
bc7ab41bb5bb class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3327 diff changeset	3747	tagList addFirst:'stable'.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3748	].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3749
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3750	items := revisions collect:[:each \| \|rev date who flag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3751	rev := each at:#revision.
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3752	date := (each at:#date ifAbsent:nil) ? '?'.
2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3753	who := (each at:#author ifAbsent:nil) ? '?'.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3754	rev = stableRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3755	flag := ' Stable' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3756	] ifFalse:[rev = releasedRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3757	flag := ' Released' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3758	] ifFalse:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3759	flag := ' '
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3760	]].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3761	rev allBold , flag, ' [' , date , ' by ' , who , ']'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3762	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3763	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3764	] ifFalse:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3765	newestRev := aSourceCodeManager newestRevisionInFile:fileName directory:directory module:module.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3766	revisions := items := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3767
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3768	newestRev isNil ifTrue:[
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3769	(aSourceCodeManager checkForExistingContainer:fileName inModule:module directory:directory)
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3770	ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3771	self warn:'Could not find/access the container for ',fileName,' in the repository.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3772	This could be due to:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3773	- invalid/wrong CVS-Root setting
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3774	- missing CVS access rights
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3775	(no access / not logged in)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3776	- changed CVSRoot after compilation
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3777	(i.e. wrong CVS-path in classes version method)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3778	'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3779	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3780	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3781	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3782	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3783
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3784	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3785	revisionHolder := newestRev asValue.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3786	revisionHolder onChangeEvaluate:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3787	"/ cut off everything after revision
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3788	\|s first words tag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3789
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3790	s := revisionHolder value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3791	words := s asCollectionOfWords.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3792	words size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3793	first := words first string.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3794	first ~= s ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3795	revisionHolder value:first
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3796	]
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3797	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3798	lockChange ifFalse:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3799	tagHolder value:''
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3800	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3801	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3802
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3803	tagHolder := '' asValue.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3804	tagHolder
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3805	onChangeEvaluate:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3806	\|tag rev\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3807
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3808	(tag := tagHolder value) notEmptyOrNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3809	rev := symbolicNames at:tag.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3810	rev ~= revisionHolder value ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3811	lockChange := true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3812	revisionHolder value:rev.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3813	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3814	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3815	]
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3816	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3817
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3818	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3819	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3820	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3821	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3822	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3823
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3824	component := box addTextLabel:boxText withCRs adjust:#left.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3825	component borderWidth:0.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3826	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3827	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3828
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3829	y := box yPosition.
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3830	component := box addTextLabel:(resources string:'Revision:') adjust:#right.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3831	component width:0.4.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3832	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3833	component := box addComboBoxOn:revisionHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3834	component list:items.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3835	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3836
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3837	y := box yPosition.
3425 05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3838	component := box addTextLabel:(resources string:'or Tag:') adjust:#right.
05be11d262e2 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3394 diff changeset	3839	component width:0.4.
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3840	box yPosition:y.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3841	component := box addComboListOn:tagHolder tabable:true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3842	component list:tagList.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3843	component width:0.6; left:0.4.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3844	tagList isNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3845	component disable
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3846	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3847
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3848	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3849
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3850	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3851
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3852	AbortAllOperationWantedQuery query ifTrue:[
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3853	(box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3854	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3855
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3856	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3857
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3858	box accepted ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3859	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3860	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3861	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3862	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3863
3865 b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3864	"/ it is not a good idea to return the tag-name here,
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3865	"/ because it may get cached later when the source is fetched,
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3866	"/ and the tag could move to another version (making the cached file invalid)
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3867	"/ without me knowing about that fact.
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3868	"/ Therefore, we should return the real revision number.
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3869
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3870	"/ ouch: however, checkout of a branch seems to not work the same way
b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3871	"/ so we DO return the tag, but suppress caching it. sigh.
3551 e8feddd829f9 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	3872	^ (tagHolder value notEmptyOrNil ifTrue:[tagHolder] ifFalse:[revisionHolder]) value withoutSpaces.
3865 b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	3873	"/ ^ revisionHolder value withoutSpaces.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3874
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3875	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3876	SourceCodeManagerUtilities
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3877	askForRevisionToCompare:'enter revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3878	title:'revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3879	class:nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3880	manager:SourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3881	module:'stx'
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3882	directory:'libbasic'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3883	fileName:'Array.st'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3884	"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	3885
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3886	"Modified: / 21-12-2011 / 23:09:26 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3887	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3888
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3889	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3890	"check if a class contains message-sends to:
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3891	#halt , #halt:
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3892	#error
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3893	#todo , #todo:
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3894	(and maybe more in the future)
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3895
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3896	Only checks in non-extension methods - as this is only called when checking "
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3897
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3898	\|badStuff whatIsBad msg answer labels values defaultAnswer dontShowAgain
3551 e8feddd829f9 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	3899	methodsWithBadStuff\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3900
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3901	badStuff := #(
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3902	( halt 'send of #halt (use for debugging only) - better use #error:''some message'' or #breakPoint:')
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3903	( halt: 'send of #halt: (use for debugging only) - better use #error: or #breakPoint:')
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3904	( error 'send of #error without descriptive message - better use #error:''some message''' )
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3905	( todo 'send of #todo - unfinished code present?' )
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3906	( todo: 'send of #todo:- unfinished code present?' )
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3907	).
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3908
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3909	methodsWithBadStuff := Set new.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3910	whatIsBad := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3911	aClass theNonMetaclass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3912	\|setOfLiterals setOfSentMessages\|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3913
2977 e5bfe652373f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2974 diff changeset	3914	mthd isExtension ifFalse:[
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3915	setOfLiterals := mthd literals. "/ try without parsing first.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3916	(badStuff contains:[:eachEntry \| setOfLiterals includes:eachEntry first]) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3917	setOfSentMessages := mthd messagesSent.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3918	badStuff do:[:eachEntry \|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3919	(setOfSentMessages includes:eachEntry first) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3920	whatIsBad add:eachEntry second.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3921	methodsWithBadStuff add:mthd.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3922	]
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3923	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3924	].
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3925	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3926	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3927	whatIsBad isEmpty ifTrue:[^ true].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3928
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3929	(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3930	answer := YesToAllQuery query.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3931	answer notNil ifTrue:[ ^ answer ].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3932	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3933
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3934	msg := resources string:'%1 contains the following (considered bad style) message sends:' with:aClass name.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3935	msg := msg , '\\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3936	whatIsBad do:[:each \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3937	msg := msg , ' ' , each , '\'
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3938	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3939	msg := msg , '\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3940	methodsWithBadStuff size == 1 ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3941	msg := msg , (resources string:'In %1.'
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3942	with:methodsWithBadStuff anElement whoString allBold).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3943	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3944	msg := msg , (resources string:'In %1 and %2 other methods.'
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3945	with:methodsWithBadStuff anElement whoString allBold
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3946	with:methodsWithBadStuff size-1).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3947	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3948	msg := msg , '\\' , (resources string:'Do you really want to checkIn the %1 class ?' with:aClass name).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3949
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3950	(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3951	labels := #('Cancel All' 'Cancel' 'No to All' 'No' 'No, Browse' 'Yes to All' 'Yes') "#('Yes' 'Yes to All' 'No' 'No to All' 'Cancel')".
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3952	values := #(#cancelAll nil #noToAll #noBrowse false #yesToAll true) "#(true #yesToAll false #noToAll nil)".
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3953	defaultAnswer := #yesToAll.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3954	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3955	labels := #('No' 'No, Browse' 'Yes').
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3956	values := #(false #noBrowse true).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3957	defaultAnswer := true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3958	].
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3959
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3960	"/ AbortAllOperationRequest isHandled ifTrue:[
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3961	"/ labels := #('Cancel All') , labels.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3962	"/ values := #(#cancelAll) , values.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3963	"/ ].
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3964
3812 173678af0074 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	3965	Dialog modifyingBoxWith:[:box \|
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3966	checkAgainHolder isValueModel ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3967	dontShowAgain := checkAgainHolder value not asValue.
3812 173678af0074 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3692 diff changeset	3968	box addCheckBoxAtBottom:(resources string:'Do not show this Dialog again (reenable in Launcher).')
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3969	on:dontShowAgain.
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3970	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3971	] do:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3972	answer := OptionBox
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3973	request:msg withCRs
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3974	label:(resources string:'Really CheckIn ?')
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3975	image:(InfoBox iconBitmap)
3551 e8feddd829f9 class: SourceCodeManagerUtilities Stefan Vogel <sv@exept.de> parents: 3546 diff changeset	3976	buttonLabels:(Dialog classResources array:labels)
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3977	values:values
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3978	default:defaultAnswer
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3979	onCancel:nil.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3980	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3981	answer isNil ifTrue:[
3433 eee3079d18d3 AbortSignal -> AbortOperationRequest Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3982	AbortOperationRequest raise.
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3983	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3984
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3985	dontShowAgain notNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3986	checkAgainHolder value:dontShowAgain value not
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3987	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3988
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3989	answer == #noBrowse ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3990	UserPreferences browserClass browseMethods:methodsWithBadStuff title:'Methods with Bad Stuff'.
1995 f832f7ec6ccf Don't use possibly uninitialized class variable Stefan Vogel <sv@exept.de> parents: 1994 diff changeset	3991	self yesToAllNotification queryWith:false.
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3992	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3993	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3994	answer == #cancelAll ifTrue:[
3433 eee3079d18d3 AbortSignal -> AbortOperationRequest Stefan Vogel <sv@exept.de> parents: 3425 diff changeset	3995	AbortOperationRequest raise.
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3996	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3997	answer == #yesToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3998	YesToAllNotification queryWith:true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3999	^ true
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4000	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4001	answer == #noToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4002	YesToAllNotification queryWith:false.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4003	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4004	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4005	^ answer
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4006
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4007	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4008	self checkAndWarnAboutBadMessagesInClass:(SourceCodeManagerUtilities)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4009	"
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4010
d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4011	"Modified: / 28-02-2012 / 10:41:38 / cg"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4012	!
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4013
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4014	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4015	"ask for a log message for checking in a class (plus checkinQuick state info),
2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4016	and other info (mark as stable, for example).
2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4017	Return the info-object (actually: the dialog) or nil if aborted."
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4018
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4019	^ self
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4020	getCheckinInfoFor:aClassNameOrPackageNameString
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4021	initialAnswer:initialAnswerOrNil
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4022	withQuickOption:false
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4023
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4024	"
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4025	SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4026	"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4027
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4028	"Modified: / 06-07-2010 / 11:22:15 / cg"
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4029	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4030
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4031	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4032	"ask for a log message for checking in a class (plus checkinQuick state info),
2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4033	and other info (mark as stable, for example).
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4034	Return the info-object (actually: the dialog) or nil if aborted."
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4035
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4036	^ self
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4037	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4038	withValidateConsistencyOption:false
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4039
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4040	"
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4041	SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla'
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4042	"
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4043
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4044	"Modified: / 12-03-2012 / 13:12:40 / cg"
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4045	!
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4046
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4047	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption withValidateConsistencyOption:withValidateConsistencyOption
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4048	"ask for a log message for checking in a class (plus checkinQuick state info),
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4049	and other info (mark as stable, for example).
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4050	Return the info-object (actually: the dialog) or nil if aborted."
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4051
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4052	\|logMsg infoDialog\|
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4053
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4054	infoDialog := Tools::CheckinInfoDialog
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4055	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4056	initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4057	withQuickOption:withQuickOption
3140 25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4058	logHistory:(LastSourceLogMessages ? #())
25a1a02ce3d9 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3134 diff changeset	4059	withValidateConsistencyOption:withValidateConsistencyOption.
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4060
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4061	infoDialog notNil ifTrue:[
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4062	logMsg := infoDialog logMessage.
2284 624993d61344 comment Claus Gittinger <cg@exept.de> parents: 2283 diff changeset	4063	logMsg notEmptyOrNil ifTrue:[
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4064	LastSourceLogMessage := logMsg.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4065	LastSourceLogMessages isNil ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4066	LastSourceLogMessages := OrderedCollection new.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4067	].
2796 78401b160a28 changed: #getCheckinInfoFor:initialAnswer:withQuickOption: Claus Gittinger <cg@exept.de> parents: 2795 diff changeset	4068	LastSourceLogMessages remove:logMsg ifAbsent:[].
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4069	LastSourceLogMessages addFirst:logMsg.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4070	LastSourceLogMessages size > 10 ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4071	LastSourceLogMessages removeLast
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4072	].
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4073	].
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4074	].
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4075	^ infoDialog
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4076
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4077	"
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4078	SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla'
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4079	"
1501 6bb154127b0f CheckInDialog class moved Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	4080
2796 78401b160a28 changed: #getCheckinInfoFor:initialAnswer:withQuickOption: Claus Gittinger <cg@exept.de> parents: 2795 diff changeset	4081	"Modified: / 12-03-2012 / 13:12:40 / cg"
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4082	!
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4083
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4084	goodInitialLogMessageForCheckinClassOfClass:aClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4085	"figure out, if there were any non-comment changes.
2971 7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4086	Provide a reasonable initial log message (I am tired of typing in 'comment only').
7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4087	This is a q&d hack - not complete and not correct (for example, it will generate a method change
7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4088	info line, even if the selector was removed afterwards).
7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4089	So check the outcome."
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4090
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4091	\|selectorsInChangeSet newSelectors modifiedSelectors
3657 2de3a610d07c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4092	className metaClassName classChanges changesForThisClass definitionChangesForThisClass methodChangesForThisClass
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4093	allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass removedMethodsForThisClass
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4094	initialLogStream printSelectors selectorsWithCommentOrFormattingChangeOnly
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4095	selectorsWithVariableChangeOnly newSelectorsRemoved
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4096	removedSelectors categoryChanges categoryChangeSelectors additionalInfoPerChangedSelector\|
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4097
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4098	"/ a helper function
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4099	printSelectors :=
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4100	[:what :selectors :more \|
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4101	\|sel moreInfo\|
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4102
3334 c3473a753372 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3332 diff changeset	4103	selectors remove:nil ifAbsent:[].
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4104	initialLogStream nextPutAll:(what,':').
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4105	selectors size < 5 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4106	selectors size == 1 ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4107	sel := selectors first.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4108	initialLogStream nextPutAll: ' #'; nextPutAll:sel.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4109	more ifTrue:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4110	(moreInfo := additionalInfoPerChangedSelector at:sel ifAbsent:nil) notNil ifTrue:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4111	initialLogStream space; nextPutAll:moreInfo.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4112	]
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4113	].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4114	initialLogStream cr.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4115	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4116	initialLogStream cr.
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4117	selectors asSortedCollection do:[:sel \|
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4118	initialLogStream tab; nextPutAll:'#'; nextPutAll:sel.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4119	more ifTrue:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4120	(moreInfo := additionalInfoPerChangedSelector at:sel ifAbsent:nil) notNil ifTrue:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4121	initialLogStream space; nextPutAll:moreInfo.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4122	].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4123	].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4124	initialLogStream cr
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4125	].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4126	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4127	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4128	initialLogStream
3343 01a016e0df7a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3334 diff changeset	4129	print: (selectors size); nextPutAll: ' methods'; cr.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4130	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4131	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4132
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4133	classChanges := ChangeSet current select:[:aChange \| aChange isClassChange].
3657 2de3a610d07c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4134	className := aClass theNonMetaclass name.
2de3a610d07c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4135	metaClassName := aClass theMetaclass name.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4136
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4137	changesForThisClass := classChanges
3657 2de3a610d07c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4138	select:[:aChange \| aChange className = className
2de3a610d07c class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3642 diff changeset	4139	or:[aChange className = metaClassName ]].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4140
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4141	additionalInfoPerChangedSelector := Dictionary new.
3291 7fc5a1fea0fd Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 3287 diff changeset	4142	definitionChangesForThisClass := changesForThisClass reject:[:aChange \| aChange isMethodChange].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4143	categoryChanges := changesForThisClass select:[:aChange \| aChange isMethodCategoryChange].
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4144	categoryChangeSelectors := categoryChanges collect:[:aChange \| aChange changeSelector] as:Set.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4145	allMethodChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodCodeChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4146	selectorsInChangeSet := allMethodChangesForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4147	methodChangesForThisClass := selectorsInChangeSet collect:[:eachSelector \|
2161 c1d39e2f7115 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	4148	allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector]] as:OrderedCollection.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4149
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4150	modifiedMethodsForThisClass := methodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4151	select:[:aChange \| aChange previousVersion notNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4152	modifiedSelectors := modifiedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4153
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4154	newMethodsForThisClass := allMethodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4155	select:[:aChange \| aChange previousVersion isNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4156	newSelectors := newMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4157
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4158	removedMethodsForThisClass := changesForThisClass
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4159	select:[:aChange \| aChange isMethodRemoveChange and:[ aChange changeMethod isNil ]].
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4160	removedSelectors := removedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4161
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4162	initialLogStream := '' writeStream.
2971 7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4163
7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4164	initialLogStream printCR:'class: ',aClass name.
7fefd3a142a4 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2969 diff changeset	4165
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4166	"/ definition?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4167	"/ suppress definition-message if initial checkin
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4168	(aClass package isNil or:[aClass revision isNil]) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4169	definitionChangesForThisClass notEmpty ifTrue:[
2974 df015da58d8a class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2971 diff changeset	4170	"/ self halt.
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4171	initialLogStream printCR:'class definition'.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4172	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4173	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4174
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4175	"/ added selectors?
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4176	newSelectorsRemoved := newSelectors select:[:sel \| removedSelectors includes:sel].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4177
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4178	newSelectors removeAllFoundIn:removedSelectors.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4179	newSelectors notEmpty ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4180	printSelectors value:'added' value:newSelectors value:false.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4181	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4182	modifiedSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4183	categoryChangeSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4184
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4185	"/ removed selectors?
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4186	removedSelectors removeAllFoundIn:newSelectorsRemoved.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4187	removedSelectors notEmpty ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4188	printSelectors value:'removed' value:removedSelectors value:false.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4189	].
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4190	modifiedSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4191	categoryChangeSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4192
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4193	"/ modifications?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4194	modifiedSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4195	selectorsWithCommentOrFormattingChangeOnly := Set new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4196	selectorsWithVariableChangeOnly := Set new.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4197
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4198	"/ check for format/comment change
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4199	RBParser notNil ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4200	modifiedSelectors do:[:eachSelector \|
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4201	\|oldest newest oldMethod newMethod oldTree newTree
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4202	variableMapping selectorMapping unchangedVariables unchangedSelectors\|
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4203
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4204	(newSelectors includes:eachSelector) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4205	oldest := allMethodChangesForThisClass detect:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4206	newest := allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4207
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4208	oldest := oldest previousVersion notNil ifTrue:[oldest previousVersion] ifFalse:[oldest].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4209
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4210	oldTree := RBParser parseMethod:oldest source onError:[:aString :pos \| nil].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4211	newTree := RBParser parseMethod:newest source onError:[:aString :pos \| nil].
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4212
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4213	(oldTree notNil and:[newTree notNil]) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4214	variableMapping := Dictionary new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4215	(oldTree equalTo:newTree withMapping: variableMapping) ifTrue:[
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4216	unchangedVariables := variableMapping keys select:[:k \| (variableMapping at:k) = k].
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4217	variableMapping removeAllKeys:unchangedVariables.
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4218
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4219	(variableMapping at:'self' ifAbsent:'self') = 'self' ifTrue:[
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4220	((variableMapping associations count:[:assoc \| assoc key ~= assoc value]) == 0) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4221	selectorsWithCommentOrFormattingChangeOnly add:eachSelector.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4222	] ifFalse:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4223	"/ check, if a global has changed (aka sends to another global)
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4224	((variableMapping keys contains:[:var \| var first isUppercase])
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4225	or:[ (variableMapping values contains:[:var \| var first isUppercase]) ]) ifFalse:[
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4226	selectorsWithVariableChangeOnly add:eachSelector.
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4227	].
2142 d09c9d1b8c46 changed: #goodInitialLogMessageForCheckinClassOfClass: sr parents: 2137 diff changeset	4228	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4229	].
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4230	] ifFalse:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4231	selectorMapping := Dictionary new.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4232	(oldTree equalTo:newTree withSelectorMapping: selectorMapping) ifTrue:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4233	unchangedSelectors := selectorMapping keys select:[:k \| (selectorMapping at:k) = k].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4234	selectorMapping removeAllKeys:unchangedSelectors.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4235	(selectorMapping notEmpty and:[selectorMapping size <= 2]) ifTrue:[
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4236	additionalInfoPerChangedSelector at:eachSelector put:(
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4237	String streamContents:[:s \|
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4238	\|first\|
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4239
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4240	s nextPutAll:'('.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4241	first := true.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4242	selectorMapping keysAndValuesDo:[:selOld :selNew \|
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4243	first ifFalse:[s nextPutAll:', '].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4244	s print:('send #',selNew,' instead of #',selOld).
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4245	first := false.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4246	].
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4247	s nextPutAll:')'.
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4248	]).
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4249	]
a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4250	]
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4251	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4252	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4253	]
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4254	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4255	].
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4256
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4257	modifiedSelectors removeAllFoundIn:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4258	modifiedSelectors removeAllFoundIn:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4259
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4260	(selectorsWithCommentOrFormattingChangeOnly notEmpty) ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4261	printSelectors value:'comment/format in' value:selectorsWithCommentOrFormattingChangeOnly value:false.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4262	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4263	(selectorsWithVariableChangeOnly notEmpty) ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4264	printSelectors value:'variable renamed in' value:selectorsWithVariableChangeOnly value:false.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4265	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4266	(modifiedSelectors notEmpty) ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4267	printSelectors value:'changed' value:modifiedSelectors value:true.
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4268	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4269	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4270	categoryChanges notEmpty ifTrue:[
3327 a3200580a76f class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3325 diff changeset	4271	printSelectors value:'category of' value:categoryChangeSelectors value:false.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4272	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4273	^ initialLogStream contents
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4274
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	4275	"Modified: / 26-09-2012 / 18:31:38 / cg"
3344 4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4276	!
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4277
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4278	revisionForSymbolicName:tag class:cls fileName:classFileName directory:packageDir module:moduleDir manager:aSourceCodeManager
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4279	"given a tag, return the corresponding revision"
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4280
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4281	\|partialLog symbolicNames\|
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4282
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4283	partialLog := aSourceCodeManager
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4284	revisionLogOf:cls
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4285	numberOfRevisions:20
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4286	fileName:classFileName
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4287	directory:packageDir
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4288	module:moduleDir.
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4289
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4290	partialLog notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4291	symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4292	symbolicNames notNil ifTrue:[
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4293	^ symbolicNames at:tag ifAbsent:nil
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4294	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4295	].
4e577aa5b998 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3343 diff changeset	4296	^ nil
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4297	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4298
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	4299	!SourceCodeManagerUtilities methodsFor:'utilities-encoding'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4300
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4301	guessEncodingOfFile:aFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4302	"look for a string
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4303	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4304	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4305	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4306	within the given buffer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4307	(which is usually the first few bytes of a textFile).
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4308	If that's not found, use heuristics (in CharacterArray) to guess."
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4309
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4310	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4311
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4312	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4313	^ CharacterEncoder guessEncodingOfFile:aFilename
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4314
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4315	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4316	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_de.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4317	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_ru.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4318	"
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4319
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4320	"Modified (comment): / 14-01-2012 / 20:54:35 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4321	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4322
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4323	guessEncodingOfStream:aStream
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4324	"look for a string of the form
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4325	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4326	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4327	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4328	in the first few bytes of aStream."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4329
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4330	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4331
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4332	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4333	^ CharacterEncoder guessEncodingOfStream:aStream
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4334	! !
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4335
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4336	!SourceCodeManagerUtilities class methodsFor:'documentation'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4337
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4338	version
3865 b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	4339	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.321 2015-05-07 11:04:58 cg Exp $'
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4340	!
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4341
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	4342	version_CVS
3865 b76ba0a9cf83 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 3847 diff changeset	4343	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.321 2015-05-07 11:04:58 cg Exp $'
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4344	! !
3134 93b8f75424c5 class: SourceCodeManagerUtilities Claus Gittinger <cg@exept.de> parents: 2977 diff changeset	4345

author	Claus Gittinger <cg@exept.de>
	Thu, 07 May 2015 13:04:58 +0200
changeset 3865	b76ba0a9cf83
parent 3847	94661e33541c
child 3867	73f23fa5d192
child 3892	3e7000585011
permissions	-rw-r--r--