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

author	Claus Gittinger <cg@exept.de>
	Mon, 03 Apr 2006 09:53:28 +0200
changeset 6760	83fb9efe5dd2
parent 6683	26f871e5e907
child 6766	3d83ccd2965d
permissions	-rw-r--r--