hg/stx-libtool: ChangeSetBrowser.st@1b99fefd5825 (annotated)

18831 5e2603aec0a4 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18358 diff changeset	1	"{ Encoding: utf8 }"
5e2603aec0a4 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18358 diff changeset	2
30 205d53e91c52 Initial revision claus parents: diff changeset	3	"
205d53e91c52 Initial revision claus parents: diff changeset	4	COPYRIGHT (c) 1993 by Claus Gittinger
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	5	All Rights Reserved
30 205d53e91c52 Initial revision claus parents: diff changeset	6
205d53e91c52 Initial revision claus parents: diff changeset	7	This software is furnished under a license and may be used
205d53e91c52 Initial revision claus parents: diff changeset	8	only in accordance with the terms of that license and with the
205d53e91c52 Initial revision claus parents: diff changeset	9	inclusion of the above copyright notice. This software may not
205d53e91c52 Initial revision claus parents: diff changeset	10	be provided or otherwise made available to, or used by, any
205d53e91c52 Initial revision claus parents: diff changeset	11	other person. No title to or ownership of the software is
205d53e91c52 Initial revision claus parents: diff changeset	12	hereby transferred.
205d53e91c52 Initial revision claus parents: diff changeset	13	"
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	14	"{ Package: 'stx:libtool' }"
ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	15
15188 213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	16	"{ NameSpace: Smalltalk }"
213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	17
30 205d53e91c52 Initial revision claus parents: diff changeset	18	ChangesBrowser subclass:#ChangeSetBrowser
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	19	instanceVariableNames:'changeSet originalChangeSet'
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	20	classVariableNames:'ReplacementClasses'
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	21	poolDictionaries:''
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	22	category:'Interface-Browsers'
30 205d53e91c52 Initial revision claus parents: diff changeset	23	!
205d53e91c52 Initial revision claus parents: diff changeset	24
205d53e91c52 Initial revision claus parents: diff changeset	25	!ChangeSetBrowser class methodsFor:'documentation'!
205d53e91c52 Initial revision claus parents: diff changeset	26
205d53e91c52 Initial revision claus parents: diff changeset	27	copyright
205d53e91c52 Initial revision claus parents: diff changeset	28	"
205d53e91c52 Initial revision claus parents: diff changeset	29	COPYRIGHT (c) 1993 by Claus Gittinger
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	30	All Rights Reserved
30 205d53e91c52 Initial revision claus parents: diff changeset	31
205d53e91c52 Initial revision claus parents: diff changeset	32	This software is furnished under a license and may be used
205d53e91c52 Initial revision claus parents: diff changeset	33	only in accordance with the terms of that license and with the
205d53e91c52 Initial revision claus parents: diff changeset	34	inclusion of the above copyright notice. This software may not
205d53e91c52 Initial revision claus parents: diff changeset	35	be provided or otherwise made available to, or used by, any
205d53e91c52 Initial revision claus parents: diff changeset	36	other person. No title to or ownership of the software is
205d53e91c52 Initial revision claus parents: diff changeset	37	hereby transferred.
205d53e91c52 Initial revision claus parents: diff changeset	38	"
205d53e91c52 Initial revision claus parents: diff changeset	39	!
205d53e91c52 Initial revision claus parents: diff changeset	40
205d53e91c52 Initial revision claus parents: diff changeset	41	documentation
205d53e91c52 Initial revision claus parents: diff changeset	42	"
205d53e91c52 Initial revision claus parents: diff changeset	43	like a changesBrowser, but manipulates the per-project change-lists.
5703 0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	44
0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	45	This is operating on changes as a list of Change-instances
0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	46	as opposed to the ChangesBrowser which is doing it completely non-object oriented,
0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	47	as a list of text-chunks.
0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	48
0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	49	ChangeSetBrowser is going to completely replace the ChangesBrowser class in the near
0fd86e0939ff comments Claus Gittinger <cg@exept.de> parents: 5527 diff changeset	50	future.
30 205d53e91c52 Initial revision claus parents: diff changeset	51	"
205d53e91c52 Initial revision claus parents: diff changeset	52	! !
205d53e91c52 Initial revision claus parents: diff changeset	53
205d53e91c52 Initial revision claus parents: diff changeset	54	!ChangeSetBrowser class methodsFor:'instance creation'!
205d53e91c52 Initial revision claus parents: diff changeset	55
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	56	open
9782 381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	57	"open a changes browser on the current change set"
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	58
3898 faeed72d6eb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	59	^ self openOn:(ChangeSet current)
faeed72d6eb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	60
faeed72d6eb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	61	"
faeed72d6eb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	62	ChangeSetBrowser open
faeed72d6eb1 * empty log message * Claus Gittinger <cg@exept.de> parents: 3857 diff changeset	63	"
9782 381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	64
381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	65	"Modified: / 17-02-2011 / 10:29:26 / cg"
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	66	!
ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	67
40 a9ae39be7004 * empty log message * claus parents: 30 diff changeset	68	openOn:aChangeSet
9782 381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	69	"open a changes browser on a given change set"
30 205d53e91c52 Initial revision claus parents: diff changeset	70
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	71	^ ((self new label:'ChangeSet Browser') changeSet:aChangeSet) open
9782 381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	72
381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	73	"Modified: / 17-02-2011 / 10:29:35 / cg"
4232 88e1552f4da9 + #openOnFile: Claus Gittinger <cg@exept.de> parents: 3898 diff changeset	74	!
88e1552f4da9 + #openOnFile: Claus Gittinger <cg@exept.de> parents: 3898 diff changeset	75
18833 d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	76	openOnFile:fileNameOrString
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	77	"open a changes browser on a file (or cypress folder)"
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	78
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	79	\|fileName changeSet\|
9782 381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	80
18833 d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	81	fileName := fileNameOrString asFilename.
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	82
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	83	fileName isDirectory ifTrue:[
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	84	(fileName hasSuffix:'package') ifTrue:[
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	85	Smalltalk loadPackage:'stx:goodies/cypress'.
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	86	changeSet := (CypressPackage fromDirectory:fileName) asChangeSet.
18839 8603075897cb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18836 diff changeset	87	] ifFalse:[
8603075897cb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18836 diff changeset	88	(fileName hasSuffix:'class') ifTrue:[
8603075897cb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18836 diff changeset	89	Smalltalk loadPackage:'stx:goodies/cypress'.
8603075897cb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18836 diff changeset	90	changeSet := (CypressClass fromDirectory:fileName) asChangeSet.
8603075897cb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18836 diff changeset	91	].
18833 d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	92	].
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	93	] ifFalse:[
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	94	changeSet := ChangeSet fromFile:fileName.
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	95	].
4232 88e1552f4da9 + #openOnFile: Claus Gittinger <cg@exept.de> parents: 3898 diff changeset	96	^ self openOn:changeSet
8869 16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	97
16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	98	"
12622 91709379cc3c class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 12600 diff changeset	99	self openOnFile:'st.chg'
8869 16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	100	self openOnFile:'c:\Users\cg\work\stx\goodies\soap\spray5.2\Steve Waring\Spray WebServices\Spray\Auth\SWT Spray Auth Tests.pac'
16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	101	ChangeSet fromFile:'c:\Users\cg\work\stx\goodies\soap\spray5.2\Steve Waring\Spray WebServices\Spray\Auth\SWT Spray Auth Tests.pac'
16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	102	"
9782 381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	103
381a57b56a0c comment/format in: Claus Gittinger <cg@exept.de> parents: 9717 diff changeset	104	"Modified: / 17-02-2011 / 10:29:50 / cg"
18839 8603075897cb #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18836 diff changeset	105	"Modified: / 23-06-2019 / 21:44:19 / Claus Gittinger"
30 205d53e91c52 Initial revision claus parents: diff changeset	106	! !
205d53e91c52 Initial revision claus parents: diff changeset	107
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	108	!ChangeSetBrowser class methodsFor:'defaults'!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	109
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	110	defaultLabel
5527 bbff3dc4085b * empty log message * Claus Gittinger <cg@exept.de> parents: 5178 diff changeset	111	^ self classResources string:'ChangeSet Browser'
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	112
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	113	"Created: / 6.2.1998 / 13:25:47 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	114	! !
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	115
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	116	!ChangeSetBrowser class methodsFor:'menu specs'!
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	117
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	118	menuSpec
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	119	"This resource specification was automatically generated
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	120	by the MenuEditor of ST/X."
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	121
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	122	"Do not manually edit this!! If it is corrupted,
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	123	the MenuEditor may not be able to read the specification."
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	124
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	125	"
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	126	MenuEditor new openOnClass:ChangeSetBrowser andSelector:#menuSpec
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	127	(Menu new fromLiteralArrayEncoding:(ChangeSetBrowser menuSpec)) startUp
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	128	"
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	129
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	130	<resource: #menu>
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	131
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	132	^
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	133	#(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	134	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	135	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	136	label: 'File'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	137	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	138	submenu:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	139	(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	140	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	141	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	142	label: 'Compress'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	143	itemValue: doCompress
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	144	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	145	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	146	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	147	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	148	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	149	label: 'Compress for Class'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	150	itemValue: doCompressClass
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	151	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	152	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	153	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	154	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	155	label: 'Compare and Compress'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	156	itemValue: doCompareAndCompress
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	157	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	158	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	159	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	160	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	161	label: '-'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	162	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	163	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	164	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	165	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	166	label: 'Fileout && Delete all Changes for Class'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	167	itemValue: doFileoutAndDeleteClassAll
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	168	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	169	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	170	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	171	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	172	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	173	label: 'CheckIn && Delete all Changes for Class'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	174	itemValue: doCheckinAndDeleteClassAll
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	175	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	176	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	177	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	178	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	179	label: '-'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	180	isVisible: notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	181	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	182	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	183	enabled: hasSelection
15017 e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	184	label: 'Save In...'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	185	itemValue: doSave
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	186	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	187	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	188	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	189	enabled: hasSelection
15017 e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	190	label: 'Save to End In...'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	191	itemValue: doSaveRest
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	192	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	193	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	194	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	195	enabled: hasSelection
15017 e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	196	label: 'Save for Class to End In...'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	197	itemValue: doSaveClassRest
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	198	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	199	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	200	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	201	enabled: hasSelection
15188 213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	202	label: 'Save all for Class In...'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	203	itemValue: doSaveClassAll
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	204	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	205	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	206	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	207	label: '-'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	208	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	209	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	210	label: 'Saveback ChangeSet'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	211	itemValue: doSaveBack
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	212	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	213	isVisible: notReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	214	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	215	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	216	label: '-'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	217	isVisible: notReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	218	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	219	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	220	label: 'Update'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	221	itemValue: doUpdate
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	222	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	223	isVisible: notReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	224	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	225	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	226	label: '-'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	227	isVisible: notReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	228	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	229	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	230	label: 'Exit'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	231	itemValue: menuExit
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	232	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	233	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	234	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	235	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	236	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	237	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	238	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	239	(MenuItem
18253 7902bd5cd26e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17989 diff changeset	240	label: 'Change_subst'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	241	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	242	submenu:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	243	(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	244	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	245	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	246	label: 'Undo (undelete Method)'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	247	itemValue: doUndoRemoveMethod
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	248	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	249	isVisible: hasUndoableRemoveMethodChangeSelected
3857 b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	250	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	251	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	252	label: 'Undo (previous Version)'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	253	itemValue: doUndoMethodChange
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	254	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	255	isVisible: hasUndoableMethodChangeSelected
3857 b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	256	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	257	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	258	enabled: false
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	259	label: 'Undo'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	260	itemValue: doUndoMethodChange
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	261	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	262	isVisible: hasNotUndoableChangeSelected
3857 b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	263	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	264	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	265	label: '-'
3857 b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	266	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	267	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	268	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	269	label: 'Apply'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	270	itemValue: doApply
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	271	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	272	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	273	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	274	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	275	label: 'Apply to End'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	276	itemValue: doApplyRest
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	277	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	278	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	279	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	280	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	281	label: 'Apply for Class to End'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	282	itemValue: doApplyClassRest
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	283	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	284	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	285	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	286	enabled: hasNoSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	287	label: 'Apply All'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	288	itemValue: doApplyAll
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	289	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	290	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	291	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	292	label: '-'
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	293	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	294	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	295	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	296	label: 'Delete'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	297	itemValue: doDelete
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	298	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	299	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	300	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	301	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	302	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	303	label: 'Delete to End'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	304	itemValue: doDeleteRest
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	305	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	306	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	307	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	308	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	309	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	310	label: 'Delete for Class to End'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	311	itemValue: doDeleteClassRest
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	312	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	313	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	314	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	315	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	316	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	317	label: 'Delete for Class from Begin'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	318	itemValue: doDeleteClassFromBeginning
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	319	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	320	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	321	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	322	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	323	enabled: hasSelection
15188 213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	324	label: 'Delete all for Class'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	325	itemValue: doDeleteClassAll
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	326	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	327	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	328	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	329	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	330	enabled: hasSelection
15188 213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	331	label: 'Delete all for Class && its Private Classes'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	332	itemValue: doDeleteClassAndPrivateClassesAll
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	333	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	334	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	335	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	336	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	337	label: '-'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	338	isVisible: notReadOnly
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	339	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	340	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	341	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	342	label: 'Compare with Current'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	343	itemValue: doCompare
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	344	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	345	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	346	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	347	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	348	label: 'Browse'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	349	itemValue: doBrowse
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	350	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	351	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	352	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	353	label: '-'
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	354	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	355	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	356	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	357	label: 'Make Change a Patch'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	358	itemValue: doMakePatch
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	359	translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	360	)
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	361	)
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	362	nil
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	363	nil
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	364	)
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	365	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	366	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	367	label: 'Search'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	368	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	369	submenu:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	370	(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	371	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	372	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	373	label: 'Class...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	374	itemValue: findClass
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	375	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	376	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	377	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	378	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	379	label: 'Previous for Class'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	380	itemValue: findPreviousForClass
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	381	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	382	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	383	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	384	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	385	label: 'Next for Class'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	386	itemValue: findNextForClass
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	387	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	388	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	389	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	390	label: '-'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	391	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	392	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	393	label: 'Selector...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	394	itemValue: findSelector
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	395	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	396	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	397	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	398	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	399	label: 'Previous for Selector'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	400	itemValue: findPreviousForSelector
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	401	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	402	)
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	403	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	404	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	405	label: 'Next for Selector'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	406	itemValue: findNextForSelector
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	407	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	408	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	409	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	410	label: '-'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	411	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	412	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	413	label: 'String...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	414	itemValue: findString
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	415	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	416	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	417	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	418	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	419	label: 'Previous with String'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	420	itemValue: findPreviousForString
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	421	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	422	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	423	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	424	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	425	label: 'Next with String'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	426	itemValue: findNextForString
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	427	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	428	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	429	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	430	label: '-'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	431	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	432	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	433	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	434	label: 'Previous Snapshot'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	435	itemValue: findPreviousSnapshot
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	436	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	437	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	438	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	439	enabled: hasSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	440	label: 'Next Snapshot'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	441	itemValue: findNextSnapshot
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	442	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	443	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	444	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	445	label: '-'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	446	)
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	447	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	448	label: 'Next Difference'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	449	itemValue: findNextDifference
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	450	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	451	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	452	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	453	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	454	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	455	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	456	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	457	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	458	label: 'Browse'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	459	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	460	submenu:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	461	(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	462	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	463	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	464	enabled: hasSingleSelection
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	465	label: 'Class'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	466	itemValue: doBrowse
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	467	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	468	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	469	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	470	label: '-'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	471	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	472	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	473	label: 'Senders...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	474	itemValue: doBrowseSenders
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	475	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	476	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	477	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	478	label: 'Implementors...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	479	itemValue: doBrowseImplementors
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	480	translateLabel: true
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	481	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	482	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	483	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	484	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	485	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	486	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	487	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	488	label: 'Settings'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	489	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	490	submenu:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	491	(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	492	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	493	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	494	label: 'Auto Compare'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	495	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	496	indication: autoCompare
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	497	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	498	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	499	label: 'Auto Update'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	500	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	501	isVisible: notReadOnly
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	502	indication: autoUpdate
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	503	)
18833 d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	504	(MenuItem
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	505	label: 'Autoload As Required'
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	506	indication: autoloadAsRequired
d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	507	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	508	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	509	label: '-'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	510	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	511	(MenuItem
15017 e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	512	label: 'Add Applies to ChangeSet'
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	513	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	514	indication: updateChangeSet
4483 84f28a1e7875 more for vw-XML fileIn Claus Gittinger <cg@exept.de> parents: 4430 diff changeset	515	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	516	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	517	label: 'Apply in Original NameSpace'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	518	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	519	indication: applyInOriginalNameSpace
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	520	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	521	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	522	label: '-'
4279 1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	523	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	524	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	525	label: 'Apply into Package...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	526	itemValue: setEnforcedPackage
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	527	translateLabel: true
4483 84f28a1e7875 more for vw-XML fileIn Claus Gittinger <cg@exept.de> parents: 4430 diff changeset	528	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	529	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	530	label: 'Apply in NameSpace...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	531	itemValue: setEnforcedNameSpace
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	532	translateLabel: true
4279 1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	533	)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	534	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	535	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	536	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	537	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	538	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	539	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	540	label: 'Help'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	541	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	542	startGroup: right
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	543	submenu:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	544	(Menu
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	545	(
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	546	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	547	label: 'ChangesBrowser Documentation'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	548	itemValue: openHTMLDocument:
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	549	translateLabel: true
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	550	argument: 'tools/cbrowser/TOP.html'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	551	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	552	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	553	label: '-'
3205 83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	554	)
6766 3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	555	(MenuItem
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	556	label: 'About ChangesBrowser...'
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	557	itemValue: openAboutThisApplication
3d83ccd2965d * empty log message * Claus Gittinger <cg@exept.de> parents: 6760 diff changeset	558	translateLabel: true
3205 83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	559	)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	560	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	561	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	562	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	563	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	564	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	565	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	566	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	567	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	568	)
18253 7902bd5cd26e #UI_ENHANCEMENT by cg Claus Gittinger <cg@exept.de> parents: 17989 diff changeset	569
18833 d65455d2b501 #FEATURE by cg Claus Gittinger <cg@exept.de> parents: 18831 diff changeset	570	"Modified: / 23-06-2019 / 13:31:14 / Claus Gittinger"
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	571	! !
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	572
15017 e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	573	!ChangeSetBrowser methodsFor:'aspects'!
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	574
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	575	canDeleteChanges
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	576	"makes the delete buttons in the toolbar visible"
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	577
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	578	^ false.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	579	! !
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	580
6297 01b5be803287 * empty log message * Claus Gittinger <cg@exept.de> parents: 5703 diff changeset	581	!ChangeSetBrowser methodsFor:'initialization & release'!
30 205d53e91c52 Initial revision claus parents: diff changeset	582
3392 2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	583	askIfChangesAreToBeWrittenBack
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	584	\|action\|
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	585
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	586	anyChanges ifFalse:[^ self].
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	587
16751 9f59529faaf8 #REFACTORING by mawalch mawalch parents: 16388 diff changeset	588	action := OptionBox
6644 8e8e857780ba * empty log message * Claus Gittinger <cg@exept.de> parents: 6603 diff changeset	589	request:(resources string:'The modified changeSet has not been saved.\\Update the changeSet before closing ?') withCRs
3392 2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	590	label:'ChangesBrowser'
16751 9f59529faaf8 #REFACTORING by mawalch mawalch parents: 16388 diff changeset	591	image:(WarningBox iconBitmap)
3392 2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	592	buttonLabels:(resources array:#('Cancel' 'Don''t Update' 'Update'))
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	593	values:#(#abort #ignore #save)
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	594	default:#save
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	595	onCancel:#abort.
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	596
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	597	action == #abort ifTrue:[^ self].
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	598	action == #save ifTrue:[
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	599	self saveBackChanges
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	600	].
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	601	!
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	602
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	603	changeListMenu
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	604	<resource: #programMenu >
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	605
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	606	\|items m\|
30 205d53e91c52 Initial revision claus parents: diff changeset	607
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	608	items := #(
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	609	('Apply' doApply)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	610	('Apply to End' doApplyRest)
15188 213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	611	('Apply all changes' doApplyAll)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	612	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	613	('Delete' doDelete)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	614	('Delete to End' doDeleteRest)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	615	('Delete for Class to End' doDeleteClassRest)
15188 213ae62f842e class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15017 diff changeset	616	('Delete all for Class' doDeleteClassAll)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	617	('-' )
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	618	"/ ('Compress' doCompress)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	619	('Compare with Current' doCompare)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	620	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	621	('Make Change a Patch' doMakePatch)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	622	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	623	('Saveback ChangeSet' doSaveBack)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	624	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	625	('Update' doUpdate)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	626	).
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	627
14904 97d004cd4e05 class: ChangeSetBrowser Stefan Vogel <sv@exept.de> parents: 12655 diff changeset	628	self device ctrlDown ifTrue:[
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	629	items := #(
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	630	('Inspect Change' doInspectChange)
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	631	).
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	632	].
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	633
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	634	m := PopUpMenu
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	635	itemList:items
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	636	resources:resources.
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	637
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	638	readOnly == true ifTrue:[
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	639	m disableAll:#(doDelete doDeleteRest doDeleteClassRest doDeleteClassAll
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	640	doDeleteClassAndPrivateClassesAll doCompress
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	641	doFileoutAndDeleteClassAll doCheckinAndDeleteClassAll
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	642	doWriteBack doSaveBack doUpdate
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	643	doApplyAll doApplyRest)
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	644	].
3228 678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	645
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	646	self hasSelection ifTrue:[
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	647	m disable:#doApplyAll
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	648	].
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	649
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	650	^ m
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	651
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	652	"Created: 3.12.1995 / 18:06:35 / cg"
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	653	"Modified: 3.12.1995 / 18:13:06 / cg"
4942 73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	654	!
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	655
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	656	showingDiffsDefault
16751 9f59529faaf8 #REFACTORING by mawalch mawalch parents: 16388 diff changeset	657	^ "false" super showingDiffsDefault
30 205d53e91c52 Initial revision claus parents: diff changeset	658	! !
205d53e91c52 Initial revision claus parents: diff changeset	659
3857 b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	660	!ChangeSetBrowser methodsFor:'menu aspects'!
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	661
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	662	hasNotUndoableChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	663	^ (self hasUndoableMethodChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	664	or:[self hasUndoableRemoveMethodChangeSelected]) not
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	665	!
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	666
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	667	hasUndoableMethodChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	668	\|nr chg\|
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	669
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	670	self hasSingleSelection ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	671	nr := self theSingleSelection.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	672	nr notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	673	chg := changeSet at:nr.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	674	chg isMethodChange ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	675	chg isMethodRemoveChange ifFalse:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	676	chg previousVersion notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	677	^ true
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	678	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	679	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	680	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	681	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	682	].
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	683	^ false
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	684	!
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	685
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	686	hasUndoableRemoveMethodChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	687	\|nr chg\|
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	688
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	689	self hasSingleSelection ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	690	nr := self theSingleSelection.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	691	nr notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	692	chg := changeSet at:nr.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	693	chg isMethodRemoveChange ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	694	chg previousVersion notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	695	^ true
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	696	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	697	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	698	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	699	].
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	700	^ false
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	701	! !
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	702
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	703	!ChangeSetBrowser methodsFor:'private'!
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	704
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	705	applyChange:changeNr
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	706	"fileIn a change"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	707
4990 5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	708	\|nm applyAction aborted\|
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	709
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	710	nm := self classNameOfChange:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	711	nm notNil ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	712	\|cls\|
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	713
17989 fe5233911e1b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 17027 diff changeset	714	cls := Smalltalk classNamed:nm.
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	715	cls notNil ifTrue:[
17989 fe5233911e1b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 17027 diff changeset	716	cls autoload.
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	717	]
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	718	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	719
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	720	changeNrProcessed := changeNr.
4990 5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	721	aborted := false.
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	722
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	723	applyAction := [
8300 3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	724	"/ AbortOperationRequest handle:[:ex \|
3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	725	"/ ^ false.
3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	726	"/ ] do:[
12655 b351c1a2164a class: ChangeSetBrowser Stefan Vogel <sv@exept.de> parents: 12622 diff changeset	727	ParseError handle:[:ex \|
18358 9d3223e12cea #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18255 diff changeset	728	ex creator == UndefinedSuperclassError ifTrue:[
4279 1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	729	codeView error:(ex errorString) position:1 to:nil from:nil
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	730	] ifFalse:[
9716 cbd9cfbb05b5 changed: #applyChange: Claus Gittinger <cg@exept.de> parents: 9398 diff changeset	731	codeView error:(ex description) position:(ex startPosition) to:(ex endPosition) from:(ex parser).
cbd9cfbb05b5 changed: #applyChange: Claus Gittinger <cg@exept.de> parents: 9398 diff changeset	732	ex mayProceed ifTrue:[ex proceed].
4279 1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	733	]
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	734	] do:[
7701 15d8d442b2d0 namespace handling Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	735	\|nameSpace change package\|
4483 84f28a1e7875 more for vw-XML fileIn Claus Gittinger <cg@exept.de> parents: 4430 diff changeset	736
7701 15d8d442b2d0 namespace handling Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	737	change := changeSet at:changeNr.
4483 84f28a1e7875 more for vw-XML fileIn Claus Gittinger <cg@exept.de> parents: 4430 diff changeset	738	nameSpace := self nameSpaceForApply.
8300 3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	739	change isDoIt ifTrue:[
3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	740	package := enforcedPackage ? Class packageQuerySignal query.
3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	741	] ifFalse:[
3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	742	package := enforcedPackage ? change package ? Class packageQuerySignal query.
3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	743	].
7701 15d8d442b2d0 namespace handling Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	744
15d8d442b2d0 namespace handling Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	745	Class packageQuerySignal answer:package
4483 84f28a1e7875 more for vw-XML fileIn Claus Gittinger <cg@exept.de> parents: 4430 diff changeset	746	do:[
9716 cbd9cfbb05b5 changed: #applyChange: Claus Gittinger <cg@exept.de> parents: 9398 diff changeset	747	"/ Class nameSpaceQuerySignal answer:nameSpace
cbd9cfbb05b5 changed: #applyChange: Claus Gittinger <cg@exept.de> parents: 9398 diff changeset	748	"/ do:[
7701 15d8d442b2d0 namespace handling Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	749	self applyPossiblyModifiedChange:change.
9716 cbd9cfbb05b5 changed: #applyChange: Claus Gittinger <cg@exept.de> parents: 9398 diff changeset	750	"/ ]
4483 84f28a1e7875 more for vw-XML fileIn Claus Gittinger <cg@exept.de> parents: 4430 diff changeset	751	]
8300 3738bc610a1b * empty log message * Claus Gittinger <cg@exept.de> parents: 7784 diff changeset	752	"/ ]
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	753	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	754	changeNrProcessed := nil.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	755	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	756
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	757	"/
17027 1e2c7961b922 #OTHER by cg Claus Gittinger <cg@exept.de> parents: 16751 diff changeset	758	"/ if I am showing the changes file, don't update it
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	759	"/
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	760	changeFileName = ObjectMemory nameForChanges ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	761	Class withoutUpdatingChangesDo:applyAction
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	762	] ifFalse:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	763	applyAction value
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	764	].
4990 5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	765	^ aborted not
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	766
7701 15d8d442b2d0 namespace handling Claus Gittinger <cg@exept.de> parents: 7700 diff changeset	767	"Created: / 07-02-1998 / 19:32:35 / cg"
9716 cbd9cfbb05b5 changed: #applyChange: Claus Gittinger <cg@exept.de> parents: 9398 diff changeset	768	"Modified: / 29-01-2011 / 11:46:44 / cg"
17989 fe5233911e1b #REFACTORING by stefan Stefan Vogel <sv@exept.de> parents: 17027 diff changeset	769	"Modified: / 15-02-2018 / 19:01:50 / stefan"
18358 9d3223e12cea #REFACTORING by cg Claus Gittinger <cg@exept.de> parents: 18255 diff changeset	770	"Modified: / 27-08-2018 / 10:51:12 / Claus Gittinger"
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	771	!
30 205d53e91c52 Initial revision claus parents: diff changeset	772
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	773	applyPossiblyModifiedChange:aChange
9717 c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	774	\|ns superClass superClassName savedClassName\|
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	775
6683 26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	776	aChange isClassDefinitionChange ifTrue:[
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	777	superClassName := aChange superClassName.
18831 5e2603aec0a4 #QUALITY by cg Claus Gittinger <cg@exept.de> parents: 18358 diff changeset	778	(superClassName notNil and:[superClassName ~= 'nil']) ifTrue:[
6683 26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	779	superClassName := superClassName asSymbol.
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	780	applyInOriginalNameSpace value ifFalse:[
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	781	ns := Class nameSpaceQuerySignal query.
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	782	superClass := ns at:superClassName.
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	783	(superClass isNil and:[ superClass ~~ Smalltalk ]) ifTrue:[
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	784	superClass := Smalltalk at:superClassName.
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	785	].
26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	786	] ifTrue:[
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	787	superClass := Smalltalk at:superClassName.
18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	788	].
7700 82e4299d91bd * empty log message * Claus Gittinger <cg@exept.de> parents: 6964 diff changeset	789
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	790	superClass isNil ifTrue:[
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	791	\|guess idx baseName nsName dontShowAgain alwaysUseThisHolder\|
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	792
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	793	(ReplacementClasses notNil
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	794	and:[(superClass := ReplacementClasses at:superClassName ifAbsent:nil) notNil])
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	795	ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	796	] ifFalse:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	797	idx := superClassName lastIndexOf:$:.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	798	baseName := superClassName copyFrom:idx+1.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	799	nsName := superClassName copyTo:idx-2.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	800	guess := Smalltalk classNamed:baseName.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	801	guess isNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	802	enforcedNameSpace notNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	803	guess := enforcedNameSpace classNamed:baseName
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	804	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	805	guess isNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	806	guess := SystemBrowser classesWithNameSimilarTo:baseName.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	807	guess notEmptyOrNil ifTrue:[ guess := guess first ] ifFalse:[ guess := nil ].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	808	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	809	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	810	alwaysUseThisHolder := false asValue.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	811	Dialog
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	812	modifyingBoxWith:[:box \|
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	813	\|b\|
7700 82e4299d91bd * empty log message * Claus Gittinger <cg@exept.de> parents: 6964 diff changeset	814
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	815	b := Button
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	816	label:'Create Dummy'
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	817	action:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	818	\|newClass\|
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	819	newClass := Object subclass:(superClassName asSymbol)
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	820	instanceVariableNames:''
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	821	classVariableNames:''
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	822	poolDictionaries:''
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	823	category:'* dummy *'.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	824	box okPressed.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	825	newClass.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	826	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	827	box addButton:b after:nil.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	828	box verticalPanel add:(CheckBox
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	829	label:('Always use this for %1' bindWith:superClassName)
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	830	model:alwaysUseThisHolder).
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	831	box forceResize.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	832	]
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	833	do:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	834	superClass := Dialog
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	835	requestClass:'No superclass: ', superClassName allBold , ' enter a replacement:'
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	836	initialAnswer:(guess ? superClassName).
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	837	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	838
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	839	superClass isNil ifTrue:[AbortOperationRequest raise. ^ self ].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	840	alwaysUseThisHolder value ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	841	ReplacementClasses isNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	842	ReplacementClasses := Dictionary new.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	843	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	844	ReplacementClasses at:superClassName put:superClass.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	845	]
6760 83fb9efe5dd2 * empty log message * Claus Gittinger <cg@exept.de> parents: 6683 diff changeset	846	].
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	847	].
6683 26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	848
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	849	superClass notNil ifTrue:[
18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	850	aChange superClassName:superClass name.
6683 26f871e5e907 namespace translation fixed Claus Gittinger <cg@exept.de> parents: 6644 diff changeset	851	].
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	852	].
18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	853	].
9717 c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	854	(enforcedNameSpace notNil and:[(savedClassName := aChange className) notNil]) ifTrue:[
8870 5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	855	[
9717 c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	856
c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	857	Error ignoreIn:[ aChange class:(enforcedNameSpace classNamed:savedClassName) ].
c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	858	aChange className:(enforcedNameSpace name,'::',savedClassName).
15530 a08bc71b6062 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15529 diff changeset	859	"/ Class nameSpaceQuerySignal answer:enforcedNameSpace do:[
a08bc71b6062 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15529 diff changeset	860	aChange apply.
a08bc71b6062 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15529 diff changeset	861	"/ ].
8870 5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	862	] ensure:[
9717 c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	863	aChange className:savedClassName
8870 5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	864	].
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	865	] ifFalse:[
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	866	aChange apply.
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	867	].
7700 82e4299d91bd * empty log message * Claus Gittinger <cg@exept.de> parents: 6964 diff changeset	868
9717 c15333c458fd changed: #applyPossiblyModifiedChange: Claus Gittinger <cg@exept.de> parents: 9716 diff changeset	869	"Modified: / 29-01-2011 / 12:30:35 / cg"
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	870	"Modified: / 23-06-2019 / 13:58:06 / Claus Gittinger"
6603 18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	871	!
18a7130a71b8 * empty log message * Claus Gittinger <cg@exept.de> parents: 6297 diff changeset	872
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	873	changeIsFollowupMethodChange:changeNr
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	874	^ false
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	875
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	876	"Created: / 6.2.1998 / 13:04:59 / cg"
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	877	"Modified: / 7.2.1998 / 19:28:52 / cg"
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	878	!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	879
30 205d53e91c52 Initial revision claus parents: diff changeset	880	changeSet:aChangeSet
6964 ba22a471854d * empty log message * Claus Gittinger <cg@exept.de> parents: 6766 diff changeset	881	changeFileName := nil.
30 205d53e91c52 Initial revision claus parents: diff changeset	882	originalChangeSet := aChangeSet.
205d53e91c52 Initial revision claus parents: diff changeset	883	changeSet := OrderedCollection new.
106 f4eb10b3b463 . claus parents: 52 diff changeset	884	originalChangeSet notNil ifTrue:[
6964 ba22a471854d * empty log message * Claus Gittinger <cg@exept.de> parents: 6766 diff changeset	885	originalChangeSet do:[:aChange \|
ba22a471854d * empty log message * Claus Gittinger <cg@exept.de> parents: 6766 diff changeset	886	changeSet add:aChange
ba22a471854d * empty log message * Claus Gittinger <cg@exept.de> parents: 6766 diff changeset	887	].
30 205d53e91c52 Initial revision claus parents: diff changeset	888	].
205d53e91c52 Initial revision claus parents: diff changeset	889	!
205d53e91c52 Initial revision claus parents: diff changeset	890
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	891	checkIfFileHasChanged
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	892	Processor removeTimedBlock:checkBlock.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	893	changeSet size ~= originalChangeSet size ifTrue:[
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	894	self newLabel:'(outdated)'.
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	895	autoUpdate value ifTrue:[
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	896	self doUpdate
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	897	]
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	898	] ifFalse:[
5178 ccf3ab0d6cb1 dont change the label Claus Gittinger <cg@exept.de> parents: 4992 diff changeset	899	"/ self newLabel:''
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	900	].
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	901	Processor addTimedBlock:checkBlock afterSeconds:5.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	902
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	903	"Created: 3.12.1995 / 13:52:30 / cg"
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	904	"Modified: 3.12.1995 / 14:15:06 / cg"
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	905	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	906
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	907	fullClassNameOfChange:nr
4992 356a99c40cf7 * empty log message * Claus Gittinger <cg@exept.de> parents: 4990 diff changeset	908	^ (changeSet at:nr) fullClassName
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	909
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	910	"Created: / 6.2.1998 / 13:02:25 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	911	"Modified: / 6.2.1998 / 13:07:02 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	912	!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	913
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	914	isChangeSetBrowser
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	915	^ true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	916	!
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	917
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	918	numberOfChanges
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	919	^ changeSet size
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	920
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	921	"Created: 3.12.1995 / 18:15:56 / cg"
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	922	!
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	923
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	924	queryCloseText
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	925	^ 'Quit without updating changeSet ?'
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	926	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	927
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	928	readChangesFileInBackground:dummy
30 205d53e91c52 Initial revision claus parents: diff changeset	929	"read the changeSet, create a list of header-lines"
205d53e91c52 Initial revision claus parents: diff changeset	930
12600 29a26b712ceb timestamp printing extracted Claus Gittinger <cg@exept.de> parents: 9782 diff changeset	931	self withCursor:(Cursor read) do:[
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	932	changeInfoList := OrderedCollection new.
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	933
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	934	changeSet size == 0 ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	935	changeFileName notNil ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	936	changeSet := self class readXMLChangesFromFile:changeFileName inBackground:false.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	937	].
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	938	changeSet size == 0 ifTrue:[ ^ nil ].
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	939	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	940
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	941	"/ tabSpec := TabulatorSpecification new.
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	942	"/ tabSpec unit:#inch.
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	943	"/ tabSpec positions:#(-1 0 5 8.5 ).
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	944	"/ " +/- cls>>sel type info"
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	945	"/ tabSpec align: #(#left #left #left #left).
30 205d53e91c52 Initial revision claus parents: diff changeset	946
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	947	changeSet do:[:aChange \|
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	948	\|info changeSource entry time
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	949	changeDelta changeClass changeClassName changeSelector isMeta\|
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	950
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	951	changeSource := aChange source "printString".
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	952	changeClassName := aChange className.
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	953
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	954	aChange isMethodCodeChange ifTrue:[
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	955	changeClass := aChange changeClass.
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	956	changeClass isNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	957	enforcedNameSpace notNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	958	(isMeta := (changeClassName endsWith:' class')) ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	959	changeClassName := changeClassName withoutSuffix:' class'
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	960	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	961	(enforcedNameSpace at:changeClassName) notNil ifTrue:[
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	962	aChange nameSpace:enforcedNameSpace.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	963	changeClass := aChange changeClass.
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	964	].
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	965	]
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	966	].
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	967	changeSelector := aChange selector.
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	968	changeDelta := ChangeDeltaInformation
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	969	changeDeltaFor:changeSource
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	970	changeClass:changeClass
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	971	selector:changeSelector.
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	972	] ifFalse:[
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	973	changeDelta := ' '.
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	974	].
5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	975
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	976	"/ changeHeaderLines add:(aChange printString)
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	977	entry := MultiColListEntry new.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	978	entry tabulatorSpecification:tabSpec.
15013 5fd01b1235b7 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14981 diff changeset	979	entry colAt:1 put:changeDelta.
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	980	entry colAt:2 put:aChange printString.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	981	entry colAt:3 put:''. "/ changeType.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	982
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	983	(aChange respondsTo:#timeOfChangeIfKnown) ifTrue:[
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	984	(time := aChange timeOfChangeIfKnown) notNil ifTrue:[
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	985	entry colAt:4 put:(self timeStampPrintStringOf:time).
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	986	]
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	987	].
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	988	info := ChangesBrowser::ChangeInfo new
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	989	position:nil
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	990	chunk:changeSource
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	991	className:changeClassName
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	992	selector:changeSelector
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	993	headerLine:entry
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	994	timestamp:time
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	995	isFollowupChange:false.
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	996	changeInfoList add:info.
6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	997
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	998	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	999	anyChanges := false
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	1000	].
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	1001
18836 67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	1002	"Created: / 03-12-1995 / 18:02:39 / cg"
67bb6d503db5 #BUGFIX by cg Claus Gittinger <cg@exept.de> parents: 18833 diff changeset	1003	"Modified: / 23-06-2019 / 17:09:35 / Claus Gittinger"
30 205d53e91c52 Initial revision claus parents: diff changeset	1004	!
205d53e91c52 Initial revision claus parents: diff changeset	1005
3364 8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	1006	realClassNameOfChange:nr
15530 a08bc71b6062 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15529 diff changeset	1007	^ (changeSet at:nr) fullClassName "/ className.
3364 8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	1008
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	1009	"Created: / 5.11.2001 / 18:10:38 / cg"
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	1010	!
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	1011
30 205d53e91c52 Initial revision claus parents: diff changeset	1012	saveBackChanges
205d53e91c52 Initial revision claus parents: diff changeset	1013	"save back the change set"
205d53e91c52 Initial revision claus parents: diff changeset	1014
205d53e91c52 Initial revision claus parents: diff changeset	1015	[originalChangeSet isEmpty] whileFalse:[
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	1016	originalChangeSet removeLast
30 205d53e91c52 Initial revision claus parents: diff changeset	1017	].
205d53e91c52 Initial revision claus parents: diff changeset	1018	changeSet do:[:aChange \|
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	1019	originalChangeSet add:aChange
30 205d53e91c52 Initial revision claus parents: diff changeset	1020	]
205d53e91c52 Initial revision claus parents: diff changeset	1021	!
205d53e91c52 Initial revision claus parents: diff changeset	1022
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1023	selectorOfMethodChange:changeNr
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1024	^ (changeSet at:changeNr) selector
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1025
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1026	"Created: / 6.2.1998 / 13:28:20 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1027	"Modified: / 6.2.1998 / 13:29:59 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1028	!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	1029
30 205d53e91c52 Initial revision claus parents: diff changeset	1030	silentDeleteChange:changeNr
205d53e91c52 Initial revision claus parents: diff changeset	1031	"delete a change do not update changeListView"
205d53e91c52 Initial revision claus parents: diff changeset	1032
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1033	changeSet removeIndex:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1034	super silentDeleteChange:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1035
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1036	"Created: / 3.12.1995 / 18:14:17 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1037	"Modified: / 7.2.1998 / 19:57:57 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1038	!
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	1039
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1040	silentDeleteInternalChange:changeNr
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1041	"delete a change do not update changeListView"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1042
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1043	changeSet removeIndex:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1044	super silentDeleteInternalChange:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1045
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1046	"Modified: / 7.2.1998 / 19:44:45 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1047	"Created: / 7.2.1998 / 19:58:02 / cg"
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1048	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1049
3785 741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1050	sourceOfChange:changeNr
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1051	"answer a changes source"
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1052
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1053	\|change\|
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1054
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1055	change := changeSet at:changeNr.
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1056	change isNil ifTrue:[^nil].
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1057	^ change source
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1058
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1059	"Modified: / 7.2.1998 / 19:52:44 / cg"
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1060	!
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	1061
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1062	streamForChange:changeNr
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1063	"answer a stream for change"
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1064
4990 5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	1065	\|change str source\|
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1066
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1067	change := changeSet at:changeNr.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1068	change isNil ifTrue:[^nil].
14981 082b1709a172 class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 14970 diff changeset	1069	change isMethodDefinitionChange ifTrue:[
4430 665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1070	str := WriteStream on:''.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1071	str nextPutChunkSeparator.
14970 18587a0ffb8c class: ChangeSetBrowser Stefan Vogel <sv@exept.de> parents: 14940 diff changeset	1072	str nextPutAll:(change className , ' methodsFor:''' , (change methodCategory ? '* not categorized *') , '''').
4430 665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1073	str nextPutChunkSeparator.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1074	str cr.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1075	str nextPutAllAsChunk:change source.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1076	str nextPutChunkSeparator.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1077	str space.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1078	str nextPutChunkSeparator.
665173b18b94 oops - streamforchange was wrong (exclas) Claus Gittinger <cg@exept.de> parents: 4316 diff changeset	1079	str cr.
4990 5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	1080	source := str contents
5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	1081	] ifFalse:[
5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	1082	source := change source
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1083	].
4990 5eee183365ef * empty log message * Claus Gittinger <cg@exept.de> parents: 4942 diff changeset	1084	^ ReadStream on:source
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1085
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	1086	"Modified: / 7.2.1998 / 19:52:44 / cg"
30 205d53e91c52 Initial revision claus parents: diff changeset	1087	! !
205d53e91c52 Initial revision claus parents: diff changeset	1088
205d53e91c52 Initial revision claus parents: diff changeset	1089	!ChangeSetBrowser methodsFor:'user actions'!
205d53e91c52 Initial revision claus parents: diff changeset	1090
15017 e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1091	compareChange:changeNr showResult:doShowResult
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1092	\|change isSame outcome beep oldSource newSource showDiff d\|
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1093
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1094	change := changeSet at:changeNr.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1095	change isMethodCodeChange ifTrue:[
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1096	newSource := change source.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1097
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1098	isSame := self
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1099	compareMethodSource:newSource
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1100	withVersionInClass:change changeClass
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1101	into:[:outcomeResult :beepResult :oldSourceResult \|
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1102	outcome := outcomeResult.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1103	beep := beepResult.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1104	oldSource := oldSourceResult.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1105	].
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1106
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1107	isSame isNil ifTrue:[
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1108	showDiff := false.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1109	] ifFalse:[
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1110	showDiff := isSame not.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1111	].
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1112
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1113	doShowResult ifTrue:[
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1114	(showDiff and:[oldSource notNil and:[newSource notNil]]) ifTrue:[
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1115	d := DiffCodeView
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1116	openOn:oldSource label:(resources string:'Current version (in image)')
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1117	and:newSource label:(resources string:'Change version').
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1118	d label:'method differences'.
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1119	]
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1120	].
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1121	] ifFalse:[
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1122	super compareChange:changeNr showResult:doShowResult
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1123	].
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1124	!
e10d2620554f class: ChangeSetBrowser Claus Gittinger <cg@exept.de> parents: 15013 diff changeset	1125
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	1126	doInspectChange
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	1127	self withSelectedChangesDo:[:changeNr \|
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	1128	(changeSet at:changeNr) inspect
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	1129	].
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	1130	!
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	1131
30 205d53e91c52 Initial revision claus parents: diff changeset	1132	doSaveBack
205d53e91c52 Initial revision claus parents: diff changeset	1133	anyChanges ifTrue:[
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	1134	self saveBackChanges.
950b84ba89e6 * empty log message * claus parents: 40 diff changeset	1135	self doUpdate
30 205d53e91c52 Initial revision claus parents: diff changeset	1136	]
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1137	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1138
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1139	doUpdate
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1140	changeSet := OrderedCollection new.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1141	originalChangeSet notNil ifTrue:[
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1142	originalChangeSet do:[:aChange \|
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1143	changeSet add:aChange
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1144	].
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1145	].
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1146	super doUpdate
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1147
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1148	"Created: 3.12.1995 / 13:54:14 / cg"
4942 73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1149	!
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1150
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1151	updateDiffViewFor:changeNr
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1152	\|change class selector oldMethod newSource oldSource\|
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1153
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1154	change := changeSet at:changeNr.
8870 5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	1155	(change isMethodChange and:[change isMethodCodeChange]) ifTrue:[
4942 73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1156	newSource := change source.
8870 5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	1157	enforcedNameSpace notNil ifTrue:[
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	1158	class := enforcedNameSpace classNamed:change className.
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	1159	] ifFalse:[
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	1160	class := change changeClass.
5bd0d4eecb35 changed: Claus Gittinger <cg@exept.de> parents: 8869 diff changeset	1161	].
4942 73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1162	class notNil ifTrue:[
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1163	selector := change changeSelector.
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1164	selector notNil ifTrue:[
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1165	oldMethod := class compiledMethodAt:selector.
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1166	oldMethod notNil ifTrue:[
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1167	oldSource := oldMethod source.
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1168	diffView text1:(oldSource ? '') text2:(newSource ? '').
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1169	^ self.
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1170	]
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1171	].
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1172	]
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1173	].
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1174
73e7b528bf99 diff showing fixed Claus Gittinger <cg@exept.de> parents: 4807 diff changeset	1175	super updateDiffViewFor:changeNr.
30 205d53e91c52 Initial revision claus parents: diff changeset	1176	! !
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1177
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1178	!ChangeSetBrowser class methodsFor:'documentation'!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1179
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1180	version
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	1181	^ '$Header$'
8869 16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	1182	!
16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	1183
16335bcf0ac2 comment/format in: Claus Gittinger <cg@exept.de> parents: 8300 diff changeset	1184	version_CVS
16388 6721070c449c #OTHER by cg Claus Gittinger <cg@exept.de> parents: 15530 diff changeset	1185	^ '$Header$'
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	1186	! !
12600 29a26b712ceb timestamp printing extracted Claus Gittinger <cg@exept.de> parents: 9782 diff changeset	1187

author	Claus Gittinger <cg@exept.de>
	Sat, 13 Jul 2019 13:59:16 +0200
changeset 18894	1b99fefd5825
parent 18839	8603075897cb
child 18959	f93490ea4c60
permissions	-rw-r--r--