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

author	Claus Gittinger <cg@exept.de>
	Sun, 26 Jan 2003 15:10:32 +0100
changeset 4483	84f28a1e7875
parent 4430	665173b18b94
child 4807	a08a45f1277c
permissions	-rw-r--r--