hg/stx-libtool: ChangeSetBrowser.st@a0d59a6735e2 (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'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	104	#translateLabel: true
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	105	#isVisible: #notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	106	#value: #doCompress
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	109	#label: 'Compress for Class'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	110	#translateLabel: true
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	111	#isVisible: #notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	112	#value: #doCompressClass
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	113	#enabled: #hasSelection
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'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	117	#translateLabel: true
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	118	#isVisible: #notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	119	#value: #doCompareAndCompress
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	126	#label: 'Fileout && Delete all Changes for Class'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	127	#translateLabel: true
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	128	#isVisible: #notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	129	#value: #doFileoutAndDeleteClassAll
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	130	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	133	#label: 'CheckIn && Delete all Changes for Class'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	134	#translateLabel: true
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	135	#isVisible: #notEditingClassSourceAndNotReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	136	#value: #doCheckinAndDeleteClassAll
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	137	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	144	#label: 'Save in...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	145	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	146	#value: #doSave
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	147	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	150	#label: 'Save to End in...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	151	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	152	#value: #doSaveRest
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	153	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	156	#label: 'Save for Class to End in...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	157	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	158	#value: #doSaveClassRest
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	159	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	162	#label: 'Save All for Class in...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	163	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	164	#value: #doSaveClassAll
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	165	#enabled: #hasSelection
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'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	172	#translateLabel: true
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	173	#isVisible: #notReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	174	#value: #doSaveBack
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'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	182	#translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	183	#isVisible: #notReadOnly
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	184	#value: #doUpdate
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'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	192	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	193	#value: #menuExit
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)'
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	208	#translateLabel: true
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	209	#value: #doUndoRemoveMethod
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)'
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	214	#translateLabel: true
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	215	#value: #doUndoMethodChange
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
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	219	#label: 'Undo'
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	220	#translateLabel: true
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	221	#value: #doUndoMethodChange
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	222	#enabled: false
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
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	229	#label: 'Apply'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	230	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	231	#value: #doApply
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	232	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	235	#label: 'Apply to End'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	236	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	237	#value: #doApplyRest
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	238	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	241	#label: 'Apply for Class to End'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	242	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	243	#value: #doApplyClassRest
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	244	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	247	#label: 'Apply All'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	248	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	249	#value: #doApplyAll
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	250	#enabled: #hasNoSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	256	#label: 'Delete'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	257	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	258	#isVisible: #notReadOnly
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	259	#value: #doDelete
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	260	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	263	#label: 'Delete to End'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	264	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	265	#isVisible: #notReadOnly
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	266	#value: #doDeleteRest
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	267	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	270	#label: 'Delete for Class to End'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	271	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	272	#isVisible: #notReadOnly
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	273	#value: #doDeleteClassRest
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	274	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	277	#label: 'Delete for Class from Begin'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	278	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	279	#isVisible: #notReadOnly
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	280	#value: #doDeleteClassFromBeginning
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	281	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	284	#label: 'Delete All for Class'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	285	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	286	#isVisible: #notReadOnly
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	287	#value: #doDeleteClassAll
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	288	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	291	#label: 'Delete All for Class && its Private Classes'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	292	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	293	#isVisible: #notReadOnly
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	294	#value: #doDeleteClassAndPrivateClassesAll
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	295	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	302	#label: 'Compare with Current'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	303	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	304	#value: #doCompare
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	305	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	308	#label: 'Browse'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	309	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	310	#value: #doBrowse
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	311	#enabled: #hasSelection
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
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	317	#label: 'Make Change a Patch'
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	318	#translateLabel: true
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	319	#value: #doMakePatch
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	320	#enabled: #hasSelection
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...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	335	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	336	#value: #findClass
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	339	#label: 'Previous for Class'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	340	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	341	#value: #findPreviousForClass
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	342	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	345	#label: 'Next for Class'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	346	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	347	#value: #findNextForClass
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	348	#enabled: #hasSelection
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...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	355	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	356	#value: #findSelector
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	359	#label: 'Previous for Selector'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	360	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	361	#value: #findPreviousForSelector
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	362	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	365	#label: 'Next for Selector'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	366	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	367	#value: #findNextForSelector
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	368	#enabled: #hasSelection
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...'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	375	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	376	#value: #findString
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	379	#label: 'Previous with String'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	380	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	381	#value: #findPreviousForString
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	382	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	385	#label: 'Next with String'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	386	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	387	#value: #findNextForString
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	388	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	394	#label: 'Previous Snapshot'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	395	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	396	#value: #findPreviousSnapshot
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	397	#enabled: #hasSelection
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	400	#label: 'Next Snapshot'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	401	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	402	#value: #findNextSnapshot
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	403	#enabled: #hasSelection
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
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	417	#label: 'Class'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	418	#translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	419	#value: #doBrowse
1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	420	#enabled: #hasSingleSelection
3203 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...'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	427	#translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	428	#value: #doBrowseSenders
3203 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...'
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	432	#translateLabel: true
3554 1ef7694bd41a * empty log message * Claus Gittinger <cg@exept.de> parents: 3392 diff changeset	433	#value: #doBrowseImplementors
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	434	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	435	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	436	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	437	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	438	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	439	)
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
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	461	#label: 'Apply in Original NameSpace'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	462	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	463	#indication: #applyInOriginalNameSpace
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	464	)
4279 1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	465	#(#MenuItem
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	466	#label: 'Apply in NameSpace...'
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	467	#translateLabel: true
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	468	#indication: #applyInNameSpace
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	469	)
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	470	#(#MenuItem
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	471	#label: 'Apply into Package...'
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	472	#translateLabel: true
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	473	#indication: #applyInPackage
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	474	)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	475	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	476	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	477	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	478	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	479	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	480	#(#MenuItem
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	481	#label: 'Help'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	482	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	483	#startGroup: #right
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	484	#submenu:
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	485	#(#Menu
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	486	#(
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	487	#(#MenuItem
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	488	#label: 'ChangesBrowser Documentation'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	489	#translateLabel: true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	490	#value: #openHTMLDocument:
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	491	#argument: 'tools/cbrowser/TOP.html'
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	492	)
3205 83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	493	#(#MenuItem
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	494	#label: '-'
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	495	)
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	496	#(#MenuItem
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	497	#label: 'About ChangesBrowser...'
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	498	#translateLabel: true
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	499	#value: #openAboutThisApplication
83631369b396 * empty log message * Claus Gittinger <cg@exept.de> parents: 3203 diff changeset	500	)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	501	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	502	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	503	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	504	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	505	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	506	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	507	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	508	nil
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	509	)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	510	! !
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	511
30 205d53e91c52 Initial revision claus parents: diff changeset	512	!ChangeSetBrowser methodsFor:'initialize / release'!
205d53e91c52 Initial revision claus parents: diff changeset	513
3392 2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	514	askIfChangesAreToBeWrittenBack
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	515	\|action\|
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	516
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	517	anyChanges ifFalse:[^ self].
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	518
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	519	action := OptionBox
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	520	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	521	label:'ChangesBrowser'
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	522	form:(WarningBox iconBitmap)
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	523	buttonLabels:(resources array:#('Cancel' 'Don''t Update' 'Update'))
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	524	values:#(#abort #ignore #save)
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	525	default:#save
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	526	onCancel:#abort.
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	527
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	528	action == #abort ifTrue:[^ self].
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	529	action == #save ifTrue:[
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	530	self saveBackChanges
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	531	].
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	532	!
2dae85e52160 changeSetBrowsers writeBack fixed (when closing) Claus Gittinger <cg@exept.de> parents: 3364 diff changeset	533
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	534	changeListMenu
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	535	<resource: #programMenu >
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	536
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	537	\|items m\|
30 205d53e91c52 Initial revision claus parents: diff changeset	538
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	539	items := #(
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	540	('Apply' doApply)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	541	('Apply to End' doApplyRest)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	542	('Apply All changes' doApplyAll)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	543	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	544	('Delete' doDelete)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	545	('Delete to End' doDeleteRest)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	546	('Delete for Class to End' doDeleteClassRest)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	547	('Delete All for Class' doDeleteClassAll)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	548	('-' )
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	549	"/ ('Compress' doCompress)
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	550	('Compare with Current' doCompare)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	551	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	552	('Make Change a Patch' doMakePatch)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	553	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	554	('Saveback ChangeSet' doSaveBack)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	555	('-' )
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	556	('Update' doUpdate)
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	557	).
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	558
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	559	device ctrlDown ifTrue:[
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	560	items := #(
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	561	('Inspect Change' doInspectChange)
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	562	).
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	563	].
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	564
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	565	m := PopUpMenu
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	566	itemList:items
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	567	resources:resources.
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	568
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	569	readOnly == true ifTrue:[
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	570	m disableAll:#(doDelete doDeleteRest doDeleteClassRest doDeleteClassAll
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	571	doDeleteClassAndPrivateClassesAll doCompress
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	572	doFileoutAndDeleteClassAll doCheckinAndDeleteClassAll
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	573	doWriteBack doSaveBack doUpdate
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	574	doApplyAll doApplyRest)
b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	575	].
3228 678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	576
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	577	self hasSelection ifTrue:[
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	578	m disable:#doApplyAll
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	579	].
678eff02c00f menu Claus Gittinger <cg@exept.de> parents: 3224 diff changeset	580
3224 b2f3a2a0bc80 readOnly flag added (for method-versions browsing) Claus Gittinger <cg@exept.de> parents: 3212 diff changeset	581	^ m
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	582
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	583	"Created: 3.12.1995 / 18:06:35 / cg"
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	584	"Modified: 3.12.1995 / 18:13:06 / cg"
30 205d53e91c52 Initial revision claus parents: diff changeset	585	! !
205d53e91c52 Initial revision claus parents: diff changeset	586
3857 b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	587	!ChangeSetBrowser methodsFor:'menu aspects'!
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	588
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	589	hasNotUndoableChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	590	^ (self hasUndoableMethodChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	591	or:[self hasUndoableRemoveMethodChangeSelected]) not
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	592	!
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	593
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	594	hasUndoableMethodChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	595	\|nr chg\|
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	self hasSingleSelection ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	598	nr := self theSingleSelection.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	599	nr notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	600	chg := changeSet at:nr.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	601	chg isMethodChange ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	602	chg isMethodRemoveChange ifFalse:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	603	chg previousVersion notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	604	^ true
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	605	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	606	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	607	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	608	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	609	].
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	610	^ false
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	611	!
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	612
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	613	hasUndoableRemoveMethodChangeSelected
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	614	\|nr chg\|
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	615
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	616	self hasSingleSelection ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	617	nr := self theSingleSelection.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	618	nr notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	619	chg := changeSet at:nr.
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	620	chg isMethodRemoveChange ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	621	chg previousVersion notNil ifTrue:[
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	622	^ true
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	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	625	]
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	626	].
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	627	^ false
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	628	! !
b325617f6771 undo remove method added Claus Gittinger <cg@exept.de> parents: 3785 diff changeset	629
2862 ae3f14623d62 default open is on the current changeSet Claus Gittinger <cg@exept.de> parents: 1474 diff changeset	630	!ChangeSetBrowser methodsFor:'private'!
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	631
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	632	applyChange:changeNr
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	633	"fileIn a change"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	634
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	635	\|nm applyAction\|
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	636
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	637	nm := self classNameOfChange:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	638	nm notNil ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	639	\|cls\|
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	640
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	641	cls := Smalltalk at:(nm asSymbol) ifAbsent:[].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	642	cls notNil ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	643	cls isLoaded ifFalse:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	644	cls autoload
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	645	]
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	646	]
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	647	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	648
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	649	changeNrProcessed := changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	650
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	651	applyAction := [
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	652	\|sig\|
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	653
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	654	(skipSignal notNil) ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	655	sig := skipSignal
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	656	] ifFalse:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	657	sig := Object abortSignal
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	658	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	659	sig catch:[
4279 1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	660
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	661	Parser::ParseError handle:[:ex \|
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	662	ex signal == Parser::UndefinedSuperclassError ifTrue:[
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	663	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	664	] ifFalse:[
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	665	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	666	]
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	667	] do:[
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	668	(changeSet at:changeNr) apply.
1fbb8fa63669 care for parser errors when applying Claus Gittinger <cg@exept.de> parents: 4232 diff changeset	669	]
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	670	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	671	changeNrProcessed := nil.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	672	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	673
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	674	"/
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	675	"/ if I am showing the changes file, dont update it
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	676	"/
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	677	changeFileName = ObjectMemory nameForChanges ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	678	Class withoutUpdatingChangesDo:applyAction
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	679	] ifFalse:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	680	applyAction value
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	681	].
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	682
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	683	"Created: / 7.2.1998 / 19:32:35 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	684	"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	685	!
30 205d53e91c52 Initial revision claus parents: diff changeset	686
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	687	changeIsFollowupMethodChange:changeNr
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	688	^ false
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	689
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	690	"Created: / 6.2.1998 / 13:04:59 / cg"
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	691	"Modified: / 7.2.1998 / 19:28:52 / cg"
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	692	!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	693
30 205d53e91c52 Initial revision claus parents: diff changeset	694	changeSet:aChangeSet
205d53e91c52 Initial revision claus parents: diff changeset	695	originalChangeSet := aChangeSet.
205d53e91c52 Initial revision claus parents: diff changeset	696	changeSet := OrderedCollection new.
106 f4eb10b3b463 . claus parents: 52 diff changeset	697	originalChangeSet notNil ifTrue:[
f4eb10b3b463 . claus parents: 52 diff changeset	698	originalChangeSet do:[:aChange \|
f4eb10b3b463 . claus parents: 52 diff changeset	699	changeSet add:aChange
f4eb10b3b463 . claus parents: 52 diff changeset	700	].
30 205d53e91c52 Initial revision claus parents: diff changeset	701	].
205d53e91c52 Initial revision claus parents: diff changeset	702	!
205d53e91c52 Initial revision claus parents: diff changeset	703
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	704	checkIfFileHasChanged
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	705	Processor removeTimedBlock:checkBlock.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	706	changeSet size ~= originalChangeSet size ifTrue:[
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	707	self newLabel:'(outdated)'.
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	708	autoUpdate value ifTrue:[
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	709	self doUpdate
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	710	]
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	711	] ifFalse:[
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	712	self newLabel:''
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	713	].
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	714	Processor addTimedBlock:checkBlock afterSeconds:5.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	715
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	716	"Created: 3.12.1995 / 13:52:30 / cg"
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	717	"Modified: 3.12.1995 / 14:15:06 / cg"
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	718	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	719
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	720	fullClassNameOfChange:nr
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	721	^ (changeSet at:nr) className
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	722
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	723	"Created: / 6.2.1998 / 13:02:25 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	724	"Modified: / 6.2.1998 / 13:07:02 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	725	!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	726
3203 44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	727	isChangeSetBrowser
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	728	^ true
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	729	!
44ac975f0993 pullDownMenu Claus Gittinger <cg@exept.de> parents: 2862 diff changeset	730
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	731	numberOfChanges
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	732	^ changeSet size
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	733
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	734	"Created: 3.12.1995 / 18:15:56 / cg"
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	735	!
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	736
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	737	queryCloseText
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	738	^ 'Quit without updating changeSet ?'
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	739	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	740
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	741	readChangesFileInBackground:dummy
30 205d53e91c52 Initial revision claus parents: diff changeset	742	"read the changeSet, create a list of header-lines"
205d53e91c52 Initial revision claus parents: diff changeset	743
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	744	\|tabSpec\|
30 205d53e91c52 Initial revision claus parents: diff changeset	745
205d53e91c52 Initial revision claus parents: diff changeset	746	self withCursor:(Cursor read) do:[
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	747	changeSet size == 0 ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	748	changeFileName notNil ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	749	changeSet := self class readXMLChangesFromFile:changeFileName inBackground:false.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	750	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	751	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	752	changeSet size == 0 ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	753	^ nil
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	754	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	755
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	756	tabSpec := TabulatorSpecification new.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	757	tabSpec unit:#inch.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	758	tabSpec positions:#(-1 0 5 8.5 ).
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	759	" +/- cls>>sel type info"
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	760	tabSpec align: #(#left #left #left #left).
30 205d53e91c52 Initial revision claus parents: diff changeset	761
3673 47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	762	changeChunks := OrderedCollection new.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	763	changeHeaderLines := OrderedCollection new.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	764
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	765	changeSet do:[:aChange \| \|entry\|
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	766	changeChunks add:(aChange printString).
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	767	"/ changeHeaderLines add:(aChange printString)
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	768	entry := MultiColListEntry new.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	769	entry tabulatorSpecification:tabSpec.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	770	entry colAt:1 put:''. "/ changeDelta.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	771	entry colAt:2 put:aChange printString.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	772	entry colAt:3 put:''. "/ changeType.
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	773
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	774	(aChange respondsTo:#timeOfChangeIfKnown) ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	775	aChange timeOfChangeIfKnown notNil ifTrue:[
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	776	entry colAt:4 put:(aChange timeOfChangeIfKnown printString).
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	777	]
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	778	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	779	changeHeaderLines add:entry
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	780	].
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	781	changeClassNames := OrderedCollection new:(changeChunks size).
47f43ef77e5b timestamp Claus Gittinger <cg@exept.de> parents: 3554 diff changeset	782	anyChanges := false
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	783	].
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	784	self newLabel:''.
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	785
1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	786	"Created: 3.12.1995 / 18:02:39 / cg"
30 205d53e91c52 Initial revision claus parents: diff changeset	787	!
205d53e91c52 Initial revision claus parents: diff changeset	788
3364 8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	789	realClassNameOfChange:nr
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	790	^ (changeSet at:nr) className.
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	791
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	792	"Created: / 5.11.2001 / 18:10:38 / cg"
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	793	!
8276ce475f4c className for metaClasses Claus Gittinger <cg@exept.de> parents: 3276 diff changeset	794
30 205d53e91c52 Initial revision claus parents: diff changeset	795	saveBackChanges
205d53e91c52 Initial revision claus parents: diff changeset	796	"save back the change set"
205d53e91c52 Initial revision claus parents: diff changeset	797
205d53e91c52 Initial revision claus parents: diff changeset	798	[originalChangeSet isEmpty] whileFalse:[
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	799	originalChangeSet removeLast
30 205d53e91c52 Initial revision claus parents: diff changeset	800	].
205d53e91c52 Initial revision claus parents: diff changeset	801	changeSet do:[:aChange \|
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	802	originalChangeSet add:aChange
30 205d53e91c52 Initial revision claus parents: diff changeset	803	]
205d53e91c52 Initial revision claus parents: diff changeset	804	!
205d53e91c52 Initial revision claus parents: diff changeset	805
1470 6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	806	selectorOfMethodChange:changeNr
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	807	^ (changeSet at:changeNr) selector
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	808
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	809	"Created: / 6.2.1998 / 13:28:20 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	810	"Modified: / 6.2.1998 / 13:29:59 / cg"
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	811	!
6c0fc11207fe checkin from browser Claus Gittinger <cg@exept.de> parents: 224 diff changeset	812
30 205d53e91c52 Initial revision claus parents: diff changeset	813	silentDeleteChange:changeNr
205d53e91c52 Initial revision claus parents: diff changeset	814	"delete a change do not update changeListView"
205d53e91c52 Initial revision claus parents: diff changeset	815
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	816	changeSet removeIndex:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	817	super silentDeleteChange:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	818
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	819	"Created: / 3.12.1995 / 18:14:17 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	820	"Modified: / 7.2.1998 / 19:57:57 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	821	!
224 1ca3d2486f59 misc fixes Claus Gittinger <cg@exept.de> parents: 222 diff changeset	822
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	823	silentDeleteInternalChange:changeNr
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	824	"delete a change do not update changeListView"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	825
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	826	changeSet removeIndex:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	827	super silentDeleteInternalChange:changeNr.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	828
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	829	"Modified: / 7.2.1998 / 19:44:45 / cg"
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	830	"Created: / 7.2.1998 / 19:58:02 / cg"
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	831	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	832
3785 741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	833	sourceOfChange:changeNr
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	834	"answer a changes source"
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	835
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	836	\|change\|
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	837
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	838	change := changeSet at:changeNr.
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	839	change isNil ifTrue:[^nil].
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	840	^ change source
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	841
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	842	"Modified: / 7.2.1998 / 19:52:44 / cg"
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	843	!
741890c870a4 oops - exclas in changeSetBrowsers method source Claus Gittinger <cg@exept.de> parents: 3673 diff changeset	844
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	845	streamForChange:changeNr
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	846	"answer a stream for change"
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	847
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	848	\|change s\|
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	change := changeSet at:changeNr.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	851	change isNil ifTrue:[^nil].
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	852	change isMethodChange ifTrue:[
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	853	s := '!!' , change className ,
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	854	' methodsFor:''' , change methodCategory , '''!!\' withCRs ,
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	855	change source , '\' withCRs , '!! !!\' withCRs.
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	856	^ ReadStream on:s
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	857	].
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	858	^ ReadStream on:(change source)
1474 a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	859
a791314e2e1d fixes Claus Gittinger <cg@exept.de> parents: 1470 diff changeset	860	"Modified: / 7.2.1998 / 19:52:44 / cg"
30 205d53e91c52 Initial revision claus parents: diff changeset	861	! !
205d53e91c52 Initial revision claus parents: diff changeset	862
205d53e91c52 Initial revision claus parents: diff changeset	863	!ChangeSetBrowser methodsFor:'user actions'!
205d53e91c52 Initial revision claus parents: diff changeset	864
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	865	doInspectChange
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	866	self withSelectedChangesDo:[:changeNr \|
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	867	(changeSet at:changeNr) inspect
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	868	].
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	869	!
a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	870
30 205d53e91c52 Initial revision claus parents: diff changeset	871	doSaveBack
205d53e91c52 Initial revision claus parents: diff changeset	872	anyChanges ifTrue:[
45 950b84ba89e6 * empty log message * claus parents: 40 diff changeset	873	self saveBackChanges.
950b84ba89e6 * empty log message * claus parents: 40 diff changeset	874	self doUpdate
30 205d53e91c52 Initial revision claus parents: diff changeset	875	]
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	876	!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	877
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	878	doUpdate
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	879	changeSet := OrderedCollection new.
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	880	originalChangeSet notNil ifTrue:[
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	881	originalChangeSet do:[:aChange \|
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	882	changeSet add:aChange
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	883	].
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	884	].
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	885	super doUpdate
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	886
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	887	"Created: 3.12.1995 / 13:54:14 / cg"
30 205d53e91c52 Initial revision claus parents: diff changeset	888	! !
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	889
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	890	!ChangeSetBrowser class methodsFor:'documentation'!
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	891
6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	892	version
4316 a0d59a6735e2 ctrl-menu Claus Gittinger <cg@exept.de> parents: 4279 diff changeset	893	^ '$Header: /cvs/stx/stx/libtool/ChangeSetBrowser.st,v 1.30 2002-11-26 13:53:50 cg Exp $'
222 6775cd66cab0 fixing Claus Gittinger <cg@exept.de> parents: 165 diff changeset	894	! !

author	Claus Gittinger <cg@exept.de>
	Tue, 26 Nov 2002 14:53:50 +0100
changeset 4316	a0d59a6735e2
parent 4279	1fbb8fa63669
child 4430	665173b18b94
permissions	-rw-r--r--