hg/stx-libtool: ChangeSetBrowser.st@213ae62f842e (annotated)

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

author	Claus Gittinger <cg@exept.de>
	Wed, 04 Feb 2015 19:08:15 +0100
changeset 15188	213ae62f842e
parent 15017	e10d2620554f
child 15529	cb1fb1b51362
permissions	-rw-r--r--