hg/stx-libbasic3: SourceCodeManagerUtilities.st@ec791b8d6a71 (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
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	17	YesToAllNotification LastSourceLogMessages'
2719 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
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	615	^self default
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	616	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	617	initialAnswer:initialAnswerOrNil
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	618
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	619	"Modified: / 12-03-2012 / 12:56:45 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	620	!
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	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	623	^self default
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	624	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	625	initialAnswer:initialAnswerOrNil
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	626	withQuickOption:withQuickOption
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	627
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	628	"Modified: / 12-03-2012 / 12:56:50 / cg"
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	629	!
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	goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	632
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	633	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	634
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	635	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	636
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	637	^self default goodInitialLogMessageForCheckinClassOfClass:aClass
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	638	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	639
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	640	!SourceCodeManagerUtilities class methodsFor:'utilities-encoding'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	641
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	642	guessEncodingOfFile:aFilename
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	643
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	644	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	645
2818 82c73234ac2d changed: #guessEncodingOfFile: Stefan Vogel <sv@exept.de> parents: 2817 diff changeset	646	self obsoleteMethodWarning:'ask CharacterEncoder'.
82c73234ac2d changed: #guessEncodingOfFile: Stefan Vogel <sv@exept.de> parents: 2817 diff changeset	647	^ CharacterEncoder guessEncodingOfFile:aFilename
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	648	!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	649
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	650	guessEncodingOfStream:aStream
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	651
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	652	<resource: #obsolete>
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	653
2817 8a836ca902d4 changed: #guessEncodingOfStream: Stefan Vogel <sv@exept.de> parents: 2796 diff changeset	654	self obsoleteMethodWarning:'ask CharacterEncoder'.
8a836ca902d4 changed: #guessEncodingOfStream: Stefan Vogel <sv@exept.de> parents: 2796 diff changeset	655	^ CharacterEncoder guessEncodingOfStream:aStream
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	656	! !
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	!SourceCodeManagerUtilities methodsFor:'accessing'!
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	classResources
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	661
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	662	^self class classResources
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	663
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	664	"Created: / 10-10-2011 / 11:42:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	665	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	666
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	667	lastSourceLogMessageHeadlines
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	668	LastSourceLogMessage isNil ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	669	LastSourceLogMessages := OrderedCollection new.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	670	].
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	671	^ LastSourceLogMessages
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	672	collect:[:msg \|
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	673	msg withoutLeadingSeparators asCollectionOfLines first , '...'
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	674	]
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	675
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	676	"Created: / 12-03-2012 / 12:34:35 / cg"
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	677	!
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	678
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	679	yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	680
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	681	^self class yesToAllNotification
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	682
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	683	"Created: / 11-10-2011 / 12:01:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	684	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	685
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	686	yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	687
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	688	^self class yesToAllQuery
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	689
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	690	"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	691	! !
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	!SourceCodeManagerUtilities methodsFor:'error handling'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	694
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	695	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	(self class respondsTo: aMessage selector) ifTrue:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	698	"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	699	self breakPoint: #jv.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	700	self breakPoint: #cg.
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	701
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	702	^aMessage sendTo: self class
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	703	] ifFalse:[
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	704	^super doesNotUnderstand: aMessage
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	705	]
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	706
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	707	"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	708	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	709
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	710	!SourceCodeManagerUtilities methodsFor:'initialization'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	711
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	712	initialize
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	713
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	714	resources := self classResources.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	715
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	716	"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	717	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	718
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	719	setManager: aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	720
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	721	manager := aSourceCodeManager
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	722
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	723	"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	724	! !
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	725
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	726	!SourceCodeManagerUtilities methodsFor:'utilities'!
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	727
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	728	classIsNotYetInRepository:aClass withManager:mgr
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	729	\|info\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	730
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	731	info := mgr sourceInfoOfClass:aClass.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	732
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	733	^ (info isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	734	or:[(info at:#fileName ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	735	or:[(info at:#module ifAbsent:nil) isNil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	736	or:[(info at:#directory ifAbsent:nil) isNil]]])
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	737
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	738	"Created: / 25-10-2006 / 09:43:00 / cg"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	739	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	740
2673 06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	741	defaultManager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	742	^ manager
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	743
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	744	"Created: / 22-12-2011 / 10:59:28 / cg"
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	745	!
06f4f56d7818 added: #defaultManager Claus Gittinger <cg@exept.de> parents: 2670 diff changeset	746
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	747	nameOfExtensionsContainer
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	748	^ 'extensions.st'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	749	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	750
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	751	setPackageOfAllMethodsIn:aClass to:aPackage
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	752	"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	753
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	754	\|anyChange anyChangeHere\|
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	755
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	756	anyChange := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	757	aClass withAllPrivateClassesDo:[:eachClass \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	758	anyChangeHere := false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	759	eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	760	mthd package ~= aPackage ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	761	mthd setPackage:aPackage.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	762	anyChangeHere := true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	763	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	764	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	765	anyChangeHere ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	766	eachClass changed:#projectOrganization
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	767	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	768	anyChangeHere ifTrue:[anyChange := true].
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	769	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	770	anyChange ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	771	Smalltalk changed:#projectOrganization
1185 e86907810d1f handle abortAll in checkIn Claus Gittinger <cg@exept.de> parents: 1160 diff changeset	772	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	773	^ anyChange
893 09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	774	!
09543b968f15 added askFor... utility. Claus Gittinger <cg@exept.de> parents: 886 diff changeset	775
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	776	setPackageOfAllMethodsInChangeSet:aChangeSet to:aPackage
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	777	"make all methods belong to the classes project"
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	778
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	779	aChangeSet do:[:eachChange \|
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	780	eachChange isMethodCodeChange ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	781	eachChange changeMethod package ~= aPackage ifTrue:[
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	782	Transcript showCR:'change package of ',eachChange changeMethod whoString.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	783	eachChange changeMethod setPackage:aPackage.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	784	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	785	]
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	786	].
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	787	!
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	788
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	789	sourceCodeManagerFor:aClass
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	790	\|mgr assumption\|
934 4f06b1db2ca1 better user interface when asking for a revision to compare. Claus Gittinger <cg@exept.de> parents: 933 diff changeset	791
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	792	manager notNil ifTrue:[^manager].
7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	793
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	794	mgr := aClass theNonMetaclass sourceCodeManager.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	795	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	796	SourceCodeManager isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	797	(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	798	^ nil
1012 92c4719178de faster search for halts etc. Claus Gittinger <cg@exept.de> parents: 1011 diff changeset	799	].
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	800	].
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	801	assumption := AbstractSourceCodeManager defaultManager ? CVSSourceCodeManager.
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	802	assumption notNil ifTrue:[
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	803	(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	804	^ nil
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	805	].
1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	806	mgr := assumption.
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	807	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	808	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	809	^ mgr
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	810
2343 1acdf9d65c7c changed: #sourceCodeManagerFor: Claus Gittinger <cg@exept.de> parents: 2326 diff changeset	811	"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	812	"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	813	!
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	814
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	815	sourceCodeOfClass:aClass
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	816	\|stream src\|
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	817
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	818	stream := '' writeStream.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	819	Method flushSourceStreamCache.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	820	aClass fileOutOn:stream withTimeStamp:false.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	821	src := stream contents asString.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	822	stream close.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	823	^ src
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	824	!
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	825
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	826	versionString:a isLessThan:b
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	827	"compare two strings of the form: a.b.c..."
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	828
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	829	\|i1 i2 a1 b1 rest1 rest2\|
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	i1 := a indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	832	i2 := b indexOf:$. .
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	833	i1 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	834	i1 := a size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	835	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	836	i2 == 0 ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	837	i2 := b size + 1.
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	838	].
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	a1 := Integer readFrom:(a copyTo:i1-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	841	b1 := Integer readFrom:(b copyTo:i2-1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	842	a1 < b1 ifTrue:[^ true].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	843	a1 > b1 ifTrue:[^ false].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	844	rest1 := (a copyFrom:i1+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	845	rest2 := (b copyFrom:i2+1).
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	846	rest1 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	847	^ rest2 notEmpty
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	848	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	849	rest2 isEmpty ifTrue:[
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	850	^ false
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	851	].
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	852	^ self versionString:rest1 isLessThan:rest2
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	853
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	854	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	855	self assert:(self versionString:'12.34.66' isLessThan:'12.35.66').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	856	self assert:(self versionString:'12.34.66' isLessThan:'12.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	857	self assert:(self versionString:'11.34.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	858	self assert:(self versionString:'11.35.66' isLessThan:'12.34.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	859	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	860	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	861	self assert:(self versionString:'13.35.66' isLessThan:'13.35.67').
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	862	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	863	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	864	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	865	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	866	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	867	"
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	868
c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	869	"Modified: / 17-02-2011 / 10:20:14 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	870	! !
1160 d56159f5a86f * empty log message * Claus Gittinger <cg@exept.de> parents: 1158 diff changeset	871
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	872	!SourceCodeManagerUtilities methodsFor:'utilities-cvs'!
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	873
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	874	changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	875	"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	876	If askForRevision is false, check-out the newest version.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	877	Return a changeSet or nil (if any error occurred)"
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	878
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	879	^ self
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	880	changeSetForExtensionMethodsForPackage:packageToCheckOut
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	881	revision:nil orAskForRevision:askForRevision
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	882	usingManager:aSourceCodeManager
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	883
01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	884	"Created: / 29-12-2011 / 14:26:01 / cg"
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	885	!
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	886
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	887	changeSetForExtensionMethodsForPackage:packageToCheckOut revision:revisionOrNil orAskForRevision:askForRevision usingManager:aSourceCodeManager
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	888	"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	889	If askForRevision is false, check-out the newest version.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	890	Return a changeSet or nil (if any error occurred)"
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	891
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	892	\|resources directory module file aStream sourceToLoad rev msg newestRev \|
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	893
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	894	resources := self classResources.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	895
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	896	directory := packageToCheckOut asPackageId directory.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	897	module := packageToCheckOut asPackageId module.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	898	file := self nameOfExtensionsContainer.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	899
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	900	"/
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	901	"/ ask for revision
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	902	"/
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	903	(rev := revisionOrNil) isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	904	newestRev := aSourceCodeManager newestRevisionInFile:file directory:directory module:module.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	905	askForRevision ifFalse:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	906	rev := newestRev ? ''
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	907	] ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	908	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	909	newestRev notNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	910	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	911	].
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	912
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	913	rev := self
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	914	askForExistingRevision:msg
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	915	title:'CheckOut from repository'
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	916	class:nil
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	917	manager:aSourceCodeManager
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	918	module:module package:directory fileName:file.
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	919
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	920	rev isNil ifTrue:[
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	921	^ nil "/ canceled
8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	922	].
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	923	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	924	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	925	rev withoutSpaces isEmpty ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	926	rev := #newest.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	927	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	928	] ifFalse:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	929	msg := 'extracting previous %1'.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	930	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	931	aStream := aSourceCodeManager
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	932	streamForClass:nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	933	fileName:file
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	934	revision:rev
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	935	directory:directory
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	936	module:module
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	937	cache:true.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	938
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	939	aStream isNil ifTrue:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	940	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	941	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	942	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	943	aStream class readErrorSignal handle:[:ex \|
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	944	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	945	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	946	^ nil
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	947	] do:[
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	948	sourceToLoad := aStream contents asString.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	949	].
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	950	aStream close.
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	951	^ ChangeSet fromStream:(sourceToLoad readStream).
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	952
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	953	"Created: / 29-12-2011 / 14:27:00 / cg"
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	954	!
00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	955
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	956	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	957	\|resources moduleName directoryName containerName\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	958
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	959	resources := self classResources.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	960	moduleName := module allBold.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	961	directoryName := directory allBold.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	962	containerName := containerFileName allBold.
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	"/
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	965	"/ check for the container
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	966	"/
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	967	(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	968	allowCreate ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	969	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	970	with:containerName with:moduleName with:directoryName) withCRs.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	971	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	972	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	973	(Dialog
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	974	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	975	with:containerName with:moduleName with:directoryName) withCRs
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	976	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	977	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	978	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	979	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	980	(mgr createContainerForText:'' inModule:module package:directory container:containerFileName) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	981	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	982	with:containerName with:moduleName with:directoryName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	983	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	984	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	985	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	986	^ true.
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	987
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	988	"Modified: / 13-09-2006 / 18:24:57 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	989	"Created: / 29-12-2011 / 14:35:36 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	990	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	991
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	992	checkForExistingModule:module directory:directory usingManager:mgr allowCreate:allowCreate
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	993	\|resources moduleNameBold directoryNameBold\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	994
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	995	resources := self classResources.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	996	moduleNameBold := module allBold.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	997	directoryNameBold := directory allBold.
1158 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	"/
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1000	"/ check for the directory
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1001	"/
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1002	(mgr checkForExistingModule:module directory:directory) ifFalse:[
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1003	allowCreate ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1004	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	1005	with:directoryNameBold with:moduleNameBold) withCRs.
1158 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	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1008	(Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1009	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	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	noLabel:'Cancel')
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1014	ifFalse:[
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1015	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1016	].
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1017	(mgr createModule:module directory:directory) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1018	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	1019	with:directoryNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1020	with:moduleNameBold
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1021	with:mgr managerTypeName).
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1022	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1023	]
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	^ true.
1840 c993a1c045cc obsolete method calls Claus Gittinger <cg@exept.de> parents: 1835 diff changeset	1026
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1027	"Modified: / 21-12-2011 / 18:46:11 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1028	"Created: / 29-12-2011 / 14:35:20 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1029	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1030
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1031	checkForExistingModule:module usingManager:mgr allowCreate:allowCreate
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1032	\|resources moduleName answer\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1033
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1034	(mgr checkForExistingModule:module) ifFalse:[
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1035	resources := self classResources.
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1036	moduleName := module allBold.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1037
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1038	allowCreate ifFalse:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	1039	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	1040	with:moduleName) .
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1041	^ false
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1042	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1043	AbortAllOperationWantedQuery query ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1044	answer := Dialog
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1045	confirmWithCancel:(resources stringWithCRs:'''%1'' is a new module.\\create it ?' with:moduleName)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1046	labels:(resources array:#('Cancel All' 'Cancel' 'Yes' )).
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1047	answer isNil ifTrue:[ AbortAllOperationRequest raise ].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1048	] ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1049	answer := Dialog
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1050	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	1051	noLabel:'Cancel'
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1052	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	1053	answer ifFalse:[ ^ false].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1054
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1055	(mgr createModule:module) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1056	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	1057	^ false.
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1058	]
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1059	].
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1060	^ true.
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1061
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1062	"Modified: / 21-12-2011 / 18:42:03 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1063	"Created: / 29-12-2011 / 14:35:06 / cg"
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1064	!
453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1065
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1066	checkinBuildSupportFilesForPackage:packageID
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	\|anyFailure module directory mgr defClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1069
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1070	mgr := self sourceCodeManagerFor: packageID.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1071	defClass := ProjectDefinition definitionClassForPackage: packageID.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1072
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1073	defClass validateDescription.
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	anyFailure := false.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1076
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1077	module := packageID asPackageId module.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1078	directory := packageID asPackageId directory.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1079
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1080	self activityNotification:(resources string:'checking in build-support files...').
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1081	(mgr checkForExistingModule:module directory:directory) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1082	mgr createModule:module directory:directory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1083	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1084	defClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1085	\|realFileName realDirectory\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1086
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1087	"/ care for subdirectories
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1088	(fileName includes:$/) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1089	realDirectory := (directory asFilename construct:(fileName asFilename directoryName)) name.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1090	realFileName := fileName asFilename baseName.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1091	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1092	realDirectory := directory.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1093	realFileName := fileName.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1094	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1095	realDirectory := realDirectory replaceAll:$\ with:$/.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1096
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1097	self activityNotification:(resources string:'checking in %1...' with:realFileName).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1098
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1099	UserInformation
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1100	handle:[:ex \| Transcript showCR:ex description ]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1101	do:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1102	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1103	checkForExistingContainer:realFileName inModule:module directory:realDirectory)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1104	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1105	realDirectory ~= directory ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1106	(mgr checkForExistingModule:module directory:realDirectory) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1107	mgr createModule:module directory:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1108	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1109	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1110	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1111	createContainerForText:fileContents
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1112	inModule:module
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1113	package:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1114	container:realFileName)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1115	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1116	Dialog warn:(resources
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1117	stringWithCRs:'Cannot create new container: ''%3'' (in %1:%2)'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1118	with:module
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1119	with:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1120	with:realFileName)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1121	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1122	] ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1123	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1124	checkin:realFileName
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1125	text:fileContents
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1126	directory:realDirectory
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1127	module:module
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1128	logMessage:'automatically generated by browser'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1129	force:false)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1130	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1131	Transcript showCR:'checkin of ' , realFileName , ' failed'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1132	anyFailure := true.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1133	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1134	].
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
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1138	defClass instAndClassMethodsDo:[:m \| m package:defClass package].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1139
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1140	self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1141	checkinClasses:(Array with:defClass)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1142	withInfo:'automatic checkIn'
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1143	withCheck:false.
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	self activityNotification:nil.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1147
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1148	anyFailure ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1149	self warn:'Checkin failed - see Transcript.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1150	self activityNotification:'Checkin of build-support files failed - see Transcript.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1151	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1152	self activityNotification:'Build-support files checked into the repository.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1153	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1154
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1155	"Created: / 09-08-2006 / 18:59:42 / fm"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1156	"Modified: / 16-08-2006 / 18:38:49 / User"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1157	"Created: / 06-09-2011 / 08:00:57 / cg"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1158	"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	1159	"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	1160	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1161
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1162	checkinClass:aClass
401f915dd118 checkin from browser ps parents: 882 diff changeset	1163	"check a class into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1164	Asks interactively for a log-message."
882 8af38187135c checkin from browser Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1165
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1166	^ self checkinClass:aClass withInfo:nil
882 8af38187135c checkin from browser Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1167	!
8af38187135c checkin from browser Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1168
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1169	checkinClass:aClass withInfo:aLogInfoOrNil
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1170	"check a class into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1171	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	1172
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1173	^ self checkinClass:aClass withInfo:aLogInfoOrNil withCheck:true
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1174	!
ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1175
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	1176	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1177	"check a class into the source repository.
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	1178	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	1179	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	1180
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1181	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1182	checkinClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1183	withInfo:aLogInfoOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1184	withCheck:doCheckClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1185	usingManager:(self sourceCodeManagerFor:aClass)
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1186
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1187	"Modified: / 21-12-2011 / 18:19:55 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1188	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1189
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1190	checkinClass:aClass withInfo:aLogInfoOrNil withCheck:doCheckClass usingManager:managerOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1191	"check a class into the source repository.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1192	If the argument, aLogInfoOrNil isNil, ask interactively for log-message.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1193	If doCheckClass is true, the class is checked for send of halts etc."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1194
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	1195	\|logMessage checkinInfo mgr pri resources\|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1196
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1197	aClass isLoaded ifFalse:[
2360 3982314184bb changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1198	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	1199	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1200	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1201
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1202	mgr := managerOrNil.
954 3446cc28ec1f * empty log message * Claus Gittinger <cg@exept.de> parents: 952 diff changeset	1203	mgr isNil ifTrue:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1204	mgr := self sourceCodeManagerFor:aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1205	mgr isNil ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1206	^ false
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1207	]
954 3446cc28ec1f * empty log message * Claus Gittinger <cg@exept.de> parents: 952 diff changeset	1208	].
3446cc28ec1f * empty log message * Claus Gittinger <cg@exept.de> parents: 952 diff changeset	1209
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1210	self ensureCorrectVersionMethodsInClass:aClass usingManager:mgr.
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1211	mgr supportsCheckinLogMessages ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1212	(self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1213	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1214	forClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1215	valuesInto:[:logMessageRet :checkinInfoRet \|
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1216	logMessage := logMessageRet.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1217	checkinInfo := checkinInfoRet.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1218	]
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1219	) ifFalse:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1220	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1221
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1222	resources := self classResources.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1223
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	1224	(self classIsNotYetInRepository:aClass withManager:mgr) ifTrue:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1225	(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1226	"/ self warn:'did not create a container for ''' , aClass name , ''''.
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1227	^ false
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1228	].
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1229	^ true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1230	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1231
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1232	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	1233	pri := Processor activePriority.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1234	Processor activeProcess withPriority:pri-1 to:pri
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1235	do:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1236	\|revision aborted freshCreated\|
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1237
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1238	freshCreated := false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1239	revision := aClass revision.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1240	revision isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1241	"/ mhmh - check if it has a container.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1242	(mgr checkForExistingContainerForClass:aClass) ifFalse:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1243	(self createSourceContainerForClass:aClass usingManager:mgr) ifFalse:[
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1244	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	1245	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1246	].
1503 87c2f93ff941 care for files in the Attic Claus Gittinger <cg@exept.de> parents: 1501 diff changeset	1247	freshCreated := true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1248	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1249	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1250
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	1251	doCheckClass value ifTrue:[
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1252	"/ check if the class contains halts, error-sends etc.
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	1253	(self checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:doCheckClass) ifFalse:[
977 ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1254	^ false
ac63f52bccfa * empty log message * Claus Gittinger <cg@exept.de> parents: 976 diff changeset	1255	].
973 b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	1256	].
b9004b37290a check for #halt and #error when checking in Claus Gittinger <cg@exept.de> parents: 958 diff changeset	1257
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1258	freshCreated ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1259	aborted := false.
1113 30540d5fc3b7 class based exceptions - abortSignal; Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	1260	AbortOperationRequest handle:[:ex \|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1261	aborted := true.
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1262	ex return.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1263	] do:[
1828 e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1264	\|checkinState cause\|
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1265	checkinState := false.
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1266	cause := ''.
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1267	[
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1268	checkinState := mgr checkinClass:aClass logMessage:logMessage
2362 9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1269	] on:SourceCodeManagerError do:[:ex\|
9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1270	cause := ex description.
9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1271	ex proceed.
9c4eba6eac26 changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2360 diff changeset	1272	].
1828 e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1273
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1274	checkinState ifFalse:[
e2eafc59fa91 handle checkin errors Stefan Vogel <sv@exept.de> parents: 1811 diff changeset	1275	Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.
2360 3982314184bb changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1276	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	1277	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1278	].
1725 b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1279	checkinInfo notNil ifTrue:[
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1280	checkinInfo isStable ifTrue:[
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1281	"set stable tag for class that has been checked in"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	1282	self tagClass:aClass as:#stable.
1725 b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1283	].
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1284	checkinInfo tagIt ifTrue:[
b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1285	"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	1286	self tagClass:aClass as:(checkinInfo tag).
1725 b54eeae38942 * empty log message * Claus Gittinger <cg@exept.de> parents: 1711 diff changeset	1287	].
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1288	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1289	].
1519 c0e28a7d3c73 no longer move other extensions into my project when Claus Gittinger <cg@exept.de> parents: 1514 diff changeset	1290	aborted ifTrue:[ \|con\|
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1291	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	1292
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	1293	AbortAllOperationWantedQuery query ifTrue:[
1032 24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1294	(Dialog
2360 3982314184bb changed: #checkinClass:withInfo:withCheck: Claus Gittinger <cg@exept.de> parents: 2343 diff changeset	1295	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	1296	default:false)
24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1297	ifTrue:[
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1298	AbortAllOperationRequest raise.
1032 24faa0f05f25 * empty log message * Claus Gittinger <cg@exept.de> parents: 1030 diff changeset	1299	]
1016 ab35c6af1614 yes-to-all option Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	1300	].
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1301	^ false.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1302	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1303	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1304	].
881 f5872252e5f9 * empty log message * Claus Gittinger <cg@exept.de> parents: 876 diff changeset	1305	^ true
1113 30540d5fc3b7 class based exceptions - abortSignal; Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	1306
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1307	"Created: / 21-12-2011 / 18:19:14 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1308	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	1309
920 ab68cf4c6ee6 * empty log message * Claus Gittinger <cg@exept.de> parents: 906 diff changeset	1310	checkinClasses:aCollectionOfClass
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1311	"check a collection of classes into the source repository.
401f915dd118 checkin from browser ps parents: 882 diff changeset	1312	Asks interactively for log-message."
401f915dd118 checkin from browser ps parents: 882 diff changeset	1313
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1314	^ self checkinClasses:aCollectionOfClass withInfo:nil
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1315	!
401f915dd118 checkin from browser ps parents: 882 diff changeset	1316
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1317	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrNil
886 401f915dd118 checkin from browser ps parents: 882 diff changeset	1318	"check a bunch of classes into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1319	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	1320
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1321	^ self
1142 cba1ede48a4a allow check for halt/error to be turned off via userPrefs Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	1322	checkinClasses:aCollectionOfClasses
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1323	withInfo:aLogInfoOrNil
1142 cba1ede48a4a allow check for halt/error to be turned off via userPrefs Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	1324	withCheck:(UserPreferences current at:#checkClassesWhenCheckingIn ifAbsent:true)
992 83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1325	!
83f257a4fa0c * empty log message * Claus Gittinger <cg@exept.de> parents: 990 diff changeset	1326
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1327	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1328	"check a bunch of classes into the source repository.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1329	If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1330
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1331	self checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:nil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1332
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1333	"Modified: / 21-12-2011 / 18:24:47 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1334	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1335
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1336	checkinClasses:aCollectionOfClasses withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:aManagerOrNil
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1337	"check a bunch of classes into the source repository.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1338	If the argument, aLogInfoOrStringNil isNil, ask interactively for log-message."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1339
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1340	\|classes allClasses checkinInfoOrString resources yesOrNoToAll unchangedClasses\|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1341
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1342	"/ ignore private classes
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1343	classes := aCollectionOfClasses select:[:aClass \| aClass owningClass isNil].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1344	classes isEmpty ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1345	self information:'Only private classes given - nothing checked in.'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1346	^ self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1347	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1348	classes := classes select:[:aClass \| aClass isLoaded].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1349	classes isEmpty ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1350	self information:'Only unloaded classes given - nothing checked in.'.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1351	^ self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1352	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1353
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1354	classes size == 1 ifTrue:[
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1355	^ self checkinClass:classes first withInfo:aLogInfoOrStringNil withCheck:doCheckClasses usingManager:aManagerOrNil.
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1356	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1357
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1358	resources := self classResources.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1359
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1360	"ask once, for all classes"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1361	aLogInfoOrStringNil isNil ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1362	checkinInfoOrString := self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1363	getCheckinInfoFor:(resources string:'%1 classes to checkin' with:aCollectionOfClasses size)
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1364	initialAnswer:nil
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1365	withQuickOption:true.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1366	checkinInfoOrString isNil ifTrue:[^ self].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1367	] ifFalse:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1368	checkinInfoOrString := aLogInfoOrStringNil.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1369	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1370
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1371	allClasses := classes.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1372	checkinInfoOrString quickCheckIn ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1373	classes := classes select:[:aClass \| aClass hasUnsavedChanges].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1374	classes isEmpty ifTrue:[ Dialog information:'no changes to checkin (quickCheckIn)' ]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1375	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1376
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1377	"abortAll is handled, and also asked for here!!"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1378	AbortAllOperationRequest handleAndAnswerQueryIn:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1379	classes notEmpty ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1380	self yesToAllNotification handle:[:ex \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1381	yesOrNoToAll := ex parameter.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1382	ex proceed
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1383	] do:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1384	self yesToAllQuery handle:[:ex \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1385	ex proceedWith:yesOrNoToAll
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1386	] do:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1387	classes do:[:aClass \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1388	self activityNotification:(resources string:'checking in %1' with:aClass name).
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1389	"/ ca does not want boxes to pop up all over ...
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1390	UserInformation handle:[:ex \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1391	Transcript showCR:ex description.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1392	ex proceed.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1393	] do:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1394	AbortOperationRequest catch:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1395	self
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1396	checkinClass:aClass
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1397	withInfo:checkinInfoOrString
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1398	withCheck:doCheckClasses
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1399	usingManager:aManagerOrNil
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1400	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1401	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1402	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1403	]
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1404	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1405	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1406
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1407	(checkinInfoOrString isStable or:[checkinInfoOrString tagIt])
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1408	ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1409	"/mhmh - but tag should be set on all (even unchanged ones)
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1410	"/ the other onces have already been tagged
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1411	unchangedClasses := allClasses select:[:eachClass \| (classes includes:eachClass) not].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1412
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1413	"mhmh - could still have to tag them"
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1414	checkinInfoOrString isStable ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1415	unchangedClasses do:[:eachClass \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1416	self tagClass:eachClass as:#stable.
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1417	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1418	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1419	checkinInfoOrString tagIt ifTrue:[
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1420	unchangedClasses do:[:eachClass \|
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1421	self tagClass:eachClass as:(checkinInfoOrString tag).
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1422	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1423	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1424	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1425	].
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1426
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	1427	"Created: / 21-12-2011 / 18:24:25 / cg"
2569 fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1428	!
fa8560ff1fc7 added: vrany parents: 2556 diff changeset	1429
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1430	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	1431	"checkin a projects extensions into the source repository.
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1432	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	1433
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1434	\|logMessage checkinInfo mgr pri resources module directory containerFileName s
2233 59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1435	methodSource methodsSortedByName defClass\|
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1436
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1437	resources := self classResources.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1438
2242 8ea64354212d added: #changeSetForExtensionMethodsForPackage:revision:orAskForRevision:using: Claus Gittinger <cg@exept.de> parents: 2237 diff changeset	1439	"/ the following is wrong - must ask the projectDefinition !!
2288 9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1440	aPackageID asPackageId projectDefinitionClass notNil ifTrue:[
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1441	mgr := self sourceCodeManagerFor:aPackageID asPackageId projectDefinitionClass.
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1442	] ifFalse:[
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1443	mgr := self sourceCodeManagerFor:aCollectionOfMethods first mclass.
9abbb9ec4439 changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2286 diff changeset	1444	].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1445	mgr isNil ifTrue:[ ^ false ].
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	1446
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1447	module := aPackageID asPackageId module.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1448	directory := aPackageID asPackageId directory.
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1449	containerFileName := self nameOfExtensionsContainer.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	1450
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1451	aLogInfoOrStringOrNil isNil ifTrue:[
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1452	checkinInfo := self getCheckinInfoFor:containerFileName allBold initialAnswer:nil.
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1453	checkinInfo isNil ifTrue:[^ false].
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1454	logMessage := checkinInfo logMessage.
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1455	] ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1456	aLogInfoOrStringOrNil isString ifTrue:[
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1457	logMessage := aLogInfoOrStringOrNil
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1458	] ifFalse:[
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	1459	checkinInfo := aLogInfoOrStringOrNil.
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1460	logMessage := checkinInfo logMessage.
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	1461	].
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1462	].
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1463
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1464	(mgr checkForExistingContainer:containerFileName inModule:module directory:directory) ifFalse:[
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1465	(self checkForExistingModule:module usingManager:mgr allowCreate:true) ifFalse:[^ false].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1466	LastModule := module.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1467
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1468	(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	1469	LastPackage := directory.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1470
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1471	(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	1472	].
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1473
1120 f039453a5562 * empty log message * Claus Gittinger <cg@exept.de> parents: 1113 diff changeset	1474	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	1475	pri := Processor activePriority.
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1476	Processor activeProcess
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1477	withPriority:pri-1 to:pri
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1478	do:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1479	s := '' writeStream.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1480
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1481	s nextPutAll:'"{ Package: '''.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1482	s nextPutAll:aPackageID asString.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1483	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	1484
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1485	"/ s nextPutAll:(Smalltalk timeStamp).
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1486	"/ s nextPutChunkSeparator.
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1487	"/ s cr; cr.
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1488
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1489	"/ 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	1490	methodsSortedByName := aCollectionOfMethods asOrderedCollection.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1491	methodsSortedByName sort:[:a :b \|
1015 89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1492	\|clsA clsB\|
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1493
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1494	clsA := a mclass name.
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1495	clsB := b mclass name.
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1496	clsA < clsB ifTrue:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1497	true
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1498	] ifFalse:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1499	clsA > clsB ifTrue:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1500	false
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1501	] ifFalse:[
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1502	a selector < b selector
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1503	]
89f96d45303e extension checkIn Claus Gittinger <cg@exept.de> parents: 1012 diff changeset	1504	]
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1505	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1506	methodsSortedByName do:[:aMethod \|
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1507	aMethod mclass fileOutMethod:aMethod on:s.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1508	s cr.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1509	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1510
2233 59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1511	defClass := ProjectDefinition definitionClassForPackage:aPackageID.
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1512	defClass notNil ifTrue:[
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1513	"/ make sure, an extensionVersion_XXX method is included...
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1514	"/ (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	1515	(methodsSortedByName contains:[:aMethod \| aMethod selector == mgr nameOfVersionMethodForExtensions]) ifFalse:[
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1516	s nextPutLine:('!!%1 class methodsFor:''documentation''!!' bindWith:defClass name).
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1517	s cr.
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1518	s nextChunkPut:
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1519	(mgr versionMethodTemplateForSmalltalkFor:(mgr nameOfVersionMethodForExtensions)).
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1520	s space; nextPutChunkSeparator.
59fc21dd040d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2209 diff changeset	1521	].
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1522	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1523
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1524	methodSource := s contents.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1525
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1526	UserInformation handle:[:ex \|
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1527	Transcript showCR:ex description.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1528	ex proceed.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1529	] do:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1530	Transcript showCR:('checking in ',containerFileName,' ...').
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1531	(mgr
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1532	checkin:containerFileName
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1533	text:methodSource
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1534	directory:directory
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1535	module:module
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1536	logMessage:logMessage
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1537	force:false)
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1538	ifFalse:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1539	Transcript showCR:'Checkin of ''' , containerFileName , ''' failed'.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1540	self warn:'Checkin of ''' , containerFileName allBold , ''' failed'.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1541	^ false.
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1542	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1543	checkinInfo notNil ifTrue:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1544	\|path\|
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	path := (module, '/', directory, '/', containerFileName).
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1547	checkinInfo isStable ifTrue:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1548	"set stable tag for class that has been checked in"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1549	self tagPath:path as:#stable usingManager:mgr.
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1550	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1551	checkinInfo tagIt ifTrue:[
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1552	"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	1553	self tagPath:path as:(checkinInfo tag) usingManager:mgr.
2200 b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1554	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1555	].
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1556	mgr postCheckInExtensionsForPackage:aPackageID
b9e1551c5a0d changed: #checkinExtensionMethods:forPackage:withInfo: Claus Gittinger <cg@exept.de> parents: 2194 diff changeset	1557	].
922 24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1558	].
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1559	^ true
1090 8608e5b91fa7 condense changeSet after checking in an extensions container Claus Gittinger <cg@exept.de> parents: 1084 diff changeset	1560
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	1561	"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	1562	!
24cfcd3043a2 file based operations added (to check in extensions etc.) Claus Gittinger <cg@exept.de> parents: 920 diff changeset	1563
2597 fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1564	checkinPackage:packageToCheckIn classes:doClasses extensions:doExtensions buildSupport:doBuild askForMethodsInOtherPackages:askForMethodsInOtherPackages
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1565	\|mgr classes classesToCheckIn methodsToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1566	methodsInOtherPackages looseMethods otherPackages
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1567	msg classesInChangeSet checkinInfo originalCheckinInfo classesToTag\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1568
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1569	mgr := self sourceCodeManagerFor: packageToCheckIn.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1570	classes := Smalltalk allClasses.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1571
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1572	classesToCheckIn := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1573	methodsToCheckIn := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1574	methodsInOtherPackages := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1575	looseMethods := IdentitySet new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1576
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1577	"/ classes ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1578	classes do:[:aClass \| \|owner classPackage\|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1579	(owner := aClass owningClass) notNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1580	classPackage := aClass topOwningClass package
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1581	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1582	classPackage := aClass package
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1583	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1584	(classPackage = packageToCheckIn) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1585	classesToCheckIn add:aClass.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1586	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1587	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1588
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1589	"/ cg: O(n^2) algorithm
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1590	"/ classesInChangeSet := classesToCheckIn select:[:cls \| cls hasUnsavedChanges].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1591	"/ replaced by: O(n) algorithm
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1592	classesInChangeSet := ChangeSet current selectForWhichIncludesChangeForClassOrMetaclassOrPrivateClassFrom:classesToCheckIn.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1593
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1594	"/ individual methods ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1595	classes do:[:aClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1596	aClass isMeta ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1597	"/ ... whose class is not in the chechIn-set
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1598	(classesToCheckIn includes:aClass) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1599	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1600	"/ methods in this project ...
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1601	(mthd package = packageToCheckIn) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1602	methodsToCheckIn add:mthd
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1603	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1604	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1605	].
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	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1608
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1609	doExtensions ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1610	methodsToCheckIn notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1611	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1612	msg := '%1 classes (%4 changed) '.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1613	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1614	msg := ''.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1615	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1616	doExtensions ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1617	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1618	msg := msg , 'and '.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1619	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1620	msg := msg , '%2 extensions '.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1621	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1622	msg := msg , 'of project "%3"'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1623
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1624	checkinInfo := self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1625	getCheckinInfoFor:(msg
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1626	bindWith:classesToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1627	with:methodsToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1628	with:packageToCheckIn allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1629	with:classesInChangeSet size)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1630	initialAnswer:nil
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1631	withQuickOption:(classesToCheckIn size > 0).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1632	checkinInfo isNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1633	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1634	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1635	(self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1636	checkinExtensionMethods:methodsToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1637	forPackage:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1638	withInfo:checkinInfo)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1639	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1640	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	1641	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1642	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1643	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1644	"/ 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	1645	(mgr
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1646	checkForExistingContainer:'extensions.st' inPackage:packageToCheckIn)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1647	ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1648	"/ self halt.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1649	(self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1650	checkinExtensionMethods:#()
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1651	forPackage:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1652	withInfo:'No extensions any more')
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1653	ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1654	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	1655	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1656	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1657	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1658	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1659	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1660
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	checkinInfo := self
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1663	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	1664	bindWith:classesToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1665	with:methodsToCheckIn size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1666	with:packageToCheckIn allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1667	with:classesInChangeSet size)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1668	initialAnswer:nil
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1669	withQuickOption:(classesToCheckIn size > 0).
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1670	checkinInfo isNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1671	^ self.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1672	].
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
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1675	checkinInfo quickCheckIn ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1676	(checkinInfo isStable or:[checkinInfo tagIt]) ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1677	classesToTag := classesToCheckIn.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1678	originalCheckinInfo := checkinInfo.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1679	checkinInfo := checkinInfo copy.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1680	checkinInfo isStable:false.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1681	checkinInfo tag:nil.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1682	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1683	classesToCheckIn := classesInChangeSet.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1684	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1685
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1686	"/ 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	1687	classesToCheckIn do:[:eachClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1688	eachClass instAndClassMethodsDo:[:eachMethod \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1689	\|mPgk\|
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	mPgk := eachMethod package.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1692	(mPgk = packageToCheckIn) ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1693	mPgk == PackageId noProjectID ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1694	looseMethods add:eachMethod
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1695	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1696	methodsInOtherPackages add:eachMethod
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	]
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1699	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1700	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1701
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1702	askForMethodsInOtherPackages ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1703	methodsInOtherPackages notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1704	otherPackages := Set new.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1705	methodsInOtherPackages do:[:eachMethod \| otherPackages add:eachMethod package].
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	methodsInOtherPackages size == 1 ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1708	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	1709	msg := msg , '\\This method will remain in its package.'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1710	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1711	otherPackages size == 1 ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1712	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	1713	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1714	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	1715	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1716	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	1717	msg := msg , '\move them first, then repeat the checkin operation.'.
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	msg := msg withCRs.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1720	msg := msg bindWith:methodsInOtherPackages size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1721	with:otherPackages first allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1722	with:otherPackages size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1723	with:methodsInOtherPackages first selector allBold
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1724	with:methodsInOtherPackages first mclass name allBold.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1725	(Dialog confirm:msg noLabel:(resources string:'Cancel')) ifFalse:[^ self].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1726	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1727	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1728
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1729	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1730	classesToCheckIn notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1731	looseMethods notEmpty ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1732	looseMethods size == 1 ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1733	msg := 'The ''%2'' method in ''%3'' is unassigned (loose).'.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1734	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	1735	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	1736	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	1737	] ifFalse:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1738	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	1739	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	1740	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	1741	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	1742	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1743	doClasses ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1744	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	1745	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1746	msg := msg withCRs.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1747	msg := msg bindWith:looseMethods size
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1748	with:(looseMethods isEmpty ifTrue:[''] ifFalse:[looseMethods first selector allBold])
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1749	with:(looseMethods isEmpty ifTrue:[''] ifFalse:[looseMethods first mclass name allBold])
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1750	with:packageToCheckIn allBold.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1751	(Dialog confirm:msg noLabel:(resources string:'Cancel')) ifFalse:[^ self].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1752
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1753	looseMethods do:[:mthd \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1754	mthd package:packageToCheckIn
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	self checkinClasses:classesToCheckIn withInfo:checkinInfo.
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1758	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1759
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1760	originalCheckinInfo notNil ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1761	originalCheckinInfo isStable ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1762	classesToTag do:[:eachClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1763	self tagClass:eachClass as:#stable
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	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1766	originalCheckinInfo tagIt ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1767	classesToTag do:[:eachClass \|
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1768	self tagClass:eachClass as:(originalCheckinInfo tag)
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1769	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1770	].
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	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1773
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1774	doBuild ifTrue:[
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1775	self checkinBuildSupportFilesForPackage:packageToCheckIn
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1776	].
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1777
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1778	"Modified: / 08-09-2011 / 04:42:38 / cg"
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1779	"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	1780	!
fcb5d74b32d2 More code moved from Tools::NewSystemBrowser to SourceCodeManagerUtilities vrany parents: 2596 diff changeset	1781
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1782	checkoutClass:aClass askForMerge:askForMerge
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1783	"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	1784
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1785	self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1786	checkoutClass:aClass
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1787	askForRevision:true
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1788	askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1789	!
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1790
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1791	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1792	"check-out a class from the source repository.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1793	If askForRevision is false, check-out the newest version."
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1794
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1795	self
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1796	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1797	askForConfirmation:true
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1798	!
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1799
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1800	checkoutClass:aClass askForRevision:askForRevision askForMerge:askForMerge askForConfirmation:askForConfirmation
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1801	"check-out a class from the source repository.
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1802	If askForRevision is false, check-out the newest version."
0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	1803
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1804	\|mgr resources sourceInfo
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1805	currentClass inChangeSet
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	1806	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	1807	nm msg rev2 newestRev
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1808	containerModule containerPackage containerFile rslt
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1809	pkg listHere listRep diffSet
1054 4ecc5aeca084 * empty log message * Claus Gittinger <cg@exept.de> parents: 1053 diff changeset	1810	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	1811	changedClasses default versionMethodsHere versionMethodsRep changedClassDefinitions
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1812	wasInChangeSetBefore\|
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1813
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1814	aClass isNil ifTrue:[self error:'nil class'].
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1815
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	1816	resources := self classResources.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1817
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1818	currentClass := aClass theNonMetaclass.
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1819
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1820	nm := currentClass name.
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	1821	mgr := self sourceCodeManagerFor:currentClass.
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1822	mgr isNil ifTrue:[
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1823	^ self
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1824	].
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1825
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1826	sourceInfo := mgr sourceInfoOfClass:currentClass.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1827	sourceInfo notNil ifTrue:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1828	currentClass package ~= PackageId noProjectID ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	1829	containerPackage := mgr directoryFromSourceInfo:sourceInfo.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1830	containerModule := mgr moduleFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1831	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1832	containerFile := mgr containerFromSourceInfo:sourceInfo.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1833	].
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1834
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1835	currentClass isLoaded ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1836	rev := currentClass binaryRevision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1837	rev2 := currentClass revision.
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1838	rev isNil ifTrue:[
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1839	rev := rev2
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1840	].
bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1841	rev isNil ifTrue:[
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1842	pkg := currentClass package.
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	1843	(pkg notNil and:[pkg ~= PackageId noProjectID]) ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1844	containerModule := pkg upTo:$:.
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1845	containerPackage := pkg copyFrom:(containerModule size + 2).
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1846	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1847	containerModule size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1848	containerModule := (self class lastModule ) ? Project current repositoryModule.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1849	].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1850	containerPackage size == 0 ifTrue:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1851	containerPackage := (self class lastPackage ) ? Project current package.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1852	].
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1853	answer := self confirmWithCancel:(resources
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1854	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	1855	with:containerModule allBold
1035 092c701c91f3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	1856	with:containerPackage allBold
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1857	with:currentClass name allBold) withCRs.
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1858	answer isNil ifTrue:[^ self "cancelled"].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1859	answer ifFalse:[
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1860	rslt := self
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1861	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	1862	title:'Container to load from' note:nil
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1863	initialModule:containerModule
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1864	initialPackage:containerPackage
1158 453b58c2a059 refactored slightly Claus Gittinger <cg@exept.de> parents: 1157 diff changeset	1865	initialFileName:(currentClass nameWithoutPrefix , '.st')
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1866	forNewContainer:false.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1867
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1868	rslt isNil ifTrue:[
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1869	"/ canel
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1870	^ self
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1871	].
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1872	containerModule := "lastModule :=" rslt at:#module.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1873	containerPackage := "lastPackage :=" rslt at:#package.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1874	containerFile := rslt at:#fileName.
7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1875	].
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1876
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1877	"/ rslt := self
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1878	"/ 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	1879	"/ title:'Container to checkOut' note:nil
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1880	"/ initialModule:containerModule
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1881	"/ initialPackage:containerPackage
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1882	"/ initialFileName:(currentClass name , '.st').
1030 7a798aa0735e * empty log message * Claus Gittinger <cg@exept.de> parents: 1026 diff changeset	1883	"/ forNewContainer:false.
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1884	"/ rslt isNil ifTrue:[^ self].
efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1885	"/ 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	1886	"/ ^ self
989 bb70a0f30e98 care for autoloaded classes when checking out Claus Gittinger <cg@exept.de> parents: 987 diff changeset	1887	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1888	].
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1889
1966 d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1890	containerFile isNil ifTrue:[
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1891	containerFile := currentClass classFilename.
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1892	].
d2e8ac3b2c0b * empty log message * Claus Gittinger <cg@exept.de> parents: 1964 diff changeset	1893
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1894	"/
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1895	"/ 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	1896	"/
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1897	"/ newestRev := mgr newestRevisionOf:currentClass.
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1898	containerModule isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1899	containerModule := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1900	stringWithCRs:'Missing Module Information for CheckOut of "%1".\\Module:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1901	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1902	containerModule isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1903	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1904	containerPackage isNil ifTrue:[
1982 305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1905	containerPackage := Dialog request:(resources
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1906	stringWithCRs:'Missing Package Information for CheckOut of "%1".\\Package:'
305ae0785e65 nicer dialog Claus Gittinger <cg@exept.de> parents: 1978 diff changeset	1907	with:aClass name allBold).
1978 91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1908	containerPackage isEmptyOrNil ifTrue:[^ self].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1909	].
91cb79a651aa * empty log message * Michael Beyl <mb@exept.de> parents: 1972 diff changeset	1910
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1911	newestRev := mgr newestRevisionInFile:containerFile directory:containerPackage module:containerModule.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1912	askForRevision ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1913	rev := newestRev ? ''
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1914	] ifTrue:[
1019 efc461bc89dc asText allBold -> allBold Claus Gittinger <cg@exept.de> parents: 1017 diff changeset	1915	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	1916	rev notNil ifTrue:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1917	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	1918	with:nm allBold with:rev).
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1919	(rev2 notNil and:[rev2 ~= rev]) ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1920	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	1921	]
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1922	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1923	newestRev notNil ifTrue:[
2539 abce5c41eef8 comment/format in: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2522 diff changeset	1924	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	1925	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1926
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	1927	rev := self
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1928	askForExistingRevision:msg
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1929	title:'CheckOut from repository'
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1930	class:currentClass.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1931	rev isNil ifTrue:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	1932	^ self "/ canceled
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1933	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1934	].
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	1935
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1936	rev withoutSpaces isEmpty ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1937	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1938	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1939	aStream := mgr getSourceStreamFor:currentClass revision:newestRev.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1940	revString := '(newest: ' , (newestRev ? '???') , ')'.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1941	] ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1942	msg := 'extracting previous %1'.
1084 2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1943	"/ aStream := mgr getSourceStreamFor:currentClass revision:rev.
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1944	"/ revString := rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1945	aStream := mgr
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1946	streamForClass:currentClass
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1947	fileName:containerFile
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1948	revision:rev
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1949	directory:containerPackage
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1950	module:containerModule
2728a446d037 remember lastPackage/Module Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	1951	cache:true.
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1952	].
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1953
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1954	aStream isNil ifTrue:[
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1955	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	1956	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1957	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1958	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	1959	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	1960	aStream close.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1961	^ self
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1962	] do:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1963	sourceToLoad := aStream contents asString.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1964	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1965	aStream close.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	1966
1919 8d30ac5be40f * empty log message * boris parents: 1913 diff changeset	1967	wasInChangeSetBefore := ChangeSet current includesChangeForClassOrMetaclass:currentClass.
1879 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	currentClass isLoaded ifFalse:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1970	rev = newestRev ifTrue:[
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1971	currentClass autoload.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1972	] ifFalse:[
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1973	sourceToLoad readStream fileIn.
996 551841dd0105 * empty log message * Claus Gittinger <cg@exept.de> parents: 992 diff changeset	1974	].
1879 3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1975	wasInChangeSetBefore ifFalse:[
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1976	ChangeSet current condenseChangesForClass:currentClass.
3ca8838014ee dont ask for changeSet-compression if the loaded Claus Gittinger <cg@exept.de> parents: 1877 diff changeset	1977	].
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1978	^ self.
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1979	].
2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	1980
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	1981	inChangeSet := aClass hasUnsavedChanges.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	1982
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1983	Error handle:[:ex \|
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1984	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1985	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1986	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	1987	with:ex description
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1988	with:currentClass name allBold)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1989	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	1990	ifFalse:[
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	1991	AbortOperationRequest raise
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1992	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1993	sourceToLoad readStream fileIn.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1994	^ self.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	1995	] do:[
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1996	self activityNotification:'generating current source...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1997
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1998	currentSource := self sourceCodeOfClass:currentClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	1999
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2000	self activityNotification:'comparing...'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2001
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2002	sourceToLoad = currentSource ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2003	"/ make all methods belong to the classes project
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2004	self setPackageOfAllMethodsIn:aClass to:aClass package.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2005	inChangeSet ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2006	rev = newestRev ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2007	(askForConfirmation not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2008	or:[ wasInChangeSetBefore not
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2009	or:[ self confirm:(resources
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2010	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	2011	with:aClass name)]])
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2012	ifTrue:[
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2013	ChangeSet current condenseChangesForClass:aClass.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2014	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2015	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2016	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2017	self activityNotification:'... nothing changed in repository'.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2018	^ self.
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2019	].
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2020
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2021	self activityNotification:'generating diffSet...'.
1972 32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	2022	listHere := ChangeSet fromStream:(currentSource readStream).
32853d3cb43a care for errors during fileOut ofr local source Claus Gittinger <cg@exept.de> parents: 1971 diff changeset	2023	].
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2024
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	2025	listRep := ChangeSet fromStream:(sourceToLoad readStream).
1051 9f76e78c91d4 * empty log message * frank parents: 1050 diff changeset	2026
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2027	Error handle:[:ex \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2028	(Dialog
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2029	confirm:(resources
2426 d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2030	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	2031	with:ex description
d698fb5ebbd7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2397 diff changeset	2032	)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2033	noLabel:'Cancel')
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2034	ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2035	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2036	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2037	sourceToLoad readStream fileIn.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2038	^ self.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2039	] do:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2040	versionMethodsHere := 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]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2043
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2044	versionMethodsRep := listRep select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2045	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2046	and:[change changeClass isMeta]])].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2047
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2048	"/ compare all but the version methods
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2049	listHere := listHere select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2050	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2051	and:[change changeClass isMeta]]) not].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2052	listRep := listRep select:[:change \| (change isMethodChange
2184 4bb6267612be changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: fm parents: 2175 diff changeset	2053	and:[(AbstractSourceCodeManager isVersionMethodSelector:change selector)
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2054	and:[change changeClass isMeta]]) not].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2055
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2056	diffSet := listHere diffSetsAgainst:listRep.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2057	changed := diffSet changed.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2058	onlyHere := diffSet onlyInReceiver.
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2059
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2060	"/ reject extensions
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2061	onlyHere := onlyHere reject:[:eachDiff\|
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2062	\|method methodsPackage\|
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2063
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2064	eachDiff isClassDefinitionChange
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2065	and:[ eachDiff changeClass notNil
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2066	and:[ (method := (eachDiff changeClass compiledMethodAt:eachDiff selector)) notNil
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2067	and:[ (methodsPackage := method package) ~= containerPackage
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2068	and:[ methodsPackage ~= PackageId noProjectID ]]]]
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2069	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2070
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2071	onlyInRep := diffSet onlyInArg.
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	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	2074	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	2075	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	2076
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2077	labels := #('Cancel' 'Merge' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2078	values := #(nil #merge #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2079	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2080	ifTrue:[3. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2081	ifFalse:[2. "i.e. merge"].
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 := 'About to load ''%4''.\\'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2084	onlyInRep size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2085	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	2086	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2087	onlyHere size > 0 ifTrue:[
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2088	msg := msg , (onlyInRep size > 0 ifTrue:['And there '] ifFalse:['There ']).
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2089	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	2090	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2091	changed size > 0 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2092	changed size == 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2093	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	2094	singleChangeSelector := changed first first selector allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2095	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2096	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	2097	]
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	changedClassDefinitions size > 0 ifTrue:[
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2100	msg := msg , (changedClassDefinitions size == 1
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2101	ifTrue:['The class definition is different.\\']
77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2102	ifFalse:['%5 class definitions are different.\\'])
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2103	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2104
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2105	onlyHere isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2106	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2107	(changed isEmpty and:[changedClassDefinitions isEmpty]) ifTrue:[
2642 0675ababcc6d changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2637 diff changeset	2108	"/ self halt.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2109	versionMethodsRep notEmpty ifTrue:[
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2110	(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	2111	versionMethodsRep do:[:each \| each apply].
93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2112	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2113	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2114	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2115	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2116	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
2605 93f1e7e8aee7 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2602 diff changeset	2117	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	2118	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2119	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2120	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2121	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	2122	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2123	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2124	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2125	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2126	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2127	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2128	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2129	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2130	changed isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2131	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	2132	labels := #('Cancel' 'Load').
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2133	values := #(nil #load).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2134	default := askForRevision
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2135	ifTrue:[2. "i.e. load"]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2136	ifFalse:[1. "i.e. cancel"].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2137	default := 2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2138	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2139	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2140	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	2141	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2142	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	2143	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2144	]
1006 2ac6dfb81b8d checkin from browser Claus Gittinger <cg@exept.de> parents: 1004 diff changeset	2145	] ifFalse:[
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2146	onlyInRep isEmpty ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2147	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2148	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	2149	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	2150	].
1121 7531e9dd8ba8 * empty log message * Claus Gittinger <cg@exept.de> parents: 1120 diff changeset	2151	labels := #('Cancel' 'Load').
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2152	values := #(nil #load).
1007 44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2153	default := askForRevision
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2154	ifTrue:[2. "i.e. load"]
44c0229bcb43 better dialog message text and load/cancel default. Claus Gittinger <cg@exept.de> parents: 1006 diff changeset	2155	ifFalse:[1. "i.e. cancel"].
1907 30ca5aea5a7a dialogs defaults fm parents: 1886 diff changeset	2156	default := 2.
987 fa4fc87b8540 checkin from browser Claus Gittinger <cg@exept.de> parents: 986 diff changeset	2157	] ifFalse:[
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2158	inChangeSet ifTrue:[
9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2159	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	2160	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	2161	]
1339 9a1e91c28cb3 checkOut dialog labels Claus Gittinger <cg@exept.de> parents: 1338 diff changeset	2162	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2163	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2164
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2165	msg := msg bindWith:onlyInRep size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2166	with:onlyHere size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2167	with:changed size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2168	with:aClass name allBold
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2169	with:changedClassDefinitions size printString
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2170	with:singleChangeSelector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2171
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2172	askForConfirmation ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2173	answer := #load
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2174	] ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2175	answer := (Dialog confirmWithCancel:msg withCRs
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2176	labels:(resources array:labels)
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2177	values:values
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2178	default:default).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2179	answer isNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2180	self activityNotification:'...cancelled'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2181	^ self
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2182	].
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	2183	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2184	self activityNotification:'updating...'.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2185	changedClasses := IdentitySet new.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2186
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2187	"/ Class withoutUpdatingChangesDo:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2188	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2189	"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	2190	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	2191	onlyHere do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2192	"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	2193	\|cClass cSel\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2194	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2195	cClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2196	cSel := eachChange selector.
2774 46c3fee4b485 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2719 diff changeset	2197	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	2198	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2199	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2200
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2201	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2202	\|cHere eachChangedClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2203	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2204	eachChangedClass := cHere changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2205	eachChangedClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2206	changedClasses add:eachChangedClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2207	eachChangedClass := eachChangedClass theNonMetaclass.
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	"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	2210	changed do:[:eachChangeArr\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2211	\|eachChange eachClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2212
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2213	eachChange := eachChangeArr first.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2214	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2215	eachClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2216	eachClass theNonMetaclass == eachChangedClass ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2217	eachClass basicRemoveSelector:eachChange selector.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2218	].
1999 57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	2219	].
57cad7a53262 changed #checkOutClasse Stefan Vogel <sv@exept.de> parents: 1997 diff changeset	2220	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2221	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2222	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2223
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2224	"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	2225	changedClassDefinitions do:[:eachChangeArr \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2226	\|cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2227	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2228	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2229	].
1057 6903d4d5097d do not update the changesFile, when checkingOut Claus Gittinger <cg@exept.de> parents: 1056 diff changeset	2230	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2231
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2232	onlyInRep do:[:eachChange \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2233	\|changeClass\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2234
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2235	"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	2236	eachChange apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2237	eachChange isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2238	changeClass := eachChange changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2239	changeClass notNil ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2240	eachChange changeMethod setPackage:(changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2241	changedClasses add:changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2242	]
2013 0457926edfdb allow checkout without popup confirmations Michael Beyl <mb@exept.de> parents: 2009 diff changeset	2243	]
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2244	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2245	.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2246	answer == #load ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2247	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	2248	\|cHere cRep\|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2249	cHere := eachChangeArr at:1.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2250	cRep := eachChangeArr at:2.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2251	cRep apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2252	cRep isMethodChange ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2253	cRep changeMethod setPackage:(cRep changeClass package).
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2254	changedClasses add:cRep changeClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2255	]
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2256	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2257
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2258	versionMethodsRep size >= 1 ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2259	versionMethodsRep last apply.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2260	] ifFalse:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2261	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	2262	].
2193 cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2263	"/ make all those methods belong to the classes project
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2264	"/ no - that is wrong !! self setPackageOfAllMethodsIn:aClass to:aClass package.
cdb523415d6b added: #setPackageOfAllMethodsInChangeSet:to: fm parents: 2189 diff changeset	2265	self setPackageOfAllMethodsInChangeSet:listRep to:aClass package.
1055 f44b12442c58 version update after load from rep. Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	2266	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2267	"/ ].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2268
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2269	answer == #load ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	2270	inChangeSet := aClass hasUnsavedChanges.
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2271	inChangeSet ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2272	rev = newestRev ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2273	(wasInChangeSetBefore not
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2274	or:[ self confirm:(resources
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2275	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	2276	with:aClass name)])
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2277	ifTrue:[
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2278	ChangeSet current condenseChangesForClass:aClass.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2279	].
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2280	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2281	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2282	].
2092 cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2283
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2284	changedClasses do:[:eachClass \|
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2285	eachClass changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2286	].
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2287	Smalltalk changed:#projectOrganization.
cd9b53d5ca31 allow for fileIn, even if diffset generation failed Claus Gittinger <cg@exept.de> parents: 2064 diff changeset	2288	self activityNotification:'... done'.
1800 560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2289	].
560e29381f52 ask for condense changeSet when loading the newest revision Claus Gittinger <cg@exept.de> parents: 1787 diff changeset	2290
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	2291	"Modified: / 07-02-2001 / 18:18:32 / ps"
2794 77c62d93cc76 changed: #checkoutClass:askForRevision:askForMerge:askForConfirmation: Claus Gittinger <cg@exept.de> parents: 2793 diff changeset	2292	"Modified: / 06-03-2012 / 16:40:33 / cg"
986 78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	2293	!
78d2a098bc81 support to checkout/merge a class from the repository Claus Gittinger <cg@exept.de> parents: 984 diff changeset	2294
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2295	checkoutExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision askForMerge:askForMerge usingManager:aSourceCodeManager
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2296	"check-out a class from the source repository.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2297	If askForRevision is false, check-out the newest version."
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2298
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2299	\|resources
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	2300	inChangeSet extensionMethods
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2301	rev msg
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	2302	listHere listRep diffSet
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2303	changed onlyHere onlyInRep answer labels values singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2304	changedClasses default \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2305
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2306	listRep := self changeSetForExtensionMethodsForPackage:packageToCheckOut askForRevision:askForRevision usingManager:aSourceCodeManager.
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2307	listRep isNil ifTrue:[ ^self ].
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2308
1841 00e5a67d1d9e refactored & created changeSetForExtensions-utility Claus Gittinger <cg@exept.de> parents: 1840 diff changeset	2309	resources := self classResources.
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2310
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2311	self activityNotification:'generating diffSet...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2312
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2313	extensionMethods := OrderedCollection new.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2314	Smalltalk allClassesDo:[:aClass \| \|owner classPackage\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2315	"/ individual methods ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2316	aClass isMeta ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2317	(aClass package ~= packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2318	aClass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2319	"/ methods in this project ...
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2320	(mthd package = packageToCheckOut) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2321	"/ ... whose class is not in the ckechIn-set
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2322	extensionMethods add:mthd
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	].
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	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2327	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2328	listHere := ChangeSet forExistingMethods:extensionMethods.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2329
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2330	inChangeSet := listRep contains:[:someChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2331	\|cClass cSel\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2332
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2333	someChange isMethodChange ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2334	cClass := someChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2335	cSel := someChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2336	ChangeSet current includesChangeForClass:cClass selector:cSel
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2337	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2338	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2339
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2340	diffSet := listHere diffSetsAgainst:listRep.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2341	changed := diffSet changed.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2342	onlyHere := diffSet onlyInReceiver.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2343	onlyInRep := diffSet onlyInArg.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2344
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2345	labels := #('Cancel' 'Merge' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2346	values := #(nil #merge #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2347	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2348	ifTrue:[3. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2349	ifFalse:[2. "i.e. merge"].
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	msg := 'About to load extensions for ''%5''.\\'.
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 , '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	2354	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2355	onlyHere size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2356	onlyInRep size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2357	msg := msg , 'And there '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2358	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2359	msg := msg , 'There '.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2360	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2361	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	2362	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2363	changed size > 0 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2364	changed size == 1 ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2365	msg := msg , 'The ''%5''-method is different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2366	singleChangeSelector := changed first first selector allBold
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2367	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2368	msg := msg , '%3 methods are different (present in both).\\'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2369	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2370	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2371
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2372	onlyHere isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2373	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2374	(changed isEmpty) ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2375	listRep do:[:eachChange \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2376	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2377	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2378	^ self
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2379	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2380	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2381	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	2382	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2383	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2384	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2385	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2386	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2387	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2388	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2389	changed isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2390	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	2391	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2392	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2393	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2394	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2395	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2396	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2397	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2398	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	2399	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2400	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	2401	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2402	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2403	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2404	onlyInRep isEmpty ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2405	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2406	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	2407	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	2408	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2409	labels := #('Cancel' 'Load').
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2410	values := #(nil #load).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2411	default := askForRevision
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2412	ifTrue:[2. "i.e. load"]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2413	ifFalse:[1. "i.e. cancel"].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2414	] ifFalse:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2415	inChangeSet ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2416	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	2417	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	2418	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2419	]
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2420	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2421
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2422	msg := msg bindWith:onlyInRep size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2423	with:onlyHere size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2424	with:changed size printString
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2425	with:singleChangeSelector
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2426	with:packageToCheckOut allBold.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2427
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2428	answer := (Dialog confirmWithCancel:msg withCRs
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2429	labels:(resources array:labels)
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2430	values:values
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2431	default:default).
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2432	answer isNil ifTrue:[^ self].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2433
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2434	self activityNotification:'updating...'.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2435	changedClasses := IdentitySet new.
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	"/ Class withoutUpdatingChangesDo:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2438	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	2439	Class withoutUpdatingChangeSetDo:[ eachChange apply ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2440
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2441	eachChange changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2442	changedClasses add:eachChange changeClass.
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	answer == #load ifTrue:[
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2445	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	2446	\|cClass 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	cClass := eachChange changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2449	cSel := eachChange selector.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2450	Class withoutUpdatingChangeSetDo:[ cClass removeSelector:cSel ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2451	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2452	changed do:[:eachChangeArr \| "apply this change (go to rep-version)"
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2453	\|cHere cRep\|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2454	cHere := eachChangeArr at:1.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2455	cRep := eachChangeArr at:2.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2456	Class withoutUpdatingChangeSetDo:[ cRep apply ].
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	cRep changeMethod setPackage:packageToCheckOut.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2459	changedClasses add:cRep changeClass.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2460	].
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	"/ ].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2463	changedClasses do:[:eachClass \|
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2464	eachClass changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2465	].
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2466	Smalltalk changed:#projectOrganization.
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2467
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2468	"Modified: / 07-02-2001 / 18:18:32 / ps"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2469	"Created: / 29-12-2011 / 14:34:12 / cg"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2470	!
9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	2471
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2472	compareClassWithRepository:aClass
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2473	"open a diff-textView comparing the current (in-image) version
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2474	against its orgiginal version found in the repository."
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2475
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2476	self compareClassWithRepository:aClass askForRevision:true
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	self compareClassWithRepository:Array
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2480	"
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2481	!
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	compareClassWithRepository:aClass askForRevision:askForRevision
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2484	"open a diff-textView comparing the current (in-image) version
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2485	against its orgiginal version found in the repository."
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2486
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2487	\|classToCompare resources brwsr
1194 d60b2ed25f45 Remove unused method vars. Stefan Vogel <sv@exept.de> parents: 1193 diff changeset	2488	aStream comparedSource currentSource rev revString thisRevString mgr
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2489	nm msg revisionInClass newestRev versionsAreTheSame\|
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2490
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2491	resources := self classResources.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2492
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2493	classToCompare := aClass theNonMetaclass.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2494
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2495	nm := classToCompare name.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2496	mgr := self sourceCodeManagerFor:classToCompare.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2497	mgr isNil ifTrue:[
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2498	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2499	].
2397 e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2500
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2501	rev := classToCompare revisionInfoOfManager:mgr.
e01669725571 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2383 diff changeset	2502	"/ rev := classToCompare binaryRevision.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2503	revisionInClass := classToCompare revision.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2504	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2505	rev := revisionInClass
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2506	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2507	rev isNil ifTrue:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2508	(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	2509	ifFalse:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2510	^ self
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2511	]
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2512	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2513
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2514	"/
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2515	"/ class in repository - ask for revision
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2516	"/
2793 3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2517	SourceCodeManagerError handle:[:ex \|
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2518	Dialog warn:(resources
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2519	stringWithCRs:'Could not fetch source of "%1".\\Please check your %1-sourcecode manager''s settings.'
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2520	with:classToCompare name
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2521	with:classToCompare sourceCodeManager managerTypeName).
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2522	^ self.
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2523
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2524	] do:[
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2525	newestRev := mgr newestRevisionOf:classToCompare.
3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2526	].
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2527	askForRevision ifTrue:[
1466 82e4152d5e9e * empty log message * Claus Gittinger <cg@exept.de> parents: 1462 diff changeset	2528	msg := resources string:'Compare to revision: (empty for newest)'.
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2529	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2530	msg := msg , '\\' , (resources string:'Current %1 is based upon rev %2.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2531	with:nm allBold with:rev).
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2532	(revisionInClass notNil and:[revisionInClass ~= rev]) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2533	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	2534	with:revisionInClass)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2535	]
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2536	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2537	newestRev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2538	msg := msg , '\' , (resources string:'Newest in reporitory is %1.'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2539	with:newestRev)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2540	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2541
2791 0601ded0300b changed: Stefan Vogel <sv@exept.de> parents: 2775 diff changeset	2542	rev := self
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2543	askForExistingRevision:msg
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2544	title:'Compare with repository'
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2545	class:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2546	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2547	rev := newestRev.
957 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
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2550	rev notNil ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2551	rev withoutSpaces isEmpty ifTrue:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2552	msg := 'extracting newest %1 (' , (newestRev ? '???') , ')'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2553	"/ aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2554	aStream := mgr getSourceStreamFor:classToCompare revision:newestRev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2555	revString := '(newest: ' , (newestRev ? '???') , ')'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2556	] ifFalse:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2557	msg := 'extracting previous %1'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2558	aStream := mgr getSourceStreamFor:classToCompare revision:rev.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2559	revString := rev
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2560	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2561
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2562	aStream isNil ifTrue:[
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2563	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	2564	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2565	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2566	aStream class readErrorSignal handle:[:ex \|
2692 e5b7d59ce49c changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2691 diff changeset	2567	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	2568	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2569	^ self
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2570	] do:[
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2571	comparedSource := aStream contents asString.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2572	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2573	aStream close.
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2574
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2575	self activityNotification:'generating current source...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2576
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2577	currentSource := self sourceCodeOfClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2578
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2579	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2580
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2581	versionsAreTheSame := false.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2582	comparedSource = currentSource ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2583	versionsAreTheSame := true.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2584	] ifFalse:[
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2585	thisRevString := revisionInClass ? 'no revision'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2586
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2587	revString = '(newest)' ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2588	(rev := mgr newestRevisionOf:classToCompare) notNil ifTrue:[
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2589	revString := '(newest is ' , rev , ')'
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2590	]
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2591	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2592
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2593	self activityNotification:'comparing...'.
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2594
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2595	brwsr := (UserPreferences versionDiffViewerClass)
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2596	openOnClass:classToCompare
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	2597	labelA:('Repository: ' , revString)
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2598	sourceA:comparedSource
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	2599	labelB:('Current: (based on: ' , thisRevString , ')')
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2600	sourceB:currentSource
1877 fdd260c2e11a compare package Claus Gittinger <cg@exept.de> parents: 1875 diff changeset	2601	title:('Comparing ' , classToCompare name)
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2602	ifSame:[versionsAreTheSame := true].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2603
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2604	versionsAreTheSame ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2605	brwsr classChangeSet
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2606	classBeingCompared:classToCompare;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2607	versionA:rev;
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2608	versionB:rev , 'mod'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2609	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2610	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2611
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2612	versionsAreTheSame ifTrue:[
2236 050566d67400 changed: Claus Gittinger <cg@exept.de> parents: 2233 diff changeset	2613	(classToCompare hasUnsavedChanges) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2614	(self confirm:(resources
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2615	stringWithCRs:'Versions of %1 are identical.\\Remove entries from changeSet ?'
1864 0a1a62489122 * empty log message * Claus Gittinger <cg@exept.de> parents: 1841 diff changeset	2616	with:classToCompare name allBold)) ifTrue:[
1449 cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2617	ChangeSet current condenseChangesForClass:classToCompare.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2618	].
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2619	] ifFalse:[
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2620	self information:'Versions are identical.'.
cfb2e98b9259 refactored (code duplication) Claus Gittinger <cg@exept.de> parents: 1433 diff changeset	2621	ChangeSet current unrememberChangedClasses.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2622	].
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2623	revisionInClass isNil ifTrue:[
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2624	(Dialog confirm:'Update (Fix) the classes Revision Info ?' withCRs)
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2625	ifTrue:[
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2626	\|newString root\|
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	newString := mgr updatedRevisionStringOf:aClass forRevision:rev with:aClass revisionString.
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2629	newString isNil ifTrue:[
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2630	root := mgr getCVSROOTForModule:(aClass package upTo:$:).
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2631	root := mgr repositoryTopDirectoryFromCVSRoot:root.
1500 70a48e2f5921 * empty log message * Claus Gittinger <cg@exept.de> parents: 1497 diff changeset	2632	newString := '$', 'Header: ',(root copyReplaceAll: $: with:$/ ),'/'
1911 d4088b5ba0ac * empty log message * Claus Gittinger <cg@exept.de> parents: 1907 diff changeset	2633	,(Smalltalk fileNameForClass:aClass),'.st,v ',rev,' '
2006 11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2634	,(Date today printStringFormat:'%y-%m-%d'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2635	,(Time now printStringFormat:'%h:%m:%s'),' '
11622f51f754 * empty log message * Claus Gittinger <cg@exept.de> parents: 2003 diff changeset	2636	,'+0000 '
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2637	,(OperatingSystem getLoginName),' Exp $'.
061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2638	].
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2639	mgr updateVersionMethodOf:aClass for:newString.
1483 d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2640	]
d449fe6f503f cancel all Claus Gittinger <cg@exept.de> parents: 1466 diff changeset	2641	].
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2642	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2643	].
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2644
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2645	"
997 c55b39b6c7a0 * empty log message * Claus Gittinger <cg@exept.de> parents: 996 diff changeset	2646	self compareClassWithRepository:Array
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2647	"
1497 061be9164dac * empty log message * Claus Gittinger <cg@exept.de> parents: 1483 diff changeset	2648
2793 3732543d2393 changed: #compareClassWithRepository:askForRevision: Claus Gittinger <cg@exept.de> parents: 2791 diff changeset	2649	"Modified: / 06-03-2012 / 11:57:28 / cg"
957 54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2650	!
54dade11e57f * empty log message * Claus Gittinger <cg@exept.de> parents: 954 diff changeset	2651
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2652	compareProject:aProject withRepositoryVersionFrom:aDateOrNilForNewest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2653	\|diffSet\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2654
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2655	diffSet := self diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest.
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2656	VersionDiffBrowser
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2657	openOnDiffSet:diffSet
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2658	labelA:'Repository'
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2659	labelB:'Image'
2522 d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2660	title:('Differences of %1' bindWith:aProject)
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2661	ignoreExtensions:false.
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2662
d32ade066c3f changed: #compareProject:withRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2487 diff changeset	2663	"Modified: / 12-09-2011 / 11:56:01 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2664	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2665
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2666	compareProjectWithRepository:aProject
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	2667	^ self compareProject:aProject withRepositoryVersionFrom:nil
1875 f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2668	!
f00eb53229ae first attempt with compare-project functionality Claus Gittinger <cg@exept.de> parents: 1864 diff changeset	2669
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2670	createSourceContainerForClass:aClass
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2671	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2672	Return false, if failed."
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2673
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2674	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2675	createSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2676	usingManager:(self sourceCodeManagerFor:aClass).
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2677
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2678	"Modified: / 21-12-2011 / 18:31:49 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2679	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2680
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2681	createSourceContainerForClass:aClass usingManager:aManager
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2682	"let user specify the source-repository values for aClass.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2683	Return false, if failed."
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2684
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2685	\|resources\|
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2686
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2687	aManager isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2688
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2689	resources := self classResources.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2690	^ self
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2691	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2692	usingManager:aManager
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2693	title:(resources string:'Repository information for %1' with:aClass name)
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2694	text:(resources string:'Create new %1-repository container for ''%2'''
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2695	with:aManager managerTypeName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2696	with:aClass name allBold)
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2697	createDirectories:true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2698	createContainer:true.
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2699
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2700	"Created: / 21-12-2011 / 18:31:23 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2701	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2702
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2703	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	2704	"let user specify the source-repository values for aClass"
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2705
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2706	^ self
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2707	defineSourceContainerForClass:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2708	usingManager:(self sourceCodeManagerFor:aClass)
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2709	title:title
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2710	text:boxText
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2711	createDirectories:createDirs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2712	createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2713
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2714	"Modified: / 21-12-2011 / 18:34:44 / cg"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2715	!
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2716
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2717	defineSourceContainerForClass:aClass usingManager:mgr title:title text:boxText createDirectories:createDirs createContainer:createContainer
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2718	"let user specify the source-repository values for aClass"
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2719
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2720	\|className
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2721	"oldModule oldPackage" oldFileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2722	module directory fileName nameSpace nameSpacePrefix
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2723	info project nm creatingNew msg
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2724	answer doCheckinWithoutAsking forceCheckIn resources rslt note
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2725	requiredPackage\|
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2726
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2727	mgr isNil ifTrue:[^ false].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2728
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	2729	resources := self classResources.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2730	aClass isLoaded ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2731	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	2732	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2733	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2734
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2735	className := aClass name.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2736
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2737	aClass isProjectDefinition ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2738	"/ no way - their package is already known and fix.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2739	module := aClass module.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2740	directory := aClass moduleDirectory.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2741	] ifFalse:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2742	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2743	"/ defaults, if nothing at all is known
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2744	"/
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2745	(module := LastModule) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2746	module := (OperatingSystem getLoginName).
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2747	].
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2748	(directory := LastPackage) isNil ifTrue:[
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2749	directory := 'private'.
6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2750	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2751	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2752
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2753	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2754	"/ 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	2755	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2756	(Project notNil and:[(project := Project current) notNil]) ifTrue:[
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2757	directory isNil ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2758	(nm := project repositoryDirectory) isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2759	nm := project name
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2760	].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2761	directory := nm.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2762	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2763	module isNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2764	(nm := project repositoryModule) notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2765	module := nm
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	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2768	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2769
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2770	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2771	"/ 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	2772	"/ if so, take that as a default.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2773	"/
1189 fdc5e747c184 refactored check for a valid sourceCodeManager into one place Claus Gittinger <cg@exept.de> parents: 1185 diff changeset	2774	info := mgr sourceInfoOfClass:aClass.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2775	info notNil ifTrue:[
1368 20cde03a3cd6 defineSource - fixed package & module extraction martin parents: 1347 diff changeset	2776	true "module ~= LastModule" ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2777	(info includesKey:#module) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2778	module := (info at:#module).
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	].
1401 102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2781	"/ true "package ~= LastPackage" ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2782	"/ (info includesKey:#directory) ifTrue:[
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2783	"/ package := (info at:#directory).
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2784	"/ ].
102c0c12b66b default package changed Claus Gittinger <cg@exept.de> parents: 1391 diff changeset	2785	"/ ].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2786	fileName := mgr containerFromSourceInfo:info.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2787	(nameSpace := aClass nameSpace) ~~ Smalltalk ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2788	nameSpacePrefix := nameSpace name , '::'.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2789	(fileName startsWith:nameSpacePrefix) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2790	fileName := fileName copyFrom:(nameSpacePrefix size + 1).
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	"/ (info includesKey:#fileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2794	"/ fileName := (info at:#fileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2795	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2796	"/ (info includesKey:#expectedFileName) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2797	"/ fileName := (info at:#expectedFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2798	"/ ] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2799	"/ (info includesKey:#classFileNameBase) ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2800	"/ fileName := (info at:#classFileNameBase) , '.st'.
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	"/ ]
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
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2806	fileName isNil ifTrue:[
1338 bad5961fbff1 fileNameForClass: Claus Gittinger <cg@exept.de> parents: 1323 diff changeset	2807	fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2808	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2809
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2810	OperatingSystem isMSDOSlike ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2811	module replaceAll:$\ with:$/.
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2812	directory replaceAll:$\ with:$/.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2813	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2814
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2815	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2816	"/ 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	2817	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2818	doCheckinWithoutAsking := false.
1831 cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2819	"/false ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2820	"/ (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	2821	"/ answer := Dialog confirmWithCancel:(resources
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2822	"/ string:'About to change the source container.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2823	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2824	"/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	2825	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2826	"/ %2 / %3 / %4
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2827	"/
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2828	"/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	2829	"/ with:className
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2830	"/ with:module
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2831	"/ with:directory
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2832	"/ with:fileName)
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2833	"/ labels:(resources array:#('Cancel' 'Check in' 'Change')).
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2834	"/ answer isNil ifTrue:[AbortSignal raise].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2835	"/ answer ifTrue:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2836	"/ doCheckinWithoutAsking := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2837	"/ oldModule := module.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2838	"/ oldPackage := directory.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2839	"/ oldFileName := fileName
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2840	"/ ] ifFalse:[
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2841	"/ doCheckinWithoutAsking := true.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2842	"/ creatingNew := false.
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2843	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2844	"/ ].
cda120c93659 do not ask for changed source-container based on the default sr parents: 1828 diff changeset	2845	"/].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2846	mgr isContainerBased ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2847	doCheckinWithoutAsking ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2848	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2849	"/ open a dialog for this
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2850	"/
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2851	(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	2852	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	2853	creatingNew := true.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2854	] ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2855	creatingNew := false.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2856	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2857
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2858	rslt := self
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2859	askForContainer:boxText title:title note:note
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2860	initialModule:module initialPackage:directory initialFileName:fileName
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2861	forNewContainer:true.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2862
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2863	rslt isNil ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2864	^ false
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2865	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2866
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2867	module := rslt at:#module.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2868	directory := rslt at:#package.
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2869	fileName := rslt at:#fileName.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2870	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2871	(fileName endsWith:',v') ifTrue:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2872	fileName := fileName copyWithoutLast:2
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2873	].
2688 fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2874	(fileName endsWith:'.st') ifFalse:[
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2875	fileName := fileName , '.st'
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2876	].
fa8075458983 changed: #defineSourceContainerForClass:usingManager:title:text:createDirectories:createContainer: Claus Gittinger <cg@exept.de> parents: 2673 diff changeset	2877
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2878	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2879
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2880	"/ 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	2881	"/ check for this ...
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2882
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2883	requiredPackage := ((module ? '') , ':' , (directory ? '')) asSymbol.
952 c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2884	requiredPackage ~= aClass package ifTrue:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2885	"/ doCheckinWithoutAsking ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2886	"/ (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	2887	"/ ifFalse:[
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2888	"/ ^ false
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2889	"/ ]
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2890	"/ ].
1077 6b1bcfd27521 renamed: #allSelectorsAndMethodsDo: into: #instAndClassSelectorsAndMethodsDo: Claus Gittinger <cg@exept.de> parents: 1076 diff changeset	2891	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	2892	aClass package:requiredPackage.
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2893	].
c75976ac7b7f when checking in initially, change packageID of class Claus Gittinger <cg@exept.de> parents: 937 diff changeset	2894
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2895	info := aClass revisionInfo.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2896	info notNil ifTrue:[
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2897	(info repositoryPathName isNil) ifTrue:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2898	info := nil
2063 502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2899	].
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2900	"/ (info includesKey:#repositoryPathName) ifFalse:[
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2901	"/ info := nil
502166975e05 * empty log message * Claus Gittinger <cg@exept.de> parents: 2050 diff changeset	2902	"/ ]
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2903	].
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	2904
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2905	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	2906	true "doCheckinWithoutAsking" ifFalse:[
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2907	answer := Dialog
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2908	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	2909	labels:(resources array:#( 'Cancel' 'No' 'Yes')).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2910	answer isNil ifTrue:[^ false].
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2911	] ifTrue:[
2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2912	answer := true.
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2913	].
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2914	answer ifTrue:[
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2915	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2916	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2917	for:(mgr initialRevisionStringFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2918	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2919	directory:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2920	container:fileName).
979 2374556f8a09 * empty log message * Claus Gittinger <cg@exept.de> parents: 977 diff changeset	2921	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2922	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2923
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2924	(self checkForExistingModule:module usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2925	ifFalse:[^ false].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2926	LastModule := module.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2927
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	2928	(self checkForExistingModule:module directory:directory usingManager:mgr allowCreate:(createDirs or:[creatingNew]))
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2929	ifFalse:[^ false].
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2930	LastPackage := directory.
876 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	"/
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2933	"/ check for the container itself
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2934	"/
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2935	(mgr isContainerBased not
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2936	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	2937	"/ (oldModule notNil
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2938	"/ and:[(oldModule ~= module)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2939	"/ or:[oldPackage ~= package
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2940	"/ or:[oldFileName ~= fileName]]])
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2941	"/ ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2942	"/ self warn:(resources string:'no change').
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2943	"/ ^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2944	"/ ].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2945
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2946	mgr isContainerBased ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2947	creatingNew ifTrue:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2948	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	2949	].
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2950
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2951	doCheckinWithoutAsking ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2952	(Dialog
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2953	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	2954
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2955	%2 / %3 / %4 ?'
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2956	with:className
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2957	with:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2958	with:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2959	with:fileName) withCRs
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2960	noLabel:'Cancel')
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2961	ifFalse:[
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2962	^ false.
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2963	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2964	].
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2965	].
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2966
2637 dbfb2ef410bd changed: Claus Gittinger <cg@exept.de> parents: 2605 diff changeset	2967	mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2968	updateVersionMethodOf:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2969	for:('$' , 'Header' , '$'). "/ concatenated to avoid RCS-expansion
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2970
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2971	oldFileName notNil ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2972	msg := ('forced checkin / source container change from ' , oldFileName).
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2973	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2974	msg := 'defined source container'
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2975	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2976
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2977	(forceCheckIn := doCheckinWithoutAsking) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2978	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2979	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2980	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	2981	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2982	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2983	logMessage:msg)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2984	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2985	doCheckinWithoutAsking ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2986	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2987	confirm:'No easy merge seems possible; force checkin (no merge) ?'
4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	2988	noLabel:'Cancel')
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2989	ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2990	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2991	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2992	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2993	forceCheckIn := true.
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	forceCheckIn ifTrue:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2997	(mgr
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2998	checkinClass:aClass
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	2999	fileName:fileName
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	3000	directory:directory
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3001	module:module
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3002	logMessage:msg
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3003	force:true)
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3004	ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3005	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	3006	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3007	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3008	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3009	^ true
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3010	] ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3011	(createContainer or:[creatingNew]) ifFalse:[
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3012	(Dialog
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3013	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	3014	with:fileName with:module with:directory) withCRs
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3015	noLabel:'Cancel') ifFalse:[
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3016	^ false
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3017	]
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3018	]
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
1882 8b3a4c2a2c2a when creating a new container, set the package of all methods. Claus Gittinger <cg@exept.de> parents: 1879 diff changeset	3021	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	3022	aClass package:requiredPackage.
1913 d87c1ed5bf1f oops - halt Claus Gittinger <cg@exept.de> parents: 1911 diff changeset	3023
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3024	(mgr
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3025	createContainerFor:aClass
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3026	inModule:module
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3027	package:directory
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3028	container:fileName
e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3029	) ifFalse:[
1076 4adaffbd7ab0 upper-case Claus Gittinger <cg@exept.de> parents: 1070 diff changeset	3030	self warn:(resources string:'Failed to create container.').
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3031	^ false.
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3032	].
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3033	^ true
1533 6897306a3cda * empty log message * Claus Gittinger <cg@exept.de> parents: 1522 diff changeset	3034
2651 e26806f4e460 added: Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	3035	"Created: / 21-12-2011 / 18:34:02 / cg"
876 461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3036	!
461b86272f48 more functionality moved to SCMUtility Claus Gittinger <cg@exept.de> parents: 875 diff changeset	3037
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3038	diffSetOfProject:aProject againstRepositoryVersionFrom:aDateOrNilForNewest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3039	\|classesInImage filesInImage module directory perProjectInfo
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3040	classesNotInRepository filesNotInImage classesDeletedInRepository
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3041	classesModifiedInImage classesNotReallyModified classesReallyModified classesModifiedInRepository
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3042	classesAddedInImage extensionMethods extensionsInImage extensionsInRepository extensionDiffs
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3043	box doCleanup resources diffSet def autoloadedFilesNotInImage
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3044	autoloadedClassesInImage autoloadedFilesInImage\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3045
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3046	resources := self classResources.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3047
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3048	module := aProject asPackageId module.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3049	directory := aProject asPackageId directory.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3050
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3051	perProjectInfo := SourceCodeManager revisionsInModule:module directory:directory fromDate:aDateOrNilForNewest.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3052	perProjectInfo := perProjectInfo ? #().
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3053	perProjectInfo := perProjectInfo select:[:info \| info key asFilename hasSuffix:'st'].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3054	perProjectInfo := Dictionary withAssociations:perProjectInfo.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3055
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3056	classesInImage := Smalltalk allClassesInPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3057	autoloadedClassesInImage := classesInImage reject:[:cls \| cls isLoaded].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3058	classesInImage := classesInImage select:[:cls \| cls isLoaded].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3059	classesInImage := classesInImage reject:[:cls \| cls isPrivate].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3060	filesInImage := (classesInImage collect:[:cls \| cls classBaseFilename]) asSet.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3061	autoloadedFilesInImage := (autoloadedClassesInImage collect:[:cls \| cls classBaseFilename]) asSet.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3062	"/ any differences ?
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3063	classesNotInRepository := classesInImage reject:[:cls \| (perProjectInfo includesKey:cls classBaseFilename)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3064	classesDeletedInRepository := classesInImage select:[:cls \| (perProjectInfo at:cls classBaseFilename ifAbsent:nil) == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3065	perProjectInfo := perProjectInfo reject:[:v \| v == #deleted].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3066	filesNotInImage := perProjectInfo keys reject:[:file \| (filesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3067	filesNotInImage := filesNotInImage reject:[:file \| (autoloadedFilesInImage includes:file)].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3068	filesNotInImage remove:'extensions.st' ifAbsent:[].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3069
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3070	"/ if comparing against the newest, only look for chaged stuff
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3071	classesModifiedInImage := classesInImage select:[:cls \| ChangeSet current includesChangeForClassOrMetaclass:cls].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3072	classesModifiedInImage := classesModifiedInImage \ classesNotInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3073
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3074	classesModifiedInRepository := classesInImage select:[:cls \| \|v\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3075	v := (perProjectInfo at:cls classBaseFilename ifAbsent:nil).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3076	v notNil and:[ cls isLoaded and:[ v > cls revision ]]].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3077
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3078	"/ stupid: as we do not have any revision information for extensions (sigh);
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3079	"/ 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	3080
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3081	extensionMethods := Smalltalk allExtensionsForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3082	extensionsInImage := ChangeSet forExistingMethods:extensionMethods.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3083
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3084	[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3085	\|s extensionsRevision\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3086
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3087	extensionsRevision := perProjectInfo at:'extensions.st' ifAbsent:#newest.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3088	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3089	streamForClass:nil fileName:'extensions.st' revision:extensionsRevision
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3090	directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3091	s isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3092	extensionsInRepository := ChangeSet new.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3093	] ifFalse:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3094	extensionsInRepository := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3095	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3096	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3097	] value.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3098	extensionDiffs := extensionsInRepository diffSetsAgainst:extensionsInImage.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3099
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3100	diffSet := extensionDiffs copy.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3101
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3102	aDateOrNilForNewest isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3103	"/ we could do the same as above for each class.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3104	"/ 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	3105	"/ 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	3106	classesModifiedInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3107	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3108	classesModifiedInImage select:[:eachChangedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3109	\|currentVersion repositoryVersion s stFile diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3110
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3111	stFile := eachChangedClass classBaseFilename.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3112	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3113	streamForClass:nil fileName:stFile revision:#newest
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3114	directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3115	repositoryVersion := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3116	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3117
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3118	currentVersion := ChangeSet forExistingClass:eachChangedClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3119	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3120	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3121	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3122	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3123
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3124	classesNotReallyModified := classesModifiedInImage \ classesReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3125	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3126	] ifFalse:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3127	classesReallyModified :=
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3128	classesInImage select:[:eachClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3129	\|currentVersion repositoryVersion s stFile stRevision diffs\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3130
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3131	stFile := eachClass classBaseFilename.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3132	stRevision := perProjectInfo at:stFile ifAbsent:#newest.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3133
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3134	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3135	streamForClass:nil fileName:stFile revision:stRevision
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3136	directory:directory module:module cache:true.
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3137	s isNil ifTrue:[
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3138	repositoryVersion := ChangeSet new.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3139	] ifFalse:[
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3140	repositoryVersion := ChangeSet fromStream:s.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3141	s close.
505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3142	].
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3143
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3144	currentVersion := ChangeSet forExistingClass:eachClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3145	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3146	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3147	diffs notEmpty
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3148	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3149	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3150
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3151	filesNotInImage notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3152	"/ first, check if these are autoloaded classes which have NOT been installed
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3153	"/ (for example, due to a --quick argument during startup)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3154	autoloadedFilesNotInImage := OrderedCollection new.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3155
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3156	def := ProjectDefinition definitionClassForPackage:aProject createIfAbsent:false projectType:nil.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3157	def notNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3158	def classNamesAndAttributesDo:[:eachClassname :eachAttributes \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3159	\|cls eachFileName isAutoload\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3160
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3161	cls := Smalltalk classNamed:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3162	cls isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3163	isAutoload := eachAttributes includes:#autoload.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3164	isAutoload ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3165	eachFileName := Smalltalk fileNameForClass:eachClassname.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3166	autoloadedFilesNotInImage add:(eachFileName , '.st')
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3167	]
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
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3172	(filesNotInImage \ autoloadedFilesNotInImage) do:[:eachSTFile \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3173	\|s chgSet classDefinitions\|
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:nil fileName:eachSTFile revision:#newest directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3177	chgSet := 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	diffSet onlyInReceiver addAll:chgSet
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3181	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3182	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3183
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3184	classesModifiedInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3185	classesModifiedInRepository do:[:eachClass\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3186	\|s diffs repositoryVersion currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3187
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3188	s := SourceCodeManager
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3189	streamForClass:eachClass fileName:nil revision:#newest directory:directory module:module cache:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3190	repositoryVersion := ChangeSet fromStream:s.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3191	s close.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3192
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3193	currentVersion := ChangeSet forExistingClass:eachClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3194	diffs := repositoryVersion diffSetsAgainst:currentVersion .
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3195	diffSet addDiffSet:diffs.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3196	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3197	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3198	classesDeletedInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3199	"/ self halt.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3200	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3201	classesNotInRepository notEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3202	"/ if there are no changeSet entries for those classes, they seem to be
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3203	"/ no longer in the repository (possibly moved ?)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3204	"/ 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	3205
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3206	classesAddedInImage := classesNotInRepository \ classesDeletedInRepository.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3207	classesAddedInImage do:[:eachAddedClass \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3208	\|currentVersion\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3209
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3210	currentVersion := ChangeSet forExistingClass:eachAddedClass.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3211	diffSet onlyInArg addAll:currentVersion.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3212	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3213	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3214
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3215	diffSet isEmpty ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3216	"/ Dialog information:(resources string:'%1 is up-to-date.' with:eachProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3217	Transcript showCR:('%1 is up-to-date.' bindWith:aProject allBold).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3218	(ChangeSet current includesChangeForPackage:aProject) ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3219	(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	3220	ChangeSet current condenseChangesForPackage:aProject.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3221	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3222	].
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3223	^ diffSet.
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3224	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3225
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3226	"/ 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	3227	"/ give user a chance to cleanup the changeSet here.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3228	aDateOrNilForNewest isNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3229	classesNotReallyModified notEmptyOrNil ifTrue:[
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3230	doCleanup := false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3231	box := Dialog
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3232	forRequestText:(resources
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3233	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	3234	with:aProject allBold)
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3235	editViewClass:ListView
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3236	lines:10 columns:20
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3237	initialAnswer:nil model:nil
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3238	setupWith:
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3239	[:v :d \|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3240	\|removeButton\|
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3241
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3242	v list:classesNotReallyModified.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3243	removeButton := Button label:(resources string:'Cleanup ChangeSet').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3244	removeButton action:[ doCleanup := true. box okPressed. ].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3245	d addButton:removeButton after:(d okButton).
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3246	d okButton label:(resources string:'Continue').
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3247	d okButton isReturnButton:false.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3248	removeButton isReturnButton:true.
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3249	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3250	box open.
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3251	box accepted ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3252	doCleanup ifTrue:[
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3253	classesNotReallyModified do:[:class \|
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3254	ChangeSet current condenseChangesForClass:class.
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3255	]
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3256	].
ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3257	]
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3258	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3259	].
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3260	^ diffSet
2286 ad425b1c40ab changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2284 diff changeset	3261
2295 505293d1cfbd changed: #diffSetOfProject:againstRepositoryVersionFrom: Claus Gittinger <cg@exept.de> parents: 2294 diff changeset	3262	"Modified: / 01-11-2010 / 21:02:52 / cg"
2189 5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3263	!
5b7a89380a54 added: Claus Gittinger <cg@exept.de> parents: 2184 diff changeset	3264
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3265	ensureCorrectVersionMethodsInClass:aClass usingManager:aManager
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3266	\|theMetaclass src newSrc versionMethodName oldVersionMethodName\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3267
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3268	theMetaclass := aClass theMetaclass.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3269	versionMethodName := aManager nameOfVersionMethodInClasses.
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3270	oldVersionMethodName := aClass nameOfOldVersionMethod.
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3271
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3272	(theMetaclass includesSelector:versionMethodName) ifTrue:[
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3273	"/ (theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3274	"/ theMetaclass removeSelector:oldVersionMethodName.
7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3275	"/ ].
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3276	"/ ensure that my version method is parsable (contains $'s)
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3277	src := (theMetaclass compiledMethodAt:versionMethodName) source.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3278	src notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3279	newSrc := aManager ensureDollarsInVersionMethod:src.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3280	newSrc ~= src ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3281	theMetaclass compile:newSrc.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3282	]
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3283	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3284	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3285	(theMetaclass includesSelector:oldVersionMethodName) ifTrue:[
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3286	"/ but make sure, it is a version method for this sourcecodemanager...
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3287	(theMetaclass methodDictionary keys count:[:sel \| sel startsWith:'version']) size == 1 ifTrue:[
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3288	src := (theMetaclass compiledMethodAt:oldVersionMethodName) source.
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3289	(src startsWith:oldVersionMethodName) ifTrue:[
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3290	newSrc := versionMethodName
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3291	, (src copyFrom:(oldVersionMethodName size + 1))
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3292	].
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3293	theMetaclass compile:newSrc.
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3294	]
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3295	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3296	].
2442 7ecd9a4248bb changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2426 diff changeset	3297
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	3298	"Modified: / 20-08-2011 / 14:40:27 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3299	"Created: / 29-12-2011 / 14:33:46 / cg"
2383 04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3300	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3301
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3302	getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3303	"returns 2 values"
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3304
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3305	\|initialLogMessage checkinInfo logMessage\|
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3306
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3307	"/ heuristics for a useful initial log message...
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3308	aLogInfoOrNil isNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3309	initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3310	"/ initial checkin ?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3311	(aClass package isNil or:[aClass revision isNil]) ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3312	initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3313	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3314	checkinInfo := self
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3315	getCheckinInfoFor:aClass name
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3316	initialAnswer:initialLogMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3317	checkinInfo isNil ifTrue:[^ false].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3318	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3319	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3320	aLogInfoOrNil isString ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3321	"soon obsolete..."
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3322	logMessage := aLogInfoOrNil
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3323	] ifFalse:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3324	checkinInfo := aLogInfoOrNil.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3325	logMessage := checkinInfo logMessage.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3326	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3327	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3328	logMessage notNil ifTrue:[
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3329	logMessage := logMessage asSingleByteStringReplaceInvalidWith:$?
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3330	].
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3331	aBlock value:logMessage value:checkinInfo.
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3332	^ true
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3333	!
04860eb94c0c added: Claus Gittinger <cg@exept.de> parents: 2365 diff changeset	3334
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3335	removeSourceContainerForClass:aClass
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3336	"show container & let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3337
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3338	^ self removeSourceContainerForClass:aClass confirm:true warn:true
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3339	!
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	removeSourceContainerForClass:aClass confirm:doConfirm warn:doWarn
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3342	"show container & optionally let user confirm twice."
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3343
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3344	\|module directory fileName info mgr resources\|
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3345
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3346	resources := self classResources.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3347
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3348	aClass isLoaded ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3349	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3350	self warn:(resources string:'Please load the class first.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3351	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3352	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3353	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3354
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	"/ 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	3357	"/ if so, take that as a default.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3358	"/
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3359	mgr := self sourceCodeManagerFor:aClass.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3360	mgr isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3361	^ false
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3362	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3363
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3364	info := mgr sourceInfoOfClass:aClass.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3365	info notNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3366	(info includesKey:#module) ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3367	module := (info at:#module).
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3368	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3369	(info includesKey:#directory) ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3370	directory := (info at:#directory).
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	fileName := mgr containerFromSourceInfo:info.
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
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3375	module isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3376	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3377	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	3378	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3379	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3380	].
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3381	directory isNil ifTrue:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3382	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3383	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	3384	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3385	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3386	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3387	fileName isNil ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3388	doWarn ifTrue:[
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3389	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	3390	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3391	^ false.
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
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3394	OperatingSystem isMSDOSlike ifTrue:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3395	"cvs expects unix-filenames"
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3396	module := module copy replaceAll:$\ with:$/.
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3397	directory := directory copy replaceAll:$\ with:$/.
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3398	].
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3399	(mgr checkForExistingContainer:fileName inModule:module directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3400	doWarn ifTrue:[
2830 f5204449764a changed: #removeSourceContainerForClass:confirm:warn: Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	3401	self warn:(resources stringWithCRs:'Class had no source container (or SCM access is broken).') .
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3402	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3403	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3404	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3405
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3406	doConfirm ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3407	(Dialog
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3408	choose:(resources
1423 d15575ef3dba * empty log message * Claus Gittinger <cg@exept.de> parents: 1414 diff changeset	3409	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	3410
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3411	container: %2 / %3 / %4
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	Really remove ?'
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3414	with:aClass name
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3415	with:module
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3416	with:directory
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3417	with:fileName)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3418	labels:(Array
1129 89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	3419	with:(resources string:'No')
89049988e8d3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1122 diff changeset	3420	with:(resources string:'Remove'))
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3421	values:#(false true)
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3422	default:false) ifFalse:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3423	^ false.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3424	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3425	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3426
1921 ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3427	(mgr removeContainer:fileName
ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3428	inModule:module
ab2e300fbc9c oops - removeContainer for class got corrupted Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	3429	directory:directory) ifFalse:[
976 cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3430	doWarn ifTrue:[
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3431	self warn:(resources string:'failed to remove container.').
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3432	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3433	^ true.
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3434	].
cedcdc7e405c utitity to remove a container Claus Gittinger <cg@exept.de> parents: 973 diff changeset	3435	^ false
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3436
2830 f5204449764a changed: #removeSourceContainerForClass:confirm:warn: Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	3437	"Modified: / 02-06-2012 / 10:32:36 / cg"
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3438	!
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3439
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3440	repositoryLogOf:aClass onto:aStream
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3441	self repositoryLogOf:aClass short:false onto:aStream
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3442	!
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3443
037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3444	repositoryLogOf:aClass short:shortOrNot onto:aStream
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3445	\|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	3446
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3447	info := aClass revisionInfo.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3448
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3449	rv := aClass binaryRevision.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3450	rv notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3451	aStream nextPutLine:'** Loaded classes binary information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3452	aStream nextPutLine:' Binary based upon : ' , rv.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3453	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3454	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3455
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3456	info notNil ifTrue:[
2041 fb85bf748dbb * empty log message * Claus Gittinger <cg@exept.de> parents: 2013 diff changeset	3457	(info revision notNil) ifFalse:[
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3458	aStream nextPutLine:'WARNING:'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3459	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	3460	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	3461	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	3462	aStream cr.
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
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3465	aStream nextPutLine:'** Classes source information **'; cr.
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3466	s := info repositoryPathName.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3467	s notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3468	aStream nextPutLine:' Source repository : ' , s
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3469	].
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3470	aStream nextPutLine:' Filename ........ : ' , (info fileName ? '?').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3471	aStream nextPutLine:' Revision ........ : ' , (info revision ? '?').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3472	aStream nextPutLine:' Checkin date .... : ' , (info date ? '?') , ' ' ,
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3473	(info time ? '?'), ' ',
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3474	(info timezone ? '').
e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3475	aStream nextPutLine:' Checkin user .... : ' , (info user ? '?').
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3476
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3477	(info2 := aClass packageSourceCodeInfo) notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3478	aStream nextPutLine:' Repository: ..... : ' , (info2 at:#module ifAbsent:'?').
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3479	aStream nextPutLine:' Directory: ...... : ' , (info2 at:#directory ifAbsent:'?').
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3480	].
2042 e2311b66ad94 * empty log message * Claus Gittinger <cg@exept.de> parents: 2041 diff changeset	3481	aStream nextPutLine:' Container ....... : ' , (info repositoryPathName ? '?').
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3482	aStream cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3483
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3484	mgr := self sourceCodeManagerFor:aClass.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3485	mgr notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3486	aStream nextPutLine:'** Repository information **'; cr.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3487
2835 ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	3488	module := nil.
ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	3489	info2 notNil ifTrue:[
ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	3490	module := info2 at:#module ifAbsent:nil.
ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	3491	].
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3492	module notNil ifTrue:[
2596 64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	3493	aStream nextPutLine:(' Repository URL ......: ' ,
64c21e28c067 changed: #repositoryLogOf:short:onto: vrany parents: 2570 diff changeset	3494	((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	3495	].
2050 037e794f5857 +option to show a short revision log Claus Gittinger <cg@exept.de> parents: 2042 diff changeset	3496	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	3497	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3498	] ifFalse:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3499	aStream nextPutLine:'No revision info found'.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3500	aClass isLoaded ifFalse:[
1835 1aa531a386bd * empty log message * Claus Gittinger <cg@exept.de> parents: 1831 diff changeset	3501	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	3502	] ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3503	fn := aClass classFilename.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3504	aClass wasAutoloaded ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3505	msg := 'This class was autoloaded.'.
1514 35b125098412 * empty log message * fm parents: 1503 diff changeset	3506	msg := msg , ' (from ''' , fn , ''')'.
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3507	] ifFalse:[
1514 35b125098412 * empty log message * fm parents: 1503 diff changeset	3508	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	3509	].
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3510	msg notNil ifTrue:[
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3511	aStream cr; nextPutAll:msg.
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3512	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3513	]
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3514	]
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3515
1835 1aa531a386bd * empty log message * Claus Gittinger <cg@exept.de> parents: 1831 diff changeset	3516	"Modified: / 06-10-2006 / 13:25:22 / cg"
2835 ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	3517	"Modified: / 20-06-2012 / 10:34:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3518	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3519
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3520	tagClass:aClass as:tag
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3521	\|mgr\|
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3522
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3523	mgr := self sourceCodeManagerFor:aClass.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3524	mgr
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3525	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3526	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3527	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3528	class:aClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3529
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3530	"Modified: / 12-09-2006 / 13:03:59 / cg"
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3531	!
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3532
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3533	tagClasses:aCollectionOfClasses as:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3534	\|classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3535
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3536	classesPerManager := Dictionary new.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3537	aCollectionOfClasses
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3538	do:[:eachClass \|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3539	\|manager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3540
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3541	manager := self sourceCodeManagerFor:eachClass.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3542	(classesPerManager at:manager ifAbsentPut:[Set new]) add:eachClass
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3543	].
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3544
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3545	classesPerManager keysAndValuesDo:[:manager :classesPerManager\|
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3546	manager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3547	setSymbolicName:tag
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3548	revision:nil
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3549	overWrite:true
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3550	classes:classesPerManager.
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3551	].
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3552	^ true
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3553
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3554	"Created: / 12-09-2006 / 13:04:29 / cg"
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3555	!
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3556
2602 a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3557	tagPackage: package as:tag
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3558
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3559	self tagClasses:(Smalltalk allClassesInPackage:package) as:tag.
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3560
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3561	"Created: / 12-09-2006 / 13:04:29 / cg"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3562	"Created: / 15-10-2011 / 22:47:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3563	!
a8fcee161334 added: #tagPackage:as: vrany parents: 2597 diff changeset	3564
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3565	tagPath:aPath as:tag usingManager:aManager
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3566	aManager
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3567	setSymbolicName:tag
1726 e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3568	revision:nil
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3569	overWrite:true
e9fba6b66dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 1725 diff changeset	3570	path:aPath.
1782 41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3571
41b0e8111aea tagIt bulk operation Claus Gittinger <cg@exept.de> parents: 1728 diff changeset	3572	"Modified: / 12-09-2006 / 12:04:44 / cg"
2691 01d067355899 added:8 methods Claus Gittinger <cg@exept.de> parents: 2688 diff changeset	3573	"Created: / 29-12-2011 / 14:32:38 / cg"
1375 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
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3576	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-helpers'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3577
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3578	getMethodVersionsOfClass:aClass selector:selector numberOfRevisions:numberOfRevisionsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3579	"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	3580	Return a dictionary associating revision with a changeList entries for that method.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3581	Unfinished - need a GUI for that."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3582
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3583	\|mgr theClass revisionLog revisions items s entriesPerRevision previousVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3584
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3585	theClass := aClass theNonMetaclass.
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	mgr := self sourceCodeManagerFor:theClass.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3588	mgr isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3589	self error:'no sourceCodeManager'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3590	].
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	revisionLog := mgr
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3593	revisionLogOf:theClass
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3594	numberOfRevisions:numberOfRevisionsOrNil.
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	revisions := revisionLog at:#revisions.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3597	items := revisions collect:[:each \| \|rev date who\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3598	rev := each at:#revision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3599	date := each at:#date.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3600	who := each at:#author.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3601	rev allBold , ' [' , date , ' by ' , who , ']'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3602	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3603
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3604	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3605	revisions addFirst:#current.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3606	entriesPerRevision := Dictionary new.
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	previousVersion := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3609	revisions reverseDo:[:eachRevision \|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3610	\|srcStream entries thisVersion\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3611
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3612	eachRevision == #current ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3613	s := '' writeStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3614	theClass fileOutOn:s withTimeStamp:false.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3615	srcStream := s contents readStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3616	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3617	self activityNotification:('checking out revision ' , eachRevision , '...').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3618	srcStream := mgr getSourceStreamFor:theClass revision:eachRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3619	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3620
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3621	entries := ChangeSet fromStream:srcStream.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3622	srcStream close.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3623
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3624	"/ remove all definitions
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3625	entries := entries select:[:each \| each isMethodChange].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3626	"/ remove all methods which are for other selectors
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3627	entries := entries select:[:each \| each selector == selector].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3628	"/ remove all methods which are for private subclasses
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3629	entries := entries select:[:each \| each className = aClass name].
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	entries size == 1 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3632	"/ the method is there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3633	thisVersion := entries first.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3634	(previousVersion notNil and:[previousVersion sameAs:thisVersion]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3635	"/ no change
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3636	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3637	entriesPerRevision at:eachRevision put:thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3638	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3639	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3640	"/ the method is not there
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3641	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3642	previousVersion := thisVersion.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3643	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3644	self error:'unfinished code'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3645
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3646	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3647	self getMethodVersionsOfClass:MenuPanel selector:#'helpTextForItem:' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3648	self getMethodVersionsOfClass:NewLauncher class selector:#'menu' numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3649	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3650	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3651
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	3652	!SourceCodeManagerUtilities methodsFor:'utilities-cvs-user interaction'!
1375 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	askForContainer:boxText title:title note:notice initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3655	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3656	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3657	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3658
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3659	^ self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3660	askForContainer:boxText title:title note:notice
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3661	initialModule:initialModule initialPackage:initialPackage initialFileName:initialFileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3662	forNewContainer:true
1026 1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3663	!
1f193eb5f877 common code (in Browser, NewBrowser) for revisionLogOf Claus Gittinger <cg@exept.de> parents: 1022 diff changeset	3664
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3665	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	3666	"open a dialog asking for a source container;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3667	return a dictionary containing module, package and filename,
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3668	or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3669
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3670	\|box y component resources answer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3671	moduleHolder packageHolder fileNameHolder
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3672	module package fileName
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3673	knownContainers knownPackages packageUpdater
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3674	packageBoxComponent fileNameBoxComponent fileNameUpdater\|
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	knownContainers := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3677	Smalltalk allClassesDo:[:cls \| \|pckg\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3678	pckg := cls package.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3679	pckg size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3680	knownContainers add:(pckg upTo:$:)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3681	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3682	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3683	knownContainers := knownContainers asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3684	knownContainers := knownContainers select:[:module \| module isBlank not].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3685	knownContainers sort.
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	packageUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3688	\|theModulePrefix\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3689
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3690	theModulePrefix := moduleHolder value , ':'.
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	Cursor wait showWhile:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3693	knownPackages := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3694	Smalltalk allClassesDo:[:cls \| \|pckg idx\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3695	pckg := cls package.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3696	pckg size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3697	(pckg startsWith:theModulePrefix) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3698	idx := pckg indexOf:$:.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3699	knownPackages add:(pckg copyFrom:idx + 1)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3700	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3701	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3702	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3703	knownPackages := knownPackages asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3704	knownPackages := knownPackages select:[:package \| package isBlank not].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3705	knownPackages sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3706	packageBoxComponent list:knownPackages.
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
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3710	fileNameUpdater := [
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3711	\|module package files\|
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3712
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3713	Cursor read showWhile:[
2209 e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3714	module := moduleHolder value ? (PackageId noProjectID).
e3a4510c45f2 Project noProjectID -> PackageId noProjectID Claus Gittinger <cg@exept.de> parents: 2200 diff changeset	3715	package := packageHolder value ? (PackageId noProjectID).
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3716
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3717	files := SourceCodeManager getExistingContainersInModule:module directory:package.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3718	files := files asOrderedCollection.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3719	files := files select:[:eachFile \| eachFile asFilename hasSuffix:'st'].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3720	files sort.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3721	fileNameBoxComponent list:files.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3722	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3723	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3724
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3725	moduleHolder := initialModule asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3726	packageHolder := initialPackage asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3727	fileNameHolder := initialFileName asValue.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3728
1377 0fd99dd003f6 classResources now understood by all classes Claus Gittinger <cg@exept.de> parents: 1375 diff changeset	3729	resources := self classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3730
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3731	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3732	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3733	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3734	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3735	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3736
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3737	component := box addTextLabel:boxText withCRs.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3738	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3739	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3740	box addVerticalSpace.
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3741
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3742	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3743	component := box addTextLabel:(resources string:'Module:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3744	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3745	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3746	component := box addComboBoxOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3747	component list:knownContainers.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3748
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3749	"/ component := box addInputFieldOn:moduleHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3750	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	3751
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3752	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3753	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3754	component := box addTextLabel:(resources string:'Package:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3755	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3756	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3757	packageBoxComponent := component := box addComboBoxOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3758	"/ component := box addInputFieldOn:packageHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3759	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	3760	packageUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3761	moduleHolder onChangeEvaluate:packageUpdater.
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	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3765	component := box addTextLabel:(resources string:'Filename:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3766	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3767	box yPosition:y.
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	forNewContainer ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3770	component := box addInputFieldOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3771	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	3772	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3773	fileNameBoxComponent := component := box addComboBoxOn:fileNameHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3774	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	3775	fileNameUpdater value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3776	packageHolder onChangeEvaluate:fileNameUpdater.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3777	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3778
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3779	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3780
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3781	notice notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3782	component := box addTextLabel:notice.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3783	component adjust:#left; borderWidth:0.
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	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3787	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3788
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3789	(YesToAllNotification notNil and:[YesToAllNotification isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3790	component := Button label:'Yes to all'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3791	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3792	YesToAllNotification queryWith:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3793	box doAccept.
2253 7d7b0d2d1fe7 changed: #askForContainer:title:note:initialModule:initialPackage:initialFileName:forNewContainer: Claus Gittinger <cg@exept.de> parents: 2242 diff changeset	3794	box okPressed.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3795	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3796	(DialogBox defaultOKButtonAtLeft) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3797	box addButton:component after:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3798	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3799	box addButton:component before:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3800	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3801	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3802	(AbortAllSignal isHandled) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3803	component := Button label:'Cancel all'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3804	component action:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3805	box hide.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3806	AbortAllSignal raiseSignal.
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	(DialogBox defaultOKButtonAtLeft) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3809	box addButton:component before:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3810	] ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3811	box addButton:component after:nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3812	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3813	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3814
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3815	(YesToAllQuery notNil and:[YesToAllQuery isHandled]) ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3816	answer := YesToAllQuery query.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3817	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3818
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3819	answer isNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3820	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3821	answer := box accepted
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
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3824	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3825	answer ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3826	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3827	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	3828
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3829	module := moduleHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3830	package := packageHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3831	fileName := fileNameHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3832	^ Dictionary new
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3833	at:#module put:module;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3834	at:#package put:package;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3835	at:#fileName put:fileName;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3836	yourself
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3837
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3838	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3839	self
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3840	askForContainer:'enter container' title:'container' note:'some note'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3841	initialModule:'foo' initialPackage:'bar' initialFileName:'baz'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3842	"
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3843
40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3844	"Modified: / 23-08-2006 / 14:13:04 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3845	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3846
2570 7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3847	askForExistingRevision:boxText title:title class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3848	"open a dialog asking for a containers revision;
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3849	return a revision number, or nil if canceled."
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3850
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3851	\|mgr sourceInfo module package fileName\|
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3852
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3853	mgr := self sourceCodeManagerFor:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3854	sourceInfo := mgr sourceInfoOfClass:aClass.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3855	sourceInfo isNil ifTrue:[^ nil].
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3856
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3857	package := mgr directoryFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3858	module := mgr moduleFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3859	fileName := mgr containerFromSourceInfo:sourceInfo.
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3860	^ self
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3861	askForExistingRevision:boxText
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3862	title:title
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3863	class:aClass
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3864	manager:mgr
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3865	module:module package:package
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3866	fileName:fileName
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3867
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3868	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3869	SourceCodeManagerUtilities
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3870	askForRevisionToCompare:'enter revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3871	title:'revision'
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3872	class:Array
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3873	"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3874
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3875	"Modified: / 12-09-2006 / 14:17:04 / cg"
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3876	!
7f1a5b6ce066 added: #askForExistingRevision:title:class: vrany parents: 2569 diff changeset	3877
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3878	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	3879	"open a dialog asking for a containers revision;
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3880	return a revision number, or nil if canceled."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3881
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3882	\|partialLog revisions items newestRev
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3883	box y component resources
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3884	revisionHolder symbolicNames stableRevision releasedRevision
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3885	tagHolder tagList lockChange\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3886
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3887	resources := self classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3888
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3889	partialLog := aSourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3890	revisionLogOf:clsOrNil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3891	numberOfRevisions:20
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3892	fileName:fileName
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3893	directory:directory
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3894	module:module.
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	3895
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3896	partialLog notNil ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3897	newestRev := partialLog at:#newestRevision.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3898	revisions := partialLog at:#revisions.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3899	symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3900	symbolicNames notNil ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3901	stableRevision := symbolicNames at:'stable' ifAbsent:[].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3902	releasedRevision := symbolicNames at:'released' ifAbsent:[].
2326 c0b55d3a8f08 added: #versionString:isLessThan: Claus Gittinger <cg@exept.de> parents: 2325 diff changeset	3903	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	3904	collect:[:assoc \| assoc key]) reverse.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3905	].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3906
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3907	items := revisions collect:[:each \| \|rev date who flag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3908	rev := each at:#revision.
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3909	date := (each at:#date ifAbsent:nil) ? '?'.
2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	3910	who := (each at:#author ifAbsent:nil) ? '?'.
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3911	rev = stableRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3912	flag := ' Stable' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3913	] ifFalse:[rev = releasedRevision ifTrue:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3914	flag := ' Released' allBold.
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3915	] ifFalse:[
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3916	flag := ' '
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3917	]].
673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	3918	rev allBold , flag, ' [' , date , ' by ' , who , ']'
1375 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	revisions := revisions collect:[:each \| each at:#revision].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3921	] ifFalse:[
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	3922	newestRev := aSourceCodeManager newestRevisionInFile:fileName directory:directory module:module.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3923	revisions := items := nil.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3924
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3925	newestRev isNil ifTrue:[
1787 db6157670930 * empty log message * Claus Gittinger <cg@exept.de> parents: 1782 diff changeset	3926	(aSourceCodeManager checkForExistingContainer:fileName inModule:module directory:directory)
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3927	ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3928	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	3929	This could be due to:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3930	- invalid/wrong CVS-Root setting
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3931	- missing CVS access rights
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3932	(no access / not logged in)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3933	- changed CVSRoot after compilation
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3934	(i.e. wrong CVS-path in classes version method)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3935	'.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3936	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3937	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3938	]
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3939	].
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3940
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3941	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3942	revisionHolder := newestRev asValue.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3943	revisionHolder onChangeEvaluate:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3944	"/ cut off everything after revision
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3945	\|s first words tag\|
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3946
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3947	s := revisionHolder value.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3948	words := s asCollectionOfWords.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3949	words size > 0 ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3950	first := words first string.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3951	first ~= s ifTrue:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3952	revisionHolder value:first
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3953	]
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3954	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3955	lockChange ifFalse:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3956	tagHolder value:''
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3957	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3958	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3959
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3960	tagHolder := '' asValue.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3961	tagHolder
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3962	onChangeEvaluate:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3963	\|tag rev\|
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3964
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3965	(tag := tagHolder value) notEmptyOrNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3966	rev := symbolicNames at:tag.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3967	rev ~= revisionHolder value ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3968	lockChange := true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3969	revisionHolder value:rev.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3970	lockChange := false.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3971	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3972	]
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3973	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3974
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3975	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3976	"/ open a dialog for this
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3977	"/
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3978	box := DialogBox new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3979	box label:title.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3980
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3981	component := box addTextLabel:boxText withCRs.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3982	component adjust:#left; borderWidth:0.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3983	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3984	box addVerticalSpace.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3985
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3986	y := box yPosition.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3987	component := box addTextLabel:(resources string:'Revision:').
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3988	component width:0.4; adjust:#right.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3989	box yPosition:y.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3990	component := box addComboBoxOn:revisionHolder tabable:true.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3991	component list:items.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	3992	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	3993
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3994	y := box yPosition.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3995	component := box addTextLabel:(resources string:'or Tag:').
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3996	component width:0.4; adjust:#right.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3997	box yPosition:y.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3998	component := box addComboListOn:tagHolder tabable:true.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	3999	component list:tagList.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	4000	component width:0.6; left:0.4.
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	4001	tagList isNil ifTrue:[
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	4002	component disable
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	4003	].
a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	4004
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4005	box addVerticalSpace.
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	box addAbortAndOkButtons.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4008
2325 a15e7231c04f changed: Claus Gittinger <cg@exept.de> parents: 2313 diff changeset	4009	AbortAllOperationWantedQuery query ifTrue:[
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4010	(box addAbortButtonLabelled:'Cancel all') action:[AbortAllSignal raise].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4011	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4012
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4013	box showAtPointer.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4014
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4015	box accepted ifFalse:[
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4016	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4017	^ nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4018	].
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4019	box destroy.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4020
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4021	^ revisionHolder value withoutSpaces.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4022
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4023	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4024	SourceCodeManagerUtilities
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4025	askForRevisionToCompare:'enter revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4026	title:'revision'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4027	class:nil
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4028	manager:SourceCodeManager
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4029	module:'stx'
1666 40429b90ebb6 renamed package to directory to avoid confusion. Claus Gittinger <cg@exept.de> parents: 1533 diff changeset	4030	directory:'libbasic'
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4031	fileName:'Array.st'
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4032	"
1522 9f457901c268 checkout extensions added Claus Gittinger <cg@exept.de> parents: 1519 diff changeset	4033
2670 2aee2fd0314e refactoring Claus Gittinger <cg@exept.de> parents: 2651 diff changeset	4034	"Modified: / 21-12-2011 / 23:09:26 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4035	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4036
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4037	checkAndWarnAboutBadMessagesInClass:aClass checkAgainHolder:checkAgainHolder
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4038	"check if a class contains message-sends to:
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4039	#halt , #halt:
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4040	#error
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4041	#todo , #todo:
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4042	(and maybe more in the future)
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4043
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4044	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	4045
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4046	\|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	4047	methodsWithBadStuff resources\|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4048
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4049	resources := Dialog classResources.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4050
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4051	badStuff := #(
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4052	( 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	4053	( 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	4054	( 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	4055	( todo 'send of #todo - unfinished code present?' )
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4056	( todo: 'send of #todo:- unfinished code present?' )
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4057	).
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4058
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4059	methodsWithBadStuff := Set new.
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4060	whatIsBad := Set new.
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4061	aClass theNonMetaclass instAndClassSelectorsAndMethodsDo:[:sel :mthd \|
2237 96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4062	\|setOfLiterals setOfSentMessages\|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4063
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4064	mthd package = aClass package ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4065	setOfLiterals := mthd literals. "/ try without parsing first.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4066	(badStuff contains:[:eachEntry \| setOfLiterals includes:eachEntry first]) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4067	setOfSentMessages := mthd messagesSent.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4068	badStuff do:[:eachEntry \|
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4069	(setOfSentMessages includes:eachEntry first) ifTrue:[
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4070	whatIsBad add:eachEntry second.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4071	methodsWithBadStuff add:mthd.
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4072	]
96105b41c6a6 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2236 diff changeset	4073	].
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	4074	].
3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	4075	].
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4076	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4077	whatIsBad isEmpty ifTrue:[^ true].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4078
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4079	(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	4080	answer := YesToAllQuery query.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4081	answer notNil ifTrue:[ ^ answer ].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4082	].
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	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	4085	msg := msg , '\\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4086	whatIsBad do:[:each \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4087	msg := msg , ' ' , each , '\'
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4088	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4089	msg := msg , '\'.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4090	methodsWithBadStuff size == 1 ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4091	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	4092	with:methodsWithBadStuff anElement whoString allBold).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4093	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4094	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	4095	with:methodsWithBadStuff anElement whoString allBold
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4096	with:methodsWithBadStuff size-1).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4097	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4098	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	4099
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4100	(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	4101	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	4102	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	4103	defaultAnswer := #yesToAll.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4104	] ifFalse:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4105	labels := #('No' 'No, Browse' 'Yes').
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4106	values := #(false #noBrowse true).
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4107	defaultAnswer := true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4108	].
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4109
1456 673e4fc61c36 Tell about stable and released revisions Stefan Vogel <sv@exept.de> parents: 1449 diff changeset	4110	"/ AbortAllOperationRequest isHandled ifTrue:[
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4111	"/ labels := #('Cancel All') , labels.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4112	"/ values := #(#cancelAll) , values.
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4113	"/ ].
609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4114
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4115	DialogBox aboutToOpenBoxNotificationSignal handle:[:ex \|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4116	\|box\|
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4117
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4118	checkAgainHolder isValueModel ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4119	dontShowAgain := checkAgainHolder value not asValue.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4120	box := ex parameter.
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4121	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	4122	on:dontShowAgain.
1426 609f0db77471 * empty log message * Claus Gittinger <cg@exept.de> parents: 1424 diff changeset	4123	].
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4124	ex proceed.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4125	] do:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4126	answer := OptionBox
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4127	request:msg withCRs
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4128	label:(resources string:'Really CheckIn ?')
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4129	image:(InfoBox iconBitmap)
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4130	buttonLabels:(resources array:labels)
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4131	values:values
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4132	default:defaultAnswer
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4133	onCancel:nil.
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 isNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4136	AbortSignal raise.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4137	].
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	dontShowAgain notNil ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4140	checkAgainHolder value:dontShowAgain value not
1000 3687dbf412db * empty log message * Claus Gittinger <cg@exept.de> parents: 998 diff changeset	4141	].
1994 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 == #noBrowse ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4144	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	4145	self yesToAllNotification queryWith:false.
1994 eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4146	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4147	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4148	answer == #cancelAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4149	AbortAllSignal raise.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4150	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4151	answer == #yesToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4152	YesToAllNotification queryWith:true.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4153	^ true
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4154	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4155	answer == #noToAll ifTrue:[
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4156	YesToAllNotification queryWith:false.
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4157	^ false
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4158	].
eccaf18ff7a1 which method is bad - offer chance to browse them. Claus Gittinger <cg@exept.de> parents: 1988 diff changeset	4159	^ answer
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4160
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4161	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4162	self checkAndWarnAboutBadMessagesInClass:(SourceCodeManagerUtilities)
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4163	"
2775 d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4164
d1908ae4aed8 changed: #checkAndWarnAboutBadMessagesInClass:checkAgainHolder: Claus Gittinger <cg@exept.de> parents: 2774 diff changeset	4165	"Modified: / 28-02-2012 / 10:41:38 / cg"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4166	!
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4167
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4168	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4169	"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	4170	and other info (mark as stable, for example).
2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4171	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	4172
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4173	^ self
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4174	getCheckinInfoFor:aClassNameOrPackageNameString
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4175	initialAnswer:initialAnswerOrNil
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4176	withQuickOption:false
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4177
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4178	"
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4179	SourceCodeManagerUtilities getCheckinInfoFor:'hello' initialAnswer:'bla'
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4180	"
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4181
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4182	"Modified: / 06-07-2010 / 11:22:15 / cg"
1704 c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4183	!
c048825b966f * empty log message * Claus Gittinger <cg@exept.de> parents: 1671 diff changeset	4184
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4185	getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
2283 2de925716786 * empty log message * Claus Gittinger <cg@exept.de> parents: 2254 diff changeset	4186	"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	4187	and other info (mark as stable, for example).
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4188	Return the info-object (actually: the dialog) or nil if aborted."
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4189
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4190	\|logMsg infoDialog\|
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4191
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4192	infoDialog := Tools::CheckinInfoDialog
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4193	getCheckinInfoFor:aClassNameOrPackageNameString
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4194	initialAnswer:(initialAnswerOrNil ? LastSourceLogMessage)
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4195	withQuickOption:withQuickOption
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4196	logHistory:(LastSourceLogMessages ? #()).
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4197
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4198	infoDialog notNil ifTrue:[
35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4199	logMsg := infoDialog logMessage.
2284 624993d61344 comment Claus Gittinger <cg@exept.de> parents: 2283 diff changeset	4200	logMsg notEmptyOrNil ifTrue:[
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4201	LastSourceLogMessage := logMsg.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4202	LastSourceLogMessages isNil ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4203	LastSourceLogMessages := OrderedCollection new.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4204	].
2796 78401b160a28 changed: #getCheckinInfoFor:initialAnswer:withQuickOption: Claus Gittinger <cg@exept.de> parents: 2795 diff changeset	4205	LastSourceLogMessages remove:logMsg ifAbsent:[].
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4206	LastSourceLogMessages addFirst:logMsg.
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4207	LastSourceLogMessages size > 10 ifTrue:[
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4208	LastSourceLogMessages removeLast
26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4209	].
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4210	].
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4211	].
2106 35b6c567ff7e comment Claus Gittinger <cg@exept.de> parents: 2097 diff changeset	4212	^ infoDialog
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4213
2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4214	"
2795 26cfabcd623e previous log messages Claus Gittinger <cg@exept.de> parents: 2794 diff changeset	4215	SourceCodeManagerUtilities default getCheckinInfoFor:'hello' initialAnswer:'bla'
1460 2e1c304e5b52 Setting/deleting symbolic names Stefan Vogel <sv@exept.de> parents: 1456 diff changeset	4216	"
1501 6bb154127b0f CheckInDialog class moved Claus Gittinger <cg@exept.de> parents: 1500 diff changeset	4217
2796 78401b160a28 changed: #getCheckinInfoFor:initialAnswer:withQuickOption: Claus Gittinger <cg@exept.de> parents: 2795 diff changeset	4218	"Modified: / 12-03-2012 / 13:12:40 / cg"
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4219	!
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4220
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4221	goodInitialLogMessageForCheckinClassOfClass:aClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4222	"figure out, if there were any non-comment changes.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4223	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	4224
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4225	\|selectorsInChangeSet newSelectors modifiedSelectors
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4226	classChanges changesForThisClass definitionChangesForThisClass methodChangesForThisClass
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4227	allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass removedMethodsForThisClass
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4228	initialLogStream printSelectors selectorsWithCommentOrFormattingChangeOnly
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4229	selectorsWithVariableChangeOnly
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4230	removedSelectors categoryChanges categoryChangeSelectors\|
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4231
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4232	"/ a helper function
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4233	printSelectors :=
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4234	[:what :selectors \|
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4235	initialLogStream
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4236	nextPutAll:(what,':').
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4237	selectors size < 5 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4238	selectors size == 1 ifTrue:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4239	initialLogStream
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4240	print: ' #';
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4241	print: (selectors first);
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4242	cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4243	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4244	initialLogStream cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4245	selectors asSortedCollection do:[:sel \| initialLogStream tab; nextPutAll:'#'; nextPutLine:sel].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4246	]
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4247	] ifFalse:[
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4248	initialLogStream
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4249	print: (selectors size);
2142 d09c9d1b8c46 changed: #goodInitialLogMessageForCheckinClassOfClass: sr parents: 2137 diff changeset	4250	print: ' methods';
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4251	cr.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4252	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4253	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4254
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4255	classChanges := ChangeSet current select:[:aChange \| aChange isClassChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4256
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4257	changesForThisClass := classChanges
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4258	select:[:aChange \| aChange className = aClass theNonMetaclass name
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4259	or:[aChange className = aClass theMetaclass name] ].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4260
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4261	definitionChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodChange not].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4262	categoryChanges := changesForThisClass select:[:aChange \| aChange isMethodCategoryChange].
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4263	categoryChangeSelectors := categoryChanges collect:[:aChange \| aChange changeSelector] as:Set.
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4264	allMethodChangesForThisClass := changesForThisClass select:[:aChange \| aChange isMethodCodeChange].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4265	selectorsInChangeSet := allMethodChangesForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4266	methodChangesForThisClass := selectorsInChangeSet collect:[:eachSelector \|
2161 c1d39e2f7115 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2142 diff changeset	4267	allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector]] as:OrderedCollection.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4268
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4269	modifiedMethodsForThisClass := methodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4270	select:[:aChange \| aChange previousVersion notNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4271	modifiedSelectors := modifiedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4272
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4273	newMethodsForThisClass := allMethodChangesForThisClass
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4274	select:[:aChange \| aChange previousVersion isNil].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4275	newSelectors := newMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4276
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4277	removedMethodsForThisClass := allMethodChangesForThisClass
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4278	select:[:aChange \| aChange isMethodRemoveChange].
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4279	removedSelectors := removedMethodsForThisClass collect:[:aChange \| aChange changeSelector] as:Set.
c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4280
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4281	initialLogStream := '' writeStream.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4282	"/ definition?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4283	"/ suppress definition-message if initial checkin
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4284	(aClass package isNil or:[aClass revision isNil]) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4285	definitionChangesForThisClass notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4286	initialLogStream
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4287	print:'class definition'; cr.
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4288	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4289	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4290
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4291	"/ added selectors?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4292	newSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4293	printSelectors value:'added' value:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4294	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4295	modifiedSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4296	categoryChangeSelectors removeAllFoundIn:newSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4297
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4298	"/ removed selectors?
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4299	removedSelectors notEmpty ifTrue:[
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4300	printSelectors value:'removed' value:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4301	].
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4302	modifiedSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4303	categoryChangeSelectors removeAllFoundIn:removedSelectors.
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4304
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4305	"/ modifications?
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4306	modifiedSelectors notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4307	selectorsWithCommentOrFormattingChangeOnly := Set new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4308	selectorsWithVariableChangeOnly := Set new.
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4309
3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4310	"/ cehck for format/comment change
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4311	RBParser notNil ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4312	modifiedSelectors do:[:eachSelector \|
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4313	\|oldest newest oldMethod newMethod oldTree newTree variableMapping\|
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4314
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4315	(newSelectors includes:eachSelector) ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4316	oldest := allMethodChangesForThisClass detect:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4317	newest := allMethodChangesForThisClass detectLast:[:change \| change changeSelector = eachSelector].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4318
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4319	oldest := oldest previousVersion notNil ifTrue:[oldest previousVersion] ifFalse:[oldest].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4320
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4321	oldTree := RBParser parseMethod:oldest source onError:[:aString :pos \| nil].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4322	newTree := RBParser parseMethod:newest source onError:[:aString :pos \| nil].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4323	(oldTree notNil and:[newTree notNil]) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4324	variableMapping := Dictionary new.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4325	(oldTree equalTo:newTree withMapping: variableMapping) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4326	(variableMapping at:'self' ifAbsent:nil) = 'self' ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4327	((variableMapping associations count:[:assoc \| assoc key ~= assoc value]) == 0) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4328	selectorsWithCommentOrFormattingChangeOnly add:eachSelector.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4329	] ifFalse:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4330	selectorsWithVariableChangeOnly add:eachSelector.
2142 d09c9d1b8c46 changed: #goodInitialLogMessageForCheckinClassOfClass: sr parents: 2137 diff changeset	4331	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4332	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4333	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4334	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4335	]
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4336	].
9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4337	].
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4338
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4339	modifiedSelectors removeAllFoundIn:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4340	modifiedSelectors removeAllFoundIn:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4341
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4342	(selectorsWithCommentOrFormattingChangeOnly notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4343	printSelectors value:'comment/format in' value:selectorsWithCommentOrFormattingChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4344	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4345	(selectorsWithVariableChangeOnly notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4346	printSelectors value:'variable renamed in' value:selectorsWithVariableChangeOnly.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4347	].
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4348	(modifiedSelectors notEmpty) ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4349	printSelectors value:'changed' value:modifiedSelectors.
2194 c45cd185ee80 changed: #goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2193 diff changeset	4350	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4351	].
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4352	categoryChanges notEmpty ifTrue:[
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4353	printSelectors value:'category of' value:categoryChangeSelectors.
21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4354	].
2129 9d5c146df780 goodInitialLogMessageForCheckinClassOfClass: Claus Gittinger <cg@exept.de> parents: 2106 diff changeset	4355	^ initialLogStream contents
2312 21fb10cf6914 changed: Claus Gittinger <cg@exept.de> parents: 2295 diff changeset	4356
2313 3dbafc3a51a4 changed: Claus Gittinger <cg@exept.de> parents: 2312 diff changeset	4357	"Modified: / 27-01-2011 / 09:25:30 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4358	! !
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4359
2556 7d79bba1a1fa Methods moved to an instance side (with forwarding from class side) vrany parents: 2539 diff changeset	4360	!SourceCodeManagerUtilities methodsFor:'utilities-encoding'!
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4361
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4362	guessEncodingOfFile:aFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4363	"look for a string
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4364	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4365	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4366	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4367	within the given buffer
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4368	(which is usually the first few bytes of a textFile).
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4369	If that's not found, use heuristics (in CharacterArray) to guess."
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4370
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4371	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4372
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4373	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4374	^ CharacterEncoder guessEncodingOfFile:aFilename
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4375
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4376	"
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4377	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_de.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4378	SourceCodeManagerUtilities guessEncodingOfFile:'../../libview2/resources/ApplicationModel_ru.rs' asFilename
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4379	"
2719 a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4380
a25a07c06d84 refactored Claus Gittinger <cg@exept.de> parents: 2693 diff changeset	4381	"Modified (comment): / 14-01-2012 / 20:54:35 / cg"
1375 80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4382	!
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4383
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4384	guessEncodingOfStream:aStream
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4385	"look for a string of the form
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4386	encoding #name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4387	or:
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4388	encoding: name
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4389	in the first few bytes of aStream."
80969e1428a8 category changes Claus Gittinger <cg@exept.de> parents: 1374 diff changeset	4390
1433 c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4391	<resource: #obsolete>
c3696ad0922b mark obsolete messages as obsolete Stefan Vogel <sv@exept.de> parents: 1429 diff changeset	4392
1414 f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4393	self obsoleteMethodWarning:'ask CharacterEncoder'.
f67d4b166606 guessEncoding now implemented in CharacterEncoder Claus Gittinger <cg@exept.de> parents: 1403 diff changeset	4394	^ CharacterEncoder guessEncodingOfStream:aStream
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4395	! !
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4396
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4397	!SourceCodeManagerUtilities class methodsFor:'documentation'!
0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4398
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4399	version
2835 ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	4400	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.251 2012-06-20 08:34:55 vrany Exp $'
2487 c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4401	!
c8f4417b9edc changed: #ensureCorrectVersionMethodsInClass:using: Claus Gittinger <cg@exept.de> parents: 2484 diff changeset	4402
2175 50349cb87bf4 changed: fm parents: 2161 diff changeset	4403	version_CVS
2835 ec791b8d6a71 changed: #repositoryLogOf:short:onto: vrany parents: 2830 diff changeset	4404	^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.251 2012-06-20 08:34:55 vrany Exp $'
873 0016bc968e28 initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4405	! !

author	vrany
	Wed, 20 Jun 2012 10:34:55 +0200
changeset 2835	ec791b8d6a71
parent 2830	f5204449764a
child 2836	91e9be94d80b
permissions	-rw-r--r--