hg/stx-libbasic3: SourceCodeManagerUtilities.st@cd6dc0f1d994 (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
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14	Object subclass:#SourceCodeManagerUtilities
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	15	instanceVariableNames:'manager resources confirmNewFiles'
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	16	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	17	YesToAllNotification LastSourceLogMessages'
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	18	poolDictionaries:''
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	19	category:'System-SourceCodeManagement'
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22	!SourceCodeManagerUtilities class methodsFor:'documentation'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23
906 862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	24	copyright
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	25	"
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	26	COPYRIGHT (c) 2000 eXept Software AG
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	27	All Rights Reserved
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	28
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	29	This software is furnished under a license and may be used
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	30	only in accordance with the terms of that license and with the
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	31	inclusion of the above copyright notice. This software may not
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	32	be provided or otherwise made available to, or used by, any
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	33	other person. No title to or ownership of the software is
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	34	hereby transferred.
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	35	"
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	36
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	37	!
862b6903fbf3 copyrights Claus Gittinger <cg@exept.de> parents: 893 diff changeset	38
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	documentation
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40	"
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	utility code which is useful at more than one place
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	42	(extracted from the browser)
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	43
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	44	[author:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	45	Claus Gittinger (cg@exept)
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	46
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	47	[see also:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	48
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	49	[instance variables:]
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	50
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	[class 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	! !
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	54
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	55	!SourceCodeManagerUtilities class methodsFor:'instance creation'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	56
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	57	forManager: aSourceCodeManager
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	^self new setManager: 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	"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	62	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	63
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	64	new
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	65	"return an initialized instance"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	66
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	67	self == SourceCodeManagerUtilities ifTrue:[ self error:'trying to instatiate abstract class' ].
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	68	^ self basicNew initialize.
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	69
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	70	"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	71	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	72
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	73	!SourceCodeManagerUtilities class methodsFor:'Signal constants'!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	74
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	75	yesToAllNotification
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	76	YesToAllNotification isNil ifTrue:[
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	77	YesToAllNotification := QuerySignal new.
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	!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	81
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	82	yesToAllQuery
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	83	YesToAllQuery isNil ifTrue:[
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	84	YesToAllQuery := QuerySignal new.
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	! !
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	88
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	89	!SourceCodeManagerUtilities class methodsFor:'accessing'!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	90
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	91	default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	92
2864 835ad5141223 changed: #default Claus Gittinger <cg@exept.de> parents: 2847 diff changeset	93	Default isNil ifTrue:[Default := SourceCodeManagerUtilitiesForContainerBasedManagers new].
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	94	^Default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	95
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	96	"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	97	"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	98	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	99
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	100	lastModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	101	"return the value of the static variable 'LastModule' (automatically generated)"
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	102
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	103	^ LastModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	104	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	105
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	106	lastModule:something
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	107	"set the value of the static variable 'LastModule' (automatically generated)"
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	LastModule := something.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	110	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	111
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	112	lastPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	113	"return the value of the static variable 'LastPackage' (automatically generated)"
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	^ LastPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	116	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	117
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	118	lastPackage:something
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	119	"set the value of the static variable 'LastPackage' (automatically generated)"
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	LastPackage := something.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	122	! !
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	123
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	124	!SourceCodeManagerUtilities class methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	125
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	126	doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	127
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	128	(self default respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	129	"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	130	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	131	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	132
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	133	^aMessage sendTo: self default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	134	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	135	^super doesNotUnderstand: aMessage
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	138	"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	139	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	140
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	141	!SourceCodeManagerUtilities class methodsFor:'private-migration'!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	142
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	143	compileForwarders
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	144
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	145	"Utility method"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	146
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	147	"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	148	SourceCodeManagerUtilities compileForwarders.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	149	"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	150
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	151	self methodsDo:[:m\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	152	\| sel \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	153	sel := m selector.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	154	((self class includesSelector: sel) and: [(self class >> sel) source = m source]) ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	155	\| source header \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	156
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	157	header := m source asStringCollection first.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	158	source := '%1
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	159
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	160	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	161
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	162	self obsoleteMethodWarning: ''Please use instance protocol (SourceCodeManagerUtilities default doSomething)''.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	163
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	164	^self default %1' bindWith: header with: header.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	165
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	166	self halt: 'Inspect source'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	167	self class compile: source classified: m category.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	168	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	169
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	170	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	171
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	172	"Created: / 11-10-2011 / 10:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	173	! !
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	174
1806 fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	175	!SourceCodeManagerUtilities class methodsFor:'resources'!
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	176
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	177	resourcePackage
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	178	^ #'stx:libtool'
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	179	! !
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	180
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	181	!SourceCodeManagerUtilities class methodsFor:'utilities'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	182
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	183	classIsNotYetInRepository:aClass withManager:mgr
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	184
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	185	<resource: #obsolete>
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	186
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	187	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	188
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	189	^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	190	!
8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	191
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	192	nameOfExtensionsContainer
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	193
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	194	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	195
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	196	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	197
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	198	^self default nameOfExtensionsContainer
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	201	setPackageOfAllMethodsIn:aClass to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	202
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	203	<resource: #obsolete>
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	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	206
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	207	^self default setPackageOfAllMethodsIn:aClass to:aPackage
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	"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	210	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	211
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	212	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	213
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	214	<resource: #obsolete>
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	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	217
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	218	^self default setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
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	"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	221	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	222
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	223	sourceCodeManagerFor:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	224
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	225	<resource: #obsolete>
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	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	228
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	229	^self default sourceCodeManagerFor:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	230	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	231
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	232	sourceCodeOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	233
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	234	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	235
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	236	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	237
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	238	^self default sourceCodeOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	239	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	240
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	241	versionString:a isLessThan:b
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	242
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	243	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	244
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	245	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	246
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	247	^self default versionString:a isLessThan:b
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	250	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	251
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	252	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	253
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	254	<resource: #obsolete>
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	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	257
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	258	^self default changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	259
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	260	"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	261	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	262
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	263	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	264
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	265	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	266
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	267	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	268
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	269	^self default
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	270	changeSetForExtensionMethodsForPackage:packageToCheckOut
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	271	revision:revisionOrNil
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	272	orAskForRevision:askForRevision
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	273	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:14 / 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	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	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 checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	285
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	286	"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	287	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	288
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	289	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	290
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	291	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	292
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	293	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	294
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	295	^self default checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	296
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	297	"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	298	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	299
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	300	checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	301
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	302	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	303
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	304	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	305
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	306	^self default checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	307
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	308	"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	309	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	310
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	311	checkinClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	312
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	313	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	314
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	315	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	316
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	317	^self default checkinClass:aClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	320	checkinClass:aClass withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	321
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	322	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	323
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	324	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	325
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	326	^self default checkinClass:aClass withInfo:aLogInfoOrNil
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	329	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	330
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	331	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	332
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	333	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	334
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	335	^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	336	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	337
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	338	checkinClasses:aCollectionOfClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	339
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	340	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	341
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	342	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	343
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	344	^self default checkinClasses:aCollectionOfClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	345	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	346
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	347	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	348
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	349	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	350
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	351	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	352
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	353	^self default checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	356	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	357
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	358	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	359
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	360	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	361
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	362	^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	363	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	364
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	365	checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	366
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	367	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	368
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	369	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	370
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	371	^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	372	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	373
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	374	checkoutClass:aClass askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	375
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	376	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	377
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	378	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	379
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	380	^self default checkoutClass:aClass askForMerge:askForMerge
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	383	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	384
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	385	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	386
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	387	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	388
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	389	^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	390	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	391
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	392	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	393
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	394	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	395
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	396	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	397
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	398	^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	399	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	400
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	401	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	402
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	403	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	404
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	405	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	406
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	407	^self default checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	408
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	409	"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	410	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	411
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	412	compareClassWithRepository:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	413
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	414	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	415
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	416	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	417
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	418	^self default compareClassWithRepository:aClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	421	compareClassWithRepository:aClass askForRevision:askForRevision
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	422
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	423	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	424
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	425	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	426
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	427	^self default compareClassWithRepository:aClass askForRevision:askForRevision
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	430	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	431
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	432	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	433
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	434	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	435
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	436	^self default compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	439	compareProjectWithRepository:aProject
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	440
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	441	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	442
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	443	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	444
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	445	^self default compareProjectWithRepository:aProject
2556 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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	448	createSourceContainerForClass:aClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	449
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	450	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	451
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	452	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	453
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	454	^self default createSourceContainerForClass:aClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	455	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	456
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	457	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	458
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	459	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	460
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	461	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	462
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	463	^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	464	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	465
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	466	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	467
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	468	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	469
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	470	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	471
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	472	^self default diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
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
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	475	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	476
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	477	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	478
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	479	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	480
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	481	^self default ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	482
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	483	"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	484	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	485
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	486	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	487
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	488	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	489
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	490	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	491
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	492	^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	493	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	494
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	495	removeSourceContainerForClass:aClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	496
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	497	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	498
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	499	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	500
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	501	^self default removeSourceContainerForClass:aClass
2556 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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	504	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	505
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	506	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	507
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	508	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	509
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	510	^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	511	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	512
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	513	repositoryLogOf:aClass onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	514
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	515	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	516
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	517	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	518
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	519	^self default repositoryLogOf:aClass onto:aStream
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	522	repositoryLogOf:aClass short:shortOrNot onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	523
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	524	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	525
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	526	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	527
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	528	^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	529	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	530
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	531	tagClass:aClass as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	532
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	533	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	534
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	535	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	536
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	537	^self default tagClass:aClass as:tag
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	540	tagClasses:aCollectionOfClasses as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	541
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	542	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	543
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	544	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	545
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	546	^self default tagClasses:aCollectionOfClasses 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
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	549	tagPath:aPath as:tag usingManager:aManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	550
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	551	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	552
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	553	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	554
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	555	^self default tagPath:aPath as:tag usingManager:aManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	556
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	557	"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	558	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	559
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	560	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-helpers'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	561
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	562	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	563
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	564	<resource: #obsolete>
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	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	567
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	568	^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	569	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	570
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	571	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-user interaction'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	572
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	573	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	574
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	575	<resource: #obsolete>
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	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	578
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	579	^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	580	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	581
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	582	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	583
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	584	<resource: #obsolete>
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	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	587
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	588	^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	589	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	590
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	591	askForExistingRevision:boxText title:title class:aClass
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	592
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	593	<resource: #obsolete>
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	594
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	595	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	596
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	597	^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	598	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	599
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	600	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	601
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	602	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	603
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	604	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	605
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	606	^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	607	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	608
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	609	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	610
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	611	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	612
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	613	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	614
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	615	^self default checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	618	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	619	^self default
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	620	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	621	initialAnswer:initialAnswerOrNil
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	622
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	623	"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	624	!
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	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	627	^self default
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	628	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	629	initialAnswer:initialAnswerOrNil
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	630	withQuickOption:withQuickOption
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	631
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	632	"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	633	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	634
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	635	goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	636
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	637	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	638
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	639	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	640
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	641	^self default goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	642	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	643
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	644	!SourceCodeManagerUtilities class methodsFor:'utilities-encoding'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	645
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	646	guessEncodingOfFile:aFilename
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	647
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	648	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	649
2818 82c73234ac2d changed: #guessEncodingOfFile: Stefan Vogel <sv@exept.de> parents: 2817 diff changeset	650	self obsoleteMethodWarning:'ask CharacterEncoder'.
82c73234ac2d changed: #guessEncodingOfFile: Stefan Vogel <sv@exept.de> parents: 2817 diff changeset	651	^ CharacterEncoder guessEncodingOfFile:aFilename
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	652	!
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	guessEncodingOfStream:aStream
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	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	657
2817 8a836ca902d4 changed: #guessEncodingOfStream: Stefan Vogel <sv@exept.de> parents: 2796 diff changeset	658	self obsoleteMethodWarning:'ask CharacterEncoder'.
8a836ca902d4 changed: #guessEncodingOfStream: Stefan Vogel <sv@exept.de> parents: 2796 diff changeset	659	^ CharacterEncoder guessEncodingOfStream:aStream
2556 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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	662	!SourceCodeManagerUtilities methodsFor:'accessing'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	663
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	664	classResources
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	665
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	666	^self class classResources
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	"Created: / 10-10-2011 / 11:42:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	669	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	670
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	671	confirmNewFiles:aBoolean
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	672	"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	673
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	674	confirmNewFiles := aBoolean.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	675
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	676	"Modified (comment): / 24-07-2012 / 18:18:34 / cg"
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	677	!
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	678
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	679	lastSourceLogMessageHeadlines
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	680	LastSourceLogMessage isNil ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	681	LastSourceLogMessages := OrderedCollection new.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	682	].
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	683	^ LastSourceLogMessages
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	684	collect:[:msg \|
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	685	msg withoutLeadingSeparators asCollectionOfLines first , '...'
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	686	]
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	687
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	688	"Created: / 12-03-2012 / 12:34:35 / cg"
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	689	!
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	690
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	691	yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	692
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	693	^self class yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	694
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	695	"Created: / 11-10-2011 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	696	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	697
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	698	yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	699
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	700	^self class yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	701
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	702	"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	703	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	704
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	705	!SourceCodeManagerUtilities methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	706
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	707	doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	708
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	709	(self class respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	710	"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	711	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	712	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	713
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	714	^aMessage sendTo: self class
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	715	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	716	^super doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	717	]
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	718
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	719	"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	720	! !
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	!SourceCodeManagerUtilities methodsFor:'initialization'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	723
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	724	initialize
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	725	confirmNewFiles := true.
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	726	resources := self classResources.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	727
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	728	"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	729	"Modified: / 24-07-2012 / 18:17:57 / cg"
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	730	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	731
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	732	setManager: aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	733
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	734	manager := aSourceCodeManager.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	735	manager isContainerBased ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	736	confirmNewFiles isNil "not yet set by user" ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	737	confirmNewFiles := false.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	738	]
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	739	].
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	740
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	741	"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	742	"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	743	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	744
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	745	!SourceCodeManagerUtilities methodsFor:'utilities'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	746
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	747	classIsNotYetInRepository:aClass withManager:mgr
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	748	\|info\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	749
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	750	info := mgr sourceInfoOfClass:aClass.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	751
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	752	^ (info isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	753	or:[(info at:#fileName ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	754	or:[(info at:#module ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	755	or:[(info at:#directory ifAbsent:nil) isNil]]])
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	756
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	757	"Created: / 25-10-2006 / 09:43:00 / cg"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	758	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	759
2673 06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	760	defaultManager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	761	^ manager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	762
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	763	"Created: / 22-12-2011 / 10:59:28 / cg"
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	764	!
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	765
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	766	nameOfExtensionsContainer
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	767	^ 'extensions.st'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	768	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	769
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	770	setPackageOfAllMethodsIn:aClass to:aPackage
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	771	"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	772
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	773	\|anyChange anyChangeHere\|
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	774
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	775	anyChange := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	776	aClass withAllPrivateClassesDo:[:eachClass \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	777	anyChangeHere := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	778	eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	779	mthd package ~= aPackage ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	780	mthd setPackage:aPackage.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	781	anyChangeHere := true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	782	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	783	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	784	anyChangeHere ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	785	eachClass changed:#projectOrganization
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	786	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	787	anyChangeHere ifTrue:[anyChange := true].
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	788	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	789	anyChange ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	790	Smalltalk changed:#projectOrganization
1185 e86907810d1f handle abortAll in checkIn Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	791	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	792	^ anyChange
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	793	!
09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	794
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	795	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	796	"make all methods belong to the classes project"
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	797
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	798	aChangeSet do:[:eachChange \|
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	799	eachChange isMethodCodeChange ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	800	eachChange changeMethod package ~= aPackage ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	801	Transcript showCR:'change package of ',eachChange changeMethod whoString.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	802	eachChange changeMethod setPackage:aPackage.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	803	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	804	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	805	].
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	806	!
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	807
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	808	sourceCodeForExtensions:aCollectionOfMethods package:aPackageID forManager:scmManager
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	809	\|s methodsSortedByName defClass\|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	810
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	811	s := '' writeStream.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	812
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	813	s nextPutAll:'"{ Package: '''.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	814	s nextPutAll:aPackageID asString.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	815	s nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	816
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	817	"/ 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	818	"/ s nextPutAll:(Smalltalk timeStamp).
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	819	"/ s nextPutChunkSeparator.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	820	"/ s cr; cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	821
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	822	"/ sort them by name (to avoid conflicts due to SCM merge)
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	823	methodsSortedByName := aCollectionOfMethods asOrderedCollection.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	824	methodsSortedByName sort:[:a :b \|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	825	\|clsA clsB\|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	826
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	827	clsA := a mclass name.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	828	clsB := b mclass name.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	829	clsA < clsB ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	830	true
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	831	] ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	832	clsA > clsB ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	833	false
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	834	] ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	835	a selector < b selector
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	836	]
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	837	]
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	838	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	839	methodsSortedByName do:[:aMethod \|
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	840	aMethod mclass fileOutMethod:aMethod on:s.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	841	s cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	842	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	843
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	844	defClass := ProjectDefinition definitionClassForPackage:aPackageID.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	845	defClass notNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	846	"/ make sure, an extensionVersion_XXX method is included...
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	847	"/ (notice: no need to support a secondary backward compatible non-manager related version method here)
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	848	(methodsSortedByName contains:[:aMethod \| aMethod selector == scmManager nameOfVersionMethodForExtensions]) ifFalse:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	849	s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	850	s cr.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	851	s nextChunkPut:
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	852	(scmManager versionMethodTemplateForSmalltalkFor:(scmManager nameOfVersionMethodForExtensions)).
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	853	s space; nextPutChunkSeparator.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	854	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	855	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	856
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	857	^ s contents.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	858
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	859	"Created: / 25-07-2012 / 18:38:05 / cg"
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	860	!
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	861
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	862	sourceCodeManagerFor:aClass
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	863	\|mgr assumption\|
934 4f06b1db2ca1 better user interface when asking for a revision to compare. Claus Gittinger <cg@exept.de> parents: 933 diff changeset	864
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	865	manager notNil ifTrue:[^manager].
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	866
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	867	mgr := aClass theNonMetaclass sourceCodeManager.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	868	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	869	SourceCodeManager isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	870	(self warn:'SourceCodeManagement is disabled or not configured.\\Please setup in the Launcher.' withCRs) ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	871	^ nil
1012 92c4719178de faster search for halts etc. Claus Gittinger <cg@exept.de> parents: 1011 diff changeset	872	].
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	873	].
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	874	assumption := AbstractSourceCodeManager defaultManager ? CVSSourceCodeManager.
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	875	assumption notNil ifTrue:[
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	876	(self confirm:('Class does not seem to provide a valid sourceCodeManager.\\Assume %1 ?' bindWith:assumption managerTypeName) withCRs) ifFalse:[
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	877	^ nil
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	878	].
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	879	mgr := assumption.
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	880	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	881	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	882	^ mgr
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	883
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	884	"Modified: / 19-04-2011 / 11:48:41 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	885	"Modified: / 10-10-2011 / 11:47:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	886	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	887
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	888	sourceCodeOfClass:aClass
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	889	\|stream src\|
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	890
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	891	stream := '' writeStream.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	892	Method flushSourceStreamCache.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	893	aClass fileOutOn:stream withTimeStamp:false.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	894	src := stream contents asString.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	895	stream close.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	896	^ src
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	897	!
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	898
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	899	versionString:a isLessThan:b
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	900	"compare two strings of the form: a.b.c..."
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	901
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	902	\|i1 i2 a1 b1 rest1 rest2\|
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	903
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	904	i1 := a indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	905	i2 := b indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	906	i1 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	907	i1 := a size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	908	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	909	i2 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	910	i2 := b size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	911	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	912
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	913	a1 := Integer readFrom:(a copyTo:i1-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	914	b1 := Integer readFrom:(b copyTo:i2-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	915	a1 < b1 ifTrue:[^ true].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	916	a1 > b1 ifTrue:[^ false].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	917	rest1 := (a copyFrom:i1+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	918	rest2 := (b copyFrom:i2+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	919	rest1 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	920	^ rest2 notEmpty
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	921	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	922	rest2 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	923	^ false
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	924	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	925	^ self versionString:rest1 isLessThan:rest2
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	926
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	927	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	928	self assert:(self versionString:'12.34.66' isLessThan:'12.35.66').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	929	self assert:(self versionString:'12.34.66' isLessThan:'12.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	930	self assert:(self versionString:'11.34.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	931	self assert:(self versionString:'11.35.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	932	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	933	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	934	self assert:(self versionString:'13.35.66' isLessThan:'13.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	935	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	936	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	937	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	938	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	939	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	940	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	941
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	942	"Modified: / 17-02-2011 / 10:20:14 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	943	! !
1160 d56159f5a86f * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	944
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	945	!SourceCodeManagerUtilities methodsFor:'utilities-cvs'!
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	946
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	947	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	948	"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	949	If askForRevision is false, check-out the newest version.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	950	Return a changeSet or nil (if any error occurred)"
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	951
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	952	^ self
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	953	changeSetForExtensionMethodsForPackage:packageToCheckOut
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	954	revision:nil orAskForRevision:askForRevision
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	955	usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	956
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	957	"Created: / 29-12-2011 / 14:26:01 / cg"
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	958	!
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	959
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	960	changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	961	"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	962	If askForRevision is false, check-out the newest version.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	963	Return a changeSet or nil (if any error occurred)"
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	964
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	965	\|directory module file aStream sourceToLoad rev msg newestRev \|
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	966
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	967	directory := packageToCheckOut asPackageId directory.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	968	module := packageToCheckOut asPackageId module.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	969	file := self nameOfExtensionsContainer.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	970
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	971	"/
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	972	"/ ask for revision
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	973	"/
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	974	(rev := revisionOrNil) isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	975	newestRev := aSourceCodeManager newestRevisionInFile:file directory:directory module:module.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	976	askForRevision ifFalse:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	977	rev := newestRev ? ''
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	978	] ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	979	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	980	newestRev notNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	981	msg := msg , '\' , (resources string:'Newest in reporitory is %1.' with:newestRev)
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	982	].
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	983
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	984	rev := self
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	985	askForExistingRevision:msg
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	986	title:'CheckOut from repository'
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	987	class:nil
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	988	manager:aSourceCodeManager
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	989	module:module package:directory fileName:file.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	990
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	991	rev isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	992	^ nil "/ canceled
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	993	].
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	994	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	995	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	996	rev withoutSpaces isEmpty ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	997	rev := #newest.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	998	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	999	] ifFalse:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1000	msg := 'extracting previous %1'.
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	aStream := aSourceCodeManager
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1003	streamForClass:nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1004	fileName:file
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1005	revision:rev
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1006	directory:directory
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1007	module:module
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1008	cache:true.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1009
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1010	aStream isNil ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1011	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	1012	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1013	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1014	aStream class readErrorSignal handle:[:ex \|
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1015	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	1016	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1017	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1018	] do:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1019	sourceToLoad := aStream contents asString.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1020	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1021	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1022	^ ChangeSet fromStream:(sourceToLoad readStream).
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1023
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1024	"Created: / 29-12-2011 / 14:27:00 / cg"
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
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1027	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	1028	\|moduleName directoryName containerName\|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1029
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1030	moduleName := module allBold.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1031	directoryName := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1032	containerName := containerFileName allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1033
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1034	"/
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1035	"/ check for the container
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1036	"/
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	1037	(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1038	allowCreate ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1039	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	1040	with:containerName with:moduleName with:directoryName) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1041	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1042	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1043	(Dialog
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1044	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	1045	with:containerName with:moduleName with:directoryName) withCRs
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1046	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1047	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1048	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1049	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1050	(mgr createContainerForText:'' inModule:module package:directory container:containerFileName) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1051	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	1052	with:containerName with:moduleName with:directoryName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1053	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1054	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1055	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1056	^ true.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1057
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	1058	"Modified: / 13-09-2006 / 18:24:57 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1059	"Created: / 29-12-2011 / 14:35:36 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1060	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1061
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1062	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	1063	\|moduleNameBold directoryNameBold\|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1064
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1065	moduleNameBold := module allBold.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1066	directoryNameBold := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1067
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1068	"/
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1069	"/ check for the directory
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1070	"/
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1071	(mgr checkForExistingModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1072	allowCreate ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1073	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	1074	with:directoryNameBold with:moduleNameBold) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1075	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1076	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1077	(Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1078	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	1079	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1080	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1081	with:mgr managerTypeName)
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1082	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1083	ifFalse:[
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	].
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1086	(mgr createModule:module directory:directory) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1087	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	1088	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1089	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1090	with:mgr managerTypeName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1091	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1092	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1093	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1094	^ true.
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1095
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1096	"Modified: / 21-12-2011 / 18:46:11 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1097	"Created: / 29-12-2011 / 14:35:20 / cg"
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
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1100	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	1101	\|moduleName answer\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1102
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1103	(mgr checkForExistingModule:module) ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1104	moduleName := module allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1105
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1106	allowCreate ifFalse:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	1107	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	1108	with:moduleName) .
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1109	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1110	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1111	AbortAllOperationWantedQuery query ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1112	answer := Dialog
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1113	confirmWithCancel:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1114	labels:(resources array:#('Cancel All' 'Cancel' 'Yes' )).
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1115	answer isNil ifTrue:[ AbortAllOperationRequest raise ].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1116	] ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1117	answer := Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1118	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	1119	noLabel:'Cancel'
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1120	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1121	answer ifFalse:[ ^ false].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1122
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1123	(mgr createModule:module) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1124	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	1125	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1126	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1127	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1128	^ true.
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1129
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1130	"Modified: / 21-12-2011 / 18:42:03 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1131	"Created: / 29-12-2011 / 14:35:06 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1132	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1133
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1134	checkoutClass:aClass askForMerge:askForMerge
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1135	"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	1136
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1137	self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1138	checkoutClass:aClass
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1139	askForRevision:true
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1140	askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1141	!
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1142
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1143	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1144	"check-out a class from the source repository.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1145	If askForRevision is false, check-out the newest version."
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1146
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1147	self
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1148	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1149	askForConfirmation:true
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1150	!
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1151
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1152	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1153	"check-out a class from the source repository.
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1154	If askForRevision is false, check-out the newest version."
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1155
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1156	\|mgr sourceInfo
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1157	currentClass inChangeSet
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1158	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	1159	nm msg rev2 newestRev
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1160	containerModule containerPackage containerFile rslt
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1161	pkg listHere listRep diffSet
1054 4ecc5aeca084 * empty log message * Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	1162	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	1163	changedClasses default versionMethodsHere versionMethodsRep changedClassDefinitions
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1164	wasInChangeSetBefore\|
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1165
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1166	aClass isNil ifTrue:[self error:'nil class'].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1167
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1168	currentClass := aClass theNonMetaclass.
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1169
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1170	nm := currentClass name.
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1171	mgr := self sourceCodeManagerFor:currentClass.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1172	mgr isNil ifTrue:[
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1173	^ self
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1174	].
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1175
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1176	sourceInfo := mgr sourceInfoOfClass:currentClass.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1177	sourceInfo notNil ifTrue:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1178	currentClass package ~= PackageId noProjectID ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1179	containerPackage := mgr directoryFromSourceInfo:sourceInfo.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1180	containerModule := mgr moduleFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1181	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1182	containerFile := mgr containerFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1183	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1184
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1185	currentClass isLoaded ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1186	rev := currentClass binaryRevision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1187	rev2 := currentClass revision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1188	rev isNil ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1189	rev := rev2
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1190	].
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1191	rev isNil ifTrue:[
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1192	pkg := currentClass package.
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1193	(pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1194	containerModule := pkg upTo:$:.
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1195	containerPackage := pkg copyFrom:(containerModule size + 2).
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1196	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1197	containerModule size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1198	containerModule := (self class lastModule ) ? Project current repositoryModule.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1199	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1200	containerPackage size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1201	containerPackage := (self class lastPackage ) ? Project current package.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1202	].
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1203	answer := self confirmWithCancel:(resources
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1204	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	1205	with:containerModule allBold
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1206	with:containerPackage allBold
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1207	with:currentClass name allBold) withCRs.
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1208	answer isNil ifTrue:[^ self "cancelled"].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1209	answer ifFalse:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1210	rslt := self
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1211	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	1212	title:'Container to load from' note:nil
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1213	initialModule:containerModule
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1214	initialPackage:containerPackage
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1215	initialFileName:(currentClass nameWithoutPrefix , '.st')
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1216	forNewContainer:false.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1217
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1218	rslt isNil ifTrue:[
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1219	"/ canel
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1220	^ self
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1221	].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1222	containerModule := "lastModule :=" rslt at:#module.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1223	containerPackage := "lastPackage :=" rslt at:#package.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1224	containerFile := rslt at:#fileName.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1225	].
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1226
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1227	"/ rslt := self
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1228	"/ 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	1229	"/ title:'Container to checkOut' note:nil
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1230	"/ initialModule:containerModule
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1231	"/ initialPackage:containerPackage
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1232	"/ initialFileName:(currentClass name , '.st').
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1233	"/ forNewContainer:false.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1234	"/ rslt isNil ifTrue:[^ self].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1235	"/ 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	1236	"/ ^ self
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1237	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1238	].
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1239
1966 d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1240	containerFile isNil ifTrue:[
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1241	containerFile := currentClass classFilename.
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1242	].
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1243
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1244	"/
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1245	"/ 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	1246	"/
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1247	"/ newestRev := mgr newestRevisionOf:currentClass.
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1248	containerModule isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1249	containerModule := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1250	stringWithCRs:'Missing Module Information for CheckOut of "%1".\\Module:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1251	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1252	containerModule isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1253	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1254	containerPackage isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1255	containerPackage := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1256	stringWithCRs:'Missing Package Information for CheckOut of "%1".\\Package:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1257	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1258	containerPackage isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1259	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1260
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1261	newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1262	askForRevision ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1263	rev := newestRev ? ''
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1264	] ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1265	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	1266	rev notNil ifTrue:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1267	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	1268	with:nm allBold with:rev).
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1269	(rev2 notNil and:[rev2 ~= rev]) ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1270	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	1271	]
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1272	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1273	newestRev notNil ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1274	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	1275	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1276
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1277	rev := self
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1278	askForExistingRevision:msg
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1279	title:'CheckOut from repository'
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1280	class:currentClass.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1281	rev isNil ifTrue:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1282	^ self "/ canceled
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1283	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1284	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1285
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1286	rev withoutSpaces isEmpty ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1287	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1288	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1289	aStream := mgr getSourceStreamFor:currentClass revision:newestRev.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1290	revString := '(newest: ' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1291	] ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1292	msg := 'extracting previous %1'.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1293	"/ aStream := mgr getSourceStreamFor:currentClass revision:rev.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1294	"/ revString := rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1295	aStream := mgr
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1296	streamForClass:currentClass
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1297	fileName:containerFile
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1298	revision:rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1299	directory:containerPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1300	module:containerModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1301	cache:true.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1302	].
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1303
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1304	aStream isNil ifTrue:[
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1305	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	1306	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1307	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1308	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	1309	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	1310	aStream close.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1311	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1312	] do:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1313	sourceToLoad := aStream contents asString.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1314	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1315	aStream close.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1316
1919 8d30ac5be40f * empty log message * boris parents: 1913 diff changeset	1317	wasInChangeSetBefore := ChangeSet current includesChangeForClassOrMetaclass:currentClass.
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1318
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1319	currentClass isLoaded ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1320	rev = newestRev ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1321	currentClass autoload.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1322	] ifFalse:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1323	sourceToLoad readStream fileIn.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1324	].
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1325	wasInChangeSetBefore ifFalse:[
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1326	ChangeSet current condenseChangesForClass:currentClass.
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1327	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1328	^ self.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1329	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1330
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1331	inChangeSet := aClass hasUnsavedChanges.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1332
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1333	Error handle:[:ex \|
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1334	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1335	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1336	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	1337	with:ex description
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1338	with:currentClass name allBold)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1339	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1340	ifFalse:[
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1341	AbortOperationRequest raise
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1342	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1343	sourceToLoad readStream fileIn.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1344	^ self.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1345	] do:[
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1346	self activityNotification:'generating current source...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1347
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1348	currentSource := self sourceCodeOfClass:currentClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1349
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1350	self activityNotification:'comparing...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1351
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1352	sourceToLoad = currentSource ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1353	"/ make all methods belong to the classes project
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1354	self setPackageOfAllMethodsIn:aClass to:aClass package.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1355	inChangeSet ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1356	rev = newestRev ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1357	(askForConfirmation not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1358	or:[ wasInChangeSetBefore not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1359	or:[ self confirm:(resources
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1360	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	1361	with:aClass name)]])
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1362	ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1363	ChangeSet current condenseChangesForClass:aClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1364	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1365	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1366	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1367	self activityNotification:'... nothing changed in repository'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1368	^ self.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1369	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1370
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1371	self activityNotification:'generating diffSet...'.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1372	listHere := ChangeSet fromStream:(currentSource readStream).
32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1373	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1374
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1375	listRep := ChangeSet fromStream:(sourceToLoad readStream).
1051 9f76e78c91d4 * empty log message * frank parents: 1050 diff changeset	1376
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1377	Error handle:[:ex \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1378	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1379	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1380	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	1381	with:ex description
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1382	)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1383	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1384	ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1385	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1386	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1387	sourceToLoad readStream fileIn.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1388	^ self.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1389	] do:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1390	versionMethodsHere := listHere select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	1391	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1392	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1393
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1394	versionMethodsRep := listRep select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	1395	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1396	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1397
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1398	"/ compare all but the version methods
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1399	listHere := listHere select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	1400	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1401	and:[change changeClass isMeta]]) not].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1402	listRep := listRep select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	1403	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1404	and:[change changeClass isMeta]]) not].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1405
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1406	diffSet := listHere diffSetsAgainst:listRep.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1407	changed := diffSet changed.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1408	onlyHere := diffSet onlyInReceiver.
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1409
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1410	"/ reject extensions
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1411	onlyHere := onlyHere reject:[:eachDiff\|
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	1412	\|method methodsPackage\|
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1413
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1414	eachDiff isClassDefinitionChange
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1415	and:[ eachDiff changeClass notNil
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1416	and:[ (method := (eachDiff changeClass compiledMethodAt:eachDiff selector)) notNil
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1417	and:[ (methodsPackage := method package) ~= containerPackage
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1418	and:[ methodsPackage ~= PackageId noProjectID ]]]]
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1419	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1420
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1421	onlyInRep := diffSet onlyInArg.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1422
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1423	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	1424	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	1425	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	1426
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1427	labels := #('Cancel' 'Merge' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1428	values := #(nil #merge #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1429	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1430	ifTrue:[3. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1431	ifFalse:[2. "i.e. merge"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1432
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1433	msg := 'About to load ''%4''.\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1434	onlyInRep size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1435	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	1436	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1437	onlyHere size > 0 ifTrue:[
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1438	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	1439	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	1440	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1441	changed size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1442	changed size == 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1443	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	1444	singleChangeSelector := changed first first selector allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1445	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1446	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	1447	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1448	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1449	changedClassDefinitions size > 0 ifTrue:[
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1450	msg := msg , (changedClassDefinitions size == 1
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1451	ifTrue:['The class definition is different.\\']
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1452	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	1453	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1454
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1455	onlyHere isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1456	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1457	(changed isEmpty and:[changedClassDefinitions isEmpty]) ifTrue:[
2642 0675ababcc6d changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2637 diff changeset	1458	"/ self halt.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1459	versionMethodsRep notEmpty ifTrue:[
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1460	(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	1461	versionMethodsRep do:[:each \| each apply].
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1462	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1463	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1464	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1465	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1466	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	1467	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	1468	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1469	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1470	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1471	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	1472	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1473	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1474	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1475	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1476	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1477	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1478	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1479	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1480	changed isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1481	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	1482	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1483	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1484	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1485	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1486	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1487	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1488	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1489	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1490	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	1491	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1492	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	1493	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1494	]
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1495	] ifFalse:[
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1496	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1497	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1498	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	1499	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	1500	].
1121 7531e9dd8ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	1501	labels := #('Cancel' 'Load').
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1502	values := #(nil #load).
1007 44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1503	default := askForRevision
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1504	ifTrue:[2. "i.e. load"]
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	1505	ifFalse:[1. "i.e. cancel"].
1907 30ca5aea5a7a dialogs defaults fm parents: 1886 diff changeset	1506	default := 2.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1507	] ifFalse:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1508	inChangeSet ifTrue:[
9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1509	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	1510	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	1511	]
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1512	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1513	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1514
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1515	msg := msg bindWith:onlyInRep size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1516	with:onlyHere size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1517	with:changed size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1518	with:aClass name allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1519	with:changedClassDefinitions size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1520	with:singleChangeSelector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1521
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1522	askForConfirmation ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1523	answer := #load
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1524	] ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1525	answer := (Dialog confirmWithCancel:msg withCRs
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1526	labels:(resources array:labels)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1527	values:values
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1528	default:default).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1529	answer isNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1530	self activityNotification:'...cancelled'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1531	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1532	].
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1533	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1534	self activityNotification:'updating...'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1535	changedClasses := IdentitySet new.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1536
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1537	"/ Class withoutUpdatingChangesDo:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1538	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1539	"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	1540	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	1541	onlyHere do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1542	"remove this change (method not present in repository version)"
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1543	\|cClass cSel\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1544	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1545	cClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1546	cSel := eachChange selector.
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	1547	cClass notNil ifTrue:[ cClass basicRemoveSelector:cSel ].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1548	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1549	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1550
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1551	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1552	\|cHere eachChangedClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1553	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1554	eachChangedClass := cHere changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1555	eachChangedClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1556	changedClasses add:eachChangedClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1557	eachChangedClass := eachChangedClass theNonMetaclass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1558
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1559	"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	1560	changed do:[:eachChangeArr\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1561	\|eachChange eachClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1562
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1563	eachChange := eachChangeArr first.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1564	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1565	eachClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1566	eachClass theNonMetaclass == eachChangedClass ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1567	eachClass basicRemoveSelector:eachChange selector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1568	].
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1569	].
57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1570	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1571	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1572	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1573
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1574	"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	1575	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1576	\|cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1577	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1578	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1579	].
1057 6903d4d5097d do not update the changesFile, when checkingOut Claus Gittinger <cg@exept.de> parents: 1056 diff changeset	1580	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1581
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1582	onlyInRep do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1583	\|changeClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1584
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1585	"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	1586	eachChange apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1587	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1588	changeClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1589	changeClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1590	eachChange changeMethod setPackage:(changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1591	changedClasses add:changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1592	]
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1593	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1594	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1595	.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1596	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1597	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	1598	\|cHere cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1599	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1600	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1601	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1602	cRep isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1603	cRep changeMethod setPackage:(cRep changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1604	changedClasses add:cRep changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1605	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1606	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1607
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1608	versionMethodsRep size >= 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1609	versionMethodsRep last apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1610	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1611	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	1612	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1613	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1614	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	1615	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1616	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1617	"/ ].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1618
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1619	answer == #load ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1620	inChangeSet := aClass hasUnsavedChanges.
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1621	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1622	rev = newestRev ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1623	(wasInChangeSetBefore not
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1624	or:[ self confirm:(resources
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1625	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	1626	with:aClass name)])
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1627	ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1628	ChangeSet current condenseChangesForClass:aClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1629	].
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1630	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1631	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1632	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1633
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1634	changedClasses do:[:eachClass \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1635	eachClass changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1636	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1637	Smalltalk changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1638	self activityNotification:'... done'.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1639	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1640
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1641	"Modified: / 07-02-2001 / 18:18:32 / ps"
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	1642	"Modified: / 06-03-2012 / 16:40:33 / cg"
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1643	!
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1644
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1645	checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1646	"check-out a class from the source repository.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1647	If askForRevision is false, check-out the newest version."
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1648
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1649	\|inChangeSet extensionMethods
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1650	rev msg
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1651	listHere listRep diffSet
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1652	changed onlyHere onlyInRep answer labels values singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1653	changedClasses default \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1654
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1655	listRep := self changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager.
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	1656	listRep isNil ifTrue:[ ^self ].
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1657
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1658	self activityNotification:'generating diffSet...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1659
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1660	extensionMethods := OrderedCollection new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1661	Smalltalk allClassesDo:[:aClass \| \|owner classPackage\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1662	"/ individual methods ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1663	aClass isMeta ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1664	(aClass package ~= packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1665	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1666	"/ methods in this project ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1667	(mthd package = packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1668	"/ ... whose class is not in the ckechIn-set
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1669	extensionMethods add:mthd
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1670	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1671	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1672	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1673	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1674	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1675	listHere := ChangeSet forExistingMethods:extensionMethods.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1676
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1677	inChangeSet := listRep contains:[:someChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1678	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1679
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1680	someChange isMethodChange ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1681	cClass := someChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1682	cSel := someChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1683	ChangeSet current includesChangeForClass:cClass selector:cSel
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1684	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1685	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1686
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1687	diffSet := listHere diffSetsAgainst:listRep.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1688	changed := diffSet changed.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1689	onlyHere := diffSet onlyInReceiver.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1690	onlyInRep := diffSet onlyInArg.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1691
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1692	labels := #('Cancel' 'Merge' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1693	values := #(nil #merge #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1694	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1695	ifTrue:[3. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1696	ifFalse:[2. "i.e. merge"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1697
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1698	msg := 'About to load extensions for ''%5''.\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1699	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1700	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	1701	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1702	onlyHere size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1703	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1704	msg := msg , 'And there '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1705	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1706	msg := msg , 'There '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1707	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1708	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	1709	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1710	changed size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1711	changed size == 1 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1712	msg := msg , 'The ''%5''-method is different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1713	singleChangeSelector := changed first first selector allBold
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1714	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1715	msg := msg , '%3 methods are different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1716	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1717	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1718
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1719	onlyHere isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1720	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1721	(changed isEmpty) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1722	listRep do:[:eachChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1723	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1724	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1725	^ self
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1726	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1727	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1728	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	1729	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1730	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1731	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1732	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1733	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1734	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1735	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1736	changed isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1737	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	1738	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1739	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1740	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1741	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1742	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1743	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1744	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1745	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	1746	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1747	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	1748	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1749	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1750	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1751	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1752	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1753	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	1754	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	1755	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1756	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1757	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1758	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1759	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1760	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1761	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1762	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1763	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	1764	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	1765	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1766	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1767	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1768
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1769	msg := msg bindWith:onlyInRep size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1770	with:onlyHere size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1771	with:changed size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1772	with:singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1773	with:packageToCheckOut allBold.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1774
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1775	answer := (Dialog confirmWithCancel:msg withCRs
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1776	labels:(resources array:labels)
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1777	values:values
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1778	default:default).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1779	answer isNil ifTrue:[^ self].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1780
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1781	self activityNotification:'updating...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1782	changedClasses := IdentitySet new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1783
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1784	"/ Class withoutUpdatingChangesDo:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1785	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	1786	Class withoutUpdatingChangeSetDo:[ eachChange apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1787
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1788	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1789	changedClasses add:eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1790	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1791	answer == #load ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1792	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	1793	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1794
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1795	cClass := eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1796	cSel := eachChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1797	Class withoutUpdatingChangeSetDo:[ cClass removeSelector:cSel ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1798	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1799	changed do:[:eachChangeArr \| "apply this change (go to rep-version)"
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1800	\|cHere cRep\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1801	cHere := eachChangeArr at:1.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1802	cRep := eachChangeArr at:2.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1803	Class withoutUpdatingChangeSetDo:[ cRep apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1804
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1805	cRep changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1806	changedClasses add:cRep changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1807	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1808	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1809	"/ ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1810	changedClasses do:[:eachClass \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1811	eachClass changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1812	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1813	Smalltalk changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1814
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1815	"Modified: / 07-02-2001 / 18:18:32 / ps"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1816	"Created: / 29-12-2011 / 14:34:12 / cg"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1817	!
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1818
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1819	compareClassWithRepository:aClass
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1820	"open a diff-textView comparing the current (in-image) version
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1821	against its orgiginal version found in the repository."
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1822
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1823	self compareClassWithRepository:aClass askForRevision:true
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1824
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1825	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1826	self compareClassWithRepository:Array
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1827	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1828	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1829
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1830	compareClassWithRepository:aClass askForRevision:askForRevision
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1831	"open a diff-textView comparing the current (in-image) version
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1832	against its orgiginal version found in the repository."
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1833
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	1834	\|classToCompare brwsr
1194 d60b2ed25f45 Remove unused method vars. Stefan Vogel <sv@exept.de> parents: 1193 diff changeset	1835	aStream comparedSource currentSource rev revString thisRevString mgr
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1836	nm msg revisionInClass newestRev versionsAreTheSame\|
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1837
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1838	classToCompare := aClass theNonMetaclass.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1839
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1840	nm := classToCompare name.
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1841	(mgr := manager) isNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1842	mgr := self sourceCodeManagerFor:classToCompare.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1843	mgr isNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1844	self error:'oops - no sourcecode manager' mayProceed:true.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1845	^ self
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1846	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1847	].
2397 e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	1848
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	1849	rev := classToCompare revisionInfoOfManager:mgr.
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	1850	"/ rev := classToCompare binaryRevision.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1851	revisionInClass := classToCompare revision.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1852	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1853	rev := revisionInClass
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1854	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1855	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1856	(Dialog confirm:'Class seems to be not yet in the repository (or classes revision info is corrupted)\\Proceed ?' withCRs)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1857	ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1858	^ self
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1859	]
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1860	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1861
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1862	"/
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1863	"/ class in repository - ask for revision
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1864	"/
2793 3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1865	SourceCodeManagerError handle:[:ex \|
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1866	Dialog warn:(resources
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1867	stringWithCRs:'Could not fetch source of "%1".\\Please check your %1-sourcecode manager''s settings.'
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1868	with:classToCompare name
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1869	with:classToCompare sourceCodeManager managerTypeName).
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1870	^ self.
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1871
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1872	] do:[
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1873	newestRev := mgr newestRevisionOf:classToCompare.
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	1874	].
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1875	askForRevision ifTrue:[
1466 82e4152d5e9e * empty log message * Claus Gittinger <cg@exept.de> parents: 1462 diff changeset	1876	msg := resources string:'Compare to revision: (empty for newest)'.
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1877	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1878	msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1879	with:nm allBold with:rev).
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1880	(revisionInClass notNil and:[revisionInClass ~= rev]) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1881	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	1882	with:revisionInClass)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1883	]
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1884	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1885	newestRev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1886	msg := msg , '\' , (resources string:'Newest in reporitory is %1.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1887	with:newestRev)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1888	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1889
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1890	rev := self
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1891	askForExistingRevision:msg
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1892	title:'Compare with repository'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1893	class:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1894	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1895	rev := newestRev.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1896	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1897
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1898	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1899	rev withoutSpaces isEmpty ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1900	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1901	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1902	aStream := mgr getSourceStreamFor:classToCompare revision:newestRev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1903	revString := '(newest: ' , (newestRev ? '???') , ')'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1904	] ifFalse:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1905	msg := 'extracting previous %1'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1906	aStream := mgr getSourceStreamFor:classToCompare revision:rev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1907	revString := rev
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1908	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1909
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1910	aStream isNil ifTrue:[
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	1911	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	1912	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1913	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1914	aStream class readErrorSignal handle:[:ex \|
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	1915	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	1916	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1917	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1918	] do:[
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1919	comparedSource := aStream contents asString.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1920	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1921	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1922
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1923	self activityNotification:'generating current source...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1924
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1925	currentSource := self sourceCodeOfClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1926
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1927	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1928
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1929	versionsAreTheSame := false.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1930	comparedSource = currentSource ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1931	versionsAreTheSame := true.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1932	] ifFalse:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1933	thisRevString := revisionInClass ? 'no revision'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1934
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1935	revString = '(newest)' ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1936	(rev := mgr newestRevisionOf:classToCompare) notNil ifTrue:[
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1937	revString := '(newest is ' , rev , ')'
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1938	]
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1939	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1940
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1941	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1942
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1943	brwsr := (UserPreferences versionDiffViewerClass)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1944	openOnClass:classToCompare
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	1945	labelA:('Repository: ' , revString)
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1946	sourceA:comparedSource
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	1947	labelB:('Current: (based on: ' , thisRevString , ')')
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1948	sourceB:currentSource
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	1949	title:('Comparing ' , classToCompare name)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1950	ifSame:[versionsAreTheSame := true].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1951
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1952	versionsAreTheSame ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1953	brwsr classChangeSet
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1954	classBeingCompared:classToCompare;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1955	versionA:rev;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1956	versionB:rev , 'mod'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1957	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1958	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1959
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1960	versionsAreTheSame ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1961	(classToCompare hasUnsavedChanges) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1962	(self confirm:(resources
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1963	stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
1864 0a1a62489122 * empty log message * Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	1964	with:classToCompare name allBold)) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1965	ChangeSet current condenseChangesForClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1966	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1967	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1968	self information:'Versions are identical.'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	1969	ChangeSet current unrememberChangedClasses.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1970	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1971	revisionInClass isNil ifTrue:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1972	(Dialog confirm:'Update (Fix) the classes Revision Info ?' withCRs)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1973	ifTrue:[
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1974	\|newString root\|
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1975
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1976	newString := mgr updatedRevisionStringOf:aClass forRevision:rev with:aClass revisionString.
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1977	newString isNil ifTrue:[
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1978	root := mgr getCVSROOTForModule:(aClass package upTo:$:).
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1979	root := mgr repositoryTopDirectoryFromCVSRoot:root.
1500 70a48e2f5921 * empty log message * Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	1980	newString := '$', 'Header: ',(root copyReplaceAll: $: with:$/ ),'/'
1911 d4088b5ba0ac * empty log message * Claus Gittinger <cg@exept.de> parents: 1907 diff changeset	1981	,(Smalltalk fileNameForClass:aClass),'.st,v ',rev,' '
2006 11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1982	,(Date today printStringFormat:'%y-%m-%d'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1983	,(Time now printStringFormat:'%h:%m:%s'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	1984	,'+0000 '
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1985	,(OperatingSystem getLoginName),' Exp $'.
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1986	].
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	1987	mgr updateVersionMethodOf:aClass for:newString.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1988	]
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1989	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1990	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1991	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1992
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1993	"
997 c55b39b6c7a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 996 diff changeset	1994	self compareClassWithRepository:Array
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1995	"
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	1996
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	1997	"Modified: / 24-07-2012 / 18:11:27 / cg"
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1998	!
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1999
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2000	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2001	\|diffSet\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2002
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2003	diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest.
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2004	VersionDiffBrowser
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2005	openOnDiffSet:diffSet
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2006	labelA:'Repository'
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2007	labelB:'Image'
2522 d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2008	title:('Differences of %1' bindWith:aProject)
2949 83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2009	ignoreExtensions:true
83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2010	ignoreVersionMethods:true.
2522 d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2011
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2012	"Modified: / 12-09-2011 / 11:56:01 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2013	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2014
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2015	compareProject:aProject withRepositoryVersionTaggedAs:aSymbolicName
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2016	\|diffSet\|
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2017
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2018	diffSet := self diffSetOfProject:aProject againstRepositoryVersionTaggedAs:aSymbolicName.
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2019
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2020	VersionDiffBrowser
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2021	openOnDiffSet:diffSet
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2022	labelA:'Repository ("',aSymbolicName,'")'
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2023	labelB:'Image'
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2024	title:('Differences of %1' bindWith:aProject)
2949 83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2025	ignoreExtensions:true
83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2026	ignoreVersionMethods:true.
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2027
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2028	"Modified: / 12-09-2011 / 11:56:01 / cg"
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2029	!
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2030
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2031	compareProjectWithRepository:aProject
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2032	^ self compareProject:aProject withRepositoryVersionFrom:nil
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2033	!
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2034
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2035	createSourceContainerForClass:aClass
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2036	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2037	Return false, if failed."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2038
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2039	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2040	createSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2041	usingManager:(self sourceCodeManagerFor:aClass).
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2042
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2043	"Modified: / 21-12-2011 / 18:31:49 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2044	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2045
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2046	createSourceContainerForClass:aClass usingManager:aManager
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2047	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2048	Return false, if failed."
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2049
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2050	aManager isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2051
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2052	^ self
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2053	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2054	usingManager:aManager
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2055	title:(resources string:'Repository information for %1' with:aClass name)
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2056	text:(resources string:'Create new %1-repository container for ''%2'''
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2057	with:aManager managerTypeName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2058	with:aClass name allBold)
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2059	createDirectories:true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2060	createContainer:true.
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2061
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2062	"Created: / 21-12-2011 / 18:31:23 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2063	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2064
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2065	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	2066	"let user specify the source-repository values for aClass"
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2067
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2068	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2069	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2070	usingManager:(self sourceCodeManagerFor:aClass)
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2071	title:title
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2072	text:boxText
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2073	createDirectories:createDirs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2074	createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2075
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2076	"Modified: / 21-12-2011 / 18:34:44 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2077	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2078
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2079	defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2080	"let user specify the source-repository values for aClass"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2081
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2082	\|className
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2083	"oldModule oldPackage" oldFileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2084	module directory fileName nameSpace nameSpacePrefix
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2085	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	2086	answer doCheckinWithoutAsking forceCheckIn rslt note
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2087	requiredPackage\|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2088
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2089	mgr isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2090
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2091	aClass isLoaded ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2092	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	2093	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2094	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2095
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2096	className := aClass name.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2097
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2098	aClass isProjectDefinition ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2099	"/ no way - their package is already known and fix.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2100	module := aClass module.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2101	directory := aClass moduleDirectory.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2102	] ifFalse:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2103	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2104	"/ defaults, if nothing at all is known
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2105	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2106	(module := LastModule) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2107	module := (OperatingSystem getLoginName).
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2108	].
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2109	(directory := LastPackage) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2110	directory := 'private'.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2111	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2112	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2113
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2114	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2115	"/ 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	2116	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2117	(Project notNil and:[(project := Project current) notNil]) ifTrue:[
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2118	directory isNil ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2119	(nm := project repositoryDirectory) isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2120	nm := project name
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2121	].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2122	directory := nm.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2123	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2124	module isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2125	(nm := project repositoryModule) notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2126	module := nm
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2127	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2128	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2129	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2130
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2131	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2132	"/ 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	2133	"/ if so, take that as a default.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2134	"/
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	2135	info := mgr sourceInfoOfClass:aClass.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2136	info notNil ifTrue:[
1368 20cde03a3cd6 defineSource - fixed package & module extraction martin parents: 1347 diff changeset	2137	true "module ~= LastModule" ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2138	(info includesKey:#module) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2139	module := (info at:#module).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2140	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2141	].
1401 102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2142	"/ true "package ~= LastPackage" ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2143	"/ (info includesKey:#directory) ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2144	"/ package := (info at:#directory).
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2145	"/ ].
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2146	"/ ].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2147	fileName := mgr containerFromSourceInfo:info.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2148	(nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2149	nameSpacePrefix := nameSpace name , '::'.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2150	(fileName startsWith:nameSpacePrefix) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2151	fileName := fileName copyFrom:(nameSpacePrefix size + 1).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2152	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2153	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2154	"/ (info includesKey:#fileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2155	"/ fileName := (info at:#fileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2156	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2157	"/ (info includesKey:#expectedFileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2158	"/ fileName := (info at:#expectedFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2159	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2160	"/ (info includesKey:#classFileNameBase) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2161	"/ fileName := (info at:#classFileNameBase) , '.st'.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2162	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2163	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2164	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2165	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2166
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2167	fileName isNil ifTrue:[
1338 bad5961fbff1 fileNameForClass: Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	2168	fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2169	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2170
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2171	OperatingSystem isMSDOSlike ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2172	module replaceAll:$\ with:$/.
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2173	directory replaceAll:$\ with:$/.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2174	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2175
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2176	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2177	"/ 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	2178	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2179	doCheckinWithoutAsking := false.
1831 cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2180	"/false ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2181	"/ (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	2182	"/ answer := Dialog confirmWithCancel:(resources
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2183	"/ string:'About to change the source container.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2184	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2185	"/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	2186	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2187	"/ %2 / %3 / %4
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2188	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2189	"/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	2190	"/ with:className
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2191	"/ with:module
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2192	"/ with:directory
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2193	"/ with:fileName)
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2194	"/ labels:(resources array:#('Cancel' 'Check in' 'Change')).
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2195	"/ answer isNil ifTrue:[AbortSignal raise].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2196	"/ answer ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2197	"/ doCheckinWithoutAsking := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2198	"/ oldModule := module.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2199	"/ oldPackage := directory.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2200	"/ oldFileName := fileName
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2201	"/ ] ifFalse:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2202	"/ doCheckinWithoutAsking := true.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2203	"/ creatingNew := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2204	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2205	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2206	"/].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2207	mgr isContainerBased ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2208	doCheckinWithoutAsking ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2209	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2210	"/ open a dialog for this
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2211	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2212	(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	2213	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	2214	creatingNew := true.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2215	] ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2216	creatingNew := false.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2217	].
2847 406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2218	confirmNewFiles ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2219	rslt := self
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2220	askForContainer:boxText title:title note:note
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2221	initialModule:module initialPackage:directory initialFileName:fileName
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2222	forNewContainer:true.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2223
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2224	rslt isNil ifTrue:[
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2225	^ false
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2226	].
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2227
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2228	module := rslt at:#module.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2229	directory := rslt at:#package.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2230	fileName := rslt at:#fileName.
406b336637ae class definition Claus Gittinger <cg@exept.de> parents: 2836 diff changeset	2231	]
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2232	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2233	(fileName endsWith:',v') ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2234	fileName := fileName copyWithoutLast:2
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2235	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2236	(fileName endsWith:'.st') ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2237	fileName := fileName , '.st'
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2238	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2239
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2240	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2241
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2242	"/ 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	2243	"/ check for this ...
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2244
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2245	requiredPackage := ((module ? '') , ':' , (directory ? '')) asSymbol.
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2246	requiredPackage ~= aClass package ifTrue:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2247	"/ doCheckinWithoutAsking ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2248	"/ (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	2249	"/ ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2250	"/ ^ false
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2251	"/ ]
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2252	"/ ].
1077 6b1bcfd27521 renamed: #allSelectorsAndMethodsDo: into: #instAndClassSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 1076 diff changeset	2253	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	2254	aClass package:requiredPackage.
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2255	].
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2256
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2257	info := aClass revisionInfo.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2258	info notNil ifTrue:[
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2259	(info repositoryPathName isNil) ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2260	info := nil
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2261	].
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2262	"/ (info includesKey:#repositoryPathName) ifFalse:[
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2263	"/ info := nil
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2264	"/ ]
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2265	].
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	2266
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2267	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	2268	true "doCheckinWithoutAsking" ifFalse:[
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2269	answer := Dialog
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2270	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	2271	labels:(resources array:#( 'Cancel' 'No' 'Yes')).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2272	answer isNil ifTrue:[^ false].
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2273	] ifTrue:[
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2274	answer := true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2275	].
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2276	answer ifTrue:[
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2277	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2278	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2279	for:(mgr initialRevisionStringFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2280	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2281	directory:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2282	container:fileName).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2283	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2284	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2285
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2286	(self checkForExistingModule:module usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2287	ifFalse:[^ false].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2288	LastModule := module.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2289
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2290	(self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2291	ifFalse:[^ false].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2292	LastPackage := directory.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2293
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2294	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2295	"/ check for the container itself
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2296	"/
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2297	(mgr isContainerBased not
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2298	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	2299	"/ (oldModule notNil
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2300	"/ and:[(oldModule ~= module)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2301	"/ or:[oldPackage ~= package
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2302	"/ or:[oldFileName ~= fileName]]])
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2303	"/ ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2304	"/ self warn:(resources string:'no change').
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2305	"/ ^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2306	"/ ].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2307
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2308	mgr isContainerBased ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2309	creatingNew ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2310	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	2311	].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2312
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2313	doCheckinWithoutAsking ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2314	(Dialog
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2315	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	2316
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2317	%2 / %3 / %4 ?'
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2318	with:className
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2319	with:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2320	with:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2321	with:fileName) withCRs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2322	noLabel:'Cancel')
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2323	ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2324	^ false.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2325	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2326	].
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2327	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2328
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2329	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2330	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2331	for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2332
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2333	oldFileName notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2334	msg := ('forced checkin / source container change from ' , oldFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2335	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2336	msg := 'defined source container'
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2337	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2338
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2339	(forceCheckIn := doCheckinWithoutAsking) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2340	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2341	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2342	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2343	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2344	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2345	logMessage:msg)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2346	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2347	doCheckinWithoutAsking ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2348	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2349	confirm:'No easy merge seems possible; force checkin (no merge) ?'
4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2350	noLabel:'Cancel')
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2351	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2352	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2353	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2354	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2355	forceCheckIn := true.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2356	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2357	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2358	forceCheckIn ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2359	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2360	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2361	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2362	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2363	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2364	logMessage:msg
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2365	force:true)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2366	ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2367	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	2368	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2369	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2370	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2371	^ true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2372	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2373	(createContainer or:[creatingNew]) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2374	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2375	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	2376	with:fileName with:module with:directory) withCRs
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2377	noLabel:'Cancel') ifFalse:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2378	^ false
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2379	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2380	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2381	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2382
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	2383	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	2384	aClass package:requiredPackage.
1913 d87c1ed5bf1f oops - halt Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	2385
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2386	(mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2387	createContainerFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2388	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2389	package:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2390	container:fileName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2391	) ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2392	self warn:(resources string:'Failed to create container.').
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2393	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2394	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2395	^ true
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2396
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2397	"Created: / 21-12-2011 / 18:34:02 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2398	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2399
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2400	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2401	^ self
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2402	diffSetOfProject:aProject
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2403	againstRepositoryVersionFrom:aDateOrNilForNewest
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2404	orTag:nil
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2405	!
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2406
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2407	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest orTag:aTagOrNil
2950 cd6dc0f1d994 comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag: Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	2408	"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	2409	or a the version with a particular tag."
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2410
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2411	\|classesInImage filesInImage module directory perProjectInfo
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2412	classesNotInRepository filesNotInImage classesDeletedInRepository
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2413	classesModifiedInImage classesNotReallyModified classesReallyModified classesNewerInRepository
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2414	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	2415	box doCleanup diffSet def autoloadedFilesNotInImage
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2416	autoloadedClassesInImage autoloadedFilesInImage versionMethodsAndDoitsRejected\|
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2417
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2418	module := aProject asPackageId module.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2419	directory := aProject asPackageId directory.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2420
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2421	(aDateOrNilForNewest isNil and:[ aTagOrNil notNil ]) ifTrue:[
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2422	perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory taggedAs:aTagOrNil.
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2423	] ifFalse:[
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2424	perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilForNewest.
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2425	].
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2426	perProjectInfo := perProjectInfo ? #().
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2427	perProjectInfo := perProjectInfo select:[:info \| info key asFilename hasSuffix:'st'].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2428	perProjectInfo := Dictionary withAssociations:perProjectInfo.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2429
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2430	"/ to ignore version_xxx methods
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2431	versionMethodsAndDoitsRejected :=
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2432	[:aChangeSet \|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2433	aChangeSet reject:[:chg \|
2949 83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2434	false "chg isMethodChangeForVersionMethod"
83170e2244f3 changed: Claus Gittinger <cg@exept.de> parents: 2948 diff changeset	2435	or:[false "chg isMethodChangeForExtensionsVersionMethod"
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2436	or:[chg isDoIt]]]
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2437	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2438
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2439	classesInImage := Smalltalk allClassesInPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2440	autoloadedClassesInImage := classesInImage reject:[:cls \| cls isLoaded].
2903 482f5086773d changed: #diffSetOfProject:againstRepositoryVersionFrom: Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	2441	classesInImage := classesInImage select:[:cls \| cls isLoaded and:[cls isPrivate not]].
482f5086773d changed: #diffSetOfProject:againstRepositoryVersionFrom: Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	2442	filesInImage := classesInImage collect:[:cls \| cls classBaseFilename] as:Set.
482f5086773d changed: #diffSetOfProject:againstRepositoryVersionFrom: Stefan Vogel <sv@exept.de> parents: 2864 diff changeset	2443	autoloadedFilesInImage := autoloadedClassesInImage collect:[:cls \| cls classBaseFilename] as:Set.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2444	"/ any differences ?
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2445	classesNotInRepository := classesInImage reject:[:cls \| (perProjectInfo includesKey:cls classBaseFilename)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2446	classesDeletedInRepository := classesInImage select:[:cls \| (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2447	perProjectInfo := perProjectInfo reject:[:v \| v == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2448	filesNotInImage := perProjectInfo keys reject:[:file \| (filesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2449	filesNotInImage := filesNotInImage reject:[:file \| (autoloadedFilesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2450	filesNotInImage remove:'extensions.st' ifAbsent:[].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2451
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2452	"/ if comparing against the newest, only look for chaged stuff
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2453	classesModifiedInImage := classesInImage select:[:cls \| ChangeSet current includesChangeForClassOrMetaclass:cls].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2454	classesModifiedInImage := classesModifiedInImage \ classesNotInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2455
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2456	classesNewerInRepository := classesInImage
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2457	select:[:cls \|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2458	\|v clsRevision\|
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2459
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2460	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	2461	v notNil
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2462	and:[ cls isLoaded
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2463	and:[ (clsRevision := cls revision) notNil
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2464	and:[ v > clsRevision ]]]
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2465	].
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2466
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2467	"/ stupid: as we do not have any revision information for extensions (sigh);
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2468	"/ 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	2469
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2470	extensionMethods := Smalltalk allExtensionsForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2471	extensionsInImage := ChangeSet forExistingMethods:extensionMethods.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2472
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2473	[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2474	\|s extensionsRevision\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2475
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2476	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	2477	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2478	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2479	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	2480	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	2481	s notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2482	extensionsInRepository := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2483	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2484	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2485	s notNil ifTrue:[s close]
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2486	].
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2487	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	2488
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2489	"/ 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	2490	extensionsInRepository := versionMethodsAndDoitsRejected value:extensionsInRepository.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2491	] value.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2492	extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2493
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2494	diffSet := extensionDiffs copy.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2495
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2496	(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	2497	"/ we could do the same as below for each class.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2498	"/ 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	2499	"/ 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	2500	classesModifiedInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2501	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2502	classesModifiedInImage select:[:eachChangedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2503	\|currentVersion repositoryVersion s stFile diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2504
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2505	stFile := eachChangedClass classBaseFilename.
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2506	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2507	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2508	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	2509	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	2510	s notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2511	repositoryVersion := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2512	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2513	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2514	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2515	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2516	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	2517	repositoryVersion := versionMethodsAndDoitsRejected value:repositoryVersion.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2518
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2519	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	2520	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2521	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2522	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2523	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2524	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2525
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2526	classesNotReallyModified := classesModifiedInImage \ classesReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2527	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2528	] ifFalse:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2529	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2530	classesInImage select:[:eachClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2531	\|currentVersion repositoryVersion s stFile stRevision diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2532
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2533	stFile := eachClass classBaseFilename.
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2534	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	2535	stRevision notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2536	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2537	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2538	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	2539	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	2540	s notNil ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2541	repositoryVersion := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2542	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2543	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2544	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2545	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2546	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2547	repositoryVersion isNil ifTrue:[
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	2548	repositoryVersion := ChangeSet new.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	2549	].
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2550	repositoryVersion := versionMethodsAndDoitsRejected value:repositoryVersion.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2551
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2552	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	2553	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2554	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2555	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2556	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2557	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2558	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2559
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2560	filesNotInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2561	"/ first, check if these are autoloaded classes which have NOT been installed
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2562	"/ (for example, due to a --quick argument during startup)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2563	autoloadedFilesNotInImage := OrderedCollection new.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2564
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2565	def := ProjectDefinition definitionClassForPackage:aProject createIfAbsent:false projectType:nil.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2566	def notNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2567	def classNamesAndAttributesDo:[:eachClassname :eachAttributes \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2568	\|cls eachFileName isAutoload\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2569
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2570	cls := Smalltalk classNamed:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2571	cls isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2572	isAutoload := eachAttributes includes:#autoload.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2573	isAutoload ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2574	eachFileName := Smalltalk fileNameForClass:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2575	autoloadedFilesNotInImage add:(eachFileName , '.st')
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2576	]
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2577	]
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2578	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2579	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2580
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2581	(filesNotInImage \ autoloadedFilesNotInImage) do:[:eachSTFile \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2582	\|s chgSet classDefinitions\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2583
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2584	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2585	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2586	streamForClass:nil fileName:eachSTFile 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	2587	chgSet := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2588	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2589	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2590	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2591	chgSet := versionMethodsAndDoitsRejected value:chgSet.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2592	diffSet onlyInReceiver addAll:chgSet
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2593	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2594	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2595
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2596	classesNewerInRepository notEmpty ifTrue:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2597	classesNewerInRepository do:[:eachClass\|
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2598	\|s diffs repositoryVersion currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2599
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2600	[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2601	s := SourceCodeManager
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2602	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	2603	repositoryVersion := ChangeSet fromStream:s.
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2604	] ensure:[
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2605	s notNil ifTrue:[s close].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2606	].
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2607
548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2608	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	2609	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2610	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2611	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2612	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2613	].
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2614
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2615	classesDeletedInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2616	"/ self halt.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2617	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2618	classesNotInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2619	"/ if there are no changeSet entries for those classes, they seem to be
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2620	"/ no longer in the repository (possibly moved ?)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2621	"/ 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	2622
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2623	classesAddedInImage := classesNotInRepository \ classesDeletedInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2624	classesAddedInImage do:[:eachAddedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2625	\|currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2626
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2627	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	2628	currentVersion := versionMethodsAndDoitsRejected value:currentVersion.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2629	diffSet onlyInArg addAll:currentVersion.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2630	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2631	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2632
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2633	diffSet isEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2634	"/ Dialog information:(resources string:'%1 is up-to-date.' with:eachProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2635	Transcript showCR:('%1 is up-to-date.' bindWith:aProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2636	(ChangeSet current includesChangeForPackage:aProject) ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2637	(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	2638	ChangeSet current condenseChangesForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2639	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2640	].
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2641	^ diffSet.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2642	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2643
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2644	"/ 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	2645	"/ give user a chance to cleanup the changeSet here.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2646	aDateOrNilForNewest isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2647	classesNotReallyModified notEmptyOrNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2648	doCleanup := false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2649	box := Dialog
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2650	forRequestText:(resources
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2651	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	2652	with:aProject allBold)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2653	editViewClass:ListView
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2654	lines:10 columns:20
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2655	initialAnswer:nil model:nil
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2656	setupWith:
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2657	[:v :d \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2658	\|removeButton\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2659
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2660	v list:classesNotReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2661	removeButton := Button label:(resources string:'Cleanup ChangeSet').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2662	removeButton action:[ doCleanup := true. box okPressed. ].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2663	d addButton:removeButton after:(d okButton).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2664	d okButton label:(resources string:'Continue').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2665	d okButton isReturnButton:false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2666	removeButton isReturnButton:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2667	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2668	box open.
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2669	box accepted ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2670	doCleanup ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2671	classesNotReallyModified do:[:class \|
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2672	ChangeSet current condenseChangesForClass:class.
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2673	]
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2674	].
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2675	]
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2676	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2677	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2678	^ diffSet
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	2679
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	2680	"Modified: / 01-11-2010 / 21:02:52 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2681	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2682
2939 f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2683	diffSetOfProject:aProject againstRepositoryVersionTaggedAs:symbolicName
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2684	^ self
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2685	diffSetOfProject:aProject
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2686	againstRepositoryVersionFrom:nil
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2687	orTag:symbolicName
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2688	!
f7838209baad added: Claus Gittinger <cg@exept.de> parents: 2922 diff changeset	2689
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2690	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2691	\|theMetaclass src newSrc versionMethodName oldVersionMethodName\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2692
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2693	theMetaclass := aClass theMetaclass.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2694	versionMethodName := aManager nameOfVersionMethodInClasses.
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2695	oldVersionMethodName := aClass nameOfOldVersionMethod.
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2696
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2697	(theMetaclass includesSelector:versionMethodName) ifTrue:[
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2698	"/ (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2699	"/ theMetaclass removeSelector:oldVersionMethodName.
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2700	"/ ].
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2701	"/ ensure that my version method is parsable (contains $'s)
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2702	src := (theMetaclass compiledMethodAt:versionMethodName) source.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2703	src notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2704	newSrc := aManager ensureDollarsInVersionMethod:src.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2705	newSrc ~= src ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2706	theMetaclass compile:newSrc.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2707	]
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2708	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2709	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2710	(theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2711	"/ but make sure, it is a version method for this sourcecodemanager...
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2712	(theMetaclass methodDictionary keys count:[:sel \| sel startsWith:'version']) size == 1 ifTrue:[
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2713	src := (theMetaclass compiledMethodAt:oldVersionMethodName) source.
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2714	(src startsWith:oldVersionMethodName) ifTrue:[
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2715	newSrc := versionMethodName
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2716	, (src copyFrom:(oldVersionMethodName size + 1))
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2717	].
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2718	theMetaclass compile:newSrc.
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2719	]
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2720	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2721	].
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	2722
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	2723	"Modified: / 20-08-2011 / 14:40:27 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2724	"Created: / 29-12-2011 / 14:33:46 / cg"
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2725	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2726
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2727	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2728	"returns 2 values"
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2729
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2730	\|initialLogMessage checkinInfo logMessage\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2731
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2732	"/ heuristics for a useful initial log message...
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2733	aLogInfoOrNil isNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2734	initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2735	"/ initial checkin ?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2736	(aClass package isNil or:[aClass revision isNil]) ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2737	initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2738	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2739	checkinInfo := self
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2740	getCheckinInfoFor:aClass name
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2741	initialAnswer:initialLogMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2742	checkinInfo isNil ifTrue:[^ false].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2743	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2744	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2745	aLogInfoOrNil isString ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2746	"soon obsolete..."
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2747	logMessage := aLogInfoOrNil
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2748	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2749	checkinInfo := aLogInfoOrNil.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2750	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2751	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2752	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2753	logMessage notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2754	logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2755	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2756	aBlock value:logMessage value:checkinInfo.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2757	^ true
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2758	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	2759
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2760	removeSourceContainerForClass:aClass
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2761	"show container & let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2762
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2763	^ self removeSourceContainerForClass:aClass confirm:true warn:true
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2764	!
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2765
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2766	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2767	"show container & optionally let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2768
2948 548a75a5a3b5 project diff fixed (care for version and loos methods) Claus Gittinger <cg@exept.de> parents: 2939 diff changeset	2769	\|module directory fileName info mgr\|
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2770
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2771	aClass isLoaded ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2772	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2773	self warn:(resources string:'Please load the class first.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2774	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2775	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2776	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2777
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2778	"/
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2779	"/ 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	2780	"/ if so, take that as a default.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2781	"/
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2782	mgr := self sourceCodeManagerFor:aClass.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2783	mgr isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2784	^ false
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2785	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2786
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2787	info := mgr sourceInfoOfClass:aClass.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2788	info notNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2789	(info includesKey:#module) ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2790	module := (info at:#module).
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2791	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2792	(info includesKey:#directory) ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2793	directory := (info at:#directory).
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2794	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2795	fileName := mgr containerFromSourceInfo:info.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2796	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2797
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2798	module isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2799	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2800	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	2801	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2802	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2803	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2804	directory isNil ifTrue:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2805	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2806	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	2807	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2808	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2809	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2810	fileName isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2811	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2812	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	2813	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2814	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2815	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2816
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2817	OperatingSystem isMSDOSlike ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2818	"cvs expects unix-filenames"
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2819	module := module copy replaceAll:$\ with:$/.
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2820	directory := directory copy replaceAll:$\ with:$/.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2821	].
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	2822	(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2823	doWarn ifTrue:[
2830 f5204449764a changed: #removeSourceContainerForClass:confirm:warn: Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	2824	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	2825	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2826	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2827	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2828
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2829	doConfirm ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2830	(Dialog
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2831	choose:(resources
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	2832	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	2833
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2834	container: %2 / %3 / %4
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2835
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2836	Really remove ?'
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2837	with:aClass name
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2838	with:module
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2839	with:directory
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2840	with:fileName)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2841	labels:(Array
1129 89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	2842	with:(resources string:'No')
89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	2843	with:(resources string:'Remove'))
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2844	values:#(false true)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2845	default:false) ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2846	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2847	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2848	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2849
1921 ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	2850	(mgr removeContainer:fileName
ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	2851	inModule:module
ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	2852	directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2853	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2854	self warn:(resources string:'failed to remove container.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2855	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2856	^ true.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2857	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	2858	^ false
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2859
2830 f5204449764a changed: #removeSourceContainerForClass:confirm:warn: Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	2860	"Modified: / 02-06-2012 / 10:32:36 / cg"
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	2861	!
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	2862
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2863	repositoryLogOf:aClass onto:aStream
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	2864	self repositoryLogOf:aClass short:false onto:aStream
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	2865	!
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	2866
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	2867	repositoryLogOf:aClass short:shortOrNot onto:aStream
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2868	\|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	2869
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2870	info := aClass revisionInfo.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2871
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2872	rv := aClass binaryRevision.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2873	rv notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2874	aStream nextPutLine:'** Loaded classes binary information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2875	aStream nextPutLine:' Binary based upon : ' , rv.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2876	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2877	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2878
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2879	info notNil ifTrue:[
2041 fb85bf748dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2013 diff changeset	2880	(info revision notNil) ifFalse:[
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2881	aStream nextPutLine:'WARNING:'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2882	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	2883	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	2884	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	2885	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2886	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2887
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2888	aStream nextPutLine:'** Classes source information **'; cr.
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2889	s := info repositoryPathName.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2890	s notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2891	aStream nextPutLine:' Source repository : ' , s
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2892	].
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2893	aStream nextPutLine:' Filename ........ : ' , (info fileName ? '?').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2894	aStream nextPutLine:' Revision ........ : ' , (info revision ? '?').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2895	aStream nextPutLine:' Checkin date .... : ' , (info date ? '?') , ' ' ,
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2896	(info time ? '?'), ' ',
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2897	(info timezone ? '').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2898	aStream nextPutLine:' Checkin user .... : ' , (info user ? '?').
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2899
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2900	(info2 := aClass packageSourceCodeInfo) notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2901	aStream nextPutLine:' Repository: ..... : ' , (info2 at:#module ifAbsent:'?').
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2902	aStream nextPutLine:' Directory: ...... : ' , (info2 at:#directory ifAbsent:'?').
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2903	].
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	2904	aStream nextPutLine:' Container ....... : ' , (info repositoryPathName ? '?').
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2905	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2906
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2907	mgr := self sourceCodeManagerFor:aClass.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2908	mgr notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2909	aStream nextPutLine:'** Repository information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2910
2835 ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	2911	module := nil.
ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	2912	info2 notNil ifTrue:[
ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	2913	module := info2 at:#module ifAbsent:nil.
ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	2914	].
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2915	module notNil ifTrue:[
2596 64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	2916	aStream nextPutLine:(' Repository URL ......: ' ,
64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	2917	((mgr repositoryNameForPackage:aClass package) ifNil:[mgr repositoryName , ' (default)'])).
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2918	].
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	2919	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	2920	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2921	] ifFalse:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2922	aStream nextPutLine:'No revision info found'.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2923	aClass isLoaded ifFalse:[
1835 1aa531a386bd * empty log message * Claus Gittinger <cg@exept.de> parents: 1831 diff changeset	2924	aStream cr; nextPutAll:'This is an autoloaded class - you may see more after it is loaded.'
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2925	] ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2926	fn := aClass classFilename.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2927	aClass wasAutoloaded ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2928	msg := 'This class was autoloaded.'.
1514 35b125098412 * empty log message * fm parents: 1503 diff changeset	2929	msg := msg , ' (from ''' , fn , ''')'.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2930	] ifFalse:[
1514 35b125098412 * empty log message * fm parents: 1503 diff changeset	2931	msg := 'This class was loaded from ''' , fn , '''.'
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2932	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2933	msg notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2934	aStream cr; nextPutAll:msg.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2935	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2936	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	2937	]
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2938
2836 91e9be94d80b changed: #repositoryLogOf:short:onto: Claus Gittinger <cg@exept.de> parents: 2835 diff changeset	2939	"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	2940	"Modified: / 11-07-2012 / 13:50:59 / cg"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2941	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2942
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2943	tagClass:aClass as:tag
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2944	\|mgr\|
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2945
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2946	mgr := self sourceCodeManagerFor:aClass.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2947	mgr
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2948	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2949	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2950	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2951	class:aClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2952
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2953	"Modified: / 12-09-2006 / 13:03:59 / cg"
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2954	!
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2955
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2956	tagClasses:aCollectionOfClasses as:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2957	\|classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2958
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2959	classesPerManager := Dictionary new.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2960	aCollectionOfClasses
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2961	do:[:eachClass \|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2962	\|manager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2963
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2964	manager := self sourceCodeManagerFor:eachClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2965	(classesPerManager at:manager ifAbsentPut:[Set new]) add:eachClass
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2966	].
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2967
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2968	classesPerManager keysAndValuesDo:[:manager :classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2969	manager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2970	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2971	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2972	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2973	classes:classesPerManager.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2974	].
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2975	^ true
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2976
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2977	"Created: / 12-09-2006 / 13:04:29 / cg"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2978	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2979
2602 a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2980	tagPackage: package as:tag
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2981
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2982	self tagClasses:(Smalltalk allClassesInPackage:package) as:tag.
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2983
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2984	"Created: / 12-09-2006 / 13:04:29 / cg"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2985	"Created: / 15-10-2011 / 22:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2986	!
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	2987
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2988	tagPath:aPath as:tag usingManager:aManager
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2989	aManager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2990	setSymbolicName:tag
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2991	revision:nil
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2992	overWrite:true
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	2993	path:aPath.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2994
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	2995	"Modified: / 12-09-2006 / 12:04:44 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2996	"Created: / 29-12-2011 / 14:32:38 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2997	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	2998
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	2999	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-helpers'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3000
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3001	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3002	"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	3003	Return a dictionary associating revision with a changeList entries for that method.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3004	Unfinished - need a GUI for that."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3005
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3006	\|mgr theClass revisionLog revisions items s entriesPerRevision previousVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3007
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3008	theClass := aClass theNonMetaclass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3009
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3010	mgr := self sourceCodeManagerFor:theClass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3011	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3012	self error:'no sourceCodeManager'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3013	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3014
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3015	revisionLog := mgr
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3016	revisionLogOf:theClass
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3017	numberOfRevisions:numberOfRevisionsOrNil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3018
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3019	revisions := revisionLog at:#revisions.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3020	items := revisions collect:[:each \| \|rev date who\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3021	rev := each at:#revision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3022	date := each at:#date.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3023	who := each at:#author.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3024	rev allBold , ' [' , date , ' by ' , who , ']'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3025	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3026
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3027	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3028	revisions addFirst:#current.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3029	entriesPerRevision := Dictionary new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3030
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3031	previousVersion := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3032	revisions reverseDo:[:eachRevision \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3033	\|srcStream entries thisVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3034
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3035	eachRevision == #current ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3036	s := '' writeStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3037	theClass fileOutOn:s withTimeStamp:false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3038	srcStream := s contents readStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3039	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3040	self activityNotification:('checking out revision ' , eachRevision , '...').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3041	srcStream := mgr getSourceStreamFor:theClass revision:eachRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3042	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3043
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3044	entries := ChangeSet fromStream:srcStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3045	srcStream close.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3046
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3047	"/ remove all definitions
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3048	entries := entries select:[:each \| each isMethodChange].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3049	"/ remove all methods which are for other selectors
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3050	entries := entries select:[:each \| each selector == selector].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3051	"/ remove all methods which are for private subclasses
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3052	entries := entries select:[:each \| each className = aClass name].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3053
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3054	entries size == 1 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3055	"/ the method is there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3056	thisVersion := entries first.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3057	(previousVersion notNil and:[previousVersion sameAs:thisVersion]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3058	"/ no change
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3059	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3060	entriesPerRevision at:eachRevision put:thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3061	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3062	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3063	"/ the method is not there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3064	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3065	previousVersion := thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3066	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3067	self error:'unfinished code'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3068
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3069	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3070	self getMethodVersionsOfClass:MenuPanel selector:#'helpTextForItem:' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3071	self getMethodVersionsOfClass:NewLauncher class selector:#'menu' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3072	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3073	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3074
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3075	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-user interaction'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3076
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3077	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3078	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3079	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3080	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3081
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3082	^ self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3083	askForContainer:boxText title:title note:notice
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3084	initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3085	forNewContainer:true
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3086	!
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3087
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3088	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	3089	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3090	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3091	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3092
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3093	\|box y component resources answer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3094	moduleHolder packageHolder fileNameHolder
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3095	module package fileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3096	knownContainers knownPackages packageUpdater
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3097	packageBoxComponent fileNameBoxComponent fileNameUpdater\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3098
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3099	knownContainers := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3100	Smalltalk allClassesDo:[:cls \| \|pckg\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3101	pckg := cls package.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3102	pckg size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3103	knownContainers add:(pckg upTo:$:)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3104	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3105	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3106	knownContainers := knownContainers asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3107	knownContainers := knownContainers select:[:module \| module isBlank not].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3108	knownContainers sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3109
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3110	packageUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3111	\|theModulePrefix\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3112
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3113	theModulePrefix := moduleHolder value , ':'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3114
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3115	Cursor wait showWhile:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3116	knownPackages := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3117	Smalltalk allClassesDo:[:cls \| \|pckg idx\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3118	pckg := cls package.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3119	pckg size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3120	(pckg startsWith:theModulePrefix) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3121	idx := pckg indexOf:$:.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3122	knownPackages add:(pckg copyFrom:idx + 1)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3123	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3124	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3125	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3126	knownPackages := knownPackages asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3127	knownPackages := knownPackages select:[:package \| package isBlank not].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3128	knownPackages sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3129	packageBoxComponent list:knownPackages.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3130	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3131	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3132
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3133	fileNameUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3134	\|module package files\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3135
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3136	Cursor read showWhile:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3137	module := moduleHolder value ? (PackageId noProjectID).
e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3138	package := packageHolder value ? (PackageId noProjectID).
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3139
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3140	files := SourceCodeManager getExistingContainersInModule:module directory:package.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3141	files := files asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3142	files := files select:[:eachFile \| eachFile asFilename hasSuffix:'st'].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3143	files sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3144	fileNameBoxComponent list:files.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3145	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3146	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3147
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3148	moduleHolder := initialModule asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3149	packageHolder := initialPackage asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3150	fileNameHolder := initialFileName asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3151
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3152	resources := self classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3153
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3154	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3155	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3156	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3157	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3158	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3159
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3160	component := box addTextLabel:boxText withCRs.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3161	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3162	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3163	box addVerticalSpace.
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3164
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3165	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3166	component := box addTextLabel:(resources string:'Module:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3167	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3168	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3169	component := box addComboBoxOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3170	component list:knownContainers.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3171
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3172	"/ component := box addInputFieldOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3173	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	3174
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3175	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3176	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3177	component := box addTextLabel:(resources string:'Package:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3178	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3179	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3180	packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3181	"/ component := box addInputFieldOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3182	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	3183	packageUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3184	moduleHolder onChangeEvaluate:packageUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3185
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3186	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3187	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3188	component := box addTextLabel:(resources string:'Filename:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3189	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3190	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3191
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3192	forNewContainer ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3193	component := box addInputFieldOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3194	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	3195	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3196	fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3197	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	3198	fileNameUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3199	packageHolder onChangeEvaluate:fileNameUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3200	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3201
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3202	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3203
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3204	notice notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3205	component := box addTextLabel:notice.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3206	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3207	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3208
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3209	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3210	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3211
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3212	(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3213	component := Button label:'Yes to all'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3214	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3215	YesToAllNotification queryWith:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3216	box doAccept.
2253 7d7b0d2d1fe7 changed: #askForContainer:title:note:initialModule:initialPackage:initialFileName:forNewContainer: Claus Gittinger <cg@exept.de> parents: 2242 diff changeset	3217	box okPressed.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3218	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3219	(DialogBox defaultOKButtonAtLeft) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3220	box addButton:component after:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3221	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3222	box addButton:component before:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3223	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3224	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3225	(AbortAllSignal isHandled) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3226	component := Button label:'Cancel all'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3227	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3228	box hide.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3229	AbortAllSignal raiseSignal.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3230	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3231	(DialogBox defaultOKButtonAtLeft) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3232	box addButton:component before:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3233	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3234	box addButton:component after:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3235	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3236	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3237
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3238	(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3239	answer := YesToAllQuery query.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3240	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3241
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3242	answer isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3243	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3244	answer := box accepted
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3245	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3246
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3247	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3248	answer ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3249	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3250	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3251
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3252	module := moduleHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3253	package := packageHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3254	fileName := fileNameHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3255	^ Dictionary new
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3256	at:#module put:module;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3257	at:#package put:package;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3258	at:#fileName put:fileName;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3259	yourself
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3260
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3261	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3262	self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3263	askForContainer:'enter container' title:'container' note:'some note'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3264	initialModule:'foo' initialPackage:'bar' initialFileName:'baz'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3265	"
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3266
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3267	"Modified: / 23-08-2006 / 14:13:04 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3268	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3269
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3270	askForExistingRevision:boxText title:title class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3271	"open a dialog asking for a containers revision;
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3272	return a revision number, or nil if canceled."
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3273
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3274	\|mgr sourceInfo module package fileName\|
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3275
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3276	mgr := self sourceCodeManagerFor:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3277	sourceInfo := mgr sourceInfoOfClass:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3278	sourceInfo isNil ifTrue:[^ nil].
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3279
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3280	package := mgr directoryFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3281	module := mgr moduleFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3282	fileName := mgr containerFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3283	^ self
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3284	askForExistingRevision:boxText
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3285	title:title
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3286	class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3287	manager:mgr
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3288	module:module package:package
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3289	fileName:fileName
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3290
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3291	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3292	SourceCodeManagerUtilities
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3293	askForRevisionToCompare:'enter revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3294	title:'revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3295	class:Array
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3296	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3297
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3298	"Modified: / 12-09-2006 / 14:17:04 / cg"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3299	!
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3300
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3301	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	3302	"open a dialog asking for a containers revision;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3303	return a revision number, or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3304
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3305	\|partialLog revisions items newestRev
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3306	box y component resources
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3307	revisionHolder symbolicNames stableRevision releasedRevision
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3308	tagHolder tagList lockChange\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3309
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3310	resources := self classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3311
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3312	partialLog := aSourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3313	revisionLogOf:clsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3314	numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3315	fileName:fileName
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3316	directory:directory
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3317	module:module.
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	3318
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3319	partialLog notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3320	newestRev := partialLog at:#newestRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3321	revisions := partialLog at:#revisions.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3322	symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3323	symbolicNames notNil ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3324	stableRevision := symbolicNames at:'stable' ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3325	releasedRevision := symbolicNames at:'released' ifAbsent:[].
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3326	tagList := ((symbolicNames associations sort:[:a :b \| self versionString:(a value) isLessThan:(b value)])
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3327	collect:[:assoc \| assoc key]) reverse.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3328	].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3329
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3330	items := revisions collect:[:each \| \|rev date who flag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3331	rev := each at:#revision.
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3332	date := (each at:#date ifAbsent:nil) ? '?'.
2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3333	who := (each at:#author ifAbsent:nil) ? '?'.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3334	rev = stableRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3335	flag := ' Stable' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3336	] ifFalse:[rev = releasedRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3337	flag := ' Released' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3338	] ifFalse:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3339	flag := ' '
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3340	]].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3341	rev allBold , flag, ' [' , date , ' by ' , who , ']'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3342	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3343	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3344	] ifFalse:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3345	newestRev := aSourceCodeManager newestRevisionInFile:fileName directory:directory module:module.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3346	revisions := items := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3347
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3348	newestRev isNil ifTrue:[
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3349	(aSourceCodeManager checkForExistingContainer:fileName inModule:module directory:directory)
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3350	ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3351	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	3352	This could be due to:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3353	- invalid/wrong CVS-Root setting
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3354	- missing CVS access rights
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3355	(no access / not logged in)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3356	- changed CVSRoot after compilation
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3357	(i.e. wrong CVS-path in classes version method)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3358	'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3359	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3360	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3361	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3362	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3363
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3364	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3365	revisionHolder := newestRev asValue.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3366	revisionHolder onChangeEvaluate:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3367	"/ cut off everything after revision
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3368	\|s first words tag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3369
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3370	s := revisionHolder value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3371	words := s asCollectionOfWords.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3372	words size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3373	first := words first string.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3374	first ~= s ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3375	revisionHolder value:first
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3376	]
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3377	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3378	lockChange ifFalse:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3379	tagHolder value:''
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3380	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3381	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3382
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3383	tagHolder := '' asValue.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3384	tagHolder
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3385	onChangeEvaluate:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3386	\|tag rev\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3387
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3388	(tag := tagHolder value) notEmptyOrNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3389	rev := symbolicNames at:tag.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3390	rev ~= revisionHolder value ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3391	lockChange := true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3392	revisionHolder value:rev.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3393	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3394	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3395	]
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3396	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3397
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3398	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3399	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3400	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3401	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3402	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3403
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3404	component := box addTextLabel:boxText withCRs.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3405	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3406	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3407	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3408
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3409	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3410	component := box addTextLabel:(resources string:'Revision:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3411	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3412	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3413	component := box addComboBoxOn:revisionHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3414	component list:items.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3415	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	3416
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3417	y := box yPosition.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3418	component := box addTextLabel:(resources string:'or Tag:').
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3419	component width:0.4; adjust:#right.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3420	box yPosition:y.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3421	component := box addComboListOn:tagHolder tabable:true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3422	component list:tagList.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3423	component width:0.6; left:0.4.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3424	tagList isNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3425	component disable
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3426	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3427
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3428	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3429
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3430	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3431
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3432	AbortAllOperationWantedQuery query ifTrue:[
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3433	(box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise].
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
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3436	box showAtPointer.
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	box accepted ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3439	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3440	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3441	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3442	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3443
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3444	^ revisionHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3445
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	SourceCodeManagerUtilities
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3448	askForRevisionToCompare:'enter revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3449	title:'revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3450	class:nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3451	manager:SourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3452	module:'stx'
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3453	directory:'libbasic'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3454	fileName:'Array.st'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3455	"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	3456
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3457	"Modified: / 21-12-2011 / 23:09:26 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3458	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3459
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3460	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3461	"check if a class contains message-sends to:
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3462	#halt , #halt:
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3463	#error
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3464	#todo , #todo:
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3465	(and maybe more in the future)
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3466
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3467	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	3468
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3469	\|badStuff whatIsBad msg answer labels values defaultAnswer dontShowAgain
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3470	methodsWithBadStuff resources\|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3471
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3472	resources := Dialog classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3473
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3474	badStuff := #(
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3475	( 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	3476	( 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	3477	( 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	3478	( todo 'send of #todo - unfinished code present?' )
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3479	( todo: 'send of #todo:- unfinished code present?' )
1375 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
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3482	methodsWithBadStuff := Set new.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3483	whatIsBad := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3484	aClass theNonMetaclass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3485	\|setOfLiterals setOfSentMessages\|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3486
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3487	mthd package = aClass package ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3488	setOfLiterals := mthd literals. "/ try without parsing first.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3489	(badStuff contains:[:eachEntry \| setOfLiterals includes:eachEntry first]) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3490	setOfSentMessages := mthd messagesSent.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3491	badStuff do:[:eachEntry \|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3492	(setOfSentMessages includes:eachEntry first) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3493	whatIsBad add:eachEntry second.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3494	methodsWithBadStuff add:mthd.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3495	]
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	3496	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3497	].
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3498	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3499	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3500	whatIsBad isEmpty ifTrue:[^ true].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3501
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3502	(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	3503	answer := YesToAllQuery query.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3504	answer notNil ifTrue:[ ^ answer ].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3505	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3506
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3507	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	3508	msg := msg , '\\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3509	whatIsBad do:[:each \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3510	msg := msg , ' ' , each , '\'
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3511	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3512	msg := msg , '\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3513	methodsWithBadStuff size == 1 ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3514	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	3515	with:methodsWithBadStuff anElement whoString allBold).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3516	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3517	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	3518	with:methodsWithBadStuff anElement whoString allBold
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3519	with:methodsWithBadStuff size-1).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3520	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3521	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	3522
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3523	(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	3524	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	3525	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	3526	defaultAnswer := #yesToAll.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3527	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3528	labels := #('No' 'No, Browse' 'Yes').
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3529	values := #(false #noBrowse true).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3530	defaultAnswer := true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3531	].
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3532
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3533	"/ AbortAllOperationRequest isHandled ifTrue:[
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3534	"/ labels := #('Cancel All') , labels.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3535	"/ values := #(#cancelAll) , values.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3536	"/ ].
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3537
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3538	DialogBox aboutToOpenBoxNotificationSignal handle:[:ex \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3539	\|box\|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3540
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3541	checkAgainHolder isValueModel ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3542	dontShowAgain := checkAgainHolder value not asValue.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3543	box := ex parameter.
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	3544	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	3545	on:dontShowAgain.
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	3546	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3547	ex proceed.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3548	] do:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3549	answer := OptionBox
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3550	request:msg withCRs
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3551	label:(resources string:'Really CheckIn ?')
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3552	image:(InfoBox iconBitmap)
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3553	buttonLabels:(resources array:labels)
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3554	values:values
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3555	default:defaultAnswer
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3556	onCancel:nil.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3557	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3558	answer isNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3559	AbortSignal raise.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3560	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3561
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3562	dontShowAgain notNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3563	checkAgainHolder value:dontShowAgain value not
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3564	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3565
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3566	answer == #noBrowse ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3567	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	3568	self yesToAllNotification queryWith:false.
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3569	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3570	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3571	answer == #cancelAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3572	AbortAllSignal raise.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3573	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3574	answer == #yesToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3575	YesToAllNotification queryWith:true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3576	^ true
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3577	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3578	answer == #noToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3579	YesToAllNotification queryWith:false.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3580	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3581	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	3582	^ answer
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3583
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	self checkAndWarnAboutBadMessagesInClass:(SourceCodeManagerUtilities)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3586	"
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	3587
d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	3588	"Modified: / 28-02-2012 / 10:41:38 / cg"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3589	!
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3590
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3591	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	3592	"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	3593	and other info (mark as stable, for example).
2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	3594	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	3595
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3596	^ self
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3597	getCheckinInfoFor:aClassNameOrPackageNameString
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3598	initialAnswer:initialAnswerOrNil
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3599	withQuickOption:false
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3600
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3601	"
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3602	SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3603	"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3604
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	3605	"Modified: / 06-07-2010 / 11:22:15 / cg"
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3606	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	3607
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3608	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	3609	"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	3610	and other info (mark as stable, for example).
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3611	Return the info-object (actually: the dialog) or nil if aborted."
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3612
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3613	\|logMsg infoDialog\|
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3614
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3615	infoDialog := Tools::CheckinInfoDialog
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3616	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3617	initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3618	withQuickOption:withQuickOption
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3619	logHistory:(LastSourceLogMessages ? #()).
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3620
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3621	infoDialog notNil ifTrue:[
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3622	logMsg := infoDialog logMessage.
2284 624993d61344 comment Claus Gittinger <cg@exept.de> parents: 2283 diff changeset	3623	logMsg notEmptyOrNil ifTrue:[
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3624	LastSourceLogMessage := logMsg.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3625	LastSourceLogMessages isNil ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3626	LastSourceLogMessages := OrderedCollection new.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3627	].
2796 78401b160a28 changed: #getCheckinInfoFor:initialAnswer:withQuickOption: Claus Gittinger <cg@exept.de> parents: 2795 diff changeset	3628	LastSourceLogMessages remove:logMsg ifAbsent:[].
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3629	LastSourceLogMessages addFirst:logMsg.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3630	LastSourceLogMessages size > 10 ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3631	LastSourceLogMessages removeLast
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3632	].
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3633	].
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3634	].
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	3635	^ infoDialog
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3636
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3637	"
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	3638	SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla'
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	3639	"
1501 6bb154127b0f CheckInDialog class moved Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	3640
2796 78401b160a28 changed: #getCheckinInfoFor:initialAnswer:withQuickOption: Claus Gittinger <cg@exept.de> parents: 2795 diff changeset	3641	"Modified: / 12-03-2012 / 13:12:40 / cg"
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3642	!
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3643
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3644	goodInitialLogMessageForCheckinClassOfClass:aClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3645	"figure out, if there were any non-comment changes.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3646	Provide a reasonable initial log message (I am tired of typing in 'comment only')"
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3647
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3648	\|selectorsInChangeSet newSelectors modifiedSelectors
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3649	classChanges changesForThisClass definitionChangesForThisClass methodChangesForThisClass
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3650	allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass removedMethodsForThisClass
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3651	initialLogStream printSelectors selectorsWithCommentOrFormattingChangeOnly
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3652	selectorsWithVariableChangeOnly
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3653	removedSelectors categoryChanges categoryChangeSelectors\|
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3654
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3655	"/ a helper function
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3656	printSelectors :=
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3657	[:what :selectors \|
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3658	initialLogStream nextPutAll:(what,':').
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3659	selectors size < 5 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3660	selectors size == 1 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3661	initialLogStream
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3662	print: ' #'; printCR:(selectors first).
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3663	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3664	initialLogStream cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3665	selectors asSortedCollection do:[:sel \| initialLogStream tab; nextPutAll:'#'; nextPutLine:sel].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3666	]
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3667	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3668	initialLogStream
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3669	print: (selectors size); printCR: ' methods'.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3670	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3671	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3672
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3673	classChanges := ChangeSet current select:[:aChange \| aChange isClassChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3674
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3675	changesForThisClass := classChanges
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3676	select:[:aChange \| aChange className = aClass theNonMetaclass name
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3677	or:[aChange className = aClass theMetaclass name] ].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3678
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3679	definitionChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodChange not].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3680	categoryChanges := changesForThisClass select:[:aChange \| aChange isMethodCategoryChange].
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3681	categoryChangeSelectors := categoryChanges collect:[:aChange \| aChange changeSelector] as:Set.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3682	allMethodChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodCodeChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3683	selectorsInChangeSet := allMethodChangesForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3684	methodChangesForThisClass := selectorsInChangeSet collect:[:eachSelector \|
2161 c1d39e2f7115 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	3685	allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector]] as:OrderedCollection.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3686
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3687	modifiedMethodsForThisClass := methodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3688	select:[:aChange \| aChange previousVersion notNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3689	modifiedSelectors := modifiedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3690
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3691	newMethodsForThisClass := allMethodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3692	select:[:aChange \| aChange previousVersion isNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3693	newSelectors := newMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3694
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3695	removedMethodsForThisClass := allMethodChangesForThisClass
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3696	select:[:aChange \| aChange isMethodRemoveChange].
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3697	removedSelectors := removedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3698
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3699	initialLogStream := '' writeStream.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3700	"/ definition?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3701	"/ suppress definition-message if initial checkin
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3702	(aClass package isNil or:[aClass revision isNil]) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3703	definitionChangesForThisClass notEmpty ifTrue:[
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3704	initialLogStream printCR:'class definition'.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3705	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3706	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3707
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3708	"/ added selectors?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3709	newSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3710	printSelectors value:'added' value:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3711	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3712	modifiedSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3713	categoryChangeSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3714
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3715	"/ removed selectors?
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3716	removedSelectors notEmpty ifTrue:[
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3717	printSelectors value:'removed' value:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3718	].
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3719	modifiedSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3720	categoryChangeSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3721
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3722	"/ modifications?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3723	modifiedSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3724	selectorsWithCommentOrFormattingChangeOnly := Set new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3725	selectorsWithVariableChangeOnly := Set new.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3726
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3727	"/ check for format/comment change
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3728	RBParser notNil ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3729	modifiedSelectors do:[:eachSelector \|
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3730	\|oldest newest oldMethod newMethod oldTree newTree variableMapping unchangedVariables\|
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3731
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3732	(newSelectors includes:eachSelector) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3733	oldest := allMethodChangesForThisClass detect:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3734	newest := allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3735
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3736	oldest := oldest previousVersion notNil ifTrue:[oldest previousVersion] ifFalse:[oldest].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3737
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3738	oldTree := RBParser parseMethod:oldest source onError:[:aString :pos \| nil].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3739	newTree := RBParser parseMethod:newest source onError:[:aString :pos \| nil].
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3740
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3741	(oldTree notNil and:[newTree notNil]) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3742	variableMapping := Dictionary new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3743	(oldTree equalTo:newTree withMapping: variableMapping) ifTrue:[
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3744	unchangedVariables := variableMapping keys select:[:k \| (variableMapping at:k) = k].
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3745	variableMapping removeAllKeys:unchangedVariables.
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3746
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3747	(variableMapping at:'self' ifAbsent:'self') = 'self' ifTrue:[
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3748	((variableMapping associations count:[:assoc \| assoc key ~= assoc value]) == 0) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3749	selectorsWithCommentOrFormattingChangeOnly add:eachSelector.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3750	] ifFalse:[
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3751	"/ check, if a global has changed
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3752	((variableMapping keys contains:[:var \| var first isUppercase])
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3753	or:[ (variableMapping values contains:[:var \| var first isUppercase]) ]) ifFalse:[
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3754	selectorsWithVariableChangeOnly add:eachSelector.
19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3755	].
2142 d09c9d1b8c46 changed: #goodInitialLogMessageForCheckinClassOfClass: sr parents: 2137 diff changeset	3756	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3757	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3758	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3759	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3760	]
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3761	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3762	].
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	3763
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3764	modifiedSelectors removeAllFoundIn:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3765	modifiedSelectors removeAllFoundIn:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3766
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3767	(selectorsWithCommentOrFormattingChangeOnly notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3768	printSelectors value:'comment/format in' value:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3769	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3770	(selectorsWithVariableChangeOnly notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3771	printSelectors value:'variable renamed in' value:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3772	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3773	(modifiedSelectors notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3774	printSelectors value:'changed' value:modifiedSelectors.
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	3775	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3776	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3777	categoryChanges notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3778	printSelectors value:'category of' value:categoryChangeSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3779	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	3780	^ initialLogStream contents
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	3781
2922 19cfd7d9b629 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2903 diff changeset	3782	"Modified: / 26-09-2012 / 18:31:38 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3783	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3784
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3785	!SourceCodeManagerUtilities methodsFor:'utilities-encoding'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3786
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3787	guessEncodingOfFile:aFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3788	"look for a string
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3789	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3790	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3791	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3792	within the given buffer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3793	(which is usually the first few bytes of a textFile).
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	3794	If that's not found, use heuristics (in CharacterArray) to guess."
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3795
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	3796	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	3797
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	3798	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	3799	^ CharacterEncoder guessEncodingOfFile:aFilename
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3800
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	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_de.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3803	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_ru.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3804	"
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	3805
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	3806	"Modified (comment): / 14-01-2012 / 20:54:35 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3807	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3808
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3809	guessEncodingOfStream:aStream
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3810	"look for a string of the form
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3811	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3812	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3813	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3814	in the first few bytes of aStream."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3815
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	3816	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	3817
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	3818	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	3819	^ CharacterEncoder guessEncodingOfStream:aStream
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3820	! !
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3821
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3822	!SourceCodeManagerUtilities class methodsFor:'documentation'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3823
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3824	version
2950 cd6dc0f1d994 comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag: Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	3825	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.260 2012-10-30 16:06:17 cg Exp $'
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3826	!
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3827
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	3828	version_CVS
2950 cd6dc0f1d994 comment/format in: #diffSetOfProject:againstRepositoryVersionFrom:orTag: Claus Gittinger <cg@exept.de> parents: 2949 diff changeset	3829	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.260 2012-10-30 16:06:17 cg Exp $'
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3830	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 30 Oct 2012 17:06:17 +0100
changeset 2950	cd6dc0f1d994
parent 2949	83170e2244f3
child 2969	3549ac095c10
permissions	-rw-r--r--