hg/stx-libbasic3: SourceCodeManagerUtilities.st@0601ded0300b (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
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	15	instanceVariableNames:'manager resources'
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	16	classVariableNames:'LastSourceLogMessage LastModule LastPackage YesToAllQuery
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	17	YesToAllNotification'
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	18	poolDictionaries:''
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 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
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	67	^ self basicNew initialize.
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	68	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	69
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	70	!SourceCodeManagerUtilities class methodsFor:'Signal constants'!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	71
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	72	yesToAllNotification
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	73	YesToAllNotification isNil ifTrue:[
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	74	YesToAllNotification := QuerySignal new.
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	75	].
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	76	^ YesToAllNotification
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	77	!
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	yesToAllQuery
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	80	YesToAllQuery isNil ifTrue:[
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	81	YesToAllQuery := QuerySignal new.
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	82	].
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	83	^ YesToAllQuery
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	84	! !
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	85
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	86	!SourceCodeManagerUtilities class methodsFor:'accessing'!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	87
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	88	default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	89
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	90	Default isNil ifTrue:[Default := self new].
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	93	"Created: / 10-10-2011 / 11:28:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	94	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	95
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	96	lastModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	97	"return the value of the static variable 'LastModule' (automatically generated)"
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	98
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	99	^ LastModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	100	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	101
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	102	lastModule:something
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	103	"set the value of the static variable 'LastModule' (automatically generated)"
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	LastModule := something.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	106	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	107
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	108	lastPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	109	"return the value of the static variable 'LastPackage' (automatically generated)"
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	^ LastPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	112	!
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	113
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	114	lastPackage:something
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	115	"set the value of the static variable 'LastPackage' (automatically generated)"
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	LastPackage := something.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	118	! !
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	119
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	120	!SourceCodeManagerUtilities class methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	121
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	122	doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	123
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	124	(self default respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	125	"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	126	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	127	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	128
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	129	^aMessage sendTo: self default
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	130	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	131	^super doesNotUnderstand: aMessage
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	134	"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	135	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	136
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	137	!SourceCodeManagerUtilities class methodsFor:'private-migration'!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	138
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	139	compileForwarders
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	140
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	141	"Utility method"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	142
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	143	"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	144	SourceCodeManagerUtilities compileForwarders.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	145	"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	146
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	147	self methodsDo:[:m\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	148	\| sel \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	149	sel := m selector.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	150	((self class includesSelector: sel) and: [(self class >> sel) source = m source]) ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	151	\| source header \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	152
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	153	header := m source asStringCollection first.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	154	source := '%1
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	155
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	156	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	157
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	158	self obsoleteMethodWarning: ''Please use instance protocol (SourceCodeManagerUtilities default doSomething)''.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	159
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	160	^self default %1' bindWith: header with: header.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	161
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	162	self halt: 'Inspect source'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	163	self class compile: source classified: m category.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	164	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	165
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	166	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	167
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	168	"Created: / 11-10-2011 / 10:55:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	169	! !
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	170
1806 fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	171	!SourceCodeManagerUtilities class methodsFor:'resources'!
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	172
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	173	resourcePackage
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	174	^ #'stx:libtool'
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	175	! !
fdcaa790756a resources from libtool Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	176
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	177	!SourceCodeManagerUtilities class methodsFor:'utilities'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	178
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	179	classIsNotYetInRepository:aClass withManager:mgr
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	180
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	181	<resource: #obsolete>
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	182
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	183	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	184
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	185	^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	186	!
8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	187
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	188	nameOfExtensionsContainer
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	189
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	190	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	191
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	192	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	193
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	194	^self default nameOfExtensionsContainer
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	197	setPackageOfAllMethodsIn:aClass to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	198
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	199	<resource: #obsolete>
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	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	202
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	203	^self default setPackageOfAllMethodsIn:aClass to:aPackage
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	"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	206	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	207
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	208	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	209
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	210	<resource: #obsolete>
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	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	213
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	214	^self default setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
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	"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	217	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	218
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	219	sourceCodeManagerFor:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	220
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	221	<resource: #obsolete>
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	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	224
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	225	^self default sourceCodeManagerFor:aClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	228	sourceCodeOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	229
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	230	<resource: #obsolete>
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	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	233
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	234	^self default sourceCodeOfClass:aClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	237	versionString:a isLessThan:b
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	238
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	239	<resource: #obsolete>
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	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	242
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	243	^self default versionString:a isLessThan:b
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	246	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	247
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	248	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
2556 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	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	251
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	252	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	253
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	254	^self default changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	255
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	256	"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	257	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	258
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	259	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	260
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	261	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	262
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	263	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	264
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	265	^self default
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	266	changeSetForExtensionMethodsForPackage:packageToCheckOut
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	267	revision:revisionOrNil
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	268	orAskForRevision:askForRevision
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	269	usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	270
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	271	"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	272	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	273
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	274	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	275
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	276	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	277
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	278	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	279
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	280	^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	281
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	282	"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	283	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	284
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	285	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	286
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	287	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	288
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	289	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	290
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	291	^self default checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	292
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	293	"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	294	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	295
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	296	checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	297
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	298	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	299
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	300	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	301
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	302	^self default checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	303
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	304	"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	305	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	306
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	307	checkinClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	308
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	309	<resource: #obsolete>
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	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	312
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	313	^self default checkinClass:aClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	316	checkinClass:aClass withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	317
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	318	<resource: #obsolete>
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	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	321
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	322	^self default checkinClass:aClass withInfo:aLogInfoOrNil
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	325	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	326
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	327	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	328
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	329	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	330
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	331	^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	332	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	333
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	334	checkinClasses:aCollectionOfClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	335
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	336	<resource: #obsolete>
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	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	339
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	340	^self default checkinClasses:aCollectionOfClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	343	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	344
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	345	<resource: #obsolete>
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	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	348
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	349	^self default checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	352	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	353
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	354	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	355
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	356	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	357
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	358	^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	359	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	360
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	361	checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	362
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	363	<resource: #obsolete>
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	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	366
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	367	^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	368	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	369
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	370	checkoutClass:aClass askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	371
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	372	<resource: #obsolete>
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	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	375
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	376	^self default checkoutClass:aClass askForMerge:askForMerge
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	379	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	380
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	381	<resource: #obsolete>
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	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	384
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	385	^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	386	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	387
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	388	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	389
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	390	<resource: #obsolete>
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	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	393
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	394	^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	395	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	396
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	397	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	398
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	399	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	400
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	401	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	402
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	403	^self default checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	404
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	405	"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	406	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	407
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	408	compareClassWithRepository:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	409
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	410	<resource: #obsolete>
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	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	413
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	414	^self default compareClassWithRepository:aClass
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	417	compareClassWithRepository:aClass askForRevision:askForRevision
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	418
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	419	<resource: #obsolete>
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	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	422
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	423	^self default compareClassWithRepository:aClass askForRevision:askForRevision
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	426	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	427
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	428	<resource: #obsolete>
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	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	431
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	432	^self default compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	435	compareProjectWithRepository:aProject
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	436
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	437	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	438
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	439	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	440
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	441	^self default compareProjectWithRepository:aProject
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	442	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	443
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	444	createSourceContainerForClass:aClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	445
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	446	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	447
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	448	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	449
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	450	^self default createSourceContainerForClass:aClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	451	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	452
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	453	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	454
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	455	<resource: #obsolete>
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	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	458
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	459	^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	460	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	461
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	462	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	463
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	464	<resource: #obsolete>
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	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	467
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	468	^self default diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
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
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	471	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	472
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	473	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	474
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	475	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	476
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	477	^self default ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	478
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	479	"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	480	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	481
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	482	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	483
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	484	<resource: #obsolete>
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	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	487
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	488	^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	489	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	490
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	491	removeSourceContainerForClass:aClass
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	492
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	493	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	494
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	495	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	496
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	497	^self default removeSourceContainerForClass:aClass
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	498	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	499
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	500	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	501
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	502	<resource: #obsolete>
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	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	505
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	506	^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	507	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	508
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	509	repositoryLogOf:aClass onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	510
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	511	<resource: #obsolete>
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	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	514
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	515	^self default repositoryLogOf:aClass onto:aStream
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	518	repositoryLogOf:aClass short:shortOrNot onto:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	519
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	520	<resource: #obsolete>
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	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	523
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	524	^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	525	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	526
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	527	tagClass:aClass as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	528
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	529	<resource: #obsolete>
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	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	532
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	533	^self default tagClass:aClass as:tag
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	536	tagClasses:aCollectionOfClasses as:tag
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	537
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	538	<resource: #obsolete>
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	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	541
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	542	^self default tagClasses:aCollectionOfClasses as:tag
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
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	545	tagPath:aPath as:tag usingManager:aManager
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	546
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	547	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	548
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	549	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	550
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	551	^self default tagPath:aPath as:tag usingManager:aManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	552
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	553	"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	554	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	555
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	556	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-helpers'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	557
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	558	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
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	<resource: #obsolete>
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	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	563
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	564	^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	565	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	566
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	567	!SourceCodeManagerUtilities class methodsFor:'utilities-cvs-user interaction'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	568
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	569	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	570
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	571	<resource: #obsolete>
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	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	574
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	575	^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	576	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	577
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	578	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	579
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	580	<resource: #obsolete>
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	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	583
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	584	^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	585	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	586
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	587	askForExistingRevision:boxText title:title class:aClass
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	588
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	589	<resource: #obsolete>
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	590
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	591	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	592
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	593	^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	594	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	595
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	596	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	597
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	598	<resource: #obsolete>
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	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	601
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	602	^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	603	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	604
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	605	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	606
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	607	<resource: #obsolete>
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	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	610
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	611	^self default checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
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
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	614	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	615
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	616	<resource: #obsolete>
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	617
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	618	self obsoleteMethodWarning: 'Please use instance protocol (SourceCodeManagerUtilities default doSomething)'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	619
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	620	^self default getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	621	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	622
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	623	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
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	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	626
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	627	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	628
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	629	^self default getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	630	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	631
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	632	goodInitialLogMessageForCheckinClassOfClass:aClass
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	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	635
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	636	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	637
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	638	^self default goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	639	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	640
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	641	!SourceCodeManagerUtilities class methodsFor:'utilities-encoding'!
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	guessEncodingOfFile:aFilename
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	644
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	645	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	646
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	647	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	648
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	649	^self default guessEncodingOfFile:aFilename
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	650	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	651
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	652	guessEncodingOfStream:aStream
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	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	655
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	656	self 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	657
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	658	^self default guessEncodingOfStream:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	659	! !
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	!SourceCodeManagerUtilities methodsFor:'accessing'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	662
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	663	classResources
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	664
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	665	^self class classResources
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	666
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	667	"Created: / 10-10-2011 / 11:42:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	668	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	669
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	670	yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	671
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	672	^self class yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	673
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	674	"Created: / 11-10-2011 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	675	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	676
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	677	yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	678
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	679	^self class yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	680
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	681	"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	682	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	683
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	684	!SourceCodeManagerUtilities methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	685
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	686	doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	687
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	688	(self class respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	689	"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	690	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	691	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	692
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	693	^aMessage sendTo: self class
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	694	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	695	^super doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	696	]
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	697
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	698	"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	699	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	700
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	701	!SourceCodeManagerUtilities methodsFor:'initialization'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	702
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	703	initialize
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	704
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	705	resources := self classResources.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	706
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	707	"Modified: / 13-10-2011 / 11:03:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	708	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	709
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	710	setManager: aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	711
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	712	manager := aSourceCodeManager
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	"Created: / 10-10-2011 / 11:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	715	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	716
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	717	!SourceCodeManagerUtilities methodsFor:'utilities'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	718
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	719	classIsNotYetInRepository:aClass withManager:mgr
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	720	\|info\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	721
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	722	info := mgr sourceInfoOfClass:aClass.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	723
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	724	^ (info isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	725	or:[(info at:#fileName ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	726	or:[(info at:#module ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	727	or:[(info at:#directory ifAbsent:nil) isNil]]])
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	728
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	729	"Created: / 25-10-2006 / 09:43:00 / cg"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	730	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	731
2673 06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	732	defaultManager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	733	^ manager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	734
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	735	"Created: / 22-12-2011 / 10:59:28 / cg"
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	736	!
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	737
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	738	nameOfExtensionsContainer
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	739	^ 'extensions.st'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	740	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	741
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	742	setPackageOfAllMethodsIn:aClass to:aPackage
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	743	"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	744
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	745	\|anyChange anyChangeHere\|
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	746
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	747	anyChange := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	748	aClass withAllPrivateClassesDo:[:eachClass \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	749	anyChangeHere := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	750	eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	751	mthd package ~= aPackage ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	752	mthd setPackage:aPackage.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	753	anyChangeHere := true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	754	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	755	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	756	anyChangeHere ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	757	eachClass changed:#projectOrganization
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	758	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	759	anyChangeHere ifTrue:[anyChange := true].
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	760	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	761	anyChange ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	762	Smalltalk changed:#projectOrganization
1185 e86907810d1f handle abortAll in checkIn Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	763	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	764	^ anyChange
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	765	!
09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	766
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	767	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	768	"make all methods belong to the classes project"
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	769
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	770	aChangeSet do:[:eachChange \|
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	771	eachChange isMethodCodeChange ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	772	eachChange changeMethod package ~= aPackage ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	773	Transcript showCR:'change package of ',eachChange changeMethod whoString.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	774	eachChange changeMethod setPackage:aPackage.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	775	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	776	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	777	].
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	778	!
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	779
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	780	sourceCodeManagerFor:aClass
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	781	\|mgr assumption\|
934 4f06b1db2ca1 better user interface when asking for a revision to compare. Claus Gittinger <cg@exept.de> parents: 933 diff changeset	782
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	783	manager notNil ifTrue:[^manager].
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	784
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	785	mgr := aClass theNonMetaclass sourceCodeManager.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	786	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	787	SourceCodeManager isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	788	(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	789	^ nil
1012 92c4719178de faster search for halts etc. Claus Gittinger <cg@exept.de> parents: 1011 diff changeset	790	].
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	791	].
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	792	assumption := AbstractSourceCodeManager defaultManager ? CVSSourceCodeManager.
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	793	assumption notNil ifTrue:[
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	794	(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	795	^ nil
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	796	].
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	797	mgr := assumption.
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	798	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	799	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	800	^ mgr
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	801
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	802	"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	803	"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	804	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	805
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	806	sourceCodeOfClass:aClass
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	807	\|stream src\|
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	808
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	809	stream := '' writeStream.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	810	Method flushSourceStreamCache.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	811	aClass fileOutOn:stream withTimeStamp:false.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	812	src := stream contents asString.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	813	stream close.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	814	^ src
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	815	!
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	816
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	817	versionString:a isLessThan:b
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	818	"compare two strings of the form: a.b.c..."
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	819
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	820	\|i1 i2 a1 b1 rest1 rest2\|
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	821
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	822	i1 := a indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	823	i2 := b indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	824	i1 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	825	i1 := a size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	826	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	827	i2 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	828	i2 := b size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	829	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	830
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	831	a1 := Integer readFrom:(a copyTo:i1-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	832	b1 := Integer readFrom:(b copyTo:i2-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	833	a1 < b1 ifTrue:[^ true].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	834	a1 > b1 ifTrue:[^ false].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	835	rest1 := (a copyFrom:i1+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	836	rest2 := (b copyFrom:i2+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	837	rest1 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	838	^ rest2 notEmpty
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	839	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	840	rest2 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	841	^ false
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	842	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	843	^ self versionString:rest1 isLessThan:rest2
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	844
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	845	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	846	self assert:(self versionString:'12.34.66' isLessThan:'12.35.66').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	847	self assert:(self versionString:'12.34.66' isLessThan:'12.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	848	self assert:(self versionString:'11.34.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	849	self assert:(self versionString:'11.35.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	850	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	851	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	852	self assert:(self versionString:'13.35.66' isLessThan:'13.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	853	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	854	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	855	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	856	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	857	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	858	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	859
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	860	"Modified: / 17-02-2011 / 10:20:14 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	861	! !
1160 d56159f5a86f * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	862
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	863	!SourceCodeManagerUtilities methodsFor:'utilities-cvs'!
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	864
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	865	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	866	"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	867	If askForRevision is false, check-out the newest version.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	868	Return a changeSet or nil (if any error occurred)"
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	869
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	870	^ self
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	871	changeSetForExtensionMethodsForPackage:packageToCheckOut
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	872	revision:nil orAskForRevision:askForRevision
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	873	usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	874
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	875	"Created: / 29-12-2011 / 14:26:01 / cg"
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	876	!
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	877
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	878	changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	879	"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	880	If askForRevision is false, check-out the newest version.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	881	Return a changeSet or nil (if any error occurred)"
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	882
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	883	\|resources directory module file aStream sourceToLoad rev msg newestRev \|
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	884
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	885	resources := self classResources.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	886
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	887	directory := packageToCheckOut asPackageId directory.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	888	module := packageToCheckOut asPackageId module.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	889	file := self nameOfExtensionsContainer.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	890
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	891	"/
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	892	"/ ask for revision
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	893	"/
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	894	(rev := revisionOrNil) isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	895	newestRev := aSourceCodeManager newestRevisionInFile:file directory:directory module:module.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	896	askForRevision ifFalse:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	897	rev := newestRev ? ''
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	898	] ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	899	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	900	newestRev notNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	901	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	902	].
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	903
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	904	rev := self
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	905	askForExistingRevision:msg
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	906	title:'CheckOut from repository'
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	907	class:nil
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	908	manager:aSourceCodeManager
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	909	module:module package:directory fileName:file.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	910
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	911	rev isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	912	^ nil "/ canceled
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	913	].
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	914	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	915	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	916	rev withoutSpaces isEmpty ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	917	rev := #newest.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	918	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	919	] ifFalse:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	920	msg := 'extracting previous %1'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	921	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	922	aStream := aSourceCodeManager
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	923	streamForClass:nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	924	fileName:file
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	925	revision:rev
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	926	directory:directory
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	927	module:module
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	928	cache:true.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	929
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	930	aStream isNil ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	931	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	932	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	933	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	934	aStream class readErrorSignal handle:[:ex \|
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	935	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	936	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	937	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	938	] do:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	939	sourceToLoad := aStream contents asString.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	940	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	941	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	942	^ ChangeSet fromStream:(sourceToLoad readStream).
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	943
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	944	"Created: / 29-12-2011 / 14:27:00 / cg"
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	945	!
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	946
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	947	checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:allowCreate
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	948	\|resources moduleName directoryName containerName\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	949
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	950	resources := self classResources.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	951	moduleName := module allBold.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	952	directoryName := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	953	containerName := containerFileName allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	954
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	955	"/
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	956	"/ check for the container
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	957	"/
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	958	(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	959	allowCreate ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	960	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	961	with:containerName with:moduleName with:directoryName) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	962	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	963	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	964	(Dialog
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	965	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	966	with:containerName with:moduleName with:directoryName) withCRs
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	967	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	968	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	969	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	970	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	971	(mgr createContainerForText:'' inModule:module package:directory container:containerFileName) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	972	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	973	with:containerName with:moduleName with:directoryName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	974	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	975	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	976	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	977	^ true.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	978
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	979	"Modified: / 13-09-2006 / 18:24:57 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	980	"Created: / 29-12-2011 / 14:35:36 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	981	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	982
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	983	checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	984	\|resources moduleNameBold directoryNameBold\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	985
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	986	resources := self classResources.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	987	moduleNameBold := module allBold.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	988	directoryNameBold := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	989
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	990	"/
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	991	"/ check for the directory
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	992	"/
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	993	(mgr checkForExistingModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	994	allowCreate ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	995	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	996	with:directoryNameBold with:moduleNameBold) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	997	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	998	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	999	(Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1000	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	1001	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1002	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1003	with:mgr managerTypeName)
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1004	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1005	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1006	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1007	].
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1008	(mgr createModule:module directory:directory) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1009	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	1010	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1011	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1012	with:mgr managerTypeName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1013	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1014	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1015	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1016	^ true.
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1017
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1018	"Modified: / 21-12-2011 / 18:46:11 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1019	"Created: / 29-12-2011 / 14:35:20 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1020	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1021
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1022	checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1023	\|resources moduleName answer\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1024
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1025	(mgr checkForExistingModule:module) ifFalse:[
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1026	resources := self classResources.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1027	moduleName := module allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1028
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1029	allowCreate ifFalse:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	1030	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	1031	with:moduleName) .
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1032	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1033	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1034	AbortAllOperationWantedQuery query ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1035	answer := Dialog
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1036	confirmWithCancel:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1037	labels:(resources array:#('Cancel All' 'Cancel' 'Yes' )).
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1038	answer isNil ifTrue:[ AbortAllOperationRequest raise ].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1039	] ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1040	answer := Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1041	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	1042	noLabel:'Cancel'
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1043	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1044	answer ifFalse:[ ^ false].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1045
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1046	(mgr createModule:module) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1047	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	1048	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1049	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1050	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1051	^ true.
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1052
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1053	"Modified: / 21-12-2011 / 18:42:03 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1054	"Created: / 29-12-2011 / 14:35:06 / cg"
1158 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
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1057	checkinBuildSupportFilesForPackage:packageID
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1058
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1059	\|anyFailure module directory mgr defClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1060
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1061	mgr := self sourceCodeManagerFor: packageID.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1062	defClass := ProjectDefinition definitionClassForPackage: packageID.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1063
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1064	defClass validateDescription.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1065
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1066	anyFailure := false.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1067
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1068	module := packageID asPackageId module.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1069	directory := packageID asPackageId directory.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1070
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1071	self activityNotification:(resources string:'checking in build-support files...').
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1072	(mgr checkForExistingModule:module directory:directory) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1073	mgr createModule:module directory:directory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1074	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1075	defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1076	\|realFileName realDirectory\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1077
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1078	"/ care for subdirectories
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1079	(fileName includes:$/) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1080	realDirectory := (directory asFilename construct:(fileName asFilename directoryName)) name.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1081	realFileName := fileName asFilename baseName.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1082	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1083	realDirectory := directory.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1084	realFileName := fileName.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1085	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1086	realDirectory := realDirectory replaceAll:$\ with:$/.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1087
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1088	self activityNotification:(resources string:'checking in %1...' with:realFileName).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1089
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1090	UserInformation
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1091	handle:[:ex \| Transcript showCR:ex description ]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1092	do:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1093	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1094	checkForExistingContainer:realFileName inModule:module directory:realDirectory)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1095	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1096	realDirectory ~= directory ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1097	(mgr checkForExistingModule:module directory:realDirectory) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1098	mgr createModule:module directory:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1099	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1100	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1101	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1102	createContainerForText:fileContents
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1103	inModule:module
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1104	package:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1105	container:realFileName)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1106	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1107	Dialog warn:(resources
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1108	stringWithCRs:'Cannot create new container: ''%3'' (in %1:%2)'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1109	with:module
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1110	with:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1111	with:realFileName)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1112	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1113	] ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1114	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1115	checkin:realFileName
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1116	text:fileContents
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1117	directory:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1118	module:module
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1119	logMessage:'automatically generated by browser'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1120	force:false)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1121	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1122	Transcript showCR:'checkin of ' , realFileName , ' failed'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1123	anyFailure := true.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1124	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1125	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1126	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1127	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1128
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1129	defClass instAndClassMethodsDo:[:m \| m package:defClass package].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1130
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1131	self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1132	checkinClasses:(Array with:defClass)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1133	withInfo:'automatic checkIn'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1134	withCheck:false.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1135
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1136
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1137	self activityNotification:nil.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1138
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1139	anyFailure ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1140	self warn:'Checkin failed - see Transcript.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1141	self activityNotification:'Checkin of build-support files failed - see Transcript.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1142	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1143	self activityNotification:'Build-support files checked into the repository.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1144	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1145
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1146	"Created: / 09-08-2006 / 18:59:42 / fm"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1147	"Modified: / 16-08-2006 / 18:38:49 / User"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1148	"Created: / 06-09-2011 / 08:00:57 / cg"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1149	"Modified: / 12-10-2011 / 11:36:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1150	"Created: / 13-10-2011 / 11:15:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1151	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1152
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1153	checkinClass:aClass
401f915dd118 checkin from browser ps parents: 882 diff changeset	1154	"check a class into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1155	Asks interactively for a log-message."
882 8af38187135c checkin from browser Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1156
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1157	^ self checkinClass:aClass withInfo:nil
882 8af38187135c checkin from browser Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1158	!
8af38187135c checkin from browser Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1159
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1160	checkinClass:aClass withInfo:aLogInfoOrNil
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1161	"check a class into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1162	If the argument, aLogInfoOrNil isNil, ask interactively for a log-message."
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1163
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1164	^ self checkinClass:aClass withInfo:aLogInfoOrNil withCheck:true
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1165	!
ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1166
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	1167	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1168	"check a class into the source repository.
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	1169	If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1170	If doCheckClass is true, the class is checked for send of halts etc."
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1171
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1172	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1173	checkinClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1174	withInfo:aLogInfoOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1175	withCheck:doCheckClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1176	usingManager:(self sourceCodeManagerFor:aClass)
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1177
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1178	"Modified: / 21-12-2011 / 18:19:55 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1179	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1180
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1181	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:managerOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1182	"check a class into the source repository.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1183	If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1184	If doCheckClass is true, the class is checked for send of halts etc."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1185
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	1186	\|logMessage checkinInfo mgr pri resources\|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1187
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1188	aClass isLoaded ifFalse:[
2360 3982314184bb changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1189	self information:(resources string:'Cannot checkin unloaded classes (%1)' with:aClass name).
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1190	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1191	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1192
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1193	mgr := managerOrNil.
954 3446cc28ec1f * empty log message * Claus Gittinger <cg@exept.de> parents: 952 diff changeset	1194	mgr isNil ifTrue:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1195	mgr := self sourceCodeManagerFor:aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1196	mgr isNil ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1197	^ false
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1198	]
954 3446cc28ec1f * empty log message * Claus Gittinger <cg@exept.de> parents: 952 diff changeset	1199	].
3446cc28ec1f * empty log message * Claus Gittinger <cg@exept.de> parents: 952 diff changeset	1200
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1201	self ensureCorrectVersionMethodsInClass:aClass usingManager:mgr.
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1202	mgr supportsCheckinLogMessages ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1203	(self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1204	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1205	forClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1206	valuesInto:[:logMessageRet :checkinInfoRet \|
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1207	logMessage := logMessageRet.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1208	checkinInfo := checkinInfoRet.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1209	]
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1210	) ifFalse:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1211	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1212
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1213	resources := self classResources.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1214
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	1215	(self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1216	(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1217	"/ self warn:'did not create a container for ''' , aClass name , ''''.
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1218	^ false
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1219	].
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1220	^ true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1221	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1222
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1223	self activityNotification:(resources string:'checking in %1' with:aClass name).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1224	pri := Processor activePriority.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1225	Processor activeProcess withPriority:pri-1 to:pri
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1226	do:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1227	\|revision aborted freshCreated\|
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1228
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1229	freshCreated := false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1230	revision := aClass revision.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1231	revision isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1232	"/ mhmh - check if it has a container.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1233	(mgr checkForExistingContainerForClass:aClass) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1234	(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1235	self warn:'Did not create/change repository container for ''' , aClass name allBold , ''''.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1236	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1237	].
1503 87c2f93ff941 care for files in the Attic Claus Gittinger <cg@exept.de> parents: 1501 diff changeset	1238	freshCreated := true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1239	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1240	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1241
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	1242	doCheckClass value ifTrue:[
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1243	"/ check if the class contains halts, error-sends etc.
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	1244	(self checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:doCheckClass) ifFalse:[
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1245	^ false
ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1246	].
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	1247	].
b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	1248
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1249	freshCreated ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1250	aborted := false.
1113 30540d5fc3b7 class based exceptions - abortSignal; Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	1251	AbortOperationRequest handle:[:ex \|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1252	aborted := true.
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1253	ex return.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1254	] do:[
1828 e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1255	\|checkinState cause\|
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1256	checkinState := false.
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1257	cause := ''.
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1258	[
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1259	checkinState := mgr checkinClass:aClass logMessage:logMessage
2362 9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1260	] on:SourceCodeManagerError do:[:ex\|
9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1261	cause := ex description.
9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1262	ex proceed.
9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1263	].
1828 e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1264
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1265	checkinState ifFalse:[
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1266	Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.
2360 3982314184bb changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1267	self warn:(resources stringWithCRs:'Checkin of "%1" failed\\' with:aClass name allBold),cause.
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1268	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1269	].
1725 b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1270	checkinInfo notNil ifTrue:[
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1271	checkinInfo isStable ifTrue:[
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1272	"set stable tag for class that has been checked in"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	1273	self tagClass:aClass as:#stable.
1725 b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1274	].
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1275	checkinInfo tagIt ifTrue:[
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1276	"set an additional tag for class that has been checked in"
1728 495b738df5fa * empty log message * Claus Gittinger <cg@exept.de> parents: 1727 diff changeset	1277	self tagClass:aClass as:(checkinInfo tag).
1725 b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1278	].
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1279	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1280	].
1519 c0e28a7d3c73 no longer move other extensions into my project when Claus Gittinger <cg@exept.de> parents: 1514 diff changeset	1281	aborted ifTrue:[ \|con\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1282	Transcript showCR:'Checkin of ''' , aClass name , ''' aborted'.
1519 c0e28a7d3c73 no longer move other extensions into my project when Claus Gittinger <cg@exept.de> parents: 1514 diff changeset	1283
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1284	AbortAllOperationWantedQuery query ifTrue:[
1032 24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1285	(Dialog
2360 3982314184bb changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1286	confirm:(resources stringWithCRs:'Checkin of "%1" aborted.\\Cancel all ?' with:aClass name)
1032 24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1287	default:false)
24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1288	ifTrue:[
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1289	AbortAllOperationRequest raise.
1032 24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1290	]
1016 ab35c6af1614 yes-to-all option Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1291	].
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1292	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1293	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1294	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1295	].
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1296	^ true
1113 30540d5fc3b7 class based exceptions - abortSignal; Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	1297
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1298	"Created: / 21-12-2011 / 18:19:14 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1299	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1300
920 ab68cf4c6ee6 * empty log message * Claus Gittinger <cg@exept.de> parents: 906 diff changeset	1301	checkinClasses:aCollectionOfClass
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1302	"check a collection of classes into the source repository.
401f915dd118 checkin from browser ps parents: 882 diff changeset	1303	Asks interactively for log-message."
401f915dd118 checkin from browser ps parents: 882 diff changeset	1304
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1305	^ self checkinClasses:aCollectionOfClass withInfo:nil
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1306	!
401f915dd118 checkin from browser ps parents: 882 diff changeset	1307
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1308	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1309	"check a bunch of classes into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1310	If the argument, aLogInfoOrNil isNil, ask interactively for log-message."
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1311
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1312	^ self
1142 cba1ede48a4a allow check for halt/error to be turned off via userPrefs Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	1313	checkinClasses:aCollectionOfClasses
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1314	withInfo:aLogInfoOrNil
1142 cba1ede48a4a allow check for halt/error to be turned off via userPrefs Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	1315	withCheck:(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true)
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1316	!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1317
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1318	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1319	"check a bunch of classes into the source repository.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1320	If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1321
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1322	self checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:nil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1323
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1324	"Modified: / 21-12-2011 / 18:24:47 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1325	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1326
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1327	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:aManagerOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1328	"check a bunch of classes into the source repository.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1329	If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1330
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1331	\|classes allClasses checkinInfoOrString resources yesOrNoToAll unchangedClasses\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1332
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1333	"/ ignore private classes
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1334	classes := aCollectionOfClasses select:[:aClass \| aClass owningClass isNil].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1335	classes isEmpty ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1336	self information:'Only private classes given - nothing checked in.'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1337	^ self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1338	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1339	classes := classes select:[:aClass \| aClass isLoaded].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1340	classes isEmpty ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1341	self information:'Only unloaded classes given - nothing checked in.'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1342	^ self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1343	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1344
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1345	classes size == 1 ifTrue:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1346	^ self checkinClass:classes first withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:aManagerOrNil.
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1347	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1348
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1349	resources := self classResources.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1350
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1351	"ask once, for all classes"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1352	aLogInfoOrStringNil isNil ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1353	checkinInfoOrString := self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1354	getCheckinInfoFor:(resources string:'%1 classes to checkin' with:aCollectionOfClasses size)
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1355	initialAnswer:nil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1356	withQuickOption:true.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1357	checkinInfoOrString isNil ifTrue:[^ self].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1358	] ifFalse:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1359	checkinInfoOrString := aLogInfoOrStringNil.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1360	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1361
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1362	allClasses := classes.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1363	checkinInfoOrString quickCheckIn ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1364	classes := classes select:[:aClass \| aClass hasUnsavedChanges].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1365	classes isEmpty ifTrue:[ Dialog information:'no changes to checkin (quickCheckIn)' ]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1366	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1367
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1368	"abortAll is handled, and also asked for here!!"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1369	AbortAllOperationRequest handleAndAnswerQueryIn:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1370	classes notEmpty ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1371	self yesToAllNotification handle:[:ex \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1372	yesOrNoToAll := ex parameter.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1373	ex proceed
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1374	] do:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1375	self yesToAllQuery handle:[:ex \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1376	ex proceedWith:yesOrNoToAll
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1377	] do:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1378	classes do:[:aClass \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1379	self activityNotification:(resources string:'checking in %1' with:aClass name).
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1380	"/ ca does not want boxes to pop up all over ...
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1381	UserInformation handle:[:ex \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1382	Transcript showCR:ex description.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1383	ex proceed.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1384	] do:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1385	AbortOperationRequest catch:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1386	self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1387	checkinClass:aClass
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1388	withInfo:checkinInfoOrString
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1389	withCheck:doCheckClasses
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1390	usingManager:aManagerOrNil
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1391	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1392	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1393	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1394	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1395	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1396	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1397
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1398	(checkinInfoOrString isStable or:[checkinInfoOrString tagIt])
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1399	ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1400	"/mhmh - but tag should be set on all (even unchanged ones)
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1401	"/ the other onces have already been tagged
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1402	unchangedClasses := allClasses select:[:eachClass \| (classes includes:eachClass) not].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1403
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1404	"mhmh - could still have to tag them"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1405	checkinInfoOrString isStable ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1406	unchangedClasses do:[:eachClass \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1407	self tagClass:eachClass as:#stable.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1408	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1409	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1410	checkinInfoOrString tagIt ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1411	unchangedClasses do:[:eachClass \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1412	self tagClass:eachClass as:(checkinInfoOrString tag).
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1413	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1414	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1415	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1416	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1417
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1418	"Created: / 21-12-2011 / 18:24:25 / cg"
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1419	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1420
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1421	checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1422	"checkin a projects extensions into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1423	If the argument, aLogInfoOrStringOrNil isNil, ask interactively for log-message."
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1424
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1425	\|logMessage checkinInfo mgr pri resources module directory containerFileName s
2233 59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1426	methodSource methodsSortedByName defClass\|
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1427
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1428	resources := self classResources.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1429
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1430	"/ the following is wrong - must ask the projectDefinition !!
2288 9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1431	aPackageID asPackageId projectDefinitionClass notNil ifTrue:[
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1432	mgr := self sourceCodeManagerFor:aPackageID asPackageId projectDefinitionClass.
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1433	] ifFalse:[
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1434	mgr := self sourceCodeManagerFor:aCollectionOfMethods first mclass.
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1435	].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1436	mgr isNil ifTrue:[ ^ false ].
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1437
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1438	module := aPackageID asPackageId module.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1439	directory := aPackageID asPackageId directory.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1440	containerFileName := self nameOfExtensionsContainer.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1441
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1442	aLogInfoOrStringOrNil isNil ifTrue:[
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1443	checkinInfo := self getCheckinInfoFor:containerFileName allBold initialAnswer:nil.
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1444	checkinInfo isNil ifTrue:[^ false].
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1445	logMessage := checkinInfo logMessage.
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1446	] ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1447	aLogInfoOrStringOrNil isString ifTrue:[
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1448	logMessage := aLogInfoOrStringOrNil
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1449	] ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1450	checkinInfo := aLogInfoOrStringOrNil.
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1451	logMessage := checkinInfo logMessage.
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1452	].
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1453	].
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1454
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1455	(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1456	(self checkForExistingModule:module usingManager:mgr allowCreate:true) ifFalse:[^ false].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1457	LastModule := module.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1458
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1459	(self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:true) ifFalse:[^ false].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1460	LastPackage := directory.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1461
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1462	(self checkForExistingModule:module directory:directory container:containerFileName usingManager:mgr allowCreate:true) ifFalse:[^ false].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1463	].
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1464
1120 f039453a5562 * empty log message * Claus Gittinger <cg@exept.de> parents: 1113 diff changeset	1465	self activityNotification:(resources string:'Checking in %1' with:containerFileName).
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1466	pri := Processor activePriority.
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1467	Processor activeProcess
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1468	withPriority:pri-1 to:pri
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1469	do:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1470	s := '' writeStream.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1471
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1472	s nextPutAll:'"{ Package: '''.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1473	s nextPutAll:aPackageID asString.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1474	s nextPutAll:''' }"'; nextPutChunkSeparator; cr; cr.
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1475
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1476	"/ s nextPutAll:(Smalltalk timeStamp).
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1477	"/ s nextPutChunkSeparator.
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1478	"/ s cr; cr.
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1479
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1480	"/ sort them by name (to avoid conflict due to CVS merge)
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1481	methodsSortedByName := aCollectionOfMethods asOrderedCollection.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1482	methodsSortedByName sort:[:a :b \|
1015 89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1483	\|clsA clsB\|
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1484
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1485	clsA := a mclass name.
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1486	clsB := b mclass name.
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1487	clsA < clsB ifTrue:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1488	true
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1489	] ifFalse:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1490	clsA > clsB ifTrue:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1491	false
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1492	] ifFalse:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1493	a selector < b selector
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1494	]
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1495	]
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1496	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1497	methodsSortedByName do:[:aMethod \|
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1498	aMethod mclass fileOutMethod:aMethod on:s.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1499	s cr.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1500	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1501
2233 59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1502	defClass := ProjectDefinition definitionClassForPackage:aPackageID.
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1503	defClass notNil ifTrue:[
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1504	"/ make sure, an extensionVersion_XXX method is included...
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1505	"/ (notice: no need to support a secondary backward compatible non-manager related version method here)
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1506	(methodsSortedByName contains:[:aMethod \| aMethod selector == mgr nameOfVersionMethodForExtensions]) ifFalse:[
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1507	s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1508	s cr.
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1509	s nextChunkPut:
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1510	(mgr versionMethodTemplateForSmalltalkFor:(mgr nameOfVersionMethodForExtensions)).
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1511	s space; nextPutChunkSeparator.
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1512	].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1513	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1514
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1515	methodSource := s contents.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1516
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1517	UserInformation handle:[:ex \|
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1518	Transcript showCR:ex description.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1519	ex proceed.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1520	] do:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1521	Transcript showCR:('checking in ',containerFileName,' ...').
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1522	(mgr
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1523	checkin:containerFileName
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1524	text:methodSource
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1525	directory:directory
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1526	module:module
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1527	logMessage:logMessage
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1528	force:false)
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1529	ifFalse:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1530	Transcript showCR:'Checkin of ''' , containerFileName , ''' failed'.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1531	self warn:'Checkin of ''' , containerFileName allBold , ''' failed'.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1532	^ false.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1533	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1534	checkinInfo notNil ifTrue:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1535	\|path\|
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1536
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1537	path := (module, '/', directory, '/', containerFileName).
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1538	checkinInfo isStable ifTrue:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1539	"set stable tag for class that has been checked in"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1540	self tagPath:path as:#stable usingManager:mgr.
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1541	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1542	checkinInfo tagIt ifTrue:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1543	"set an additional tag for class that has been checked in"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1544	self tagPath:path as:(checkinInfo tag) usingManager:mgr.
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1545	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1546	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1547	mgr postCheckInExtensionsForPackage:aPackageID
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1548	].
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1549	].
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1550	^ true
1090 8608e5b91fa7 condense changeSet after checking in an extensions container Claus Gittinger <cg@exept.de> parents: 1084 diff changeset	1551
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1552	"Modified: / 29-12-2011 / 14:32:11 / cg"
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1553	!
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1554
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1555	checkinPackage:packageToCheckIn classes:doClasses extensions:doExtensions buildSupport:doBuild askForMethodsInOtherPackages:askForMethodsInOtherPackages
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1556	\|mgr classes classesToCheckIn methodsToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1557	methodsInOtherPackages looseMethods otherPackages
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1558	msg classesInChangeSet checkinInfo originalCheckinInfo classesToTag\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1559
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1560	mgr := self sourceCodeManagerFor: packageToCheckIn.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1561	classes := Smalltalk allClasses.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1562
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1563	classesToCheckIn := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1564	methodsToCheckIn := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1565	methodsInOtherPackages := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1566	looseMethods := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1567
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1568	"/ classes ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1569	classes do:[:aClass \| \|owner classPackage\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1570	(owner := aClass owningClass) notNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1571	classPackage := aClass topOwningClass package
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1572	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1573	classPackage := aClass package
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1574	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1575	(classPackage = packageToCheckIn) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1576	classesToCheckIn add:aClass.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1577	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1578	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1579
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1580	"/ cg: O(n^2) algorithm
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1581	"/ classesInChangeSet := classesToCheckIn select:[:cls \| cls hasUnsavedChanges].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1582	"/ replaced by: O(n) algorithm
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1583	classesInChangeSet := ChangeSet current selectForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom:classesToCheckIn.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1584
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1585	"/ individual methods ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1586	classes do:[:aClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1587	aClass isMeta ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1588	"/ ... whose class is not in the chechIn-set
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1589	(classesToCheckIn includes:aClass) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1590	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1591	"/ methods in this project ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1592	(mthd package = packageToCheckIn) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1593	methodsToCheckIn add:mthd
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1594	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1595	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1596	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1597	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1598	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1599
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1600	doExtensions ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1601	methodsToCheckIn notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1602	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1603	msg := '%1 classes (%4 changed) '.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1604	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1605	msg := ''.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1606	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1607	doExtensions ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1608	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1609	msg := msg , 'and '.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1610	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1611	msg := msg , '%2 extensions '.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1612	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1613	msg := msg , 'of project "%3"'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1614
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1615	checkinInfo := self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1616	getCheckinInfoFor:(msg
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1617	bindWith:classesToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1618	with:methodsToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1619	with:packageToCheckIn allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1620	with:classesInChangeSet size)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1621	initialAnswer:nil
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1622	withQuickOption:(classesToCheckIn size > 0).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1623	checkinInfo isNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1624	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1625	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1626	(self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1627	checkinExtensionMethods:methodsToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1628	forPackage:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1629	withInfo:checkinInfo)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1630	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1631	Dialog warn:(resources string:'Could not check in extensions for project %1' with:packageToCheckIn).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1632	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1633	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1634	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1635	"/ there may have been extension-methods previously - if so, remove them
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1636	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1637	checkForExistingContainer:'extensions.st' inPackage:packageToCheckIn)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1638	ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1639	"/ self halt.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1640	(self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1641	checkinExtensionMethods:#()
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1642	forPackage:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1643	withInfo:'No extensions any more')
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1644	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1645	Dialog warn:(resources string:'Could not check in extensions for project %1' with:packageToCheckIn).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1646	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1647	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1648	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1649	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1650	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1651
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1652	checkinInfo isNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1653	checkinInfo := self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1654	getCheckinInfoFor:('%1 classes (%4 changed) and %2 extensions for project "%3"'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1655	bindWith:classesToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1656	with:methodsToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1657	with:packageToCheckIn allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1658	with:classesInChangeSet size)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1659	initialAnswer:nil
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1660	withQuickOption:(classesToCheckIn size > 0).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1661	checkinInfo isNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1662	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1663	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1664	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1665
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1666	checkinInfo quickCheckIn ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1667	(checkinInfo isStable or:[checkinInfo tagIt]) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1668	classesToTag := classesToCheckIn.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1669	originalCheckinInfo := checkinInfo.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1670	checkinInfo := checkinInfo copy.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1671	checkinInfo isStable:false.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1672	checkinInfo tag:nil.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1673	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1674	classesToCheckIn := classesInChangeSet.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1675	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1676
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1677	"/ check if any of the classes contains methods for other packages ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1678	classesToCheckIn do:[:eachClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1679	eachClass instAndClassMethodsDo:[:eachMethod \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1680	\|mPgk\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1681
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1682	mPgk := eachMethod package.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1683	(mPgk = packageToCheckIn) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1684	mPgk == PackageId noProjectID ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1685	looseMethods add:eachMethod
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1686	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1687	methodsInOtherPackages add:eachMethod
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1688	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1689	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1690	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1691	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1692
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1693	askForMethodsInOtherPackages ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1694	methodsInOtherPackages notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1695	otherPackages := Set new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1696	methodsInOtherPackages do:[:eachMethod \| otherPackages add:eachMethod package].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1697
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1698	methodsInOtherPackages size == 1 ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1699	msg := 'The ''%4'' method in ''%5'' is contained in the ''%2'' package.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1700	msg := msg , '\\This method will remain in its package.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1701	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1702	otherPackages size == 1 ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1703	msg := 'The %1 methods from the %2 package will remain in its package.'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1704	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1705	msg := 'The %1 methods from %3 other packages will remain in their packages.'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1706	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1707	msg := msg , '\\Hint: if these are meant to belong to this package,'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1708	msg := msg , '\move them first, then repeat the checkin operation.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1709	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1710	msg := msg withCRs.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1711	msg := msg bindWith:methodsInOtherPackages size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1712	with:otherPackages first allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1713	with:otherPackages size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1714	with:methodsInOtherPackages first selector allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1715	with:methodsInOtherPackages first mclass name allBold.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1716	(Dialog confirm:msg noLabel:(resources string:'Cancel')) ifFalse:[^ self].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1717	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1718	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1719
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1720	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1721	classesToCheckIn notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1722	looseMethods notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1723	looseMethods size == 1 ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1724	msg := 'The ''%2'' method in ''%3'' is unassigned (loose).'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1725	msg := msg , '\\If you proceed, this method will be moved to the ''%4'' package'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1726	msg := msg , '\\Hint: if this is meant to be an extension of another package,'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1727	msg := msg , '\cancel and move it to the appropriate package first.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1728	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1729	msg := 'There are %1 unassigned (loose) methods in classes from this project.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1730	msg := msg , '\\If you proceed, those will be moved to the ''%4'' package ?'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1731	msg := msg , '\\Hint: if these are meant to be extensions of another package,'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1732	msg := msg , '\cancel and move them to the appropriate package first.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1733	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1734	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1735	msg := msg , '\\If you answer with "No" here, you will be asked for each class individually.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1736	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1737	msg := msg withCRs.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1738	msg := msg bindWith:looseMethods size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1739	with:(looseMethods isEmpty ifTrue:[''] ifFalse:[looseMethods first selector allBold])
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1740	with:(looseMethods isEmpty ifTrue:[''] ifFalse:[looseMethods first mclass name allBold])
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1741	with:packageToCheckIn allBold.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1742	(Dialog confirm:msg noLabel:(resources string:'Cancel')) ifFalse:[^ self].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1743
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1744	looseMethods do:[:mthd \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1745	mthd package:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1746	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1747	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1748	self checkinClasses:classesToCheckIn withInfo:checkinInfo.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1749	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1750
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1751	originalCheckinInfo notNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1752	originalCheckinInfo isStable ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1753	classesToTag do:[:eachClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1754	self tagClass:eachClass as:#stable
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1755	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1756	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1757	originalCheckinInfo tagIt ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1758	classesToTag do:[:eachClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1759	self tagClass:eachClass as:(originalCheckinInfo tag)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1760	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1761	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1762	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1763	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1764
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1765	doBuild ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1766	self checkinBuildSupportFilesForPackage:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1767	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1768
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1769	"Modified: / 08-09-2011 / 04:42:38 / cg"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1770	"Created: / 13-10-2011 / 11:15:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1771	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1772
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1773	checkoutClass:aClass askForMerge:askForMerge
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1774	"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	1775
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1776	self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1777	checkoutClass:aClass
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1778	askForRevision:true
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1779	askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1780	!
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1781
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1782	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1783	"check-out a class from the source repository.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1784	If askForRevision is false, check-out the newest version."
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1785
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1786	self
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1787	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1788	askForConfirmation:true
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1789	!
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1790
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1791	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1792	"check-out a class from the source repository.
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1793	If askForRevision is false, check-out the newest version."
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1794
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1795	\|mgr resources sourceInfo
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1796	currentClass inChangeSet
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1797	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	1798	nm msg rev2 newestRev
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1799	containerModule containerPackage containerFile rslt
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1800	pkg listHere listRep diffSet
1054 4ecc5aeca084 * empty log message * Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	1801	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	1802	changedClasses default versionMethodsHere versionMethodsRep changedClassDefinitions
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1803	wasInChangeSetBefore\|
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1804
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1805	aClass isNil ifTrue:[self error:'nil class'].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1806
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1807	resources := self classResources.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1808
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1809	currentClass := aClass theNonMetaclass.
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1810
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1811	nm := currentClass name.
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1812	mgr := self sourceCodeManagerFor:currentClass.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1813	mgr isNil ifTrue:[
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1814	^ self
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1815	].
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1816
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1817	sourceInfo := mgr sourceInfoOfClass:currentClass.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1818	sourceInfo notNil ifTrue:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1819	currentClass package ~= PackageId noProjectID ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1820	containerPackage := mgr directoryFromSourceInfo:sourceInfo.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1821	containerModule := mgr moduleFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1822	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1823	containerFile := mgr containerFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1824	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1825
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1826	currentClass isLoaded ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1827	rev := currentClass binaryRevision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1828	rev2 := currentClass revision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1829	rev isNil ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1830	rev := rev2
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1831	].
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1832	rev isNil ifTrue:[
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1833	pkg := currentClass package.
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1834	(pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1835	containerModule := pkg upTo:$:.
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1836	containerPackage := pkg copyFrom:(containerModule size + 2).
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1837	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1838	containerModule size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1839	containerModule := (self class lastModule ) ? Project current repositoryModule.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1840	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1841	containerPackage size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1842	containerPackage := (self class lastPackage ) ? Project current package.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1843	].
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1844	answer := self confirmWithCancel:(resources
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1845	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	1846	with:containerModule allBold
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1847	with:containerPackage allBold
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1848	with:currentClass name allBold) withCRs.
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1849	answer isNil ifTrue:[^ self "cancelled"].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1850	answer ifFalse:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1851	rslt := self
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1852	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	1853	title:'Container to load from' note:nil
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1854	initialModule:containerModule
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1855	initialPackage:containerPackage
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1856	initialFileName:(currentClass nameWithoutPrefix , '.st')
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1857	forNewContainer:false.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1858
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1859	rslt isNil ifTrue:[
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1860	"/ canel
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1861	^ self
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1862	].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1863	containerModule := "lastModule :=" rslt at:#module.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1864	containerPackage := "lastPackage :=" rslt at:#package.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1865	containerFile := rslt at:#fileName.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1866	].
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1867
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1868	"/ rslt := self
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1869	"/ 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	1870	"/ title:'Container to checkOut' note:nil
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1871	"/ initialModule:containerModule
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1872	"/ initialPackage:containerPackage
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1873	"/ initialFileName:(currentClass name , '.st').
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1874	"/ forNewContainer:false.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1875	"/ rslt isNil ifTrue:[^ self].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1876	"/ 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	1877	"/ ^ self
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1878	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1879	].
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1880
1966 d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1881	containerFile isNil ifTrue:[
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1882	containerFile := currentClass classFilename.
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1883	].
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1884
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1885	"/
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1886	"/ 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	1887	"/
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1888	"/ newestRev := mgr newestRevisionOf:currentClass.
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1889	containerModule isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1890	containerModule := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1891	stringWithCRs:'Missing Module Information for CheckOut of "%1".\\Module:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1892	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1893	containerModule isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1894	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1895	containerPackage isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1896	containerPackage := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1897	stringWithCRs:'Missing Package Information for CheckOut of "%1".\\Package:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1898	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1899	containerPackage isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1900	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1901
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1902	newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1903	askForRevision ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1904	rev := newestRev ? ''
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1905	] ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1906	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	1907	rev notNil ifTrue:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1908	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	1909	with:nm allBold with:rev).
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1910	(rev2 notNil and:[rev2 ~= rev]) ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1911	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	1912	]
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1913	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1914	newestRev notNil ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1915	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	1916	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1917
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1918	rev := self
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1919	askForExistingRevision:msg
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1920	title:'CheckOut from repository'
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1921	class:currentClass.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1922	rev isNil ifTrue:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1923	^ self "/ canceled
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1924	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1925	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1926
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1927	rev withoutSpaces isEmpty ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1928	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1929	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1930	aStream := mgr getSourceStreamFor:currentClass revision:newestRev.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1931	revString := '(newest: ' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1932	] ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1933	msg := 'extracting previous %1'.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1934	"/ aStream := mgr getSourceStreamFor:currentClass revision:rev.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1935	"/ revString := rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1936	aStream := mgr
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1937	streamForClass:currentClass
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1938	fileName:containerFile
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1939	revision:rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1940	directory:containerPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1941	module:containerModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1942	cache:true.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1943	].
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1944
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1945	aStream isNil ifTrue:[
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1946	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	1947	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1948	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1949	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	1950	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	1951	aStream close.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1952	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1953	] do:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1954	sourceToLoad := aStream contents asString.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1955	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1956	aStream close.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1957
1919 8d30ac5be40f * empty log message * boris parents: 1913 diff changeset	1958	wasInChangeSetBefore := ChangeSet current includesChangeForClassOrMetaclass:currentClass.
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1959
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1960	currentClass isLoaded ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1961	rev = newestRev ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1962	currentClass autoload.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1963	] ifFalse:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1964	sourceToLoad readStream fileIn.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1965	].
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1966	wasInChangeSetBefore ifFalse:[
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1967	ChangeSet current condenseChangesForClass:currentClass.
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1968	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1969	^ self.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1970	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1971
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1972	inChangeSet := aClass hasUnsavedChanges.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1973
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1974	Error handle:[:ex \|
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1975	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1976	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1977	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	1978	with:ex description
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1979	with:currentClass name allBold)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1980	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1981	ifFalse:[
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1982	AbortOperationRequest raise
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1983	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1984	sourceToLoad readStream fileIn.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1985	^ self.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1986	] do:[
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1987	self activityNotification:'generating current source...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1988
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1989	currentSource := self sourceCodeOfClass:currentClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1990
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1991	self activityNotification:'comparing...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1992
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1993	sourceToLoad = currentSource ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1994	"/ make all methods belong to the classes project
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1995	self setPackageOfAllMethodsIn:aClass to:aClass package.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1996	inChangeSet ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1997	rev = newestRev ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1998	(askForConfirmation not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1999	or:[ wasInChangeSetBefore not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2000	or:[ self confirm:(resources
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2001	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	2002	with:aClass name)]])
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2003	ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2004	ChangeSet current condenseChangesForClass:aClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2005	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2006	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2007	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2008	self activityNotification:'... nothing changed in repository'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2009	^ self.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2010	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2011
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2012	self activityNotification:'generating diffSet...'.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	2013	listHere := ChangeSet fromStream:(currentSource readStream).
32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	2014	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2015
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	2016	listRep := ChangeSet fromStream:(sourceToLoad readStream).
1051 9f76e78c91d4 * empty log message * frank parents: 1050 diff changeset	2017
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2018	Error handle:[:ex \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2019	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2020	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2021	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	2022	with:ex description
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2023	)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2024	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2025	ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2026	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2027	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2028	sourceToLoad readStream fileIn.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2029	^ self.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2030	] do:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2031	versionMethodsHere := listHere select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2032	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2033	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2034
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2035	versionMethodsRep := listRep select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2036	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2037	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2038
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2039	"/ compare all but the version methods
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2040	listHere := listHere select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2041	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2042	and:[change changeClass isMeta]]) not].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2043	listRep := listRep select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2044	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2045	and:[change changeClass isMeta]]) not].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2046
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2047	diffSet := listHere diffSetsAgainst:listRep.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2048	changed := diffSet changed.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2049	onlyHere := diffSet onlyInReceiver.
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2050	onlyHere := onlyHere select:[:eachDiff\|
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2051	\|method methodsPackage\|
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2052	eachDiff isClassDefinitionChange not
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2053	and:[
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2054	eachDiff changeClass isNil
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2055	or:[
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2056	method := (eachDiff changeClass compiledMethodAt:eachDiff selector).
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2057	method isNil or:[ (methodsPackage := method package) == containerPackage ]]
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2058	]
46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2059	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2060
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2061	onlyInRep := diffSet onlyInArg.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2062
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2063	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	2064	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	2065	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	2066
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2067	labels := #('Cancel' 'Merge' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2068	values := #(nil #merge #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2069	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2070	ifTrue:[3. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2071	ifFalse:[2. "i.e. merge"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2072
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2073	msg := 'About to load ''%4''.\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2074	onlyInRep size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2075	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	2076	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2077	onlyHere size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2078	onlyInRep size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2079	msg := msg , 'And there '.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2080	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2081	msg := msg , 'There '.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2082	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2083	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	2084	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2085	changed size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2086	changed size == 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2087	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	2088	singleChangeSelector := changed first first selector allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2089	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2090	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	2091	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2092	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2093	changedClassDefinitions size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2094	changedClassDefinitions size == 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2095	msg := msg , 'The class definition is different.\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2096	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2097	msg := msg , '%5 class definitions are different.\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2098	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2099	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2100
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2101	onlyHere isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2102	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2103	(changed isEmpty and:[changedClassDefinitions isEmpty]) ifTrue:[
2642 0675ababcc6d changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2637 diff changeset	2104	"/ self halt.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2105	versionMethodsRep notEmpty ifTrue:[
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2106	(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	2107	versionMethodsRep do:[:each \| each apply].
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2108	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2109	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2110	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2111	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2112	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2113	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	2114	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2115	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2116	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2117	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	2118	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2119	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2120	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2121	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2122	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2123	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2124	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2125	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2126	changed isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2127	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	2128	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2129	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2130	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2131	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2132	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2133	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2134	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2135	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2136	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	2137	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2138	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	2139	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2140	]
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	2141	] ifFalse:[
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2142	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2143	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2144	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	2145	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	2146	].
1121 7531e9dd8ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	2147	labels := #('Cancel' 'Load').
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2148	values := #(nil #load).
1007 44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2149	default := askForRevision
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2150	ifTrue:[2. "i.e. load"]
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2151	ifFalse:[1. "i.e. cancel"].
1907 30ca5aea5a7a dialogs defaults fm parents: 1886 diff changeset	2152	default := 2.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2153	] ifFalse:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2154	inChangeSet ifTrue:[
9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2155	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	2156	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	2157	]
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2158	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2159	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2160
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2161	msg := msg bindWith:onlyInRep size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2162	with:onlyHere size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2163	with:changed size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2164	with:aClass name allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2165	with:changedClassDefinitions size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2166	with:singleChangeSelector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2167
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2168	askForConfirmation ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2169	answer := #load
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2170	] ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2171	answer := (Dialog confirmWithCancel:msg withCRs
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2172	labels:(resources array:labels)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2173	values:values
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2174	default:default).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2175	answer isNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2176	self activityNotification:'...cancelled'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2177	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2178	].
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	2179	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2180	self activityNotification:'updating...'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2181	changedClasses := IdentitySet new.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2182
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2183	"/ Class withoutUpdatingChangesDo:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2184	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2185	"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	2186	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	2187	onlyHere do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2188	"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	2189	\|cClass cSel\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2190	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2191	cClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2192	cSel := eachChange selector.
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2193	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	2194	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2195	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2196
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2197	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2198	\|cHere eachChangedClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2199	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2200	eachChangedClass := cHere changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2201	eachChangedClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2202	changedClasses add:eachChangedClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2203	eachChangedClass := eachChangedClass theNonMetaclass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2204
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2205	"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	2206	changed do:[:eachChangeArr\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2207	\|eachChange eachClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2208
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2209	eachChange := eachChangeArr first.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2210	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2211	eachClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2212	eachClass theNonMetaclass == eachChangedClass ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2213	eachClass basicRemoveSelector:eachChange selector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2214	].
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	2215	].
57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	2216	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2217	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2218	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2219
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2220	"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	2221	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2222	\|cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2223	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2224	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2225	].
1057 6903d4d5097d do not update the changesFile, when checkingOut Claus Gittinger <cg@exept.de> parents: 1056 diff changeset	2226	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2227
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2228	onlyInRep do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2229	\|changeClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2230
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2231	"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	2232	eachChange apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2233	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2234	changeClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2235	changeClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2236	eachChange changeMethod setPackage:(changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2237	changedClasses add:changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2238	]
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	2239	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2240	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2241	.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2242	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2243	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	2244	\|cHere cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2245	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2246	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2247	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2248	cRep isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2249	cRep changeMethod setPackage:(cRep changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2250	changedClasses add:cRep changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2251	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2252	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2253
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2254	versionMethodsRep size >= 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2255	versionMethodsRep last apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2256	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2257	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	2258	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2259	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2260	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2261	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2262	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2263	"/ ].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2264
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2265	answer == #load ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	2266	inChangeSet := aClass hasUnsavedChanges.
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2267	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2268	rev = newestRev ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2269	(wasInChangeSetBefore not
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2270	or:[ self confirm:(resources
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2271	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	2272	with:aClass name)])
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2273	ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2274	ChangeSet current condenseChangesForClass:aClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2275	].
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2276	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2277	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2278	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2279
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2280	changedClasses do:[:eachClass \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2281	eachClass changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2282	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2283	Smalltalk changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2284	self activityNotification:'... done'.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2285	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2286
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2287	"Modified: / 07-02-2001 / 18:18:32 / ps"
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2288	"Modified: / 10-02-2012 / 17:37:55 / cg"
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	2289	!
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	2290
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2291	checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2292	"check-out a class from the source repository.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2293	If askForRevision is false, check-out the newest version."
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2294
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2295	\|resources
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	2296	inChangeSet extensionMethods
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2297	rev msg
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	2298	listHere listRep diffSet
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2299	changed onlyHere onlyInRep answer labels values singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2300	changedClasses default \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2301
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2302	listRep := self changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager.
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2303	listRep isNil ifTrue:[ ^self ].
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2304
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2305	resources := self classResources.
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2306
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2307	self activityNotification:'generating diffSet...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2308
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2309	extensionMethods := OrderedCollection new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2310	Smalltalk allClassesDo:[:aClass \| \|owner classPackage\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2311	"/ individual methods ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2312	aClass isMeta ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2313	(aClass package ~= packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2314	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2315	"/ methods in this project ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2316	(mthd package = packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2317	"/ ... whose class is not in the ckechIn-set
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2318	extensionMethods add:mthd
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2319	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2320	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2321	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2322	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2323	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2324	listHere := ChangeSet forExistingMethods:extensionMethods.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2325
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2326	inChangeSet := listRep contains:[:someChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2327	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2328
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2329	someChange isMethodChange ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2330	cClass := someChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2331	cSel := someChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2332	ChangeSet current includesChangeForClass:cClass selector:cSel
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2333	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2334	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2335
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2336	diffSet := listHere diffSetsAgainst:listRep.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2337	changed := diffSet changed.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2338	onlyHere := diffSet onlyInReceiver.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2339	onlyInRep := diffSet onlyInArg.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2340
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2341	labels := #('Cancel' 'Merge' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2342	values := #(nil #merge #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2343	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2344	ifTrue:[3. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2345	ifFalse:[2. "i.e. merge"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2346
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2347	msg := 'About to load extensions for ''%5''.\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2348	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2349	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	2350	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2351	onlyHere size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2352	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2353	msg := msg , 'And there '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2354	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2355	msg := msg , 'There '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2356	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2357	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	2358	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2359	changed size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2360	changed size == 1 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2361	msg := msg , 'The ''%5''-method is different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2362	singleChangeSelector := changed first first selector allBold
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2363	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2364	msg := msg , '%3 methods are different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2365	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2366	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2367
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2368	onlyHere isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2369	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2370	(changed isEmpty) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2371	listRep do:[:eachChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2372	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2373	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2374	^ self
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2375	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2376	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2377	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	2378	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2379	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2380	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2381	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2382	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2383	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2384	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2385	changed isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2386	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	2387	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2388	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2389	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2390	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2391	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2392	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2393	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2394	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	2395	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2396	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	2397	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2398	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2399	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2400	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2401	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2402	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	2403	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	2404	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2405	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2406	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2407	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2408	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2409	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2410	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2411	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2412	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	2413	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	2414	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2415	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2416	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2417
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2418	msg := msg bindWith:onlyInRep size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2419	with:onlyHere size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2420	with:changed size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2421	with:singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2422	with:packageToCheckOut allBold.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2423
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2424	answer := (Dialog confirmWithCancel:msg withCRs
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2425	labels:(resources array:labels)
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2426	values:values
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2427	default:default).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2428	answer isNil ifTrue:[^ self].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2429
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2430	self activityNotification:'updating...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2431	changedClasses := IdentitySet new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2432
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2433	"/ Class withoutUpdatingChangesDo:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2434	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	2435	Class withoutUpdatingChangeSetDo:[ eachChange apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2436
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2437	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2438	changedClasses add:eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2439	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2440	answer == #load ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2441	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	2442	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2443
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2444	cClass := eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2445	cSel := eachChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2446	Class withoutUpdatingChangeSetDo:[ cClass removeSelector:cSel ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2447	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2448	changed do:[:eachChangeArr \| "apply this change (go to rep-version)"
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2449	\|cHere cRep\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2450	cHere := eachChangeArr at:1.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2451	cRep := eachChangeArr at:2.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2452	Class withoutUpdatingChangeSetDo:[ cRep apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2453
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2454	cRep changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2455	changedClasses add:cRep changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2456	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2457	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2458	"/ ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2459	changedClasses do:[:eachClass \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2460	eachClass changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2461	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2462	Smalltalk changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2463
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2464	"Modified: / 07-02-2001 / 18:18:32 / ps"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2465	"Created: / 29-12-2011 / 14:34:12 / cg"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2466	!
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2467
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2468	compareClassWithRepository:aClass
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2469	"open a diff-textView comparing the current (in-image) version
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2470	against its orgiginal version found in the repository."
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2471
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2472	self compareClassWithRepository:aClass askForRevision:true
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2473
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2474	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2475	self compareClassWithRepository:Array
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2476	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2477	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2478
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2479	compareClassWithRepository:aClass askForRevision:askForRevision
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2480	"open a diff-textView comparing the current (in-image) version
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2481	against its orgiginal version found in the repository."
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2482
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2483	\|classToCompare resources brwsr
1194 d60b2ed25f45 Remove unused method vars. Stefan Vogel <sv@exept.de> parents: 1193 diff changeset	2484	aStream comparedSource currentSource rev revString thisRevString mgr
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2485	nm msg revisionInClass newestRev versionsAreTheSame\|
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2486
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2487	resources := self classResources.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2488
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2489	classToCompare := aClass theNonMetaclass.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2490
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2491	nm := classToCompare name.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2492	mgr := self sourceCodeManagerFor:classToCompare.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2493	mgr isNil ifTrue:[
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2494	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2495	].
2397 e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2496
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2497	rev := classToCompare revisionInfoOfManager:mgr.
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2498	"/ rev := classToCompare binaryRevision.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2499	revisionInClass := classToCompare revision.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2500	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2501	rev := revisionInClass
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2502	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2503	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2504	(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	2505	ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2506	^ self
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2507	]
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2508	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2509
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2510	"/
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2511	"/ class in repository - ask for revision
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2512	"/
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2513	newestRev := mgr newestRevisionOf:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2514	askForRevision ifTrue:[
1466 82e4152d5e9e * empty log message * Claus Gittinger <cg@exept.de> parents: 1462 diff changeset	2515	msg := resources string:'Compare to revision: (empty for newest)'.
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2516	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2517	msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2518	with:nm allBold with:rev).
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2519	(revisionInClass notNil and:[revisionInClass ~= rev]) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2520	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	2521	with:revisionInClass)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2522	]
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2523	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2524	newestRev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2525	msg := msg , '\' , (resources string:'Newest in reporitory is %1.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2526	with:newestRev)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2527	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2528
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	2529	rev := self
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2530	askForExistingRevision:msg
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2531	title:'Compare with repository'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2532	class:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2533	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2534	rev := newestRev.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2535	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2536
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2537	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2538	rev withoutSpaces isEmpty ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2539	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2540	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2541	aStream := mgr getSourceStreamFor:classToCompare revision:newestRev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2542	revString := '(newest: ' , (newestRev ? '???') , ')'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2543	] ifFalse:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2544	msg := 'extracting previous %1'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2545	aStream := mgr getSourceStreamFor:classToCompare revision:rev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2546	revString := rev
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2547	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2548
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2549	aStream isNil ifTrue:[
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2550	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	2551	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2552	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2553	aStream class readErrorSignal handle:[:ex \|
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2554	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	2555	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2556	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2557	] do:[
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2558	comparedSource := aStream contents asString.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2559	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2560	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2561
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2562	self activityNotification:'generating current source...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2563
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2564	currentSource := self sourceCodeOfClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2565
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2566	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2567
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2568	versionsAreTheSame := false.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2569	comparedSource = currentSource ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2570	versionsAreTheSame := true.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2571	] ifFalse:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2572	thisRevString := revisionInClass ? 'no revision'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2573
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2574	revString = '(newest)' ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2575	(rev := mgr newestRevisionOf:classToCompare) notNil ifTrue:[
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2576	revString := '(newest is ' , rev , ')'
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2577	]
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2578	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2579
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2580	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2581
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2582	brwsr := (UserPreferences versionDiffViewerClass)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2583	openOnClass:classToCompare
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	2584	labelA:('Repository: ' , revString)
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2585	sourceA:comparedSource
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	2586	labelB:('Current: (based on: ' , thisRevString , ')')
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2587	sourceB:currentSource
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	2588	title:('Comparing ' , classToCompare name)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2589	ifSame:[versionsAreTheSame := true].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2590
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2591	versionsAreTheSame ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2592	brwsr classChangeSet
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2593	classBeingCompared:classToCompare;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2594	versionA:rev;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2595	versionB:rev , 'mod'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2596	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2597	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2598
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2599	versionsAreTheSame ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	2600	(classToCompare hasUnsavedChanges) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2601	(self confirm:(resources
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2602	stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
1864 0a1a62489122 * empty log message * Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	2603	with:classToCompare name allBold)) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2604	ChangeSet current condenseChangesForClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2605	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2606	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2607	self information:'Versions are identical.'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2608	ChangeSet current unrememberChangedClasses.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2609	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2610	revisionInClass isNil ifTrue:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2611	(Dialog confirm:'Update (Fix) the classes Revision Info ?' withCRs)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2612	ifTrue:[
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2613	\|newString root\|
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2614
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2615	newString := mgr updatedRevisionStringOf:aClass forRevision:rev with:aClass revisionString.
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2616	newString isNil ifTrue:[
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2617	root := mgr getCVSROOTForModule:(aClass package upTo:$:).
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2618	root := mgr repositoryTopDirectoryFromCVSRoot:root.
1500 70a48e2f5921 * empty log message * Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	2619	newString := '$', 'Header: ',(root copyReplaceAll: $: with:$/ ),'/'
1911 d4088b5ba0ac * empty log message * Claus Gittinger <cg@exept.de> parents: 1907 diff changeset	2620	,(Smalltalk fileNameForClass:aClass),'.st,v ',rev,' '
2006 11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2621	,(Date today printStringFormat:'%y-%m-%d'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2622	,(Time now printStringFormat:'%h:%m:%s'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2623	,'+0000 '
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2624	,(OperatingSystem getLoginName),' Exp $'.
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2625	].
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2626	mgr updateVersionMethodOf:aClass for:newString.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2627	]
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2628	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2629	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2630	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2631
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2632	"
997 c55b39b6c7a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 996 diff changeset	2633	self compareClassWithRepository:Array
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2634	"
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2635
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2636	"Modified: / 29-12-2011 / 14:46:54 / cg"
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2637	!
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2638
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2639	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2640	\|diffSet\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2641
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2642	diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest.
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2643	VersionDiffBrowser
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2644	openOnDiffSet:diffSet
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2645	labelA:'Repository'
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2646	labelB:'Image'
2522 d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2647	title:('Differences of %1' bindWith:aProject)
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2648	ignoreExtensions:false.
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2649
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2650	"Modified: / 12-09-2011 / 11:56:01 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2651	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2652
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2653	compareProjectWithRepository:aProject
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2654	^ self compareProject:aProject withRepositoryVersionFrom:nil
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2655	!
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2656
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2657	createSourceContainerForClass:aClass
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2658	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2659	Return false, if failed."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2660
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2661	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2662	createSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2663	usingManager:(self sourceCodeManagerFor:aClass).
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2664
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2665	"Modified: / 21-12-2011 / 18:31:49 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2666	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2667
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2668	createSourceContainerForClass:aClass usingManager:aManager
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2669	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2670	Return false, if failed."
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2671
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2672	\|resources\|
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2673
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2674	aManager isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2675
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2676	resources := self classResources.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2677	^ self
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2678	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2679	usingManager:aManager
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2680	title:(resources string:'Repository information for %1' with:aClass name)
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2681	text:(resources string:'Create new %1-repository container for ''%2'''
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2682	with:aManager managerTypeName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2683	with:aClass name allBold)
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2684	createDirectories:true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2685	createContainer:true.
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2686
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2687	"Created: / 21-12-2011 / 18:31:23 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2688	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2689
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2690	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	2691	"let user specify the source-repository values for aClass"
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2692
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2693	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2694	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2695	usingManager:(self sourceCodeManagerFor:aClass)
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2696	title:title
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2697	text:boxText
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2698	createDirectories:createDirs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2699	createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2700
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2701	"Modified: / 21-12-2011 / 18:34:44 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2702	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2703
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2704	defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2705	"let user specify the source-repository values for aClass"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2706
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2707	\|className
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2708	"oldModule oldPackage" oldFileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2709	module directory fileName nameSpace nameSpacePrefix
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2710	info project nm creatingNew msg
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2711	answer doCheckinWithoutAsking forceCheckIn resources rslt note
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2712	requiredPackage\|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2713
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2714	mgr isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2715
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2716	resources := self classResources.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2717	aClass isLoaded ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2718	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	2719	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2720	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2721
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2722	className := aClass name.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2723
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2724	aClass isProjectDefinition ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2725	"/ no way - their package is already known and fix.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2726	module := aClass module.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2727	directory := aClass moduleDirectory.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2728	] ifFalse:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2729	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2730	"/ defaults, if nothing at all is known
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2731	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2732	(module := LastModule) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2733	module := (OperatingSystem getLoginName).
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2734	].
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2735	(directory := LastPackage) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2736	directory := 'private'.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2737	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2738	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2739
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2740	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2741	"/ 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	2742	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2743	(Project notNil and:[(project := Project current) notNil]) ifTrue:[
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2744	directory isNil ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2745	(nm := project repositoryDirectory) isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2746	nm := project name
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2747	].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2748	directory := nm.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2749	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2750	module isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2751	(nm := project repositoryModule) notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2752	module := nm
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2753	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2754	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2755	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2756
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2757	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2758	"/ 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	2759	"/ if so, take that as a default.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2760	"/
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	2761	info := mgr sourceInfoOfClass:aClass.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2762	info notNil ifTrue:[
1368 20cde03a3cd6 defineSource - fixed package & module extraction martin parents: 1347 diff changeset	2763	true "module ~= LastModule" ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2764	(info includesKey:#module) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2765	module := (info at:#module).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2766	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2767	].
1401 102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2768	"/ true "package ~= LastPackage" ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2769	"/ (info includesKey:#directory) ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2770	"/ package := (info at:#directory).
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2771	"/ ].
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2772	"/ ].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2773	fileName := mgr containerFromSourceInfo:info.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2774	(nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2775	nameSpacePrefix := nameSpace name , '::'.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2776	(fileName startsWith:nameSpacePrefix) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2777	fileName := fileName copyFrom:(nameSpacePrefix size + 1).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2778	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2779	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2780	"/ (info includesKey:#fileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2781	"/ fileName := (info at:#fileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2782	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2783	"/ (info includesKey:#expectedFileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2784	"/ fileName := (info at:#expectedFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2785	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2786	"/ (info includesKey:#classFileNameBase) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2787	"/ fileName := (info at:#classFileNameBase) , '.st'.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2788	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2789	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2790	"/ ]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2791	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2792
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2793	fileName isNil ifTrue:[
1338 bad5961fbff1 fileNameForClass: Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	2794	fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2795	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2796
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2797	OperatingSystem isMSDOSlike ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2798	module replaceAll:$\ with:$/.
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2799	directory replaceAll:$\ with:$/.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2800	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2801
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2802	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2803	"/ 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	2804	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2805	doCheckinWithoutAsking := false.
1831 cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2806	"/false ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2807	"/ (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	2808	"/ answer := Dialog confirmWithCancel:(resources
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2809	"/ string:'About to change the source container.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2810	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2811	"/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	2812	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2813	"/ %2 / %3 / %4
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2814	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2815	"/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	2816	"/ with:className
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2817	"/ with:module
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2818	"/ with:directory
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2819	"/ with:fileName)
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2820	"/ labels:(resources array:#('Cancel' 'Check in' 'Change')).
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2821	"/ answer isNil ifTrue:[AbortSignal raise].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2822	"/ answer ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2823	"/ doCheckinWithoutAsking := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2824	"/ oldModule := module.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2825	"/ oldPackage := directory.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2826	"/ oldFileName := fileName
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2827	"/ ] ifFalse:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2828	"/ doCheckinWithoutAsking := true.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2829	"/ creatingNew := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2830	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2831	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2832	"/].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2833	mgr isContainerBased ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2834	doCheckinWithoutAsking ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2835	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2836	"/ open a dialog for this
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2837	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2838	(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	2839	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	2840	creatingNew := true.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2841	] ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2842	creatingNew := false.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2843	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2844
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2845	rslt := self
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2846	askForContainer:boxText title:title note:note
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2847	initialModule:module initialPackage:directory initialFileName:fileName
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2848	forNewContainer:true.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2849
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2850	rslt isNil ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2851	^ false
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2852	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2853
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2854	module := rslt at:#module.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2855	directory := rslt at:#package.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2856	fileName := rslt at:#fileName.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2857	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2858	(fileName endsWith:',v') ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2859	fileName := fileName copyWithoutLast:2
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2860	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2861	(fileName endsWith:'.st') ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2862	fileName := fileName , '.st'
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2863	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2864
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2865	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2866
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2867	"/ 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	2868	"/ check for this ...
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2869
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2870	requiredPackage := ((module ? '') , ':' , (directory ? '')) asSymbol.
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2871	requiredPackage ~= aClass package ifTrue:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2872	"/ doCheckinWithoutAsking ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2873	"/ (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	2874	"/ ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2875	"/ ^ false
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2876	"/ ]
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2877	"/ ].
1077 6b1bcfd27521 renamed: #allSelectorsAndMethodsDo: into: #instAndClassSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 1076 diff changeset	2878	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	2879	aClass package:requiredPackage.
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2880	].
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2881
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2882	info := aClass revisionInfo.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2883	info notNil ifTrue:[
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2884	(info repositoryPathName isNil) ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2885	info := nil
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2886	].
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2887	"/ (info includesKey:#repositoryPathName) ifFalse:[
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2888	"/ info := nil
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2889	"/ ]
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2890	].
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	2891
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2892	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	2893	true "doCheckinWithoutAsking" ifFalse:[
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2894	answer := Dialog
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2895	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	2896	labels:(resources array:#( 'Cancel' 'No' 'Yes')).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2897	answer isNil ifTrue:[^ false].
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2898	] ifTrue:[
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2899	answer := true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2900	].
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2901	answer ifTrue:[
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2902	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2903	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2904	for:(mgr initialRevisionStringFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2905	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2906	directory:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2907	container:fileName).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2908	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2909	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2910
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2911	(self checkForExistingModule:module usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2912	ifFalse:[^ false].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2913	LastModule := module.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2914
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2915	(self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2916	ifFalse:[^ false].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2917	LastPackage := directory.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2918
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2919	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2920	"/ check for the container itself
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2921	"/
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2922	(mgr isContainerBased not
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2923	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	2924	"/ (oldModule notNil
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2925	"/ and:[(oldModule ~= module)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2926	"/ or:[oldPackage ~= package
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2927	"/ or:[oldFileName ~= fileName]]])
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2928	"/ ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2929	"/ self warn:(resources string:'no change').
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2930	"/ ^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2931	"/ ].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2932
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2933	mgr isContainerBased ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2934	creatingNew ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2935	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	2936	].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2937
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2938	doCheckinWithoutAsking ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2939	(Dialog
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2940	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	2941
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2942	%2 / %3 / %4 ?'
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2943	with:className
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2944	with:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2945	with:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2946	with:fileName) withCRs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2947	noLabel:'Cancel')
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2948	ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2949	^ false.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2950	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2951	].
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2952	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2953
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2954	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2955	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2956	for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2957
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2958	oldFileName notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2959	msg := ('forced checkin / source container change from ' , oldFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2960	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2961	msg := 'defined source container'
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2962	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2963
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2964	(forceCheckIn := doCheckinWithoutAsking) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2965	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2966	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2967	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2968	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2969	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2970	logMessage:msg)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2971	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2972	doCheckinWithoutAsking ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2973	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2974	confirm:'No easy merge seems possible; force checkin (no merge) ?'
4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2975	noLabel:'Cancel')
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2976	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2977	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2978	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2979	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2980	forceCheckIn := true.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2981	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2982	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2983	forceCheckIn ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2984	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2985	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2986	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2987	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2988	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2989	logMessage:msg
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2990	force:true)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2991	ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2992	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	2993	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2994	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2995	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2996	^ true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2997	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2998	(createContainer or:[creatingNew]) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2999	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3000	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	3001	with:fileName with:module with:directory) withCRs
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3002	noLabel:'Cancel') ifFalse:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3003	^ false
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3004	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3005	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3006	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3007
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	3008	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	3009	aClass package:requiredPackage.
1913 d87c1ed5bf1f oops - halt Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	3010
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3011	(mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3012	createContainerFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3013	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3014	package:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3015	container:fileName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3016	) ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3017	self warn:(resources string:'Failed to create container.').
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3018	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3019	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3020	^ true
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	3021
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3022	"Created: / 21-12-2011 / 18:34:02 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3023	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3024
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3025	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3026	\|classesInImage filesInImage module directory perProjectInfo
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3027	classesNotInRepository filesNotInImage classesDeletedInRepository
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3028	classesModifiedInImage classesNotReallyModified classesReallyModified classesModifiedInRepository
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3029	classesAddedInImage extensionMethods extensionsInImage extensionsInRepository extensionDiffs
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3030	box doCleanup resources diffSet def autoloadedFilesNotInImage
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3031	autoloadedClassesInImage autoloadedFilesInImage\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3032
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3033	resources := self classResources.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3034
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3035	module := aProject asPackageId module.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3036	directory := aProject asPackageId directory.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3037
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3038	perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilForNewest.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3039	perProjectInfo := perProjectInfo ? #().
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3040	perProjectInfo := perProjectInfo select:[:info \| info key asFilename hasSuffix:'st'].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3041	perProjectInfo := Dictionary withAssociations:perProjectInfo.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3042
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3043	classesInImage := Smalltalk allClassesInPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3044	autoloadedClassesInImage := classesInImage reject:[:cls \| cls isLoaded].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3045	classesInImage := classesInImage select:[:cls \| cls isLoaded].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3046	classesInImage := classesInImage reject:[:cls \| cls isPrivate].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3047	filesInImage := (classesInImage collect:[:cls \| cls classBaseFilename]) asSet.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3048	autoloadedFilesInImage := (autoloadedClassesInImage collect:[:cls \| cls classBaseFilename]) asSet.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3049	"/ any differences ?
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3050	classesNotInRepository := classesInImage reject:[:cls \| (perProjectInfo includesKey:cls classBaseFilename)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3051	classesDeletedInRepository := classesInImage select:[:cls \| (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3052	perProjectInfo := perProjectInfo reject:[:v \| v == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3053	filesNotInImage := perProjectInfo keys reject:[:file \| (filesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3054	filesNotInImage := filesNotInImage reject:[:file \| (autoloadedFilesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3055	filesNotInImage remove:'extensions.st' ifAbsent:[].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3056
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3057	"/ if comparing against the newest, only look for chaged stuff
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3058	classesModifiedInImage := classesInImage select:[:cls \| ChangeSet current includesChangeForClassOrMetaclass:cls].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3059	classesModifiedInImage := classesModifiedInImage \ classesNotInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3060
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3061	classesModifiedInRepository := classesInImage select:[:cls \| \|v\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3062	v := (perProjectInfo at:cls classBaseFilename ifAbsent:nil).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3063	v notNil and:[ cls isLoaded and:[ v > cls revision ]]].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3064
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3065	"/ stupid: as we do not have any revision information for extensions (sigh);
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3066	"/ 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	3067
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3068	extensionMethods := Smalltalk allExtensionsForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3069	extensionsInImage := ChangeSet forExistingMethods:extensionMethods.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3070
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3071	[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3072	\|s extensionsRevision\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3073
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3074	extensionsRevision := perProjectInfo at:'extensions.st' ifAbsent:#newest.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3075	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3076	streamForClass:nil fileName:'extensions.st' revision:extensionsRevision
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3077	directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3078	s isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3079	extensionsInRepository := ChangeSet new.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3080	] ifFalse:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3081	extensionsInRepository := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3082	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3083	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3084	] value.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3085	extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3086
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3087	diffSet := extensionDiffs copy.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3088
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3089	aDateOrNilForNewest isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3090	"/ we could do the same as above for each class.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3091	"/ 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	3092	"/ 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	3093	classesModifiedInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3094	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3095	classesModifiedInImage select:[:eachChangedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3096	\|currentVersion repositoryVersion s stFile diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3097
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3098	stFile := eachChangedClass classBaseFilename.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3099	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3100	streamForClass:nil fileName:stFile revision:#newest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3101	directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3102	repositoryVersion := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3103	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3104
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3105	currentVersion := ChangeSet forExistingClass:eachChangedClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3106	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3107	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3108	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3109	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3110
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3111	classesNotReallyModified := classesModifiedInImage \ classesReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3112	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3113	] ifFalse:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3114	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3115	classesInImage select:[:eachClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3116	\|currentVersion repositoryVersion s stFile stRevision diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3117
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3118	stFile := eachClass classBaseFilename.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3119	stRevision := perProjectInfo at:stFile ifAbsent:#newest.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3120
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3121	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3122	streamForClass:nil fileName:stFile revision:stRevision
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3123	directory:directory module:module cache:true.
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3124	s isNil ifTrue:[
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3125	repositoryVersion := ChangeSet new.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3126	] ifFalse:[
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3127	repositoryVersion := ChangeSet fromStream:s.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3128	s close.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3129	].
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3130
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3131	currentVersion := ChangeSet forExistingClass:eachClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3132	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3133	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3134	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3135	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3136	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3137
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3138	filesNotInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3139	"/ first, check if these are autoloaded classes which have NOT been installed
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3140	"/ (for example, due to a --quick argument during startup)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3141	autoloadedFilesNotInImage := OrderedCollection new.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3142
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3143	def := ProjectDefinition definitionClassForPackage:aProject createIfAbsent:false projectType:nil.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3144	def notNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3145	def classNamesAndAttributesDo:[:eachClassname :eachAttributes \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3146	\|cls eachFileName isAutoload\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3147
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3148	cls := Smalltalk classNamed:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3149	cls isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3150	isAutoload := eachAttributes includes:#autoload.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3151	isAutoload ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3152	eachFileName := Smalltalk fileNameForClass:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3153	autoloadedFilesNotInImage add:(eachFileName , '.st')
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3154	]
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3155	]
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3156	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3157	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3158
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3159	(filesNotInImage \ autoloadedFilesNotInImage) do:[:eachSTFile \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3160	\|s chgSet classDefinitions\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3161
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3162	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3163	streamForClass:nil fileName:eachSTFile revision:#newest directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3164	chgSet := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3165	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3166
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3167	diffSet onlyInReceiver addAll:chgSet
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3168	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3169	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3170
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3171	classesModifiedInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3172	classesModifiedInRepository do:[:eachClass\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3173	\|s diffs repositoryVersion currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3174
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3175	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3176	streamForClass:eachClass fileName:nil revision:#newest directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3177	repositoryVersion := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3178	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3179
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3180	currentVersion := ChangeSet forExistingClass:eachClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3181	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3182	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3183	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3184	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3185	classesDeletedInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3186	"/ self halt.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3187	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3188	classesNotInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3189	"/ if there are no changeSet entries for those classes, they seem to be
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3190	"/ no longer in the repository (possibly moved ?)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3191	"/ 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	3192
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3193	classesAddedInImage := classesNotInRepository \ classesDeletedInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3194	classesAddedInImage do:[:eachAddedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3195	\|currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3196
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3197	currentVersion := ChangeSet forExistingClass:eachAddedClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3198	diffSet onlyInArg addAll:currentVersion.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3199	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3200	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3201
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3202	diffSet isEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3203	"/ Dialog information:(resources string:'%1 is up-to-date.' with:eachProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3204	Transcript showCR:('%1 is up-to-date.' bindWith:aProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3205	(ChangeSet current includesChangeForPackage:aProject) ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3206	(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	3207	ChangeSet current condenseChangesForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3208	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3209	].
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3210	^ diffSet.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3211	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3212
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3213	"/ 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	3214	"/ give user a chance to cleanup the changeSet here.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3215	aDateOrNilForNewest isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3216	classesNotReallyModified notEmptyOrNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3217	doCleanup := false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3218	box := Dialog
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3219	forRequestText:(resources
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3220	stringWithCRs:'The following classes from %1 are equal to the repository version.\\Remove entries from the changeSet ?'
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3221	with:aProject allBold)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3222	editViewClass:ListView
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3223	lines:10 columns:20
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3224	initialAnswer:nil model:nil
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3225	setupWith:
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3226	[:v :d \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3227	\|removeButton\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3228
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3229	v list:classesNotReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3230	removeButton := Button label:(resources string:'Cleanup ChangeSet').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3231	removeButton action:[ doCleanup := true. box okPressed. ].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3232	d addButton:removeButton after:(d okButton).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3233	d okButton label:(resources string:'Continue').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3234	d okButton isReturnButton:false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3235	removeButton isReturnButton:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3236	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3237	box open.
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3238	box accepted ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3239	doCleanup ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3240	classesNotReallyModified do:[:class \|
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3241	ChangeSet current condenseChangesForClass:class.
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3242	]
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3243	].
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3244	]
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3245	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3246	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3247	^ diffSet
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3248
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3249	"Modified: / 01-11-2010 / 21:02:52 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3250	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3251
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3252	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3253	\|theMetaclass src newSrc versionMethodName oldVersionMethodName\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3254
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3255	theMetaclass := aClass theMetaclass.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3256	versionMethodName := aManager nameOfVersionMethodInClasses.
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3257	oldVersionMethodName := aClass nameOfOldVersionMethod.
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3258
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3259	(theMetaclass includesSelector:versionMethodName) ifTrue:[
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3260	"/ (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3261	"/ theMetaclass removeSelector:oldVersionMethodName.
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3262	"/ ].
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3263	"/ ensure that my version method is parsable (contains $'s)
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3264	src := (theMetaclass compiledMethodAt:versionMethodName) source.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3265	src notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3266	newSrc := aManager ensureDollarsInVersionMethod:src.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3267	newSrc ~= src ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3268	theMetaclass compile:newSrc.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3269	]
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3270	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3271	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3272	(theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3273	"/ but make sure, it is a version method for this sourcecodemanager...
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3274	(theMetaclass methodDictionary keys count:[:sel \| sel startsWith:'version']) size == 1 ifTrue:[
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3275	src := (theMetaclass compiledMethodAt:oldVersionMethodName) source.
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3276	(src startsWith:oldVersionMethodName) ifTrue:[
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3277	newSrc := versionMethodName
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3278	, (src copyFrom:(oldVersionMethodName size + 1))
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3279	].
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3280	theMetaclass compile:newSrc.
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3281	]
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3282	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3283	].
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3284
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3285	"Modified: / 20-08-2011 / 14:40:27 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3286	"Created: / 29-12-2011 / 14:33:46 / cg"
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3287	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3288
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3289	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3290	"returns 2 values"
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3291
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3292	\|initialLogMessage checkinInfo logMessage\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3293
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3294	"/ heuristics for a useful initial log message...
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3295	aLogInfoOrNil isNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3296	initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3297	"/ initial checkin ?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3298	(aClass package isNil or:[aClass revision isNil]) ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3299	initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3300	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3301	checkinInfo := self
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3302	getCheckinInfoFor:aClass name
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3303	initialAnswer:initialLogMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3304	checkinInfo isNil ifTrue:[^ false].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3305	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3306	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3307	aLogInfoOrNil isString ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3308	"soon obsolete..."
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3309	logMessage := aLogInfoOrNil
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3310	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3311	checkinInfo := aLogInfoOrNil.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3312	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3313	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3314	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3315	logMessage notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3316	logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3317	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3318	aBlock value:logMessage value:checkinInfo.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3319	^ true
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3320	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3321
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3322	removeSourceContainerForClass:aClass
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3323	"show container & let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3324
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3325	^ self removeSourceContainerForClass:aClass confirm:true warn:true
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3326	!
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3327
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3328	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3329	"show container & optionally let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3330
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3331	\|module directory fileName info mgr resources\|
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3332
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3333	resources := self classResources.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3334
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3335	aClass isLoaded ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3336	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3337	self warn:(resources string:'Please load the class first.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3338	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3339	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3340	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3341
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3342	"/
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3343	"/ 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	3344	"/ if so, take that as a default.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3345	"/
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3346	mgr := self sourceCodeManagerFor:aClass.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3347	mgr isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3348	^ false
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3349	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3350
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3351	info := mgr sourceInfoOfClass:aClass.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3352	info notNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3353	(info includesKey:#module) ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3354	module := (info at:#module).
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3355	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3356	(info includesKey:#directory) ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3357	directory := (info at:#directory).
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3358	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3359	fileName := mgr containerFromSourceInfo:info.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3360	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3361
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3362	module isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3363	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3364	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	3365	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3366	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3367	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3368	directory isNil ifTrue:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3369	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3370	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	3371	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3372	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3373	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3374	fileName isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3375	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3376	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	3377	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3378	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3379	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3380
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3381	OperatingSystem isMSDOSlike ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3382	"cvs expects unix-filenames"
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3383	module := module copy replaceAll:$\ with:$/.
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3384	directory := directory copy replaceAll:$\ with:$/.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3385	].
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3386	(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3387	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3388	self warn:(resources stringWithCRs:'Class has no source container.') .
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3389	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3390	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3391	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3392
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3393	doConfirm ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3394	(Dialog
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3395	choose:(resources
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3396	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	3397
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3398	container: %2 / %3 / %4
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3399
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3400	Really remove ?'
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3401	with:aClass name
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3402	with:module
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3403	with:directory
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3404	with:fileName)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3405	labels:(Array
1129 89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	3406	with:(resources string:'No')
89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	3407	with:(resources string:'Remove'))
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3408	values:#(false true)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3409	default:false) ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3410	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3411	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3412	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3413
1921 ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3414	(mgr removeContainer:fileName
ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3415	inModule:module
ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3416	directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3417	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3418	self warn:(resources string:'failed to remove container.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3419	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3420	^ true.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3421	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3422	^ false
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3423
1921 ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3424	"Modified: / 05-12-2006 / 18:40:16 / cg"
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3425	!
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3426
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3427	repositoryLogOf:aClass onto:aStream
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3428	self repositoryLogOf:aClass short:false onto:aStream
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3429	!
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3430
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3431	repositoryLogOf:aClass short:shortOrNot onto:aStream
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3432	\|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	3433
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3434	info := aClass revisionInfo.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3435
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3436	rv := aClass binaryRevision.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3437	rv notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3438	aStream nextPutLine:'** Loaded classes binary information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3439	aStream nextPutLine:' Binary based upon : ' , rv.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3440	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3441	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3442
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3443	info notNil ifTrue:[
2041 fb85bf748dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2013 diff changeset	3444	(info revision notNil) ifFalse:[
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3445	aStream nextPutLine:'WARNING:'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3446	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	3447	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	3448	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	3449	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3450	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3451
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3452	aStream nextPutLine:'** Classes source information **'; cr.
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3453	s := info repositoryPathName.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3454	s notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3455	aStream nextPutLine:' Source repository : ' , s
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3456	].
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3457	aStream nextPutLine:' Filename ........ : ' , (info fileName ? '?').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3458	aStream nextPutLine:' Revision ........ : ' , (info revision ? '?').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3459	aStream nextPutLine:' Checkin date .... : ' , (info date ? '?') , ' ' ,
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3460	(info time ? '?'), ' ',
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3461	(info timezone ? '').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3462	aStream nextPutLine:' Checkin user .... : ' , (info user ? '?').
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3463
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3464	(info2 := aClass packageSourceCodeInfo) notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3465	aStream nextPutLine:' Repository: ..... : ' , (info2 at:#module ifAbsent:'?').
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3466	aStream nextPutLine:' Directory: ...... : ' , (info2 at:#directory ifAbsent:'?').
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3467	].
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3468	aStream nextPutLine:' Container ....... : ' , (info repositoryPathName ? '?').
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3469	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3470
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3471	mgr := self sourceCodeManagerFor:aClass.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3472	mgr notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3473	aStream nextPutLine:'** Repository information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3474
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3475	module := info2 at:#module ifAbsent:nil.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3476	module notNil ifTrue:[
2596 64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	3477	aStream nextPutLine:(' Repository URL ......: ' ,
64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	3478	((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	3479	].
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3480	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	3481	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3482	] ifFalse:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3483	aStream nextPutLine:'No revision info found'.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3484	aClass isLoaded ifFalse:[
1835 1aa531a386bd * empty log message * Claus Gittinger <cg@exept.de> parents: 1831 diff changeset	3485	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	3486	] ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3487	fn := aClass classFilename.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3488	aClass wasAutoloaded ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3489	msg := 'This class was autoloaded.'.
1514 35b125098412 * empty log message * fm parents: 1503 diff changeset	3490	msg := msg , ' (from ''' , fn , ''')'.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3491	] ifFalse:[
1514 35b125098412 * empty log message * fm parents: 1503 diff changeset	3492	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	3493	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3494	msg notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3495	aStream cr; nextPutAll:msg.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3496	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3497	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3498	]
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3499
1835 1aa531a386bd * empty log message * Claus Gittinger <cg@exept.de> parents: 1831 diff changeset	3500	"Modified: / 06-10-2006 / 13:25:22 / cg"
2596 64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	3501	"Modified: / 12-10-2011 / 18:06:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3502	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3503
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3504	tagClass:aClass as:tag
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3505	\|mgr\|
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3506
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3507	mgr := self sourceCodeManagerFor:aClass.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3508	mgr
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3509	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3510	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3511	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3512	class:aClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3513
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3514	"Modified: / 12-09-2006 / 13:03:59 / cg"
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3515	!
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3516
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3517	tagClasses:aCollectionOfClasses as:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3518	\|classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3519
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3520	classesPerManager := Dictionary new.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3521	aCollectionOfClasses
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3522	do:[:eachClass \|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3523	\|manager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3524
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3525	manager := self sourceCodeManagerFor:eachClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3526	(classesPerManager at:manager ifAbsentPut:[Set new]) add:eachClass
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3527	].
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3528
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3529	classesPerManager keysAndValuesDo:[:manager :classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3530	manager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3531	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3532	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3533	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3534	classes:classesPerManager.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3535	].
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3536	^ true
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3537
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3538	"Created: / 12-09-2006 / 13:04:29 / cg"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3539	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3540
2602 a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3541	tagPackage: package as:tag
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3542
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3543	self tagClasses:(Smalltalk allClassesInPackage:package) as:tag.
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3544
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3545	"Created: / 12-09-2006 / 13:04:29 / cg"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3546	"Created: / 15-10-2011 / 22:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3547	!
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3548
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3549	tagPath:aPath as:tag usingManager:aManager
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3550	aManager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3551	setSymbolicName:tag
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3552	revision:nil
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3553	overWrite:true
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3554	path:aPath.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3555
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3556	"Modified: / 12-09-2006 / 12:04:44 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3557	"Created: / 29-12-2011 / 14:32:38 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3558	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3559
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3560	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-helpers'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3561
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3562	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3563	"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	3564	Return a dictionary associating revision with a changeList entries for that method.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3565	Unfinished - need a GUI for that."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3566
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3567	\|mgr theClass revisionLog revisions items s entriesPerRevision previousVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3568
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3569	theClass := aClass theNonMetaclass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3570
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3571	mgr := self sourceCodeManagerFor:theClass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3572	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3573	self error:'no sourceCodeManager'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3574	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3575
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3576	revisionLog := mgr
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3577	revisionLogOf:theClass
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3578	numberOfRevisions:numberOfRevisionsOrNil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3579
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3580	revisions := revisionLog at:#revisions.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3581	items := revisions collect:[:each \| \|rev date who\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3582	rev := each at:#revision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3583	date := each at:#date.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3584	who := each at:#author.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3585	rev allBold , ' [' , date , ' by ' , who , ']'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3586	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3587
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3588	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3589	revisions addFirst:#current.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3590	entriesPerRevision := Dictionary new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3591
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3592	previousVersion := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3593	revisions reverseDo:[:eachRevision \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3594	\|srcStream entries thisVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3595
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3596	eachRevision == #current ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3597	s := '' writeStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3598	theClass fileOutOn:s withTimeStamp:false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3599	srcStream := s contents readStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3600	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3601	self activityNotification:('checking out revision ' , eachRevision , '...').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3602	srcStream := mgr getSourceStreamFor:theClass revision:eachRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3603	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3604
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3605	entries := ChangeSet fromStream:srcStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3606	srcStream close.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3607
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3608	"/ remove all definitions
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3609	entries := entries select:[:each \| each isMethodChange].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3610	"/ remove all methods which are for other selectors
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3611	entries := entries select:[:each \| each selector == selector].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3612	"/ remove all methods which are for private subclasses
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3613	entries := entries select:[:each \| each className = aClass name].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3614
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3615	entries size == 1 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3616	"/ the method is there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3617	thisVersion := entries first.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3618	(previousVersion notNil and:[previousVersion sameAs:thisVersion]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3619	"/ no change
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3620	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3621	entriesPerRevision at:eachRevision put:thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3622	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3623	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3624	"/ the method is not there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3625	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3626	previousVersion := thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3627	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3628	self error:'unfinished code'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3629
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3630	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3631	self getMethodVersionsOfClass:MenuPanel selector:#'helpTextForItem:' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3632	self getMethodVersionsOfClass:NewLauncher class selector:#'menu' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3633	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3634	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3635
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3636	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-user interaction'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3637
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3638	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3639	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3640	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3641	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3642
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3643	^ self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3644	askForContainer:boxText title:title note:notice
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3645	initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3646	forNewContainer:true
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3647	!
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3648
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3649	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	3650	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3651	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3652	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3653
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3654	\|box y component resources answer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3655	moduleHolder packageHolder fileNameHolder
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3656	module package fileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3657	knownContainers knownPackages packageUpdater
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3658	packageBoxComponent fileNameBoxComponent fileNameUpdater\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3659
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3660	knownContainers := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3661	Smalltalk allClassesDo:[:cls \| \|pckg\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3662	pckg := cls package.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3663	pckg size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3664	knownContainers add:(pckg upTo:$:)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3665	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3666	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3667	knownContainers := knownContainers asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3668	knownContainers := knownContainers select:[:module \| module isBlank not].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3669	knownContainers sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3670
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3671	packageUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3672	\|theModulePrefix\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3673
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3674	theModulePrefix := moduleHolder value , ':'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3675
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3676	Cursor wait showWhile:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3677	knownPackages := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3678	Smalltalk allClassesDo:[:cls \| \|pckg idx\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3679	pckg := cls package.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3680	pckg size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3681	(pckg startsWith:theModulePrefix) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3682	idx := pckg indexOf:$:.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3683	knownPackages add:(pckg copyFrom:idx + 1)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3684	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3685	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3686	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3687	knownPackages := knownPackages asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3688	knownPackages := knownPackages select:[:package \| package isBlank not].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3689	knownPackages sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3690	packageBoxComponent list:knownPackages.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3691	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3692	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3693
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3694	fileNameUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3695	\|module package files\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3696
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3697	Cursor read showWhile:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3698	module := moduleHolder value ? (PackageId noProjectID).
e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3699	package := packageHolder value ? (PackageId noProjectID).
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3700
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3701	files := SourceCodeManager getExistingContainersInModule:module directory:package.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3702	files := files asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3703	files := files select:[:eachFile \| eachFile asFilename hasSuffix:'st'].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3704	files sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3705	fileNameBoxComponent list:files.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3706	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3707	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3708
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3709	moduleHolder := initialModule asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3710	packageHolder := initialPackage asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3711	fileNameHolder := initialFileName asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3712
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3713	resources := self classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3714
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3715	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3716	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3717	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3718	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3719	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3720
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3721	component := box addTextLabel:boxText withCRs.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3722	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3723	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3724	box addVerticalSpace.
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3725
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3726	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3727	component := box addTextLabel:(resources string:'Module:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3728	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3729	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3730	component := box addComboBoxOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3731	component list:knownContainers.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3732
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3733	"/ component := box addInputFieldOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3734	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	3735
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3736	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3737	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3738	component := box addTextLabel:(resources string:'Package:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3739	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3740	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3741	packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3742	"/ component := box addInputFieldOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3743	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	3744	packageUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3745	moduleHolder onChangeEvaluate:packageUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3746
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3747	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3748	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3749	component := box addTextLabel:(resources string:'Filename:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3750	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3751	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3752
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3753	forNewContainer ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3754	component := box addInputFieldOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3755	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	3756	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3757	fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3758	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	3759	fileNameUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3760	packageHolder onChangeEvaluate:fileNameUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3761	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3762
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3763	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3764
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3765	notice notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3766	component := box addTextLabel:notice.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3767	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3768	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3769
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3770	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3771	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3772
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3773	(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3774	component := Button label:'Yes to all'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3775	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3776	YesToAllNotification queryWith:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3777	box doAccept.
2253 7d7b0d2d1fe7 changed: #askForContainer:title:note:initialModule:initialPackage:initialFileName:forNewContainer: Claus Gittinger <cg@exept.de> parents: 2242 diff changeset	3778	box okPressed.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3779	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3780	(DialogBox defaultOKButtonAtLeft) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3781	box addButton:component after:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3782	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3783	box addButton:component before:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3784	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3785	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3786	(AbortAllSignal isHandled) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3787	component := Button label:'Cancel all'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3788	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3789	box hide.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3790	AbortAllSignal raiseSignal.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3791	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3792	(DialogBox defaultOKButtonAtLeft) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3793	box addButton:component before:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3794	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3795	box addButton:component after:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3796	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3797	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3798
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3799	(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3800	answer := YesToAllQuery query.
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
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3803	answer isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3804	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3805	answer := box accepted
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3806	].
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	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3809	answer ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3810	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3811	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3812
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3813	module := moduleHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3814	package := packageHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3815	fileName := fileNameHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3816	^ Dictionary new
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3817	at:#module put:module;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3818	at:#package put:package;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3819	at:#fileName put:fileName;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3820	yourself
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3821
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3822	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3823	self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3824	askForContainer:'enter container' title:'container' note:'some note'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3825	initialModule:'foo' initialPackage:'bar' initialFileName:'baz'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3826	"
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3827
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3828	"Modified: / 23-08-2006 / 14:13:04 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3829	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3830
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3831	askForExistingRevision:boxText title:title class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3832	"open a dialog asking for a containers revision;
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3833	return a revision number, or nil if canceled."
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3834
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3835	\|mgr sourceInfo module package fileName\|
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3836
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3837	mgr := self sourceCodeManagerFor:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3838	sourceInfo := mgr sourceInfoOfClass:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3839	sourceInfo isNil ifTrue:[^ nil].
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3840
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3841	package := mgr directoryFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3842	module := mgr moduleFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3843	fileName := mgr containerFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3844	^ self
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3845	askForExistingRevision:boxText
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3846	title:title
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3847	class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3848	manager:mgr
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3849	module:module package:package
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3850	fileName:fileName
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3851
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3852	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3853	SourceCodeManagerUtilities
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3854	askForRevisionToCompare:'enter revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3855	title:'revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3856	class:Array
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3857	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3858
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3859	"Modified: / 12-09-2006 / 14:17:04 / cg"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3860	!
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3861
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3862	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	3863	"open a dialog asking for a containers revision;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3864	return a revision number, or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3865
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3866	\|partialLog revisions items newestRev
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3867	box y component resources
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3868	revisionHolder symbolicNames stableRevision releasedRevision
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3869	tagHolder tagList lockChange\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3870
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3871	resources := self classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3872
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3873	partialLog := aSourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3874	revisionLogOf:clsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3875	numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3876	fileName:fileName
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3877	directory:directory
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3878	module:module.
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	3879
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3880	partialLog notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3881	newestRev := partialLog at:#newestRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3882	revisions := partialLog at:#revisions.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3883	symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3884	symbolicNames notNil ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3885	stableRevision := symbolicNames at:'stable' ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3886	releasedRevision := symbolicNames at:'released' ifAbsent:[].
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3887	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	3888	collect:[:assoc \| assoc key]) reverse.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3889	].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3890
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3891	items := revisions collect:[:each \| \|rev date who flag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3892	rev := each at:#revision.
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3893	date := (each at:#date ifAbsent:nil) ? '?'.
2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3894	who := (each at:#author ifAbsent:nil) ? '?'.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3895	rev = stableRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3896	flag := ' Stable' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3897	] ifFalse:[rev = releasedRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3898	flag := ' Released' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3899	] ifFalse:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3900	flag := ' '
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3901	]].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3902	rev allBold , flag, ' [' , date , ' by ' , who , ']'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3903	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3904	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3905	] ifFalse:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3906	newestRev := aSourceCodeManager newestRevisionInFile:fileName directory:directory module:module.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3907	revisions := items := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3908
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3909	newestRev isNil ifTrue:[
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3910	(aSourceCodeManager checkForExistingContainer:fileName inModule:module directory:directory)
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3911	ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3912	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	3913	This could be due to:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3914	- invalid/wrong CVS-Root setting
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3915	- missing CVS access rights
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3916	(no access / not logged in)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3917	- changed CVSRoot after compilation
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3918	(i.e. wrong CVS-path in classes version method)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3919	'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3920	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3921	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3922	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3923	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3924
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3925	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3926	revisionHolder := newestRev asValue.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3927	revisionHolder onChangeEvaluate:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3928	"/ cut off everything after revision
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3929	\|s first words tag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3930
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3931	s := revisionHolder value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3932	words := s asCollectionOfWords.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3933	words size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3934	first := words first string.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3935	first ~= s ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3936	revisionHolder value:first
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3937	]
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3938	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3939	lockChange ifFalse:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3940	tagHolder value:''
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3941	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3942	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3943
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3944	tagHolder := '' asValue.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3945	tagHolder
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3946	onChangeEvaluate:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3947	\|tag rev\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3948
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3949	(tag := tagHolder value) notEmptyOrNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3950	rev := symbolicNames at:tag.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3951	rev ~= revisionHolder value ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3952	lockChange := true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3953	revisionHolder value:rev.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3954	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3955	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3956	]
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3957	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3958
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3959	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3960	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3961	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3962	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3963	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3964
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3965	component := box addTextLabel:boxText withCRs.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3966	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3967	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3968	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3969
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3970	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3971	component := box addTextLabel:(resources string:'Revision:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3972	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3973	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3974	component := box addComboBoxOn:revisionHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3975	component list:items.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3976	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	3977
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3978	y := box yPosition.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3979	component := box addTextLabel:(resources string:'or Tag:').
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3980	component width:0.4; adjust:#right.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3981	box yPosition:y.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3982	component := box addComboListOn:tagHolder tabable:true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3983	component list:tagList.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3984	component width:0.6; left:0.4.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3985	tagList isNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3986	component disable
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3987	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3988
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3989	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3990
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3991	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3992
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3993	AbortAllOperationWantedQuery query ifTrue:[
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3994	(box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3995	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3996
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3997	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3998
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3999	box accepted ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4000	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4001	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4002	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4003	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4004
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4005	^ revisionHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4006
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4007	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4008	SourceCodeManagerUtilities
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4009	askForRevisionToCompare:'enter revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4010	title:'revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4011	class:nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4012	manager:SourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4013	module:'stx'
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	4014	directory:'libbasic'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4015	fileName:'Array.st'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4016	"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	4017
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	4018	"Modified: / 21-12-2011 / 23:09:26 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4019	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4020
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4021	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4022	"check if a class contains message-sends to:
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4023	#halt , #halt:
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4024	#error
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4025	#todo , #todo:
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4026	(and maybe more in the future)
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4027
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4028	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	4029
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4030	\|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	4031	methodsWithBadStuff resources\|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4032
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4033	resources := Dialog classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4034
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4035	badStuff := #(
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4036	( 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	4037	( 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	4038	( 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	4039	( todo 'send of #todo - unfinished code present?' )
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4040	( todo: 'send of #todo:- unfinished code present?' )
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4041	).
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4042
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4043	methodsWithBadStuff := Set new.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4044	whatIsBad := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4045	aClass theNonMetaclass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4046	\|setOfLiterals setOfSentMessages\|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4047
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4048	mthd package = aClass package ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4049	setOfLiterals := mthd literals. "/ try without parsing first.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4050	(badStuff contains:[:eachEntry \| setOfLiterals includes:eachEntry first]) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4051	setOfSentMessages := mthd messagesSent.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4052	badStuff do:[:eachEntry \|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4053	(setOfSentMessages includes:eachEntry first) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4054	whatIsBad add:eachEntry second.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4055	methodsWithBadStuff add:mthd.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4056	]
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4057	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	4058	].
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	4059	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4060	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4061	whatIsBad isEmpty ifTrue:[^ true].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4062
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4063	(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	4064	answer := YesToAllQuery query.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4065	answer notNil ifTrue:[ ^ answer ].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4066	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4067
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4068	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	4069	msg := msg , '\\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4070	whatIsBad do:[:each \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4071	msg := msg , ' ' , each , '\'
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4072	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4073	msg := msg , '\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4074	methodsWithBadStuff size == 1 ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4075	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	4076	with:methodsWithBadStuff anElement whoString allBold).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4077	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4078	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	4079	with:methodsWithBadStuff anElement whoString allBold
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4080	with:methodsWithBadStuff size-1).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4081	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4082	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	4083
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4084	(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	4085	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	4086	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	4087	defaultAnswer := #yesToAll.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4088	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4089	labels := #('No' 'No, Browse' 'Yes').
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4090	values := #(false #noBrowse true).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4091	defaultAnswer := true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4092	].
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4093
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	4094	"/ AbortAllOperationRequest isHandled ifTrue:[
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4095	"/ labels := #('Cancel All') , labels.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4096	"/ values := #(#cancelAll) , values.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4097	"/ ].
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4098
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4099	DialogBox aboutToOpenBoxNotificationSignal handle:[:ex \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4100	\|box\|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4101
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4102	checkAgainHolder isValueModel ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4103	dontShowAgain := checkAgainHolder value not asValue.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4104	box := ex parameter.
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4105	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	4106	on:dontShowAgain.
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4107	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4108	ex proceed.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4109	] do:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4110	answer := OptionBox
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4111	request:msg withCRs
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4112	label:(resources string:'Really CheckIn ?')
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4113	image:(InfoBox iconBitmap)
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4114	buttonLabels:(resources array:labels)
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4115	values:values
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4116	default:defaultAnswer
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4117	onCancel:nil.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4118	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4119	answer isNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4120	AbortSignal raise.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4121	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4122
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4123	dontShowAgain notNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4124	checkAgainHolder value:dontShowAgain value not
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	4125	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4126
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4127	answer == #noBrowse ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4128	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	4129	self yesToAllNotification queryWith:false.
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4130	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4131	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4132	answer == #cancelAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4133	AbortAllSignal raise.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4134	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4135	answer == #yesToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4136	YesToAllNotification queryWith:true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4137	^ true
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4138	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4139	answer == #noToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4140	YesToAllNotification queryWith:false.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4141	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4142	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4143	^ answer
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4144
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4145	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4146	self checkAndWarnAboutBadMessagesInClass:(SourceCodeManagerUtilities)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4147	"
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4148
d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4149	"Modified: / 28-02-2012 / 10:41:38 / cg"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4150	!
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4151
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4152	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4153	"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	4154	and other info (mark as stable, for example).
2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4155	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	4156
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4157	^ self
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4158	getCheckinInfoFor:aClassNameOrPackageNameString
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4159	initialAnswer:initialAnswerOrNil
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4160	withQuickOption:false
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4161
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4162	"
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4163	SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4164	"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4165
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4166	"Modified: / 06-07-2010 / 11:22:15 / cg"
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4167	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4168
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4169	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4170	"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	4171	and other info (mark as stable, for example).
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4172	Return the info-object (actually: the dialog) or nil if aborted."
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4173
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4174	\|logMsg infoDialog\|
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4175
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4176	infoDialog := Tools::CheckinInfoDialog
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4177	getCheckinInfoFor:aClassNameOrPackageNameString
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4178	initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4179	withQuickOption:withQuickOption.
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4180	infoDialog notNil ifTrue:[
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4181	logMsg := infoDialog logMessage.
2284 624993d61344 comment Claus Gittinger <cg@exept.de> parents: 2283 diff changeset	4182	logMsg notEmptyOrNil ifTrue:[
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4183	LastSourceLogMessage := logMsg
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4184	].
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4185	].
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4186	^ infoDialog
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4187
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4188	"
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4189	SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4190	"
1501 6bb154127b0f CheckInDialog class moved Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	4191
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4192	"Modified: / 06-07-2010 / 11:21:28 / cg"
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4193	!
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4194
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4195	goodInitialLogMessageForCheckinClassOfClass:aClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4196	"figure out, if there were any non-comment changes.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4197	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	4198
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4199	\|selectorsInChangeSet newSelectors modifiedSelectors
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4200	classChanges changesForThisClass definitionChangesForThisClass methodChangesForThisClass
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4201	allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass removedMethodsForThisClass
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4202	initialLogStream printSelectors selectorsWithCommentOrFormattingChangeOnly
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4203	selectorsWithVariableChangeOnly
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4204	removedSelectors categoryChanges categoryChangeSelectors\|
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4205
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4206	"/ a helper function
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4207	printSelectors :=
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4208	[:what :selectors \|
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4209	initialLogStream
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4210	nextPutAll:(what,':').
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4211	selectors size < 5 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4212	selectors size == 1 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4213	initialLogStream
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4214	print: ' #';
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4215	print: (selectors first);
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4216	cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4217	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4218	initialLogStream cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4219	selectors asSortedCollection do:[:sel \| initialLogStream tab; nextPutAll:'#'; nextPutLine:sel].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4220	]
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4221	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4222	initialLogStream
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4223	print: (selectors size);
2142 d09c9d1b8c46 changed: #goodInitialLogMessageForCheckinClassOfClass: sr parents: 2137 diff changeset	4224	print: ' methods';
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4225	cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4226	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4227	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4228
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4229	classChanges := ChangeSet current select:[:aChange \| aChange isClassChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4230
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4231	changesForThisClass := classChanges
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4232	select:[:aChange \| aChange className = aClass theNonMetaclass name
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4233	or:[aChange className = aClass theMetaclass name] ].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4234
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4235	definitionChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodChange not].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4236	categoryChanges := changesForThisClass select:[:aChange \| aChange isMethodCategoryChange].
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4237	categoryChangeSelectors := categoryChanges collect:[:aChange \| aChange changeSelector] as:Set.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4238	allMethodChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodCodeChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4239	selectorsInChangeSet := allMethodChangesForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4240	methodChangesForThisClass := selectorsInChangeSet collect:[:eachSelector \|
2161 c1d39e2f7115 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	4241	allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector]] as:OrderedCollection.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4242
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4243	modifiedMethodsForThisClass := methodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4244	select:[:aChange \| aChange previousVersion notNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4245	modifiedSelectors := modifiedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4246
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4247	newMethodsForThisClass := allMethodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4248	select:[:aChange \| aChange previousVersion isNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4249	newSelectors := newMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4250
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4251	removedMethodsForThisClass := allMethodChangesForThisClass
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4252	select:[:aChange \| aChange isMethodRemoveChange].
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4253	removedSelectors := removedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4254
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4255	initialLogStream := '' writeStream.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4256	"/ definition?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4257	"/ suppress definition-message if initial checkin
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4258	(aClass package isNil or:[aClass revision isNil]) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4259	definitionChangesForThisClass notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4260	initialLogStream
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4261	print:'class definition'; cr.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4262	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4263	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4264
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4265	"/ added selectors?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4266	newSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4267	printSelectors value:'added' value:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4268	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4269	modifiedSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4270	categoryChangeSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4271
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4272	"/ removed selectors?
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4273	removedSelectors notEmpty ifTrue:[
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4274	printSelectors value:'removed' value:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4275	].
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4276	modifiedSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4277	categoryChangeSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4278
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4279	"/ modifications?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4280	modifiedSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4281	selectorsWithCommentOrFormattingChangeOnly := Set new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4282	selectorsWithVariableChangeOnly := Set new.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4283
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4284	"/ cehck for format/comment change
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4285	RBParser notNil ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4286	modifiedSelectors do:[:eachSelector \|
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4287	\|oldest newest oldMethod newMethod oldTree newTree variableMapping\|
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4288
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4289	(newSelectors includes:eachSelector) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4290	oldest := allMethodChangesForThisClass detect:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4291	newest := allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4292
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4293	oldest := oldest previousVersion notNil ifTrue:[oldest previousVersion] ifFalse:[oldest].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4294
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4295	oldTree := RBParser parseMethod:oldest source onError:[:aString :pos \| nil].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4296	newTree := RBParser parseMethod:newest source onError:[:aString :pos \| nil].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4297	(oldTree notNil and:[newTree notNil]) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4298	variableMapping := Dictionary new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4299	(oldTree equalTo:newTree withMapping: variableMapping) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4300	(variableMapping at:'self' ifAbsent:nil) = 'self' ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4301	((variableMapping associations count:[:assoc \| assoc key ~= assoc value]) == 0) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4302	selectorsWithCommentOrFormattingChangeOnly add:eachSelector.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4303	] ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4304	selectorsWithVariableChangeOnly add:eachSelector.
2142 d09c9d1b8c46 changed: #goodInitialLogMessageForCheckinClassOfClass: sr parents: 2137 diff changeset	4305	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4306	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4307	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4308	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4309	]
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4310	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4311	].
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4312
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4313	modifiedSelectors removeAllFoundIn:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4314	modifiedSelectors removeAllFoundIn:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4315
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4316	(selectorsWithCommentOrFormattingChangeOnly notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4317	printSelectors value:'comment/format in' value:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4318	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4319	(selectorsWithVariableChangeOnly notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4320	printSelectors value:'variable renamed in' value:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4321	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4322	(modifiedSelectors notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4323	printSelectors value:'changed' value:modifiedSelectors.
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4324	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4325	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4326	categoryChanges notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4327	printSelectors value:'category of' value:categoryChangeSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4328	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4329	^ initialLogStream contents
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4330
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4331	"Modified: / 27-01-2011 / 09:25:30 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4332	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4333
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	4334	!SourceCodeManagerUtilities methodsFor:'utilities-encoding'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4335
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4336	guessEncodingOfFile:aFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4337	"look for a string
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4338	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4339	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4340	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4341	within the given buffer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4342	(which is usually the first few bytes of a textFile).
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4343	If that's not found, use heuristics (in CharacterArray) to guess."
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4344
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4345	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4346
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4347	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4348	^ CharacterEncoder guessEncodingOfFile:aFilename
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4349
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4350	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4351	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_de.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4352	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_ru.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4353	"
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4354
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4355	"Modified (comment): / 14-01-2012 / 20:54:35 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4356	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4357
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4358	guessEncodingOfStream:aStream
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4359	"look for a string of the form
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4360	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4361	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4362	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4363	in the first few bytes of aStream."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4364
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4365	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4366
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4367	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4368	^ CharacterEncoder guessEncodingOfStream:aStream
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4369	! !
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4370
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4371	!SourceCodeManagerUtilities class methodsFor:'documentation'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4372
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4373	version
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	4374	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.243 2012-03-04 15:56:42 stefan Exp $'
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4375	!
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4376
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	4377	version_CVS
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	4378	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.243 2012-03-04 15:56:42 stefan Exp $'
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4379	! !

author	Stefan Vogel <sv@exept.de>
	Sun, 04 Mar 2012 16:56:42 +0100
changeset 2791	0601ded0300b
parent 2775	d1908ae4aed8
child 2793	3732543d2393
permissions	-rw-r--r--