hg/stx-libtool: BrowserView.st@b85865124251 (annotated)

74 f2c56efa3599 Initial revision claus parents: diff changeset	1	"
f2c56efa3599 Initial revision claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3	All Rights Reserved
74 f2c56efa3599 Initial revision claus parents: diff changeset	4
f2c56efa3599 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
f2c56efa3599 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
f2c56efa3599 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
f2c56efa3599 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
f2c56efa3599 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
f2c56efa3599 Initial revision claus parents: diff changeset	10	hereby transferred.
f2c56efa3599 Initial revision claus parents: diff changeset	11	"
f2c56efa3599 Initial revision claus parents: diff changeset	12
f2c56efa3599 Initial revision claus parents: diff changeset	13	StandardSystemView subclass:#BrowserView
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	14	instanceVariableNames:'classCategoryListView classListView methodCategoryListView
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	15	methodListView classMethodListView codeView classToggle
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	16	instanceToggle currentNamespace currentClassCategory
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	17	currentClassHierarchy currentClass currentMethodCategory
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	18	currentMethod currentSelector showInstance actualClass fullClass
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	19	lastMethodCategory aspect variableListView fullProtocol
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	20	lockUpdates autoSearch myLabel acceptClass lastSourceLogMessage
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	21	lastCategory lastModule lastPackage lastMethodMoveClass
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	22	namespaceList allNamespaces gotClassList classList selectorList
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	23	showAllNamespaces'
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	24	classVariableNames:'CheckForInstancesWhenRemovingClasses RememberAspect DefaultIcon
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	25	StopIcon TraceIcon TimeIcon'
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	26	poolDictionaries:''
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	27	category:'Interface-Browsers'
74 f2c56efa3599 Initial revision claus parents: diff changeset	28	!
f2c56efa3599 Initial revision claus parents: diff changeset	29
759 8d667c66af50 checkin from browser Claus Gittinger <cg@exept.de> parents: 758 diff changeset	30	!BrowserView class methodsFor:'documentation'!
74 f2c56efa3599 Initial revision claus parents: diff changeset	31
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	32	copyright
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	33	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	34	COPYRIGHT (c) 1989 by Claus Gittinger
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	35	All Rights Reserved
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	36
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	37	This software is furnished under a license and may be used
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	38	only in accordance with the terms of that license and with the
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	39	inclusion of the above copyright notice. This software may not
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	40	be provided or otherwise made available to, or used by, any
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	41	other person. No title to or ownership of the software is
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	42	hereby transferred.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	43	"
165 df29ee4514c1 uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 161 diff changeset	44	!
74 f2c56efa3599 Initial revision claus parents: diff changeset	45
f2c56efa3599 Initial revision claus parents: diff changeset	46	documentation
f2c56efa3599 Initial revision claus parents: diff changeset	47	"
f2c56efa3599 Initial revision claus parents: diff changeset	48	this class implements all kinds of class browsers.
f2c56efa3599 Initial revision claus parents: diff changeset	49	Typically, it is started with 'SystemBrowser open', but there are many other
f2c56efa3599 Initial revision claus parents: diff changeset	50	startup messages, to launch special browsers.
f2c56efa3599 Initial revision claus parents: diff changeset	51	See the categories 'startup' and 'special search startup' in the classes
f2c56efa3599 Initial revision claus parents: diff changeset	52	protocol.
f2c56efa3599 Initial revision claus parents: diff changeset	53
f2c56efa3599 Initial revision claus parents: diff changeset	54	Alse, see the extra document 'doc/misc/sbrowser.doc' or the HTML online doc
f2c56efa3599 Initial revision claus parents: diff changeset	55	for how to use the browser.
f2c56efa3599 Initial revision claus parents: diff changeset	56
f2c56efa3599 Initial revision claus parents: diff changeset	57	written winter 89 by claus
106 f4eb10b3b463 . claus parents: 105 diff changeset	58
f4eb10b3b463 . claus parents: 105 diff changeset	59	Notice: SystemBrowser is currently being rewritten to be an instance
f4eb10b3b463 . claus parents: 105 diff changeset	60	of ApplicationModel - this transition is not yet complete and you see
f4eb10b3b463 . claus parents: 105 diff changeset	61	here intermediate versions of BrowserView/SystemBrowser.
f4eb10b3b463 . claus parents: 105 diff changeset	62	All action is (currently) still done here in BrowserView, although the
f4eb10b3b463 . claus parents: 105 diff changeset	63	SystemBrowsers class methods are used to startup a browser.
f4eb10b3b463 . claus parents: 105 diff changeset	64	This will certainly change ...
509 8ccb7c3d6726 documentation Claus Gittinger <cg@exept.de> parents: 506 diff changeset	65
8ccb7c3d6726 documentation Claus Gittinger <cg@exept.de> parents: 506 diff changeset	66	[author:]
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	67	Claus Gittinger
74 f2c56efa3599 Initial revision claus parents: diff changeset	68	"
201 3331e9abc9f0 more features & checkin from browser Claus Gittinger <cg@exept.de> parents: 199 diff changeset	69	! !
74 f2c56efa3599 Initial revision claus parents: diff changeset	70
759 8d667c66af50 checkin from browser Claus Gittinger <cg@exept.de> parents: 758 diff changeset	71	!BrowserView class methodsFor:'initialization'!
74 f2c56efa3599 Initial revision claus parents: diff changeset	72
f2c56efa3599 Initial revision claus parents: diff changeset	73	initialize
f2c56efa3599 Initial revision claus parents: diff changeset	74	"Browser configuration;
f2c56efa3599 Initial revision claus parents: diff changeset	75	(values can be changed from your private startup file)"
f2c56efa3599 Initial revision claus parents: diff changeset	76
f2c56efa3599 Initial revision claus parents: diff changeset	77	"
f2c56efa3599 Initial revision claus parents: diff changeset	78	setting this to false, the removeClass function will remove
f2c56efa3599 Initial revision claus parents: diff changeset	79	classes WITHOUT checking for instances. Otherwise,
f2c56efa3599 Initial revision claus parents: diff changeset	80	it will check and let you confirm in case there are instances.
f2c56efa3599 Initial revision claus parents: diff changeset	81	Checking for instances may be a bit time consuming, though.
f2c56efa3599 Initial revision claus parents: diff changeset	82	The default is true - therefore, it will check
f2c56efa3599 Initial revision claus parents: diff changeset	83	"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	84	CheckForInstancesWhenRemovingClasses := true.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	85
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	86	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	87	setting this to true makes the browser remember the aspect shown
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	88	in the classList and show this aspect when a new class is selected.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	89	If false, it always switches to the classes definition
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	90	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	91	RememberAspect := true.
74 f2c56efa3599 Initial revision claus parents: diff changeset	92
f2c56efa3599 Initial revision claus parents: diff changeset	93	"
f2c56efa3599 Initial revision claus parents: diff changeset	94	CheckForInstancesWhenRemovingClasses := true
f2c56efa3599 Initial revision claus parents: diff changeset	95	CheckForInstancesWhenRemovingClasses := false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	96	RememberAspect := true
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	97	RememberAspect := false
74 f2c56efa3599 Initial revision claus parents: diff changeset	98	"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	99
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	100	"Created: 23.11.1995 / 11:35:58 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	101	"Modified: 23.11.1995 / 11:36:34 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	102	! !
f2c56efa3599 Initial revision claus parents: diff changeset	103
759 8d667c66af50 checkin from browser Claus Gittinger <cg@exept.de> parents: 758 diff changeset	104	!BrowserView class methodsFor:'cleanup'!
486 fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	105
fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	106	lowSpaceCleanup
fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	107	DefaultIcon := nil
fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	108
fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	109	"Created: 18.4.1996 / 16:46:40 / cg"
fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	110	! !
fb6c24e0123c added lowspace cleanup Claus Gittinger <cg@exept.de> parents: 484 diff changeset	111
759 8d667c66af50 checkin from browser Claus Gittinger <cg@exept.de> parents: 758 diff changeset	112	!BrowserView class methodsFor:'defaults'!
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	113
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	114	defaultIcon
1149 33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	115	"return the browsers default window icon"
33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	116
1288 9f6e0e8c3ab8 fixed icon Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	117	<resource: #style (#SYSTEMBROWSER_ICON #SYSTEMBROWSER_ICON_FILE)>
1149 33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	118
33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	119	\|nm i\|
33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	120
33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	121	(i := DefaultIcon) isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	122	i := self classResources at:'SYSTEMBROWSER_ICON' default:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	123	i isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	124	nm := ClassResources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	125	i := Image fromFile:nm resolution:100.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	126	i isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	127	i := Image fromFile:('bitmaps/' , nm) resolution:100.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	128	i isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	129	i := StandardSystemView defaultIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	130	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	131	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	132	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	133	i notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	134	DefaultIcon := i := i on:Display
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	135	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	136	].
1149 33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	137	^ i
33fcc586c309 defaultIcon improved Claus Gittinger <cg@exept.de> parents: 1139 diff changeset	138
1083 dee24d07aa75 allow icon to be specified in resource file. Claus Gittinger <cg@exept.de> parents: 1080 diff changeset	139	"Modified: 19.3.1997 / 20:48:34 / ca"
1288 9f6e0e8c3ab8 fixed icon Claus Gittinger <cg@exept.de> parents: 1282 diff changeset	140	"Modified: 15.8.1997 / 15:29:16 / cg"
1126 eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	141	!
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	142
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	143	stopIcon
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	144	"answer an icon to mark breakPointed methods"
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	145
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	146	\|stopIcon\|
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	147
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	148	StopIcon notNil ifTrue:[^ StopIcon].
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	149
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	150	stopIcon := Depth1Image
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	151	width:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	152	height:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	153	fromArray:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	154	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	155	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	156	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	157	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	158	2r00111110 2r01111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	159	2r01111110 2r01111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	160	2r01111110 2r01111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	161	2r01111110 2r01111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	162	2r01111110 2r01111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	163	2r01111110 2r01111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	164	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	165	2r00111110 2r01111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	166	2r00011110 2r01111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	167	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	168	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	169	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	170	).
1161 4130c98f3268 dont update codeView twice when changing classes. Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	171	stopIcon mask:(ImageMask
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	172	width:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	173	height:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	174	fromArray:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	175	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	176	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	177	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	178	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	179	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	180	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	181	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	182	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	183	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	184	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	185	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	186	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	187	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	188	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	189	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	190	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	191	)).
1135 60b601b03082 give maskedPixelsAre0 hint. Claus Gittinger <cg@exept.de> parents: 1134 diff changeset	192	stopIcon maskedPixelsAre0:true.
1126 eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	193	stopIcon colorMap:(Array with:Color white with:Color red).
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	194	StopIcon := stopIcon.
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	195	^ stopIcon
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	196
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	197	"Created: 7.4.1997 / 17:31:23 / cg"
1161 4130c98f3268 dont update codeView twice when changing classes. Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	198	"Modified: 22.4.1997 / 14:18:23 / cg"
1126 eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	199	!
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	200
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	201	timeIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	202	"answer an icon to mark timed methods"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	203
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	204	\|timeIcon\|
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	205
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	206	TimeIcon notNil ifTrue:[^ TimeIcon].
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	207
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	208	timeIcon := Depth1Image
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	209	width:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	210	height:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	211	fromArray:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	212	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	213	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	214	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	215	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	216	2r00011110 2r01111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	217	2r00111110 2r01111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	218	2r00111110 2r01111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	219	2r00111110 2r00000100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	220	2r00111110 2r00000100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	221	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	222	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	223	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	224	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	225	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	226	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	227	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	228	).
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	229
1161 4130c98f3268 dont update codeView twice when changing classes. Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	230	timeIcon mask:(ImageMask
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	231	width:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	232	height:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	233	fromArray:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	234	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	235	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	236	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	237	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	238	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	239	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	240	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	241	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	242	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	243	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	244	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	245	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	246	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	247	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	248	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	249	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	250	)).
1135 60b601b03082 give maskedPixelsAre0 hint. Claus Gittinger <cg@exept.de> parents: 1134 diff changeset	251	timeIcon maskedPixelsAre0:true.
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	252	timeIcon colorMap:(Array with:Color black with:Color white).
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	253	TimeIcon := timeIcon.
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	254	^ timeIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	255
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	256	"Created: 11.4.1997 / 17:01:55 / cg"
1161 4130c98f3268 dont update codeView twice when changing classes. Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	257	"Modified: 22.4.1997 / 14:18:28 / cg"
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	258	!
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	259
1126 eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	260	traceIcon
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	261	"answer an icon to mark traced methods"
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	262
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	263	\|traceIcon\|
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	264
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	265	TraceIcon notNil ifTrue:[^ TraceIcon].
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	266
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	267	traceIcon := Depth1Image
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	268	width:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	269	height:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	270	fromArray:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	271	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	272	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	273	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	274	2r00110000 2r00001100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	275	2r00110000 2r00001100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	276	2r00011000 2r00011000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	277	2r00011000 2r00011000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	278	2r00001100 2r00110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	279	2r00001100 2r00110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	280	2r00000110 2r01100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	281	2r00000110 2r01100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	282	2r00000011 2r11000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	283	2r00000011 2r11000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	284	2r00000001 2r10000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	285	2r00000001 2r10000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	286	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	287	).
1161 4130c98f3268 dont update codeView twice when changing classes. Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	288	traceIcon mask:(ImageMask
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	289	width:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	290	height:16
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	291	fromArray:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	292	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	293	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	294	2r01111111 2r11111110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	295	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	296	2r00111111 2r11111100
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	297	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	298	2r00011111 2r11111000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	299	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	300	2r00001111 2r11110000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	301	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	302	2r00000111 2r11100000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	303	2r00000011 2r11000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	304	2r00000011 2r11000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	305	2r00000001 2r10000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	306	2r00000001 2r10000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	307	2r00000000 2r00000000
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	308	)).
1135 60b601b03082 give maskedPixelsAre0 hint. Claus Gittinger <cg@exept.de> parents: 1134 diff changeset	309	traceIcon maskedPixelsAre0:true.
1126 eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	310	traceIcon colorMap:(Array with:Color white with:Color red).
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	311	TraceIcon := traceIcon.
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	312	^ traceIcon
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	313
eb49503214f8 moved isBreakPointed / isTrapped queries into method Claus Gittinger <cg@exept.de> parents: 1098 diff changeset	314	"Created: 7.4.1997 / 17:31:58 / cg"
1161 4130c98f3268 dont update codeView twice when changing classes. Claus Gittinger <cg@exept.de> parents: 1155 diff changeset	315	"Modified: 22.4.1997 / 14:18:33 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	316	! !
f2c56efa3599 Initial revision claus parents: diff changeset	317
132 9bf0c15113f2 . claus parents: 131 diff changeset	318	!BrowserView methodsFor:'change & update'!
74 f2c56efa3599 Initial revision claus parents: diff changeset	319
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	320	delayedUpdate:something with:someArgument from:changedObject
273 0fc84937f240 check oldMethod in method-update notification Claus Gittinger <cg@exept.de> parents: 264 diff changeset	321	\|list selector oldMethod\|
93 dda97353e775 . claus parents: 92 diff changeset	322
74 f2c56efa3599 Initial revision claus parents: diff changeset	323	(changedObject == Smalltalk) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	324	something == #methodInClassRemoved ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	325	"/ ignored; I am dependent of individual class update messages
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	326	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	327	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	328	something == #methodInClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	329	"/ ignored; I am dependent of individual class update messages
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	330	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	331	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	332
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	333	self updateNamespaceList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	334
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	335	something == #newClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	336	(currentClass notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	337	and:[someArgument name = currentClass name]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	338	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	339	the current class has changed
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	340	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	341	(aspect == #definition
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	342	and:[codeView modified not]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	343	self refetchClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	344	self classSelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	345	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	346	self updateClassListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	347	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	348	self warnLabel:'the selected class has changed'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	349	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	350
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	351	((someArgument category = currentClassCategory)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	352	or:[currentClassCategory notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	353	and:[currentClassCategory startsWith:'*']]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	354	self updateClassListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	355	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	356
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	357	someArgument category ~= currentClassCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	358	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	359	category new ?
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	360	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	361	(classCategoryListView notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	362	and:[(list := classCategoryListView list) notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	363	and:[(list includes:someArgument category) not]])
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	364	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	365	self updateClassCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	366	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	367	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	368	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	369	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	370
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	371	something == #classRemove ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	372	someArgument == currentClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	373	self warnLabel:'the selected class was removed'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	374	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	375	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	376	" fall into general update "
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	377	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	378
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	379	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	380	any other (unknown) change
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	381	with the Smalltalk dictionary ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	382	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	383	self updateClassCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	384	self updateClassListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	385	^ self
74 f2c56efa3599 Initial revision claus parents: diff changeset	386	].
f2c56efa3599 Initial revision claus parents: diff changeset	387
f2c56efa3599 Initial revision claus parents: diff changeset	388	changedObject isBehavior ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	389	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	390	"/ its a class, that has changed
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	391	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	392	fullClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	393	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	394	"/ full-class browser ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	395	"/ (must check for both class and metaclass changes)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	396	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	397	(currentClass == changedObject
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	398	or:[currentClass class == changedObject]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	399	self warnLabel:'class was changed - the code shown may be obsolete'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	400	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	401	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	402	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	403
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	404	(currentClass notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	405	and:[changedObject name = currentClass name]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	406	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	407	"/ its the current class that has changed
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	408	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	409	((something == #methodDictionary)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	410	or:[something == #methodTrap
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	411	or:[something == #methodPrivacy]]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	412
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	413	"/ new feature: changeArg may be an array consisting of
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	414	"/ the selector and the oldMethod
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	415
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	416	someArgument isArray ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	417	oldMethod := someArgument at:2.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	418	selector := someArgument at:1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	419	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	420	selector := someArgument
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	421	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	422
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	423	(selector isSymbol) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	424	\|changedMethod s1 s2 oldMethodSelection oldMethodCategorySelection\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	425
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	426	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	427	the method with selector was changed or removed
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	428	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	429	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	430	oldMethodSelection := methodListView selection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	431	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	432	(something ~~ #methodTrap
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	433	and:[something ~~ #methodPrivacy]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	434	methodCategoryListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	435	oldMethodCategorySelection := methodCategoryListView selection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	436	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	437	methodCategoryListView selection:oldMethodCategorySelection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	438	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	439	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	440	self updateMethodListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	441	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	442	methodListView setSelection:oldMethodSelection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	443	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	444
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	445	classMethodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	446	oldMethodSelection := classMethodListView selection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	447	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	448	classMethodListView selection:oldMethodSelection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	449	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	450
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	451	selector == currentSelector ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	452	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	453	special care here: the currently shown method has been
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	454	changed somehow in another browser (or via fileIn)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	455	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	456	changedMethod := currentClass compiledMethodAt:currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	457	changedMethod isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	458	self warnLabel:'the method shown was removed'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	459	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	460	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	461	"compare the source codes"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	462	currentMethod notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	463	s1 := changedMethod source asString asCollectionOfLines copy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	464	[s1 last isEmpty] whileTrue:[s1 removeLast].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	465	s2 := codeView contents asCollectionOfLines copy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	466	[s2 last isEmpty] whileTrue:[s2 removeLast].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	467	s1 = s2 ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	468	self warnLabel:'method has changed - the code shown may be obsolete'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	469	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	470	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	471	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	472	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	473	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	474	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	475
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	476	something == #comment ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	477	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	478	the class has changed its comment; we dont care, except if
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	479	currently showing the comment
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	480	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	481	aspect == #comment ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	482	codeView modified ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	483	self refetchClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	484	self updateCodeView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	485	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	486	self warnLabel:'the comment has changed - reselect to update'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	487	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	488	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	489	self refetchClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	490	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	491	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	492
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	493	something == #definition ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	494	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	495	the class has changed its definition.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	496	Warn, except if showing a method.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	497	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	498	aspect notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	499	codeView modified ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	500	self refetchClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	501	self updateCodeView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	502	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	503	self warnLabel:'the classes definition has changed - reselect to update'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	504	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	505	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	506	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	507	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	508
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	509	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	510	"/ if I am not showing code update if unmodified,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	511	"/ warn if modified
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	512	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	513	aspect notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	514	codeView modified ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	515	self refetchClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	516	self updateCodeView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	517	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	518	self warnLabel:'the classes has changed - reselect to update'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	519	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	520	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	521	].
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	522
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	523	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	524	get the class again - in case of a changed class definition,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	525	we are otherwise refering to the obsolete old class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	526	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	527	self refetchClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	528
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	529	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	530
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	531	"dont update codeView ...."
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	532	"self update"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	533
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	534	self warnLabel:'the class has changed'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	535	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	536	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	537
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	538	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	539	any other class has changed (but not its organization, since
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	540	that is caught in the above case).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	541	We are not interested in it - except, if showing fullProtocol
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	542	or hierarchy ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	543	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	544	currentClassHierarchy notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	545	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	546	(currentClass isSubclassOf:changedObject) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	547	self warnLabel:'some superclass has changed - reselect to update'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	548	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	549	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	550	((currentClass isSubclassOf:changedObject)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	551	or:[changedObject isSubclassOf:currentClass]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	552	self warnLabel:'some superclass has changed - reselect to update'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	553	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	554	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	555	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	556
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	557	^ self
74 f2c56efa3599 Initial revision claus parents: diff changeset	558	].
f2c56efa3599 Initial revision claus parents: diff changeset	559
f2c56efa3599 Initial revision claus parents: diff changeset	560	(changedObject isMethod) ifTrue:[
f2c56efa3599 Initial revision claus parents: diff changeset	561	]
236 d94505a6f697 release currentMethod when compiling or change notification arrives Claus Gittinger <cg@exept.de> parents: 229 diff changeset	562
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	563	"Created: 4.1.1997 / 13:54:00 / cg"
1074 346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	564	"Modified: 7.3.1997 / 19:29:28 / cg"
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	565	!
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	566
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	567	refetchClass
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	568	"after a class definition change in another browser,
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	569	this is sent to update (otherwise, we'd still refer to the obsolete class)"
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	570
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	571	"/ currentClass := Smalltalk at:(currentClass name asSymbol).
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	572	self switchToClass:(Smalltalk at:(currentClass name asSymbol)).
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	573
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	574	"/ showInstance ifTrue:[
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	575	"/ actualClass := currentClass
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	576	"/ ] ifFalse:[
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	577	"/ actualClass := currentClass class
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	578	"/ ].
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	579
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	580	"Created: 8.2.1996 / 13:22:27 / cg"
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	581	"Modified: 8.2.1996 / 13:40:18 / cg"
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	582	!
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	583
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	584	update:something with:someArgument from:changedObject
909 ccbc84af922c oops - dont delay update if occurring during startup; Claus Gittinger <cg@exept.de> parents: 908 diff changeset	585	\|argList sensor\|
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	586
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	587	(changedObject == ObjectMemory) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	588	(something == #earlyRestart
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	589	or:[something == #restarted
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	590	or:[something == #returnFromSnapshot]]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	591	"/ those are to be ignored.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	592	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	593	]
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	594	].
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	595
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	596	"/
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	597	"/ avoid update/warn after my own changes
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	598	"/
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	599	lockUpdates == true ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	600	^ self
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	601	].
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	602
927 3b32af3cf5a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 926 diff changeset	603	"/
3b32af3cf5a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 926 diff changeset	604	"/ quick hack: delayed update fails, if I autoload
3b32af3cf5a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 926 diff changeset	605	"/ LabelAndIcon in the update, and another browser
3b32af3cf5a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 926 diff changeset	606	"/ gets a chance to do an update as well, trying to
3b32af3cf5a6 * empty log message * Claus Gittinger <cg@exept.de> parents: 926 diff changeset	607	"/ access the (temporarily nil) LabelAndIcon.
1098 5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	608	"/ To get that beast out, do it synchronous for now.
5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	609	"/ also do it immediately, if not yet realized (no sensor)
5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	610
5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	611	(LabelAndIcon isLoaded not
5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	612	or:[(sensor := self sensor) isNil]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	613	^ self delayedUpdate:something with:someArgument from:changedObject
909 ccbc84af922c oops - dont delay update if occurring during startup; Claus Gittinger <cg@exept.de> parents: 908 diff changeset	614	].
ccbc84af922c oops - dont delay update if occurring during startup; Claus Gittinger <cg@exept.de> parents: 908 diff changeset	615
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	616	"/
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	617	"/ if such an update is already in the queue, ignore it.
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	618	"/ Otherwise push it as an event, to be handled when I am back
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	619	"/
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	620	argList := Array with:something
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	621	with:someArgument
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	622	with:changedObject.
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	623
1098 5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	624	(sensor
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	625	hasEvent:#delayedUpdate:with:from:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	626	for:self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	627	withArguments:argList) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	628	^ self
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	629	].
1098 5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	630	sensor
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	631	pushUserEvent:#delayedUpdate:with:from:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	632	for:self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	633	withArguments:argList
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	634
1098 5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	635	"Modified: 26.3.1997 / 18:29:51 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	636	! !
f2c56efa3599 Initial revision claus parents: diff changeset	637
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	638	!BrowserView methodsFor:'class category list menu'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	639
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	640	classCategoryClone
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	641	"open a new SystemBrowser showing the same method as I do"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	642
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	643	SystemBrowser openInClass:actualClass selector:currentSelector
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	644
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	645	"Created: 14.9.1995 / 10:55:20 / claus"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	646	"Modified: 14.9.1995 / 10:59:31 / claus"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	647	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	648
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	649	classCategoryFileOut
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	650	"create a file 'categoryName.st' consisting of all classes in current category
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	651	into the current projects defaultDirectory."
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	652
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	653	self classCategoryFileOutAsk:false
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	654
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	655	"Modified: 11.10.1997 / 16:47:46 / cg"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	656	!
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	657
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	658	classCategoryFileOutAs
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	659	"create a file consisting of all classes in the current category
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	660	into a file as user-specified."
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	661
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	662	self classCategoryFileOutAsk:true
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	663
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	664	"Modified: 11.10.1997 / 16:38:56 / cg"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	665	"Created: 11.10.1997 / 16:44:35 / cg"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	666	!
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	667
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	668	classCategoryFileOutAsk:doAsk
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	669	"create a file 'categoryName' consisting of all classes in current category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	670
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	671	\|aStream fileName\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	672
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	673	self checkClassCategorySelected ifFalse:[^ self].
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	674	(currentClassCategory startsWith:'*') ifTrue:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	675	self warn:(resources string:'try a real category').
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	676	^ self
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	677	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	678
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	679	fileName := currentClassCategory asString , '.st'.
1316 3fefcc2e9b16 mostly filename changes Claus Gittinger <cg@exept.de> parents: 1313 diff changeset	680	fileName replaceAll:Character space with:$_.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	681
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	682	self withBusyCursorDo:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	683	\|saveName fileBox dir\|
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	684
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	685	doAsk ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	686	fileBox := FileSelectionBox
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	687	title:(resources string:'fileOut %1 as:' with:currentClassCategory)
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	688	okText:(resources string:'fileOut')
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	689	abortText:(resources string:'cancel')
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	690	action:[:fileName \| saveName := fileName].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	691	fileBox initialText:fileName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	692	dir := FileSelectionBox lastFileSelectionDirectory.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	693	dir isNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	694	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	695	this test allows a smalltalk to be built without Projects/ChangeSets
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	696	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	697	Project notNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	698	dir := Project currentProjectDirectory
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	699	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	700	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	701	dir notNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	702	fileBox directory:dir.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	703	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	704	fileBox showAtPointer.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	705	fileBox destroy.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	706	saveName isNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	707	^ self
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	708	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	709	saveName isEmpty ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	710	self warn:'bad name given'.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	711	^ self
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	712	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	713	FileSelectionBox lastFileSelectionDirectory:(saveName asFilename directoryName).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	714	fileName := saveName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	715	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	716	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	717	this test allows a smalltalk to be built without Projects/ChangeSets
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	718	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	719	Project notNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	720	fileName := Project currentProjectDirectory , fileName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	721	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	722	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	723
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	724	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	725	if file exists, save original in a .sav file
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	726	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	727	fileName asFilename exists ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	728	self busyLabel:'saving existing %1' with:fileName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	729	fileName asFilename copyTo:(fileName , '.sav')
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	730	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	731
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	732	aStream := FileStream newFileNamed:fileName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	733	aStream isNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	734	self warn:'cannot create: %1' with:fileName
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	735	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	736	self busyLabel:'writing: %1' with:fileName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	737	self allClassesInCategory:currentClassCategory inOrderDo:[:aClass \|
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	738	aClass isPrivate ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	739	(self listOfNamespaces includesIdentical:aClass nameSpace)
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	740	ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	741	self busyLabel:'writing: %1' with:fileName.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	742	aClass fileOutOn:aStream.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	743	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	744	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	745	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	746	aStream close.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	747	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	748	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	749	self normalLabel.
762 754eee5d2bdb more stuff for private classes Claus Gittinger <cg@exept.de> parents: 759 diff changeset	750
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	751	"Created: 11.10.1997 / 16:38:29 / cg"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	752	"Modified: 11.10.1997 / 16:48:19 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	753	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	754
338 1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	755	classCategoryFileOutBinaryEach
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	756	"fileOut each class in the current category as binary bytecode."
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	757
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	758	\|mode\|
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	759
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	760	(currentClassCategory startsWith:'*') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	761	self warn:(resources string:'try a real category').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	762	^ self
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	763	].
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	764
338 1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	765	mode := Dialog choose:(resources string:'save including sources ?')
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	766	labels:(resources array:#('cancel' 'discard' 'by file reference' 'include source'))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	767	values:#(nil #discard #reference #keep)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	768	default:#keep.
338 1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	769
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	770	mode isNil ifTrue:[^ self].
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	771
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	772	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	773	self allClassesInCategory:currentClassCategory do:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	774	aClass isPrivate ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	775	(self listOfNamespaces includesIdentical:aClass nameSpace)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	776	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	777	self busyLabel:'saving binary of: %1' with:aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	778	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	779	self warn:'cannot create: %1' with:ex parameter.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	780	ex return.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	781	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	782	aClass binaryFileOutWithSourceMode:mode.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	783	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	784	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	785	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	786	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	787	self normalLabel.
338 1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	788	]
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	789
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	790	"Created: 25.1.1996 / 17:27:45 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	791	"Modified: 18.8.1997 / 15:42:30 / cg"
338 1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	792	!
1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	793
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	794	classCategoryFileOutEach
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	795	(currentClassCategory startsWith:'*') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	796	self warn:(resources string:'try a real category').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	797	^ self
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	798	].
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	799
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	800	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	801	self allClassesInCategory:currentClassCategory do:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	802	aClass isPrivate ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	803	(self listOfNamespaces includesIdentical:aClass nameSpace)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	804	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	805	self busyLabel:'saving: %1' with:aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	806	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	807	self warn:'cannot fileOut: %1\(%2)' with:aClass name with:ex errorString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	808	ex return.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	809	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	810	aClass fileOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	811	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	812	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	813	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	814	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	815	self normalLabel.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	816	]
762 754eee5d2bdb more stuff for private classes Claus Gittinger <cg@exept.de> parents: 759 diff changeset	817
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	818	"Modified: 18.8.1997 / 15:42:35 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	819	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	820
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	821	classCategoryFindClass
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	822	"find a class - and switch by default"
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	823
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	824	self classCategoryFindClassOpen:false
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	825
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	826	"Modified: 15.1.1997 / 22:55:20 / cg"
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	827	!
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	828
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	829	classCategoryFindClassOpen:doOpen
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	830	"common code for both opening a new browser on a class and
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	831	to search for a class in this browser"
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	832
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	833	\|box openButton title open okText okText2\|
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	834
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	835	open := doOpen.
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	836	open ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	837	title := 'class to browse:'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	838	okText := 'open'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	839	okText2 := 'find here'.
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	840	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	841	title := 'class to find:'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	842	okText := 'find'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	843	okText2 := 'open new'.
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	844	].
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	845	box := self enterBoxForCodeSelectionTitle:title okText:okText.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	846	box label:(resources string:'browse or search class').
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	847	openButton := box addButton:(Button label:(resources string:okText2)) before:(box okButton).
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	848
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	849	openButton action:[
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	850	open := open not.
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	851	box doAccept.
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	852	box okPressed.
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	853	].
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	854
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	855	box entryCompletionBlock:[:contents \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	856	\|s what m\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	857
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	858	s := contents withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	859	what := Smalltalk classnameCompletion:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	860	box contents:what first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	861	(what at:2) size ~~ 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	862	self beep
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	863	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	864	].
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	865	box action:[:aString \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	866	\|brwsr\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	867
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	868	open ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	869	brwsr := SystemBrowser open
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	870	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	871	brwsr := self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	872	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	873	brwsr switchToClassNameMatching:aString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	874	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	875	box showAtPointer
484 7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	876
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	877	"Created: 1.6.1996 / 16:03:15 / cg"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	878	"Modified: 15.1.1997 / 23:14:16 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	879	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	880
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	881	classCategoryFindMethod
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	882	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	883
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	884	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	885	listBoxForCodeSelectionTitle:'selector to find:'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	886	okText:'find'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	887	box label:(resources string:'find method').
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	888
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	889	box entryCompletionBlock:[:contents \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	890	\|s what m\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	891
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	892	s := contents withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	893	box topView withWaitCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	894	what := Smalltalk selectorCompletion:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	895	box list:(what at:2).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	896	box contents:what first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	897	(what at:2) size ~~ 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	898	self beep
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	899	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	900	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	901	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	902	box action:[:aString \| self switchToAnyMethod:aString].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	903	box showAtPointer
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	904
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	905	"Modified: 30.8.1995 / 22:49:49 / claus"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	906	"Modified: 15.1.1997 / 23:19:08 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	907	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	908
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	909	classCategoryMenu
432 a6c771534efa oops - dont use $ Header in createDocuStubs - rcs expands it Claus Gittinger <cg@exept.de> parents: 431 diff changeset	910
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	911	<resource: #keyboard ( #Find #Cmdn) >
432 a6c771534efa oops - dont use $ Header in createDocuStubs - rcs expands it Claus Gittinger <cg@exept.de> parents: 431 diff changeset	912
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	913	\|specialMenu m labels selectors shorties\|
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	914
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	915	currentClassCategory notNil ifTrue:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	916	labels := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	917	'fileOut each binary ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	918	'-'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	919	'repository history ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	920	'validate class revisions'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	921	'-'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	922	'checkin each ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	923	).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	924	selectors := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	925	classCategoryFileOutBinaryEach
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	926	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	927	classCategoryRepositoryHistory
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	928	classCategoryValidateClassRevisions
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	929	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	930	classCategoryCheckinEach
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	931	).
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	932	] ifFalse:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	933	labels := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	934	'repository history ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	935	).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	936	selectors := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	937	classCategoryRepositoryHistory
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	938	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	939	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	940
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	941	specialMenu := PopUpMenu
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	942	labels:(resources array:labels)
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	943	selectors:selectors
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	944	receiver:self.
338 1d4a76bf6e8f added binaryFileOutCategoryEach Claus Gittinger <cg@exept.de> parents: 337 diff changeset	945
710 fbf71e0089eb only show sourceCodeManager items, if its present Claus Gittinger <cg@exept.de> parents: 706 diff changeset	946	Smalltalk sourceCodeManager isNil ifTrue:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	947	specialMenu disableAll:#(classCategoryRepositoryHistory
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	948	classCategoryCheckinEach
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	949	classCategoryValidateClassRevisions).
710 fbf71e0089eb only show sourceCodeManager items, if its present Claus Gittinger <cg@exept.de> parents: 706 diff changeset	950	].
fbf71e0089eb only show sourceCodeManager items, if its present Claus Gittinger <cg@exept.de> parents: 706 diff changeset	951
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	952	device ctrlDown ifTrue:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	953	^ specialMenu
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	954	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	955
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	956	currentClassCategory isNil ifTrue:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	957	labels := #(
809 f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	958	"/ 'namespace ...'
f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	959	"/ '-'
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	960	'clone'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	961	'open for class ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	962	'spawn full class'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	963	'-'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	964	'update'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	965	'find class ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	966	'find method ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	967	'-'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	968	'new class category ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	969	'='
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	970	'others'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	971	).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	972	selectors := #(
809 f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	973	"/ namespaceDialog
f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	974	"/ nil
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	975	classCategoryClone
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	976	classCategoryOpenInClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	977	classCategorySpawnFullClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	978	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	979	classCategoryUpdate
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	980	classCategoryFindClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	981	classCategoryFindMethod
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	982	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	983	classCategoryNewCategory
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	984	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	985	otherMenu
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	986	).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	987	shorties := #(
809 f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	988	"/ nil
f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	989	"/ nil
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	990	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	991	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	992	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	993	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	994	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	995	Find
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	996	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	997	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	998	Cmdn
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	999	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1000	#'Ctrl'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1001	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	1002	] ifFalse:[
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1003	labels := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1004	'fileOut'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1005	'fileOut as ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1006	'fileOut each'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1007	'printOut'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1008	'printOut protocol'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1009	'-'
809 f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	1010	"/ 'namespace ...'
f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	1011	"/ '-'
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1012	'clone'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1013	'open for class ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1014	'SPAWN_CATEGORY'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1015	'spawn full class'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1016	'-'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1017	'update'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1018	'find class ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1019	'find method ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1020	'-'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1021	'new class category ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1022	'rename ...'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1023	'remove'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1024	'='
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1025	'others'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1026	).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1027	selectors := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1028	classCategoryFileOut
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1029	classCategoryFileOutAs
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1030	classCategoryFileOutEach
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1031	classCategoryPrintOut
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1032	classCategoryPrintOutProtocol
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1033	nil
809 f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	1034	"/ namespaceDialog
f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	1035	"/ nil
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1036	classCategoryClone
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1037	classCategoryOpenInClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1038	classCategorySpawn
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1039	classCategorySpawnFullClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1040	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1041	classCategoryUpdate
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1042	classCategoryFindClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1043	classCategoryFindMethod
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1044	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1045	classCategoryNewCategory
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1046	classCategoryRename
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1047	classCategoryRemove
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1048	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1049	otherMenu
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1050	).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1051	shorties := #(
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1052	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1053	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1054	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1055	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1056	nil
809 f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	1057	"/ nil
f333068dc7cf checkin from browser Claus Gittinger <cg@exept.de> parents: 805 diff changeset	1058	"/ nil
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1059	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1060	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1061	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1062	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1063	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1064	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1065	Find
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1066	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1067	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1068	Cmdn
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1069	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1070	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1071	nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1072	#'Ctrl'
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1073	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	1074	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	1075
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	1076	m := PopUpMenu
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1077	labels:(resources array:labels)
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1078	selectors:selectors
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1079	accelerators:shorties.
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	1080
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	1081	m subMenuAt:#otherMenu put:specialMenu.
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	1082	^ m
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1083
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1084	"Created: 14.9.1995 / 10:50:17 / claus"
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1085	"Modified: 11.10.1997 / 16:43:54 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1086	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1087
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1088	classCategoryNewCategory
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1089	\|box\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1090
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1091	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1092	enterBoxTitle:'name of new class category:'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1093	okText:'create'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1094	label:'create category'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1095
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1096	box action:[:aString \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1097	\|categories\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1098	categories := classCategoryListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1099	(categories includes:aString) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1100	categories add:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1101	categories sort.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1102	classCategoryListView setContents:categories.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1103	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1104	currentClassCategory := aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1105	classCategoryListView setSelectElement:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1106	self switchToClass:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1107	actualClass := acceptClass := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1108	self classCategorySelectionChanged
79 d78f92a07d5d * empty log message * claus parents: 74 diff changeset	1109	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1110	box showAtPointer
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	1111
694 af82075139a1 Fix #classCategoryNewCategory and #classCategoryRemove. Stefan Vogel <sv@exept.de> parents: 677 diff changeset	1112	"Modified: 19.8.1996 / 18:25:41 / stefan"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1113	"Modified: 15.1.1997 / 23:06:46 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1114	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1115
484 7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	1116	classCategoryOpenInClass
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1117	"find a class - and open a browser (by default)"
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1118
599 337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	1119	self classCategoryFindClassOpen:true
337a32f942da merged code for open-for-class and find-class; (and offer both options in the box) Claus Gittinger <cg@exept.de> parents: 587 diff changeset	1120
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1121	"Modified: 15.1.1997 / 22:55:32 / cg"
484 7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	1122	!
7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	1123
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1124	classCategoryPrintOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1125	\|printStream\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1126
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	1127	self allClassesInCategory:currentClassCategory inOrderDo:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1128	(self listOfNamespaces includesIdentical:aClass nameSpace)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1129	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1130	printStream := Printer new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1131	aClass printOutOn:printStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1132	printStream close
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1133	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1134	]
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	1135
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	1136	"Modified: 16.1.1997 / 20:22:23 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1137	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1138
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1139	classCategoryPrintOutProtocol
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1140	\|printStream\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1141
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1142	Smalltalk allClassesInCategory:currentClassCategory inOrderDo:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1143	(self listOfNamespaces includesIdentical:aClass nameSpace)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1144	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1145	printStream := Printer new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1146	aClass printOutProtocolOn:printStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1147	printStream close
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1148	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1149	]
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	1150
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	1151	"Modified: 16.1.1997 / 20:22:12 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1152	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1153
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1154	classCategoryRemove
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1155	"remove all classes in current category"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1156
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1157	\|count overallCount t classesToRemove subclassesRemoved box t2\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1158
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1159	self checkClassCategorySelected ifFalse:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1160
333 245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1161	classesToRemove := IdentitySet new.
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	1162
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	1163	self allClassesInSelectedNamespacesDo:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1164	aClass category = currentClassCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1165	classesToRemove add:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1166	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1167	].
333 245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1168	subclassesRemoved := IdentitySet new.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1169	classesToRemove do:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1170	aClass allSubclassesDo:[:aSubclass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1171	(classesToRemove includes:aSubclass) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1172	(subclassesRemoved includes:aSubclass) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1173	subclassesRemoved add:aSubclass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1174	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1175	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1176	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	1177	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1178
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1179	count := overallCount := classesToRemove size.
333 245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1180	t := resources string:'remove "%1" ?' with:currentClassCategory.
245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1181
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1182	count ~~ 0 ifTrue:[
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1183	count == 1 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1184	t2 := '(with %1 class)'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1185	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1186	t2 := '(with %1 classes)'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1187	].
333 245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1188	t := t , '\' , (resources string:t2 with:count printString)
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1189	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1190
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1191	count := subclassesRemoved size.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1192	overallCount := overallCount + count.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1193	count ~~ 0 ifTrue:[
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1194	count == 1 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1195	t2 := '(and %1 subclass)'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1196	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1197	t2 := '(and %1 subclasses)'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1198	].
333 245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1199	t := t , '\' , (resources string:t2 with:count printString)
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1200	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1201
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1202	t := t withCRs.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1203
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1204	box := YesNoBox
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1205	title:t
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1206	yesText:(resources at:'remove')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1207	noText:(resources at:'abort').
333 245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1208	box label:(resources at:'remove category').
245f0a972fc9 * empty log message * Claus Gittinger <cg@exept.de> parents: 324 diff changeset	1209
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1210	overallCount ~~ 0 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1211	"/ should we disable the returnDefault here ?
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1212	].
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1213
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1214	box confirm ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1215	"after querying user - do really remove classes in list1 and list2"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1216	\|keep idx\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1217
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1218	keep := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1219	(subclassesRemoved asOrderedCollection
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1220	, classesToRemove asOrderedCollection) do:[:aClassToRemove \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1221
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1222	(CheckForInstancesWhenRemovingClasses not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1223	or:[aClassToRemove hasInstances not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1224	or:[self confirm:(resources string:'%1 has instances - remove anyway ?' with:aClassToRemove name)]]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1225	) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1226	aClassToRemove removeFromSystem
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1227	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1228	keep := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1229	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1230	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1231
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1232	self updateClassCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1233	(classCategoryListView list includes:currentClassCategory) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1234	currentClassCategory := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1235	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1236	self classCategorySelectionChanged.
723 c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1237
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1238
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1239	self switchToClass:nil.
723 c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1240	"/ keep ifFalse:[
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1241	"/ idx := classCategoryListView list indexOf:currentClassCategory.
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1242	"/ currentClassCategory := nil.
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1243	"/ idx ~= 0 ifTrue:[
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1244	"/ classCategoryListView removeIndex:idx.
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1245	"/ ].
c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	1246	"/ ].
916 fcc0c3c945d4 destroy box after use Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1247	].
fcc0c3c945d4 destroy box after use Claus Gittinger <cg@exept.de> parents: 910 diff changeset	1248	box destroy
694 af82075139a1 Fix #classCategoryNewCategory and #classCategoryRemove. Stefan Vogel <sv@exept.de> parents: 677 diff changeset	1249
af82075139a1 Fix #classCategoryNewCategory and #classCategoryRemove. Stefan Vogel <sv@exept.de> parents: 677 diff changeset	1250	"Modified: 19.8.1996 / 23:22:35 / stefan"
1280 54b004f16f9d use #removeFromSystem (to class) to remove a class. Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	1251	"Modified: 12.8.1997 / 02:24:01 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1252	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1253
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1254	classCategoryRename
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1255	"launch an enterBox to rename current class category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1256
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1257	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1258
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1259	self checkClassCategorySelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1260
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1261	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1262	enterBoxTitle:(resources string:'rename category ''%1'' to:' with:currentClassCategory)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1263	okText:'rename'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1264	label:'rename category'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1265
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1266	box initialText:currentClassCategory.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1267	box action:[:aString \| self renameCurrentClassCategoryTo:aString].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1268	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1269
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1270	"Modified: 15.1.1997 / 23:10:12 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1271	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1272
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1273	classCategorySpawn
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1274	"create a new SystemBrowser browsing current classCategory"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1275
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1276	currentClassCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1277	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1278	SystemBrowser browseClassCategory:currentClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1279	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1280	]
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1281
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1282	"Modified: 18.8.1997 / 15:42:58 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1283	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1284
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1285	classCategorySpawnFullClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1286	"create a new SystemBrowser browsing full class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1287
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1288	\|newBrowser\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1289
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1290	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1291	newBrowser := SystemBrowser browseFullClasses
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1292	" "
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1293	.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1294	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1295	newBrowser switchToClassNamed:(currentClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1296	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1297	" "
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1298	]
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1299
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1300	"Modified: 18.8.1997 / 15:43:01 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1301	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1302
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1303	classCategoryUpdate
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1304	"update class category list and dependants"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1305
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1306	\|oldClassName oldMethodCategory\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1307
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1308	classCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1309	self setListOfNamespaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1310
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1311	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1312	oldClassName := currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1313	(oldClassName endsWith:'-old') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1314	oldClassName := oldClassName copyWithoutLast:4 "copyTo:(oldClassName size - 4)"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1315	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1316	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1317	oldMethodCategory := currentMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1318
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1319	classCategoryListView setContents:(self listOfAllClassCategories).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1320	currentClassCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1321	classCategoryListView setSelectElement:currentClassCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1322	self classCategorySelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1323	oldClassName notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1324	classListView setSelectElement:oldClassName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1325	self switchToClass:(Smalltalk at:oldClassName asSymbol).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1326	self classSelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1327	oldMethodCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1328	methodCategoryListView setSelectElement:oldMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1329	currentMethodCategory := oldMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1330	self methodCategorySelectionChanged
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1331	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1332	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1333	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1334
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1335	self updateNamespaceList
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1336	]
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	1337
918 3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1338	"Modified: 8.1.1997 / 10:57:57 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1339	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1340
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1341	!BrowserView methodsFor:'class category source administration'!
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1342
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1343	classCategoryCheckinEach
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1344	(self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self].
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1345
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1346	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1347	\|logMessage classes\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1348
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1349	logMessage := self getLogMessageFor:'(any in classCategory ', currentClassCategory, ')'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1350
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1351	logMessage notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1352	(currentClassCategory = '* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1353	or:[currentClassCategory = '* hierarchy *']) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1354	classes := self allClasses
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1355	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1356	classes := self allClassesInCategory:currentClassCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1357	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1358	"/ ignore private classes
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1359	classes := classes select:[:aClass \| aClass owningClass isNil].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1360
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1361	lastSourceLogMessage := logMessage.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1362	classes do:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1363	self busyLabel:'checking in %1' with:aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1364	"/ ca does not want boxes to pop up all over ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1365	InformationSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1366	Transcript showCR:ex errorString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1367	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1368	self classCheckin:aClass withLog:logMessage
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	1369	"/ (aClass sourceCodeManager)
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	1370	"/ checkinClass:aClass
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	1371	"/ logMessage:logMessage.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1372	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1373	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1374	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1375	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1376	self normalLabel.
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1377	]
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1378
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1379	"Created: 23.11.1995 / 11:41:38 / cg"
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	1380	"Modified: 15.6.1996 / 00:25:58 / stefan"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1381	"Modified: 18.8.1997 / 15:42:21 / cg"
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1382	!
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1383
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1384	classCategoryRepositoryHistory
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1385	(self checkSelectionChangeAllowedWithCompare:false) ifFalse:[^ self].
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1386
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1387	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1388	\|timeGoal aStream box y component timeGoalListPop\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1389
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1390	box := Dialog new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1391	(box addTextLabel:(resources string:'repository change report')) adjust:#left.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1392	box addVerticalSpace:20.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1393
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1394	timeGoal := 'yesterday' asValue.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1395
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1396	y := box yPosition.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1397	component := box addTextLabel:(resources string:'list changes since (mm/dd):').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1398	component width:0.5; adjust:#right; borderWidth:0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1399	box yPosition:y.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1400	timeGoalListPop := box addComboBoxOn:timeGoal tabable:true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1401	timeGoalListPop width:0.5; left:0.5; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1402
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1403	timeGoalListPop list:#('yesterday'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1404	'a week ago'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1405	'a month ago'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1406	'a year ago'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1407	'all'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1408	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1409	box addAbortButton; addOkButton.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1410	box open.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1411
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1412	box accepted ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1413	timeGoal := timeGoal value.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1414
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1415	"/ timeGoal := Dialog
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1416	"/ request:'list changed repository containers since (mm/dd):
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1417	"/
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1418	"/You can also specify the date as
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1419	"/''yesterday'', ''a week ago'' or ''a month ago''
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1420	"/
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1421	"/'
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1422	"/ initialAnswer:'yesterday'
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1423	"/ onCancel:nil.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1424	"/
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1425	"/ timeGoal notNil ifTrue:[
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1426
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	1427
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1428	self busyLabel:'extracting history ...' with:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1429
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1430	aStream := WriteStream on:(String new:200).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1431	Processor activeProcess withLowerPriorityDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1432	SourceCodeManager notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1433	SourceCodeManager
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1434	writeHistoryLogSince:timeGoal
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1435	to:aStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1436	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1437	aStream nextPutLine:'no history available (no SourceCodeManagement installed)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1438	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1439	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1440	codeView contents:(aStream contents).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1441	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1442	codeView acceptAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1443	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1444	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1445	methodListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1446	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1447	aspect := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1448	self normalLabel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1449	].
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1450	]
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1451
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1452	"Created: 23.11.1995 / 11:41:38 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1453	"Modified: 18.8.1997 / 15:42:46 / cg"
818 b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1454	!
b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1455
b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1456	classCategoryValidateClassRevisions
b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1457	"for all classes, ask the sourceCodeManager for the most recent version
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1458	and compare this to the actual version. Send mismatch info to the Transcript.
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1459	Use this, to find classes, which need to be reloaded from the repository."
818 b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1460
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1461	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1462	\|logMessage classes repVersion clsVersion binVersion
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1463	count unloadedCount badCount cat needCheckIn\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1464
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1465	cat := currentClassCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1466	(cat = '* hierarchy *') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1467	cat := '* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1468	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1469
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1470	classes := self listOfAllClassesInCategory:cat names:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1471	classes isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1472	Transcript showCR:'no classes to validate'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1473	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1474	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1475
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1476	count := unloadedCount := badCount := needCheckIn := 0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1477
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1478	Transcript cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1479	Transcript showCR:'-------------------------------------------------'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1480	Transcript showCR:'checking class revisions vs. repository ...'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1481	Transcript cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1482
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1483	classes do:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1484	\|clsName msg sourceCodeManager repSource currentSource aStream\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1485
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1486	count := count + 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1487
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1488	"/ ignore autoloaded and private classes here
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1489
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1490	clsName := aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1491
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1492	aClass isLoaded ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1493	unloadedCount := unloadedCount + 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1494	(currentClassCategory ~= '* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1495	and:[currentClassCategory ~= '* hierarchy *']) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1496	msg := '?? ''' , clsName , ''' is not loaded - skipped check'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1497	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1498	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1499	((aClass isNamespace not or:[aClass == Smalltalk])
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1500	and:[aClass topOwningClass isNil]) ifTrue:[
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1501
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1502	"/ self busyLabel:'validating %1 ...' with:aClass name.
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	1503
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1504	sourceCodeManager := aClass sourceCodeManager.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1505	sourceCodeManager isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1506	msg := '?? ''' , clsName , ''' has no sourceCodeManager - skipped check'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1507	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1508	repVersion := sourceCodeManager newestRevisionOf:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1509	repVersion isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1510	msg := '-- ' , clsName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1511	, ' not in repository'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1512	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1513	clsVersion := aClass revision.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1514	binVersion := aClass binaryRevision.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1515
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1516	clsName := aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1517	msg := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1518
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1519	clsVersion ~= repVersion ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1520	badCount := badCount + 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1521	msg := '** ' , clsName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1522	, ' is not up-to-date (this: '
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1523	, clsVersion printString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1524	, ' repository: '
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1525	, repVersion printString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1526	, ').'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1527	msg := msg asText allBold.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1528	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1529	clsVersion ~= binVersion ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1530	binVersion notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1531	msg := clsName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1532	, ' up-to-date (but should be stc-recompiled)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1533	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1534	] ifFalse:[
1096 3e3af3c70de1 handle no-sourceCodeManager case when validating classes. Claus Gittinger <cg@exept.de> parents: 1095 diff changeset	1535	"/ msg := clsName , ' is up-to-date.'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1536	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1537
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1538	"/ compare the sources;
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1539	"/ to find classes which need a checkin.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1540
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1541	aStream := sourceCodeManager getMostRecentSourceStreamForClassNamed:aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1542	repSource := aStream contents asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1543	aStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1544
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1545	aStream := '' writeStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1546	Method flushSourceStreamCache.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1547	aClass fileOutOn:aStream withTimeStamp:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1548	currentSource := aStream contents asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1549
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1550	repSource ~= currentSource ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1551	msg := '-- ' , clsName , ' should be checked into the repository'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1552	needCheckIn := needCheckIn + 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1553	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1554	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1555	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1556	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1557	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1558	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1559	msg notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1560	Transcript showCR:msg
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1561	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1562	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1563	Transcript cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1564	Transcript showCR:'----------------------------------------------------------'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1565	Transcript showCR:('%1 classes / %2 unloaded / %3 need checkout / %4 need checkin.'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1566	bindWith:count with:unloadedCount with:badCount with:needCheckIn).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1567	Transcript showCR:'----------------------------------------------------------'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1568
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1569	self normalLabel.
818 b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1570	]
b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1571
b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1572	"Modified: 15.6.1996 / 00:25:58 / stefan"
b6ab52f835f1 added validate-revisions menu item Claus Gittinger <cg@exept.de> parents: 814 diff changeset	1573	"Created: 29.10.1996 / 13:21:08 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1574	"Modified: 18.8.1997 / 15:43:04 / cg"
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1575	! !
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	1576
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1577	!BrowserView methodsFor:'class category stuff'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1578
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1579	checkClassCategorySelected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1580	currentClassCategory isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1581	self warn:'select a class category first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1582	^ false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1583	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1584	^ true
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1585	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1586
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1587	classCategorySelection:lineNr
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1588	"user clicked on a class category line - show classes.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1589	If switching to hierarchy or all, keep current selections"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1590
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	1591	\|newCategory oldClass oldName classIndex list\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1592
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1593	newCategory := classCategoryListView selectionValue.
1267 17fc5184fb22 checkin from browser Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1594	(newCategory = '* all *'
17fc5184fb22 checkin from browser Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	1595	or:[newCategory = '* hierarchy *']) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1596	"switch to all or hierarchy:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1597	remember current class and reselect it
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1598	after showing the updated class list
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1599	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1600	oldClass := currentClass
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1601	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1602	currentClassCategory := newCategory.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1603	oldClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1604	self classCategorySelectionChanged
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1605	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1606	oldName := oldClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1607	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1608	self updateClassList
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1609	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1610	"stupid - search for class name in (indented) list"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1611	list := classListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1612	list notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1613	classIndex := list findFirst:[:elem \| elem endsWith:oldName].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1614	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1615	classIndex := 0
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1616	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1617	classIndex ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1618	classListView setSelection:classIndex.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1619	self switchToClass:(Smalltalk at:(oldName asSymbol))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1620	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1621	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1622	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1623	]
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	1624
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1625	"Modified: 18.8.1997 / 15:42:49 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1626	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1627
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1628	classCategorySelectionChanged
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1629	"class category has changed - update dependent views"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1630
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1631	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1632	self switchToClass:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1633	aspect := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1634
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1635	actualClass := acceptClass := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1636	currentMethodCategory := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1637	currentMethod := currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1638
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1639	self updateClassList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1640	self updateMethodCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1641	self updateMethodList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1642	self updateCodeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1643
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1644	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1645	codeView acceptAction:nil
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1646	]
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	1647
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	1648	"Modified: 18.8.1997 / 15:42:52 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1649	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1650
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1651	listOfAllClassCategories
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1652	"return a list of all class categories"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1653
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1654	\|nameSpaceList newList cat allNameSpaces\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1655
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	1656	newList := Set new.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	1657
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1658	currentNamespace = '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1659	nameSpaceList := Array with:Smalltalk.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1660	allNameSpaces := true.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1661	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1662	nameSpaceList := self listOfNamespaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1663	allNameSpaces := false.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1664	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1665
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1666	nameSpaceList do:[:aNamespace \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1667	aNamespace allBehaviorsDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1668	aClass isMeta ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1669	(aClass isNamespace not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1670	or:[aClass == Namespace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1671	or:[aClass == Smalltalk]]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1672	(allNameSpaces or:[aClass nameSpace == aNamespace]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1673	cat := aClass category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1674	cat isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1675	cat := '* no category *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1676	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1677	cat ~= 'obsolete' ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1678	newList add:cat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1679	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1680	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1681	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1682	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1683	]
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	1684	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	1685
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	1686	newList notEmpty ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1687	newList add:'* all '; add:' hierarchy *'.
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	1688	].
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	1689
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1690	^ newList asOrderedCollection sort.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	1691
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	1692	"Modified: 5.1.1997 / 17:12:01 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1693	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1694
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1695	renameCurrentClassCategoryTo:aString
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1696	"helper - do the rename"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1697
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1698	\|any categories\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1699
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1700	currentClassCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1701	any := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1702
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1703	self allClassesInSelectedNamespacesDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1704	aClass category = currentClassCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1705	aClass category:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1706	any := true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1707	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1708	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1709	any ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1710	categories := classCategoryListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1711	categories remove:currentClassCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1712	categories add:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1713	categories sort.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1714	classCategoryListView setContents:categories.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1715	currentClassCategory := aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1716	classCategoryListView setSelectElement:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1717	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1718	currentClassCategory := aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1719	self updateClassCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1720	self updateClassListWithScroll:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1721	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1722	]
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	1723
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	1724	"Modified: 16.1.1997 / 20:20:38 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1725	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1726
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1727	switchToAnyMethod:aSelectorString
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1728	"find all implementors of aSelectorString, and present a list
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1729	to choose from. When an entry is selected, switch to that class/selector.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1730	This allows for quickly moving around in the system."
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1731
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1732	\|classes sel box theClassName\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1733
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1734	classes := OrderedCollection new.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1735	aSelectorString knownAsSymbol ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1736	sel := aSelectorString asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1737
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1738	Smalltalk allClassesDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1739	(aClass includesSelector:sel) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1740	classes add:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1741	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1742	(aClass class includesSelector:sel) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1743	classes add:aClass class.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1744	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1745	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1746	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1747	classes size == 0 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1748	SystemBrowser showNoneFound.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1749	^ self
74 f2c56efa3599 Initial revision claus parents: diff changeset	1750	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1751	classes size > 1 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1752	box := ListSelectionBox
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1753	title:(resources string:'#%1\\in which class ?' with:aSelectorString) withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1754	box label:'find method'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1755	box okText:(resources string:'show').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1756	box list:(classes collect:[:aClass \| aClass name]) asSortedCollection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1757	box action:[:aString \| theClassName := aString].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1758	box entryCompletionBlock:[:contents \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1759	\|s l what m\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1760
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1761	s := contents withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1762	l := classes select:[:cls \| cls name startsWith:s].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1763	l size > 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1764	box list:(l collect:[:aClass \| aClass name]) asSortedCollection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1765	box contents:l first name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1766	l size ~~ 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1767	self beep
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1768	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1769	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1770	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1771	box showAtPointer.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1772	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1773	theClassName := classes first name
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1774	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1775
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1776	theClassName notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1777	self switchToClassNamed:theClassName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1778	self updateMethodCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1779	self switchToMethodNamed:aSelectorString.
74 f2c56efa3599 Initial revision claus parents: diff changeset	1780	].
f2c56efa3599 Initial revision claus parents: diff changeset	1781
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1782	"Modified: 1.9.1995 / 01:39:58 / claus"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1783	"Modified: 15.1.1997 / 23:20:51 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1784	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1785
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1786	updateClassCategoryList
918 3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1787	self updateClassCategoryListWithScroll:true.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1788
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	1789	"Modified: 8.1.1997 / 10:58:06 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	1790	!
f2c56efa3599 Initial revision claus parents: diff changeset	1791
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1792	updateClassCategoryListWithScroll:scroll
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1793	\|oldClassCategory oldClass oldMethodCategory oldMethod
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1794	oldSelector newCategoryList\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1795
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1796	classMethodListView notNil ifTrue:[ ^ self ].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1797
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1798	oldClassCategory := currentClassCategory.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1799	oldClass := currentClass.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1800	oldMethodCategory := currentMethodCategory.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1801	oldMethod := currentMethod.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1802	oldMethod notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1803	oldSelector := currentSelector
74 f2c56efa3599 Initial revision claus parents: diff changeset	1804	].
f2c56efa3599 Initial revision claus parents: diff changeset	1805
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1806	classCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1807	newCategoryList := self listOfAllClassCategories.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1808	newCategoryList = classCategoryListView list ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1809	scroll ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1810	classCategoryListView contents:newCategoryList
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1811	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1812	classCategoryListView setContents:newCategoryList
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1813	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1814	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	1815	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1816
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1817	oldClassCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1818	classCategoryListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1819	classCategoryListView setSelectElement:oldClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1820	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1821	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1822	classListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1823	oldClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1824	classListView setSelectElement:(oldClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1825	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	1826	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1827	oldMethodCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1828	methodCategoryListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1829	methodCategoryListView setSelectElement:oldMethodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1830	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1831	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	1832	oldSelector notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1833	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1834	methodListView setSelectElement:oldSelector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1835	].
74 f2c56efa3599 Initial revision claus parents: diff changeset	1836	]
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	1837
0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	1838	"Modified: 26.5.1996 / 15:04:25 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	1839	! !
f2c56efa3599 Initial revision claus parents: diff changeset	1840
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1841	!BrowserView methodsFor:'class list menu'!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1842
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1843	classClassInstVars
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1844	"show class instance variables in codeView and setup accept-action
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1845	for a class-instvar-definition change"
187 781f0c88e196 compare revision added Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1846
781f0c88e196 compare revision added Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1847	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1848	\|s\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1849
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1850	s := WriteStream on:(String new).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1851	currentClass fileOutClassInstVarDefinitionOn:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1852	codeView contents:(s contents).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1853	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1854	codeView acceptAction:[:theCode \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1855	codeView cursor:Cursor execute.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1856	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1857	Class nameSpaceQuerySignal answer:Smalltalk
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1858	do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1859	Compiler evaluate:theCode asString notifying:codeView compile:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1860	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1861
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1862	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1863	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1864	self updateClassList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1865	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1866	codeView cursor:Cursor normal.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1867	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1868	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1869	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1870	methodListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1871	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1872	aspect := #classInstVars.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1873	self normalLabel
187 781f0c88e196 compare revision added Claus Gittinger <cg@exept.de> parents: 181 diff changeset	1874	]
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	1875
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	1876	"Modified: 16.1.1997 / 01:47:37 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1877	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1878
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1879	classComment
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1880	"show the classes comment in the codeView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1881	Also, set accept action to change the comment."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1882
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1883	self classShowFrom:#comment
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1884	set:#comment:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1885	aspect:#comment
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	1886	default:nil
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	1887	!
74 f2c56efa3599 Initial revision claus parents: diff changeset	1888
f2c56efa3599 Initial revision claus parents: diff changeset	1889	classDefinition
f2c56efa3599 Initial revision claus parents: diff changeset	1890	"show class definition in codeView and setup accept-action for
f2c56efa3599 Initial revision claus parents: diff changeset	1891	a class-definition change.
f2c56efa3599 Initial revision claus parents: diff changeset	1892	Extract documentation either from a documentation method or
f2c56efa3599 Initial revision claus parents: diff changeset	1893	from the comment - not a biggy, but beginners will like
f2c56efa3599 Initial revision claus parents: diff changeset	1894	it when exploring the system."
f2c56efa3599 Initial revision claus parents: diff changeset	1895
f2c56efa3599 Initial revision claus parents: diff changeset	1896	self doClassMenu:[:currentClass \|
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1897	\|m s aStream isComment\|
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1898
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1899	aStream := TextStream on:(String new:200).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1900
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1901	"/
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1902	"/ here, show it with a nameSpace pragma
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1903	"/ and prefer short names.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1904	"/
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1905	currentClass
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1906	basicFileOutDefinitionOn:aStream
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1907	withNameSpace:true.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1908
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1909	currentClass isLoaded ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1910	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1911	add documentation as a comment, if there is any
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1912	"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1913	m := currentClass class compiledMethodAt:#documentation.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1914	m notNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1915	s := m comment.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1916	isComment := false.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1917	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1918	"try comment"
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1919	s := currentClass comment.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1920	s isString ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1921	s isEmpty ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1922	s := nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1923	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1924	(s includes:$") ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1925	s := s copy replaceAll:$" with:$'.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1926	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1927	isComment := true
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1928	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1929	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1930	"/ class redefines comment ?
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1931	s := nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1932	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1933	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1934	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1935	aStream cr; cr; cr; cr; cr.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1936	aStream emphasis:(#color -> (Color red:0 green:0 blue:25)).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1937	s isNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1938	aStream nextPut:$" ; cr; nextPutLine:' no comment or documentation found'.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1939	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1940	aStream nextPut:$" ; cr; nextPutLine:' Documentation:'.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1941	aStream cr; nextPutLine:s; cr.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1942	aStream nextPutLine:' Notice: '.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1943	aStream nextPutAll:' the above string has been extracted from the classes '.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1944	aStream nextPutLine:(isComment ifTrue:['comment.'] ifFalse:['documentation method.']).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1945	aStream nextPutLine:' It will not be preserved when accepting a new class definition.'.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1946	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1947	aStream nextPut:$".
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1948	aStream emphasis:nil.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1949
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1950	codeView contents:(aStream contents).
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1951	codeView modified:false.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1952	codeView acceptAction:[:theCode \|
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1953	\|ns\|
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1954
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1955	currentClass notNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1956	ns := currentClass nameSpace
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1957	] ifFalse:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1958	ns := nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1959	].
953 5460c08843e5 provide the current classes nameSpace Claus Gittinger <cg@exept.de> parents: 946 diff changeset	1960
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1961	codeView cursor:Cursor execute.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1962
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1963	Class nameSpaceQuerySignal handle:[:ex \|
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1964	ns isNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1965	ex reject
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1966	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1967	ex proceedWith:ns
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1968	] do:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1969	Object abortSignal catch:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1970
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1971	Class nameSpaceQuerySignal answer:Smalltalk
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1972	do:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1973	(Compiler evaluate:theCode asString notifying:codeView compile:false)
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1974	isBehavior ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1975	codeView modified:false.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1976	self classCategoryUpdate.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1977	self updateClassListWithScroll:false.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1978	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1979	]
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1980	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1981	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1982	codeView cursor:Cursor normal.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1983	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1984	codeView explainAction:nil.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1985
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1986	methodListView notNil ifTrue:[
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1987	methodListView setSelection:nil
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1988	].
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1989	aspect := #definition.
b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1990	self normalLabel
74 f2c56efa3599 Initial revision claus parents: diff changeset	1991	]
371 f28c97e821c4 handle comments with d'quotes when showing classes definition Claus Gittinger <cg@exept.de> parents: 369 diff changeset	1992
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	1993	"Modified: 11.10.1997 / 16:25:42 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	1994	!
f2c56efa3599 Initial revision claus parents: diff changeset	1995
546 d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1996	classDocumentation
d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1997	"show classes documentation (i.e. open doc-View on it)"
d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1998
d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	1999	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2000	Autoload autoloadFailedSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2001	self warn:'autoload failed.
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2002
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2003	Check your source directory and/or
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2004	the abbreviation file for the classes (correct) shortened name.'.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2005	ex return.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2006	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2007	\|text v\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2008
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2009	text := currentClass htmlDocumentation.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2010	text notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2011	v := HTMLDocumentView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2012	openFullOnText:text
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2013	inDirectory:(Smalltalk getSystemFileName:'doc/online/english/classDoc').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2014	v nameSpaceForExecution:(currentClass nameSpace).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2015	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2016	]
546 d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	2017	]
d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	2018
d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	2019	"Created: 18.5.1996 / 12:12:20 / cg"
1188 3805f78caf95 documentationViews currentDirectory ... Claus Gittinger <cg@exept.de> parents: 1186 diff changeset	2020	"Modified: 17.6.1997 / 13:32:40 / cg"
546 d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	2021	!
d41abf9483e2 added doc-view-open in class menu Claus Gittinger <cg@exept.de> parents: 543 diff changeset	2022
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2023	classFileOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2024	"fileOut the current class.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2025	Catch errors (sure, you like to know if it failed) and
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2026	warn if any)"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2027
1139 746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2028	self classFileOutAsk:false
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2029
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2030	"Modified: 16.4.1997 / 20:55:13 / cg"
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2031	!
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2032
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2033	classFileOutAs
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2034	"fileOut the current class, asking for a filename."
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2035
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2036	self classFileOutAsk:true
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2037
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2038	"Modified: 16.4.1997 / 20:55:31 / cg"
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2039	!
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2040
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2041	classFileOutAsk:ask
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2042	"fileOut the current class, possibly asking for a filename.
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2043	Catch errors (sure, you like to know if it failed) and
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2044	warn if any)"
746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2045
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2046	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2047	\|msg fileBox saveName dir\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2048
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2049	currentClass isPrivate ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2050	self warn:'You must fileOut the owning class: ' , currentClass owningClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2051	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2052	ask ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2053	fileBox := FileSelectionBox
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2054	title:(resources string:'fileOut %1 as:' with:currentClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2055	okText:(resources string:'fileOut')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2056	abortText:(resources string:'cancel')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2057	action:[:fileName \| saveName := fileName].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2058	fileBox initialText:((Smalltalk fileNameForClass:currentClass) , '.st').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2059	dir := FileSelectionBox lastFileSelectionDirectory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2060	dir notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2061	fileBox directory:dir.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2062	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2063	fileBox showAtPointer.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2064	fileBox destroy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2065	saveName isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2066	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2067	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2068	saveName isEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2069	self warn:'bad name given'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2070	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2071	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2072	FileSelectionBox lastFileSelectionDirectory:(saveName asFilename directoryName).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2073
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2074	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2075
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2076	self busyLabel:'saving %1' with:currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2077	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2078	self warn:'cannot fileOut: %1\(%2)' with:currentClass name with:ex errorString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2079
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2080	ex return.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2081	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2082	saveName notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2083	currentClass fileOutAs:saveName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2084	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2085	currentClass fileOut.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2086	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2087	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2088	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2089	self normalLabel.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2090	]
762 754eee5d2bdb more stuff for private classes Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2091
1139 746f9459e234 added 'fileOut as' menu item Claus Gittinger <cg@exept.de> parents: 1137 diff changeset	2092	"Created: 16.4.1997 / 20:55:01 / cg"
1313 a287a275aaef remember last 'fileout as...' directory. Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2093	"Modified: 9.9.1997 / 10:11:35 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2094	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2095
336 94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2096	classFileOutBinary
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2097	"fileOut the current class as binary bytecode."
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2098
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2099	\|mode\|
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2100
337 da49a43210e8 added cancel to fileOutBinary sourceMode-query Claus Gittinger <cg@exept.de> parents: 336 diff changeset	2101	mode := Dialog choose:(resources string:'save including sources ?')
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2102	labels:(resources array:#('cancel' 'discard' 'by file reference' 'include source'))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2103	values:#(nil #discard #reference #keep)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2104	default:#keep.
336 94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2105
337 da49a43210e8 added cancel to fileOutBinary sourceMode-query Claus Gittinger <cg@exept.de> parents: 336 diff changeset	2106	mode isNil ifTrue:[^ self]. "/ cancelled
da49a43210e8 added cancel to fileOutBinary sourceMode-query Claus Gittinger <cg@exept.de> parents: 336 diff changeset	2107
336 94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2108	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2109	\|msg\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2111	currentClass isPrivate ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2112	self warn:'You must fileOut the owning class: ' , currentClass owningClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2113	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2114	self busyLabel:'saving binary of %1' with:currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2115	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2116	self warn:'cannot create: %1\(%2)' with:ex parameter with:ex errorString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2117
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2118	ex return.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2119	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2120	currentClass binaryFileOutWithSourceMode:mode.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2121	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2122	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2123	self normalLabel.
336 94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2124	]
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2125
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2126	"Created: 24.1.1996 / 21:11:03 / cg"
762 754eee5d2bdb more stuff for private classes Claus Gittinger <cg@exept.de> parents: 759 diff changeset	2127	"Modified: 14.10.1996 / 20:12:46 / cg"
336 94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2128	!
94bcf2e93ad7 added binaryFileOut Claus Gittinger <cg@exept.de> parents: 333 diff changeset	2129
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2130	classHierarchy
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2131	"show current classes hierarchy in codeView"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2132
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2133	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2134	\|aStream\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2135
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2136	aStream := WriteStream on:(String new:200).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2137	actualClass printHierarchyOn:aStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2138	codeView contents:(aStream contents).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2139	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2140	codeView acceptAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2141	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2142	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2143	methodListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2144	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2145	aspect := #hierarchy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2146	self normalLabel
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2147	]
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	2148
a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	2149	"Modified: 25.5.1996 / 13:02:37 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2150	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2151
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2152	classInspect
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2153	"inspect the current class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2154
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2155	self checkClassSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2156
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2157	currentClass inspect.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2158	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2159
393 f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2160	classInstancesInspect
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2161	"inspect the current classes instances"
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2162
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2163	self checkClassSelected ifFalse:[^ self].
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2164
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2165	currentClass allInstances inspect.
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2166
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2167	"Created: 24.2.1996 / 16:12:14 / cg"
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2168	!
f77385d5fcb6 added insspectInstances Claus Gittinger <cg@exept.de> parents: 387 diff changeset	2169
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2170	classLoad
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2171	"load an autoloaded class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2172
884 4e3796d405bc checkin from browser Claus Gittinger <cg@exept.de> parents: 883 diff changeset	2173	\|nm nameShown\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2174
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2175	self checkClassSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2176	nm := currentClass name.
884 4e3796d405bc checkin from browser Claus Gittinger <cg@exept.de> parents: 883 diff changeset	2177	nameShown := self displayedClassNameOf:currentClass.
987 e24e45bd126a dont update while loading Claus Gittinger <cg@exept.de> parents: 985 diff changeset	2178
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2179	Autoload autoloadFailedSignal handle:[:ex \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2180	self warn:(resources string:'autoload of %1 failed.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2181
1313 a287a275aaef remember last 'fileout as...' directory. Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2182	Check your source directory for a file named ''%2.st''
a287a275aaef remember last 'fileout as...' directory. Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2183	and/or the abbreviation file for its (correct) shortened name.')
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2184	with:nm with:(Smalltalk fileNameForClass:currentClass).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2185	ex return.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2186	] do:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2187	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2188	lockUpdates := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2189	[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2190	currentClass autoload.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2191	] valueNowOrOnUnwindDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2192	lockUpdates := false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2193	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2194
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2195	currentClass := actualClass := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2196	"/ reselect the current class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2197	showInstance ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2198	nameShown := nameShown , ' class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2199	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2200	self switchToClassNamed:nameShown
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2201	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2202	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2203
1313 a287a275aaef remember last 'fileout as...' directory. Claus Gittinger <cg@exept.de> parents: 1308 diff changeset	2204	"Modified: 9.9.1997 / 11:26:31 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2205	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2206
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2207	classMakePrivate
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2208	"change a class from public to private;
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2209	ask for the owners class, check if a private class with the same name exists,
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2210	before doing this."
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2211
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2212	\|ownerName owner sel newClass\|
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2213
1232 0fa4ace4c46e fixed check for existing class in make-public; Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2214	ownerName := Dialog request:(resources string:'name of owner class:').
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2215	ownerName size == 0 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2216	"/ cancelled
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2217	^ self
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2218	].
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2219	owner := Smalltalk classNamed:ownerName.
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2220	owner isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2221	self warn:(resources string:'no class named ''%1'' found - try again.' with:ownerName).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2222	^ self
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2223	].
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2224
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2225	(owner privateClassesAt:currentClass name) notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2226	self warn:(resources
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2227	string:'a private class named ''%1'' already exists in ''%2''.\\Please remove/rename that one first,\or rename the public class ''%1'' here\and try again.'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2228	with:currentClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2229	with:ownerName)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2230	withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2231	^ self
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2232	].
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2233
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2234	currentClass makePrivateIn:owner
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2235
1232 0fa4ace4c46e fixed check for existing class in make-public; Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2236	"Modified: 3.7.1997 / 13:26:16 / cg"
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2237	!
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2238
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2239	classMakePublic
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2240	"change a class from private to public;
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2241	check if a public class with the same name exists,
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2242	before doing this."
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2243
1232 0fa4ace4c46e fixed check for existing class in make-public; Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2244	(Smalltalk classNamed:(currentClass nameWithoutPrefix)) notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2245	self warn:(resources
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2246	string:'a public class named ''%1'' already exists.\\Please remove/rename that one first,\or rename the private class ''%1'' here\and try again.'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2247	with:currentClass nameWithoutPrefix) withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2248	^ self
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2249	].
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2250
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2251	currentClass makePublic
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2252
1232 0fa4ace4c46e fixed check for existing class in make-public; Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2253	"Modified: 3.7.1997 / 13:26:21 / cg"
1195 4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2254	!
4ace0b600739 added make-class-private/public Claus Gittinger <cg@exept.de> parents: 1194 diff changeset	2255
74 f2c56efa3599 Initial revision claus parents: diff changeset	2256	classMenu
926 a7c7814c9426 * empty log message * Claus Gittinger <cg@exept.de> parents: 925 diff changeset	2257	"sent by classListView to ask for the menu"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2258
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2259	<resource: #keyboard ( #Cmdl #Cmdn #Cmdd) >
68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2260
68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2261	\|specialMenu labels selectors shorties m newClassMenu spawnMenu idx\|
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2262
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	2263	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2264	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2265	'fileIn new from repository ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2266	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2267
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2268	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2269	classLoadNewRevision
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2270	).
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	2271	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2272	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2273	'fileOut binary'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2274	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2275	'inspect class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2276	'inspect instances'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2277	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2278	'make private class ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2279	'make public class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2280	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2281	'primitive definitions'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2282	'primitive variables'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2283	'primitive functions'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2284	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2285	'source container ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2286	'remove source container ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2287	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2288	'revision log'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2289	'compare with repository ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2290	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2291	'check into source repository'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2292	'fileIn from repository ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2293	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2294	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2295	classFileOutBinary
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2296	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2297	classInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2298	classInstancesInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2299	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2300	classMakePrivate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2301	classMakePublic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2302	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2303	classPrimitiveDefinitions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2304	classPrimitiveVariables
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2305	classPrimitiveFunctions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2306	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2307	classModifyContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2308	classRemoveContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2309	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2310	classRevisionInfo
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2311	classCompareWithRepository
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2312	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2313	classCheckin
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2314	classLoadRevision
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2315	).
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	2316	].
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2317
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2318	specialMenu := PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2319	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2320	selectors:selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2321	receiver:self.
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2322
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	2323	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2324	currentClass sourceCodeManager isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2325	specialMenu disableAll:#(classModifyContainer classRemoveContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2326	classRevisionInfo
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2327	classLoadRevision classCheckin
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2328	classCompareWithRepository).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2329	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2330	currentClass isPrivate ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2331	specialMenu disableAll:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2332	classFileOutBinary
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2333	classMakePrivate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2334	classModifyContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2335	classRemoveContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2336	classRevisionInfo
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2337	classLoadRevision classCheckin
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2338	classCompareWithRepository
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2339	classPrimitiveDefinitions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2340	classPrimitiveVariables
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2341	classPrimitiveFunctions).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2342	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2343	specialMenu disableAll:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2344	classFileOutBinary
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2345	classMakePublic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2346	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2347	]
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	2348	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2349	SourceCodeManager isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2350	specialMenu disableAll:#(classLoadNewRevision)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2351	]
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2352	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2353
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2354	(currentClass notNil
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2355	and:[currentClass isLoaded not]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2356	specialMenu disableAll:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2357	classInstancesInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2358	classFileOutBinary
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2359	classMakePrivate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2360	classMakePublic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2361	classModifyContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2362	classRemoveContainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2363	classRevisionInfo
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2364	classLoadRevision
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2365	classCheckin
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2366	classCompareWithRepository
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2367	classPrimitiveDefinitions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2368	classPrimitiveVariables
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2369	classPrimitiveFunctions).
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2370	].
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	2371
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2372	device ctrlDown ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2373	^ specialMenu
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2374	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2375
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2376	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2377	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2378	'new class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2379	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2380	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2381	classNewClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2382	).
246 9f1583be2b81 ask class for its SourceCodeManager Claus Gittinger <cg@exept.de> parents: 244 diff changeset	2383	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2384	currentClass isLoaded ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2385	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2386	'documentation'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2387	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2388	'class refs'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2389	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2390	'new class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2391	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2392	'load'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2393	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2394	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2395	classDocumentation
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2396	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2397	classRefs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2398	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2399	classNewClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2400	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2401	classLoad
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2402	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2403	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2404	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2405	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2406	'hierarchy'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2407	'definition'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2408	'documentation'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2409	'comment'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2410	'class instvars'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2411	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2412	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2413	classHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2414	classDefinition
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2415	classDocumentation
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2416	classComment
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2417	classClassInstVars
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2418	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2419	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2420	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2421	'fileOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2422	'fileOut as ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2423	'printOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2424	'printOut protocol'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2425	" 'printOut full protocol' "
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2426	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2427	'spawn ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2428	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2429	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2430	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2431	classFileOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2432	classFileOutAs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2433	classPrintOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2434	classPrintOutProtocol
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2435	" classPrintOutFullProtocol "
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2436	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2437	spawnMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2438	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2439	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2440
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2441	spawnMenu := PopUpMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2442	labels:(resources array:#('class' 'full protocol' 'hierarchy' 'subclasses'))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2443	selectors:#(classSpawn classSpawnFullProtocol classSpawnHierarchy classSpawnSubclasses).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2444
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2445
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2446	fullClass ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2447	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2448	'hierarchy'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2449	'definition'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2450	'documentation'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2451	'comment'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2452	'class instvars'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2453	"/ 'protocols'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2454	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2455	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2456	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2457	classHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2458	classDefinition
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2459	classDocumentation
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2460	classComment
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2461	classClassInstVars
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2462	"/ classProtocols
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2463	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2464	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2465	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2466
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2467	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2468	'class refs'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2469	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2470	'new ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2471	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2472	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2473	classRefs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2474	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2475	newClassMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2476	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2477
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2478	newClassMenu := PopUpMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2479	labels:(resources array:#('class' 'subclass' 'private class'))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2480	selectors:#(classNewClass classNewSubclass classNewPrivateClass).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2481
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2482	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2483	'rename ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2484	'remove'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2485	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2486	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2487	classRename
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2488	classRemove
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2489	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2490
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2491	currentClass wasAutoloaded ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2492	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2493	'unload'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2494	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2495	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2496	classUnload
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2497	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2498	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2499	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2500	].
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2501	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2502
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	2503	shorties := (Array new:labels size) , #(nil #'Ctrl').
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2504	(idx := selectors identityIndexOf:#classNewClass) ~~ 0 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2505	shorties at:idx put:#Cmdn
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2506	].
68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2507	(idx := selectors identityIndexOf:#classLoad) ~~ 0 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2508	shorties at:idx put:#Cmdl
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2509	].
68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	2510	(idx := selectors identityIndexOf:#classDocumentation) ~~ 0 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2511	shorties at:idx put:#Cmdd
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	2512	].
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	2513
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2514	labels := labels , #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2515	'='
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2516	'others'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2517	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2518	selectors := selectors , #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2519	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2520	otherMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2521	).
180 b1dfe27837fa * empty log message * Claus Gittinger <cg@exept.de> parents: 174 diff changeset	2522	m := PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2523	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2524	selectors:selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2525	accelerators:shorties.
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2526
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	2527	newClassMenu notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2528	m subMenuAt:#newClassMenu put:newClassMenu.
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	2529	].
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	2530	spawnMenu notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2531	m subMenuAt:#spawnMenu put:spawnMenu.
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	2532	].
768 c74bce2106ae checkin from browser Claus Gittinger <cg@exept.de> parents: 767 diff changeset	2533
c74bce2106ae checkin from browser Claus Gittinger <cg@exept.de> parents: 767 diff changeset	2534	(currentClass notNil
c74bce2106ae checkin from browser Claus Gittinger <cg@exept.de> parents: 767 diff changeset	2535	and:[currentClass isPrivate]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2536	m disableAll:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2537	classFileOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2538	)
767 f92a7f3dc2aa * empty log message * Claus Gittinger <cg@exept.de> parents: 766 diff changeset	2539	].
f92a7f3dc2aa * empty log message * Claus Gittinger <cg@exept.de> parents: 766 diff changeset	2540
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	2541	m subMenuAt:#otherMenu put:specialMenu.
180 b1dfe27837fa * empty log message * Claus Gittinger <cg@exept.de> parents: 174 diff changeset	2542	^ m
b1dfe27837fa * empty log message * Claus Gittinger <cg@exept.de> parents: 174 diff changeset	2543
1232 0fa4ace4c46e fixed check for existing class in make-public; Claus Gittinger <cg@exept.de> parents: 1230 diff changeset	2544	"Modified: 3.7.1997 / 13:16:28 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2545	!
f2c56efa3599 Initial revision claus parents: diff changeset	2546
f2c56efa3599 Initial revision claus parents: diff changeset	2547	classNewClass
f2c56efa3599 Initial revision claus parents: diff changeset	2548	"create a class-definition prototype in codeview"
f2c56efa3599 Initial revision claus parents: diff changeset	2549
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2550	\|theClass cls\|
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2551
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2552	theClass := Object.
74 f2c56efa3599 Initial revision claus parents: diff changeset	2553	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2554	(cls := currentClass superclass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2555	theClass := cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2556	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	2557	].
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	2558	self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2559	classClassDefinitionTemplateFor:theClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2560	in:currentClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2561	namespace:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2562	private:false.
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2563
74 f2c56efa3599 Initial revision claus parents: diff changeset	2564	aspect := nil.
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2565
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2566	"Modified: 4.1.1997 / 14:52:16 / cg"
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2567	!
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2568
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2569	classNewPrivateClass
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2570	"create a class-definition prototype in codeview"
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2571
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	2572	self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2573	classClassDefinitionTemplateFor:Object
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2574	in:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2575	namespace:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2576	private:true.
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2577	aspect := nil.
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2578
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2579	"Created: 11.10.1996 / 16:01:20 / cg"
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2580	"Modified: 4.1.1997 / 14:51:49 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2581	!
f2c56efa3599 Initial revision claus parents: diff changeset	2582
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2583	classNewSubclass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2584	"create a subclass-definition prototype in codeview"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2585
f2c56efa3599 Initial revision claus parents: diff changeset	2586	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2587	self classClassDefinitionTemplateFor:currentClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2588	in:(currentClass category)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2589	namespace:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2590	private:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2591	aspect := nil
74 f2c56efa3599 Initial revision claus parents: diff changeset	2592	]
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	2593
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	2594	"Modified: 4.1.1997 / 14:51:44 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2595	!
f2c56efa3599 Initial revision claus parents: diff changeset	2596
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2597	classPrimitiveDefinitions
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2598	"show the classes primitiveDefinition in the codeView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2599	Also, set accept action to change it."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2600
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2601	self classShowFrom:#primitiveDefinitionsString
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2602	set:#primitiveDefinitions:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2603	aspect:#primitiveDefinitions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2604	default:'%{
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2605
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2606	/*
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2607	* includes, defines, structure definitions
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2608	* and typedefs come here.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2609	*/
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2610
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2611	%}'
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2612	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2613
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2614	classPrimitiveFunctions
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2615	"show the classes primitiveFunctions in the codeView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2616	Also, set accept action to change it."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2617
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2618	self classShowFrom:#primitiveFunctionsString
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2619	set:#primitiveFunctions:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2620	aspect:#primitiveFunctions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2621	default:'%{
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2622
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2623	/*
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2624	* any local C (helper) functions
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2625	* come here (please, define as static)
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2626	*/
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2627
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2628	%}'
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2629	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2630
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2631	classPrimitiveVariables
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2632	"show the classes primitiveVariables in the codeView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2633	Also, set accept action to change it."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2634
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2635	self classShowFrom:#primitiveVariablesString
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2636	set:#primitiveVariables:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2637	aspect:#primitiveVariables
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2638	default:'%{
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2639
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2640	/*
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2641	* any local C variables
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2642	* come here (please, define as static)
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2643	*/
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2644
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2645	%}'
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2646	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2647
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2648	classPrintOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2649	self classPrintOutWith:#printOutOn:
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2650	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2651
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2652	classPrintOutFullProtocol
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2653	self classPrintOutWith:#printOutFullProtocolOn:
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2654	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2655
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2656	classPrintOutProtocol
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2657	self classPrintOutWith:#printOutProtocolOn:
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2658	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2659
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2660	classPrintOutWith:aSelector
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2661	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2662	\|printStream\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2663
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2664	printStream := Printer new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2665	currentClass perform:aSelector with:printStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2666	printStream close
152 d03618e99b3c show warnbox when autoload fails (instead of running into the debugger) Claus Gittinger <cg@exept.de> parents: 151 diff changeset	2667	]
105 520f37755229 . claus parents: 98 diff changeset	2668	!
520f37755229 . claus parents: 98 diff changeset	2669
74 f2c56efa3599 Initial revision claus parents: diff changeset	2670	classProtocols
f2c56efa3599 Initial revision claus parents: diff changeset	2671	^ self
f2c56efa3599 Initial revision claus parents: diff changeset	2672	!
f2c56efa3599 Initial revision claus parents: diff changeset	2673
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2674	classRefs
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2675	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2676	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2677	SystemBrowser browseReferendsOf:currentClass name asSymbol
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2678	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2679	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2680
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2681	"Created: 23.11.1995 / 14:11:43 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	2682	"Modified: 18.8.1997 / 15:43:47 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2683	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2684
74 f2c56efa3599 Initial revision claus parents: diff changeset	2685	classRemove
f2c56efa3599 Initial revision claus parents: diff changeset	2686	"user requested remove of current class and all subclasses -
f2c56efa3599 Initial revision claus parents: diff changeset	2687	count subclasses and let user confirm removal."
f2c56efa3599 Initial revision claus parents: diff changeset	2688
f2c56efa3599 Initial revision claus parents: diff changeset	2689	\|count t box\|
f2c56efa3599 Initial revision claus parents: diff changeset	2690
f2c56efa3599 Initial revision claus parents: diff changeset	2691	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2692	count := currentClass allSubclasses size.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2693	t := 'remove %1'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2694	count ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2695	t := t , '\(with %2 subclass'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2696	count ~~ 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2697	t := t , 'es'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2698	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2699	t := (t , ')')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2700	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2701	t := t , ' ?'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2702	t := (resources string:t with:currentClass name with:count) withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2703
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2704	box := YesNoBox
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2705	title:t
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2706	yesText:(resources at:'remove')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2707	noText:(resources at:'abort').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2708	box label:(resources string:'remove class').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2709
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2710	box confirm ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2711	"after querying user - do really remove current class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2712	and all subclasses
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2713	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2714	self doClassMenu:[:currentClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2715	\|didRemove\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2716
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2717	didRemove := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2718
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2719	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2720	query ?
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2721	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2722	currentClass allSubclassesDo:[:aSubClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2723	(CheckForInstancesWhenRemovingClasses not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2724	or:[aSubClass hasInstances not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2725	or:[self confirm:(resources string:'''%1'' has instances - remove anyway ?' with:aSubClass name)]])
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2726	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2727	aSubClass removeFromSystem
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2728	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2729	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2730	(CheckForInstancesWhenRemovingClasses not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2731	or:[currentClass hasInstances not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2732	or:[self confirm:(resources string:'''%1'' has instances - remove anyway ?' with:currentClass name)]])
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2733	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2734	didRemove := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2735	currentClass removeFromSystem.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2736	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2737
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2738	didRemove ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2739	self switchToClass:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2740	Smalltalk changed.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2741	self updateClassList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2742
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2743	"if it was the last in its category, update class category list"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2744
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2745	"/ classListView numberOfLines == 0 ifTrue:[
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2746	"/ self updateClassCategoryListWithScroll:false
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2747	"/ ].
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2748
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2749	methodCategoryListView notNil ifTrue:[methodCategoryListView contents:nil].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2750	methodListView notNil ifTrue:[methodListView contents:nil].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2751	codeView contents:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2752	codeView modified:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2753	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2754	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2755	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2756	box destroy.
74 f2c56efa3599 Initial revision claus parents: diff changeset	2757	]
916 fcc0c3c945d4 destroy box after use Claus Gittinger <cg@exept.de> parents: 910 diff changeset	2758
1280 54b004f16f9d use #removeFromSystem (to class) to remove a class. Claus Gittinger <cg@exept.de> parents: 1278 diff changeset	2759	"Modified: 12.8.1997 / 02:23:19 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2760	!
f2c56efa3599 Initial revision claus parents: diff changeset	2761
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2762	classRename
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2763	"launch an enterBox for new name and query user"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2764
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2765	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2766
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2767	self checkClassSelected ifFalse:[^ self].
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2768	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2769	enterBoxTitle:(resources string:'rename %1 to:' with:currentClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2770	okText:'rename'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2771	label:'rename class'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2772
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2773	box initialText:(currentClass name).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2774	box action:[:aString \| self renameCurrentClassTo:aString].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2775	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2776
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	2777	"Modified: 15.1.1997 / 23:10:15 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2778	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2779
107 db1b370632d7 . claus parents: 106 diff changeset	2780	classShowFrom:getSelector set:setSelector aspect:aspectSymbol default:default
74 f2c56efa3599 Initial revision claus parents: diff changeset	2781	"common helper for comment, primitive-stuff etc.
f2c56efa3599 Initial revision claus parents: diff changeset	2782	show the string returned from the classes getSelector-method,
f2c56efa3599 Initial revision claus parents: diff changeset	2783	Set acceptaction to change it via setSelector."
f2c56efa3599 Initial revision claus parents: diff changeset	2784
f2c56efa3599 Initial revision claus parents: diff changeset	2785	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2786	\|text\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2787
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2788	text := currentClass perform:getSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2789	text isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2790	text := default
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2791	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2792	codeView contents:text.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2793	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2794	codeView acceptAction:[:theCode \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2795	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2796	lockUpdates := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2797	currentClass perform:setSelector with:theCode asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2798	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2799	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2800	lockUpdates := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2801	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2802	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2803
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2804	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2805	methodListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2806	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2807	aspect := aspectSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2808	self normalLabel
74 f2c56efa3599 Initial revision claus parents: diff changeset	2809	]
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	2810
a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	2811	"Modified: 25.5.1996 / 13:02:40 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2812	!
f2c56efa3599 Initial revision claus parents: diff changeset	2813
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2814	classSpawn
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2815	"create a new SystemBrowser browsing current class,
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2816	or if there is a selection, spawn a browser on the selected class
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2817	even a class/selector pair can be specified."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2818
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2819	self doClassMenuWithSelection:[:cls :sel \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2820	\|browser\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2821
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2822	cls isMeta ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2823	self listOfNamespaces do:[:aNamespace \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2824	aNamespace allBehaviorsDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2825	aClass class == cls ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2826	browser := SystemBrowser browseClass:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2827	browser instanceProtocol:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2828	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2829	browser switchToMethodNamed:sel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2830	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2831	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2832	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2833	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2834	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2835	self warn:'oops, no class for this metaclass'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2836	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2837	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2838	browser := SystemBrowser browseClass:cls.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2839	cls hasMethods ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2840	browser instanceProtocol:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2841	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2842	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2843	browser switchToMethodNamed:sel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2844	].
74 f2c56efa3599 Initial revision claus parents: diff changeset	2845	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2846
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2847	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2848	select 'Smalltalk allClassesDo:' and use spawn from the class menu
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2849	select 'Smalltalk' and use spawn from the class menu
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2850	"
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	2851
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	2852	"Modified: 20.12.1996 / 15:41:16 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2853	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2854
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2855	classSpawnFullProtocol
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2856	"create a new browser, browsing current classes full protocol"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2857
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2858	self doClassMenuWithSelection:[:cls :sel \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2859	SystemBrowser browseFullClassProtocol:cls
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2860	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2861	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2862
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2863	classSpawnHierarchy
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2864	"create a new HierarchyBrowser browsing current class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2865
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2866	self doClassMenuWithSelection:[:cls :sel \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2867	SystemBrowser browseClassHierarchy:cls
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2868	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2869	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2870
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2871	classSpawnSubclasses
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2872	"create a new browser browsing current class's subclasses"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2873
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2874	self doClassMenuWithSelection:[:cls :sel \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2875	\|subs\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2876
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2877	subs := OrderedCollection new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2878	self classHierarchyOf:cls withAutoloaded:false do:[:aClass :lvl \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2879	subs add:(String new:lvl*2) , aClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2880	].
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	2881	"/ subs := cls allSubclasses.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2882	(subs notNil and:[subs size ~~ 0]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2883	SystemBrowser browseClasses:subs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2884	title:('subclasses of ' , cls name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2885	sort:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2886	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	2887	]
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	2888
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	2889	"Modified: 4.1.1997 / 13:35:55 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	2890	!
f2c56efa3599 Initial revision claus parents: diff changeset	2891
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2892	classUnload
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2893	"unload an autoloaded class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2894
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2895	\|nm\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2896
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2897	self checkClassSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2898	nm := currentClass name.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2899	currentClass unload.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2900	self switchToClassNamed:nm
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2901	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2902
74 f2c56efa3599 Initial revision claus parents: diff changeset	2903	classUses
f2c56efa3599 Initial revision claus parents: diff changeset	2904	"a powerful tool, when trying to learn more about where
f2c56efa3599 Initial revision claus parents: diff changeset	2905	a class is used. This one searches all uses of a class,
f2c56efa3599 Initial revision claus parents: diff changeset	2906	and shows a list of uses - try it and like it"
f2c56efa3599 Initial revision claus parents: diff changeset	2907
f2c56efa3599 Initial revision claus parents: diff changeset	2908	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2909	self withSearchCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2910	SystemBrowser browseUsesOf:currentClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2911	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2912	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2913
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2914	"Created: 23.11.1995 / 14:11:47 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2915	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2916
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2917	doClassMenuWithSelection:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2918	"a helper - if there is a selection, which represents a classes name,
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2919	evaluate aBlock, passing that class and optional selector as arguments.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2920	Otherwise, check if a class is selected and evaluate aBlock with the
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2921	current class."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2922
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2923	\|string words clsName cls sel isMeta\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2924
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2925	string := codeView selection.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2926	string notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2927	self extractClassAndSelectorFromSelectionInto:[:c :s :m \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2928	clsName := c.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2929	sel := s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2930	isMeta := m.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2931	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2932	clsName isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2933	string := string asString withoutSeparators.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2934	words := string asCollectionOfWords.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2935	words notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2936	clsName := words first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2937	(clsName endsWith:' class') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2938	isMeta := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2939	clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2940	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2941	isMeta := false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2942	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2943	sel := Parser selectorInExpression:string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2944	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2945	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2946	clsName notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2947	(cls := Smalltalk classNamed:clsName) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2948	isMeta ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2949	cls := cls class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2950	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2951	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2952	aBlock value:cls value:sel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2953	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2954	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2955	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2956	self warn:'no class named: %1 - spawning current' with:clsName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2957	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2958	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2959	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2960
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2961	classMethodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2962	sel := classMethodListView selectionValue string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2963	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2964	sel := self selectorFromClassMethodString:sel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2965	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2966	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2967	self doClassMenu:[:currentClass \| aBlock value:currentClass value:sel]
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	2968
24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	2969	"Modified: 17.6.1996 / 16:51:49 / stefan"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	2970	"Modified: 18.8.1997 / 15:44:01 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2971	! !
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2972
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2973	!BrowserView methodsFor:'class list source administration'!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	2974
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	2975	classCheckin
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	2976	"check a class into the source repository"
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	2977
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2978	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2979	self warn:'cannot checkin unloaded classes.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2980	^ self.
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	2981	].
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	2982	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2983	self classCheckin:currentClass withLog:nil
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2984	].
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2985
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2986	"Created: 23.11.1995 / 11:41:38 / cg"
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2987	"Modified: 15.4.1996 / 17:07:07 / cg"
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2988	!
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2989
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2990	classCheckin:aClass withLog:aLogMessage
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2991	"check a class into the source repository"
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2992
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2993	\|logMessage info mgr\|
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2994
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2995	aClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2996	self information:'cannot checkin unloaded classes (' , aClass name , ').'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	2997	^ self.
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2998	].
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	2999
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3000	aLogMessage isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3001	logMessage := self getLogMessageFor:aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3002	logMessage isNil ifTrue:[^ self].
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3003	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3004	logMessage := aLogMessage
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3005	].
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3006
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3007	mgr := (aClass sourceCodeManager).
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3008	info := mgr sourceInfoOfClass:aClass.
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3009
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3010	(info isNil
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3011	or:[(info at:#fileName ifAbsent:nil) isNil
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3012	or:[(info at:#module ifAbsent:nil) isNil
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3013	or:[(info at:#directory ifAbsent:nil) isNil]]]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3014	(self classCreateSourceContainerFor:aClass) ifFalse:[^ self].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3015	^ self.
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3016	].
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3017
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3018	lastSourceLogMessage := logMessage.
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3019	self busyLabel:'checking in %1' with:aClass name.
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3020	Processor activeProcess withLowerPriorityDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3021	(mgr checkinClass:aClass logMessage:logMessage) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3022	self warn:'checkin failed'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3023	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3024	aspect == #revisionInfo ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3025	self classListUpdate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3026	].
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3027	].
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3028	self normalLabel.
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3029
ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3030	"Created: 15.4.1996 / 17:06:39 / cg"
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3031	"Modified: 15.6.1996 / 00:22:49 / stefan"
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3032	"Modified: 21.12.1996 / 19:01:06 / cg"
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3033	!
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3034
903 843c830fa921 show repositories version when comparing with newest Claus Gittinger <cg@exept.de> parents: 902 diff changeset	3035	classCompareWithRepository
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3036	"open a diff-textView comparing the current (in-image) version
903 843c830fa921 show repositories version when comparing with newest Claus Gittinger <cg@exept.de> parents: 902 diff changeset	3037	with the some version found in the repository."
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3038
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3039	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3040	self warn:'cannot compare unloaded classes.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3041	^ self.
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3042	].
9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3043
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3044	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3045	\|aStream comparedSource currentSource v rev revString thisRevString mgr
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3046	nm msg\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3047
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3048	nm := currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3049
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3050	rev := currentClass binaryRevision.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3051	mgr := currentClass sourceCodeManager.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3052
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3053	msg := resources string:'compare to revision: (empty for newest)'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3054	rev notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3055	msg := msg , '\\' , (resources string:'(%1 is based upon rev %2)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3056	with:nm with:rev)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3057	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3058	rev := Dialog request:msg withCRs onCancel:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3059
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3060	rev notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3061	rev withoutSpaces isEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3062	msg := 'extracting newest %1'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3063	aStream := mgr getMostRecentSourceStreamForClassNamed:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3064	revString := '(newest)'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3065	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3066	msg := 'extracting previous %1'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3067	aStream := mgr getSourceStreamFor:currentClass revision:rev.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3068	revString := rev
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3069	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3070	self busyLabel:msg with:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3071
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3072	aStream isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3073	self warn:'could not extract source from repository'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3074	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3075	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3076	comparedSource := aStream contents asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3077	aStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3078
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3079	self busyLabel:'generating current source ...' with:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3080
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3081	aStream := '' writeStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3082	Method flushSourceStreamCache.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3083	currentClass fileOutOn:aStream withTimeStamp:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3084	currentSource := aStream contents asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3085	aStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3086
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3087	self busyLabel:'comparing ...' with:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3088
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3089	comparedSource = currentSource ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3090	self information:'versions are identical'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3091	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3092	thisRevString := currentClass revision.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3093	thisRevString isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3094	thisRevString := 'no revision'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3095	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3096
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3097	revString = '(newest)' ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3098	(rev := mgr newestRevisionOf:currentClass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3099	revString := '(newest is' , rev , ')'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3100	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3101	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3102
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3103	v := DiffTextView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3104	openOn:currentSource label:'current: (based on: ' , thisRevString , ')'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3105	and:comparedSource label:'repository: ' , revString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3106	v label:'comparing ' , nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3107	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3108	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3109	]
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3110	]
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3111
903 843c830fa921 show repositories version when comparing with newest Claus Gittinger <cg@exept.de> parents: 902 diff changeset	3112	"Created: 4.1.1997 / 15:48:20 / cg"
1046 e5f4d06007c6 resource strings Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	3113	"Modified: 28.2.1997 / 11:44:15 / cg"
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3114	!
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3115
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3116	classCreateSourceContainerFor:aClass
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3117	"let user specify the source-repository values for aClass"
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3118
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3119	^ self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3120	classDefineSourceContainerFor:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3121	title:(resources string:'Repository information for %1' with:aClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3122	text:(resources string:'CREATE_REPOSITORY' with:aClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3123	createDirectories:true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3124	createContainer:true.
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3125
479 ad4d7b705747 better checkin-each for new classes Claus Gittinger <cg@exept.de> parents: 474 diff changeset	3126	"Modified: 15.4.1996 / 17:07:57 / cg"
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3127	!
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3128
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3129	classDefineSourceContainerFor:aClass title:title text:boxText createDirectories:createDirs createContainer:createContainer
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3130	"let user specify the source-repository values for aClass"
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3131
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3132	\|box className
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3133	moduleHolder packageHolder fileNameHolder
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3134	oldModule oldPackage oldFileName
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3135	module package fileName
847 6666c82b9a82 checkin from browser Claus Gittinger <cg@exept.de> parents: 846 diff changeset	3136	y component info project nm mgr creatingNew msg\|
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3137
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3138	aClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3139	self warn:'please load the class first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3140	^ false.
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3141	].
9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3142
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3143	className := aClass name.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3144
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3145	"/
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3146	"/ defaults, if nothing at all is known
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3147	"/
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3148	(module := lastModule) isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3149	module := (OperatingSystem getLoginName).
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3150	].
9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3151	(package := lastPackage) isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3152	package := 'private'.
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3153	].
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3154
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3155	"/
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3156	"/ try to extract some useful defaults from the current project
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3157	"/
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3158	(Project notNil and:[(project := Project current) notNil]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3159	package isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3160	(nm := project repositoryDirectory) isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3161	nm := project name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3162	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3163	package := nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3164	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3165	module isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3166	(nm := project repositoryModule) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3167	module := nm
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3168	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3169	].
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3170	].
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3171
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3172	"/
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3173	"/ ask the sourceCodeManager if it knows anything about that class
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3174	"/ if so, take that as a default.
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3175	"/
263 7b9622ce4fcc more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 261 diff changeset	3176	info := (mgr := aClass sourceCodeManager) sourceInfoOfClass:aClass.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3177	info notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3178	(info includesKey:#module) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3179	module := (info at:#module).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3180	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3181	(info includesKey:#directory) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3182	package := (info at:#directory).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3183	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3184	fileName := mgr containerFromSourceInfo:info.
349 a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3185	"/ (info includesKey:#fileName) ifTrue:[
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3186	"/ fileName := (info at:#fileName).
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3187	"/ ] ifFalse:[
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3188	"/ (info includesKey:#expectedFileName) ifTrue:[
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3189	"/ fileName := (info at:#expectedFileName).
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3190	"/ ] ifFalse:[
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3191	"/ (info includesKey:#classFileNameBase) ifTrue:[
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3192	"/ fileName := (info at:#classFileNameBase) , '.st'.
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3193	"/ ]
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3194	"/ ]
a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3195	"/ ]
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3196	].
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3197
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3198	fileName isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3199	fileName := (Smalltalk fileNameForClass:aClass) , '.st'.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3200	].
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3201
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3202	fileNameHolder := fileName asValue.
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3203	moduleHolder := module asValue.
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3204	packageHolder := package asValue.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3205
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3206	"/
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3207	"/ should check for conflicts (i.e. if such a container already exists) ...
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3208	"/
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3209	(mgr checkForExistingContainerInModule:module
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3210	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3211	container:fileName) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3212	"/ for now - this needs more work.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3213
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3214	"/ self information:(resources
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3215	"/ string:'%1 is already contained in the container:
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3216	"/
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3217	"/ %2 / %3 / %4'
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3218	"/ with:className
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3219	"/ with:module
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3220	"/ with:package
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3221	"/ with:fileName).
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3222	"/ ^ false.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3223	"/
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3224	(Dialog confirm:(resources
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3225	string:'Notice: there already is a container for %1 in:
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3226
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3227	%2 / %3 / %4
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3228
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3229	To change it, press continue.'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3230	with:className
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3231	with:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3232	with:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3233	with:fileName)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3234	yesLabel:(resources string:'continue')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3235	noLabel:(resources string:'cancel'))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3236	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3237	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3238	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3239	oldModule := module.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3240	oldPackage := package.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3241	oldFileName := fileName
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3242	].
257 ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3243
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3244	"/
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3245	"/ open a dialog for this
ae35f9ab8f11 more on source-code container creation Claus Gittinger <cg@exept.de> parents: 253 diff changeset	3246	"/
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3247	box := DialogBox new.
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3248	box label:title.
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3249
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3250	component := box addTextLabel:boxText withCRs.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3251	component adjust:#left; borderWidth:0.
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3252	box addVerticalSpace.
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3253	box addVerticalSpace.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3254
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3255	y := box yPosition.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3256	component := box addTextLabel:(resources string:'Module:').
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3257	component width:0.4; adjust:#right.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3258	box yPosition:y.
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3259	component := box addInputFieldOn:moduleHolder tabable:true.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3260	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3261
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3262	box addVerticalSpace.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3263	y := box yPosition.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3264	component := box addTextLabel:'Package:'.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3265	component width:0.4; adjust:#right.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3266	box yPosition:y.
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3267	component := box addInputFieldOn:packageHolder tabable:true.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3268	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3269
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3270	box addVerticalSpace.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3271	y := box yPosition.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3272	component := box addTextLabel:'Filename:'.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3273	component width:0.4; adjust:#right.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3274	box yPosition:y.
260 9b5aa1495864 dont do sourcecode stuff on autoloaded classes; interface to create new modules/packages Claus Gittinger <cg@exept.de> parents: 257 diff changeset	3275	component := box addInputFieldOn:fileNameHolder tabable:true.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3276	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3277
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3278	box addVerticalSpace.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3279
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3280	(mgr checkForExistingContainerInModule:module
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3281	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3282	container:fileName) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3283	component := box addTextLabel:'Notice: class seems to have no container yet.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3284	component adjust:#left; borderWidth:0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3285	creatingNew := true.
349 a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3286	] ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3287	creatingNew := false.
339 43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3288	].
43d8b6158ec6 checkin from browser ah parents: 338 diff changeset	3289
218 22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3290	box addVerticalSpace.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3291
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3292	box addAbortButton; addOkButton.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3293
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3294	box showAtPointer.
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3295
22e66c597205 * empty log message * Claus Gittinger <cg@exept.de> parents: 216 diff changeset	3296	box accepted ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3297	module := moduleHolder value withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3298	package := packageHolder value withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3299
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3300	fileName := fileNameHolder value withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3301
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3302	(fileName endsWith:',v') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3303	fileName := fileName copyWithoutLast:2
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3304	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3305	(fileName endsWith:'.st') ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3306	fileName := fileName , '.st'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3307	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3308
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3309	info := aClass revisionInfo.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3310	info notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3311	(info includesKey:#repositoryPathName) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3312	info := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3313	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3314	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3315	info isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3316	creatingNew ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3317	(self confirm:(resources string:'The repository already contains a container named "%3" in "%1/%2" !!\\Checkin %4 anyway ? (DANGER - be careful)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3318	withArgs:(Array with:module with:package with:fileName with:className)) withCRs)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3319	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3320	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3321	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3322	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3323
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3324	(self confirm:(resources string:'%1 does not have any (usable) revision info (#version method)\\Shall I create one ?' with:className) withCRs)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3325	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3326	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3327	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3328	aClass updateVersionMethodFor:(mgr initialRevisionStringFor:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3329	inModule:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3330	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3331	container:fileName).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3332	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3333
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3334	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3335	"/ check for the module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3336	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3337	(mgr checkForExistingModule:module) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3338	(createDirs or:[creatingNew]) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3339	self warn:(resources string:'a module named %1 does not exist in the source code management' with:module).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3340	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3341	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3342	(self confirm:(resources string:'%1 is a new module.\\create it ?' with:module) withCRs) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3343	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3344	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3345	(mgr createModule:module) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3346	self warn:(resources string:'cannot create new module: %1' with:module).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3347	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3348	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3349	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3350	lastModule := module.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3351
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3352
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3353	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3354	"/ check for the package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3355	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3356	(mgr checkForExistingModule:module package:package) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3357	(createDirs or:[creatingNew]) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3358	self warn:(resources string:'a package named %1 does not exist module %2' with:module with:package).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3359	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3360	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3361	(self confirm:(resources string:'%1 is a new package (in module %2).\\create it ?' with:package with:module) withCRs) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3362	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3363	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3364	(mgr createModule:module package:package) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3365	self warn:(resources string:'cannot create new package: %1 (in module %2)' with:package with:module).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3366	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3367	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3368	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3369	lastPackage := package.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3370
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3371	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3372	"/ check for the container itself
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3373	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3374	(mgr checkForExistingContainerInModule:module package:package container:fileName) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3375	creatingNew ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3376	self warn:(resources string:'container for %1 already exists in %2/%3.' with:fileName with:module with:package) withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3377	].
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3378
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3379	"/ (oldModule notNil
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3380	"/ and:[(oldModule ~= module)
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3381	"/ or:[oldPackage ~= package
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3382	"/ or:[oldFileName ~= fileName]]])
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3383	"/ ifFalse:[
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3384	"/ self warn:(resources string:'no change').
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3385	"/ ^ false.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3386	"/ ].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3387
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3388	(self confirm:(resources string:'check %1 into the existing container
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3389
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3390	%2 / %3 / %4 ?'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3391	with:className
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3392	with:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3393	with:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3394	with:fileName) withCRs)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3395	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3396	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3397	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3398
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3399	aClass updateVersionMethodFor:'$' , 'Header' , '$'. "/ concatenated to avoid RCS-expansion
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3400
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3401	oldFileName notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3402	msg := ('forced checkin / source container change from ' , oldFileName).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3403	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3404	msg := 'defined source container'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3405	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3406
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3407	(mgr
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3408	checkinClass:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3409	fileName:fileName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3410	directory:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3411	module:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3412	logMessage:msg)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3413	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3414	(self confirm:'no easy merge seems possible; force checkin (no merge) ?') ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3415	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3416	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3417	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3418	(mgr
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3419	checkinClass:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3420	fileName:fileName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3421	directory:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3422	module:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3423	logMessage:msg
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3424	force:true)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3425	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3426	self warn:(resources string:'failed to check into existing container.').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3427	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3428	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3429	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3430	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3431
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3432	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3433	^ true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3434	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3435	(createContainer or:[creatingNew]) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3436	(self confirm:(resources string:'no container exists for %1 in %2/%3\\create ?'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3437	with:fileName with:module with:package) withCRs) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3438	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3439	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3440	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3441	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3442
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3443	(mgr
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3444	createContainerFor:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3445	inModule:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3446	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3447	container:fileName) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3448	self warn:(resources string:'failed to create container.').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3449	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3450	^ false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3451	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3452	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3453	^ true
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3454	].
9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3455	box destroy.
9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3456	^ false
9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	3457
1098 5901d464a960 checkin from browser Claus Gittinger <cg@exept.de> parents: 1097 diff changeset	3458	"Modified: 26.3.1997 / 18:15:55 / cg"
213 4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3459	!
4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3460
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3461	classLoadNewRevision
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3462	"let user specify a container and fileIn from there"
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3463
741 d0dc66cf7499 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 731 diff changeset	3464	\|box
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3465	moduleHolder packageHolder fileNameHolder
741 d0dc66cf7499 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 731 diff changeset	3466	module package fileName aStream
d0dc66cf7499 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 731 diff changeset	3467	y component mgr\|
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3468
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3469	mgr := SourceCodeManager.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3470	mgr isNil ifTrue:[^ false].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3471
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	3472	fileNameHolder := ValueHolder newString.
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3473	moduleHolder := (OperatingSystem getLoginName) asValue.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3474	packageHolder := 'private' asValue.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3475
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3476	"/
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3477	"/ open a dialog for the module/package/container
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3478	"/
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3479	box := DialogBox new.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3480	box label:'container fileIn'.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3481
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3482	component := box addTextLabel:(resources string:'container to fileIn') withCRs.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3483	component adjust:#left; borderWidth:0.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3484	box addVerticalSpace.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3485	box addVerticalSpace.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3486
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3487	y := box yPosition.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3488	component := box addTextLabel:(resources string:'Module:').
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3489	component width:0.4; adjust:#right.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3490	box yPosition:y.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3491	component := box addInputFieldOn:moduleHolder tabable:true.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3492	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3493
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3494	box addVerticalSpace.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3495	y := box yPosition.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3496	component := box addTextLabel:'Package:'.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3497	component width:0.4; adjust:#right.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3498	box yPosition:y.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3499	component := box addInputFieldOn:packageHolder tabable:true.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3500	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3501
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3502	box addVerticalSpace.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3503	y := box yPosition.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3504	component := box addTextLabel:'Filename:'.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3505	component width:0.4; adjust:#right.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3506	box yPosition:y.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3507	component := box addInputFieldOn:fileNameHolder tabable:true.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3508	component width:0.6; left:0.4; immediateAccept:true; acceptOnLeave:false; cursorMovementWhenUpdating:#beginOfLine.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3509
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3510	box addVerticalSpace.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3511	box addAbortButton; addOkButton.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3512
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3513	box showAtPointer.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3514
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3515	box destroy.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3516	box accepted ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3517	^ false
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3518	].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3519
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3520	module := moduleHolder value withoutSpaces.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3521	package := packageHolder value withoutSpaces.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3522	fileName := fileNameHolder value withoutSpaces.
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3523
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3524	(fileName endsWith:',v') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3525	fileName := fileName copyWithoutLast:2
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3526	].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3527	(fileName endsWith:'.st') ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3528	fileName := fileName , '.st'
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3529	].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3530
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3531	(mgr checkForExistingContainerInModule:module
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3532	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3533	container:fileName) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3534	self warn:'no such container'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3535	^ false
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3536	].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3537
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3538	aStream := mgr
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3539	streamForClass:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3540	fileName:fileName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3541	revision:#newest
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3542	directory:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3543	module:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3544	cache:false.
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3545
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3546	aStream isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3547	self warn:'could not fileIn from repository'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3548	^ false.
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3549	].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3550
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3551	self busyLabel:'loading from %1' with:(module , '/' , package , '/' , fileName).
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3552
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3553	Class withoutUpdatingChangesDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3554	[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3555	aStream fileIn.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3556	] valueNowOrOnUnwindDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3557	aStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3558	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3559	Smalltalk changed.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3560	].
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3561	].
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3562
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3563	^ false
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3564
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3565	"Created: 13.9.1996 / 09:27:09 / cg"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	3566	"Modified: 16.1.1997 / 00:50:09 / cg"
730 bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3567	!
bde80e7b2de0 allow loading of new classes from repository Claus Gittinger <cg@exept.de> parents: 725 diff changeset	3568
213 4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3569	classLoadRevision
4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3570	"load a specific revision into the system - especially useful to
4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3571	upgrade a class to the newest revision"
4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3572
264 621107e65e1e dont allow loading old revisions of autoloaded classes Claus Gittinger <cg@exept.de> parents: 263 diff changeset	3573	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3574	self warn:'cannot load specific releases of autoloaded classes.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3575	^ self.
264 621107e65e1e dont allow loading old revisions of autoloaded classes Claus Gittinger <cg@exept.de> parents: 263 diff changeset	3576	].
621107e65e1e dont allow loading old revisions of autoloaded classes Claus Gittinger <cg@exept.de> parents: 263 diff changeset	3577
213 4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3578	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3579	\|aStream comparedSource currentSource v rev revString what mgr keep className
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3580	newClass prevCategory ok\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3581
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3582	rev := Dialog request:'load which revision: (empty for newest)' onCancel:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3583	rev notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3584	className := currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3585	(className includesString:'_rev_') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3586	self warn:'select the original class and try again.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3587	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3588	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3589
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3590	mgr := currentClass sourceCodeManager.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3591	ok := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3592
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3593	rev withoutSpaces isEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3594	what := className , '(newest)'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3595	self busyLabel:'extracting %1' with:what.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3596	aStream := mgr getMostRecentSourceStreamForClassNamed:className.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3597	revString := 'newest'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3598	keep := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3599	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3600	what := className , '(' , rev , ')'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3601	self busyLabel:'extracting %1' with:what.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3602	aStream := mgr getSourceStreamFor:currentClass revision:rev.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3603	revString := rev.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3604	keep := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3605	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3606
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3607	aStream isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3608	self warn:'cannot find classes source.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3609	^ self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3610	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3611
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3612	self busyLabel:'loading %1' with:what .
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3613
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3614	[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3615	Class withoutUpdatingChangesDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3616	\|saveIt prevSkip\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3617
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3618	saveIt := Dialog confirmWithCancel:'keep a save-copy of the existing class ?
1033 fe5a3c210282 when loading a revision from the repository, ca parents: 1029 diff changeset	3619
fe5a3c210282 when loading a revision from the repository, ca parents: 1029 diff changeset	3620	(you have to care for subclasses if doing so)' default:false.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3621	saveIt isNil ifTrue:[^ self].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3622	saveIt ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3623	"/ rename the current class - for backup
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3624	prevCategory := currentClass category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3625	currentClass category:'* obsolete *'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3626	Smalltalk renameClass:currentClass to:className , '_saved'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3627	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3628
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3629	prevSkip := ClassCategoryReader skipUnchangedMethods.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3630	ClassCategoryReader skipUnchangedMethods:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3631	[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3632	aStream fileIn.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3633	] valueNowOrOnUnwindDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3634	ClassCategoryReader skipUnchangedMethods:prevSkip
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3635	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3636
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3637	"/ did that work ?
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3638	newClass := Smalltalk at:className ifAbsent:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3639	newClass isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3640	saveIt ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3641	self warn:'fileIn failed - undoing changes ...'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3642	Smalltalk renameClass:currentClass to:className.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3643	currentClass category:prevCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3644	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3645	self warn:'fileIn failed - cannot recover class'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3646	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3647	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3648	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3649	"/ if we loaded an old version, rename that one and fix the name of the
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3650	"/ current class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3651	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3652	keep ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3653	saveIt ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3654	Smalltalk renameClass:newClass to:(className , '_rev_' , rev).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3655	newClass category:'* old versions *'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3656	Smalltalk renameClass:currentClass to:className.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3657	currentClass category:prevCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3658	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3659	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3660	ok := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3661	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3662	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3663	] valueNowOrOnUnwindDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3664	aStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3665	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3666	Smalltalk changed.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3667	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3668	ok ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3669	self switchToClassNamed:newClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3670	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3671	]
213 4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3672	]
4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3673
4b8b25b6baa1 niver revision info; added loadRevision Claus Gittinger <cg@exept.de> parents: 204 diff changeset	3674	"Created: 14.11.1995 / 16:43:15 / cg"
1038 1368758e6934 dont skip unchanged methods when loading from Claus Gittinger <cg@exept.de> parents: 1033 diff changeset	3675	"Modified: 14.2.1997 / 18:30:14 / cg"
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3676	!
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3677
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3678	classModifyContainer
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3679	"check a class into the source repository"
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3680
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3681	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3682	self warn:'dont know anything about unloaded classes.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3683	^ self.
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3684	].
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3685
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3686	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3687	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3688	classDefineSourceContainerFor:currentClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3689	title:(resources string:'Repository information for %1' with:currentClass name)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3690	text:'defining/changing the source code container'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3691	createDirectories:true createContainer:true.
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3692	]
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3693
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3694	"Created: 23.11.1995 / 11:41:38 / cg"
349 a927f39271d5 fixes for new containers Claus Gittinger <cg@exept.de> parents: 348 diff changeset	3695	"Modified: 6.2.1996 / 16:58:58 / cg"
283 159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3696	!
159098ddc555 allow definition/change of container (without actually creating) Claus Gittinger <cg@exept.de> parents: 273 diff changeset	3697
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3698	classRemoveContainer
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3699	"remove a container from the source repository"
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3700
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3701	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3702	self warn:'please load the class first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3703	^ self.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3704	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3705
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3706	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3707	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3708	classRemoveSourceContainerFor:currentClass
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3709	]
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3710
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3711	"Created: 23.11.1995 / 11:41:38 / cg"
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3712	"Modified: 11.9.1996 / 12:55:42 / cg"
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3713	!
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3714
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3715	classRemoveSourceContainerFor:aClass
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3716	"show container & let user confirm twice."
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3717
741 d0dc66cf7499 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 731 diff changeset	3718	\|module package fileName info mgr\|
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3719
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3720	aClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3721	self warn:'please load the class first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3722	^ false.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3723	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3724
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3725	"/
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3726	"/ ask the sourceCodeManager if it knows anything about that class
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3727	"/ if so, take that as a default.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3728	"/
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3729	mgr := aClass sourceCodeManager.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3730	mgr isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3731	self warn:'No sourceCodeManagement.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3732	^ false
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3733	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3734
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3735	info := mgr sourceInfoOfClass:aClass.
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3736	info notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3737	(info includesKey:#module) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3738	module := (info at:#module).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3739	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3740	(info includesKey:#directory) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3741	package := (info at:#directory).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3742	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3743	fileName := mgr containerFromSourceInfo:info.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3744	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3745
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3746	module isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3747	self warn:'classes module is unknown.\\It seems to not have a container.' withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3748	^ false.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3749	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3750	package isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3751	self warn:'classes package is unknown.\\It seems to not have a container.' withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3752	^ false.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3753	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3754	fileName isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3755	self warn:'classes container fileName is unknown.\\It seems to not have a container.' withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3756	^ false.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3757	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3758
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3759	(mgr checkForExistingContainerInModule:module
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3760	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3761	container:fileName) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3762	self warn:'Class has no source container.' withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3763	^ false.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3764	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3765
731 6889fc8ebac5 checkin from browser Claus Gittinger <cg@exept.de> parents: 730 diff changeset	3766	(Dialog
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3767	choose:(resources
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3768	string:'Please confirm removal of the container for %1:
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3769
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3770	container: %2 / %3 / %4
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3771
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3772	Really remove ?'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3773	with:aClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3774	with:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3775	with:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3776	with:fileName)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3777	labels:(Array
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3778	with:(resources string:'no')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3779	with:(resources string:'remove'))
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3780	values:#(false true)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3781	default:false) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3782	^ self.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3783	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3784
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3785	(mgr removeContainerFor:aClass
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3786	inModule:module
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3787	package:package
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3788	container:fileName) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3789	self warn:(resources string:'failed to remove container.').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3790	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3791	^ true.
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3792	].
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3793	^ false
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3794
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3795	"Created: 11.9.1996 / 13:06:14 / cg"
731 6889fc8ebac5 checkin from browser Claus Gittinger <cg@exept.de> parents: 730 diff changeset	3796	"Modified: 13.9.1996 / 19:06:06 / cg"
725 b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3797	!
b2877d3000e7 added interface to remove a container; Claus Gittinger <cg@exept.de> parents: 723 diff changeset	3798
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3799	classRevisionInfo
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3800	"show current classes revision info in codeView"
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3801
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3802	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3803	\|aStream info info2 s rv mgr fn msg\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3804
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3805	aStream := WriteStream on:(String new:200).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3806	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3807	Processor activeProcess withLowerPriorityDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3808	self busyLabel:'extracting revision info' with:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3809
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3810	info := currentClass revisionInfo.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3811
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3812	rv := currentClass binaryRevision.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3813	rv notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3814	aStream nextPutLine:'** Loaded classes binary information **'; cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3815	aStream nextPutLine:' Binary based upon : ' , rv.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3816	aStream cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3817	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3818
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3819	info notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3820	(info includesKey:#revision) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3821	aStream nextPutLine:'WARNING:'; cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3822	aStream nextPutLine:' The class seems not to be loaded from the repository.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3823	aStream nextPutLine:' Check carefully before checking anything in.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3824	aStream nextPutLine:' (i.e. compare with repository for renamed class(es), same-name but unrelated etc.)'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3825	aStream cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3826	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3827
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3828	aStream nextPutLine:'** Classes source information **'; cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3829	s := info at:#repositoryPath ifAbsent:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3830	s notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3831	aStream nextPutLine:' Source repository : ' , s
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3832	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3833	aStream nextPutLine:' Filename ........ : ' , (info at:#fileName ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3834	aStream nextPutLine:' Revision ........ : ' , (info at:#revision ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3835	aStream nextPutLine:' Checkin date .... : ' , (info at:#date ifAbsent:'?') , ' ' , (info at:#time ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3836	aStream nextPutLine:' Checkin user .... : ' , (info at:#user ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3837
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3838	(info2 := currentClass packageSourceCodeInfo) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3839	aStream nextPutLine:' Repository: ..... : ' , (info2 at:#module ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3840	aStream nextPutLine:' Directory: ...... : ' , (info2 at:#directory ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3841	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3842	aStream nextPutLine:' Container ....... : ' , (info at:#repositoryPathName ifAbsent:'?').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3843	aStream cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3844
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3845	(mgr := currentClass sourceCodeManager) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3846	aStream nextPutLine:'** Repository information **'; cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3847	mgr writeRevisionLogOf:currentClass to:aStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3848	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3849	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3850	aStream nextPutLine:'No revision info found'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3851	currentClass isLoaded ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3852	aStream cr; nextPutAll:'This is an autoloaded class - you may see more after its loaded.'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3853	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3854	fn := currentClass classFilename.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3855	currentClass wasAutoloaded ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3856	msg := 'This class was autoloaded.'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3857	fn notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3858	msg := msg , ' (from ''' , fn , ''')'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3859	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3860	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3861	fn notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3862	msg := 'This class was loaded from ''' , fn , '''.'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3863	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3864	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3865	msg notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3866	aStream cr; nextPutAll:msg.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3867	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3868	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3869	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3870	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3871	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3872	codeView contents:(aStream contents).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3873
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3874	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3875	codeView acceptAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3876	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3877	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3878	methodListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3879	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3880	aspect := #revisionInfo.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3881	self normalLabel
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3882	]
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3883
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	3884	"Created: 14.11.1995 / 16:43:15 / cg"
859 98ee4f71459d checkin from browser Claus Gittinger <cg@exept.de> parents: 858 diff changeset	3885	"Modified: 11.11.1996 / 10:09:28 / cg"
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3886	!
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3887
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3888	getLogMessageFor:aString
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3889	"get a log message for when checking in a class.
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3890	Return the message or nil if aborted."
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3891
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3892	\|dialog textView\|
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3893
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3894	dialog := Dialog new.
1046 e5f4d06007c6 resource strings Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	3895	(dialog addTextLabel:(resources string:'enter log message for: %1' with:aString)) adjust:#left.
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3896	textView := dialog addTextBoxOn:nil
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3897	class:EditTextView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3898	withNumberOfLines:10
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3899	hScrollable:true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3900	vScrollable:true.
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3901	dialog width:(textView preferredExtentForLines:10 cols:70) x.
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3902	textView contents:lastSourceLogMessage.
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3903	dialog addAbortButton; addOkButton.
1043 01edbc67e510 ok button in log-message box is no return button Claus Gittinger <cg@exept.de> parents: 1042 diff changeset	3904	dialog okButton isReturnButton:false.
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3905	dialog open.
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3906	dialog accepted ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3907	^ textView contents
626 d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3908	].
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3909	^ nil
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3910
d81ad641d1d9 Use text box in dialog for revision log. Stefan Vogel <sv@exept.de> parents: 625 diff changeset	3911	"Created: 15.6.1996 / 00:20:46 / stefan"
1046 e5f4d06007c6 resource strings Claus Gittinger <cg@exept.de> parents: 1043 diff changeset	3912	"Modified: 28.2.1997 / 11:47:33 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	3913	! !
f2c56efa3599 Initial revision claus parents: diff changeset	3914
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3915	!BrowserView methodsFor:'class stuff'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3916
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3917	allClassesInCategory:aCategory
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3918	\|classes\|
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3919
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3920	currentNamespace = '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3921	^ Smalltalk allClassesInCategory:currentClassCategory
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3922	].
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3923
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3924	classes := Set new.
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3925
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3926	(self listOfNamespaces) do:[:aNamespace \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3927	aNamespace allBehaviorsDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3928	\|actualNamespace nm\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3929
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3930	aClass isMeta ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3931	(aCategory = '* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3932	or:[aClass category = aCategory]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3933	(aClass isNamespace not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3934	or:[aClass == Smalltalk]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3935	actualNamespace := aClass nameSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3936	(actualNamespace isNamespace not "/ a private class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3937	or:[actualNamespace == aNamespace]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3938	classes add:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3939	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3940	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3941	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3942	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3943	]
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3944	].
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3945	^ classes
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3946
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3947	"Created: 23.12.1996 / 10:26:28 / cg"
887 ad1d6b0ed970 namespace fixes Claus Gittinger <cg@exept.de> parents: 886 diff changeset	3948	"Modified: 23.12.1996 / 11:33:13 / cg"
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3949	!
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3950
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3951	allClassesInCategory:aCategory do:aBlock
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3952	\|classes\|
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3953
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3954	classes := self allClassesInCategory:aCategory.
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3955	classes do:aBlock
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3956
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3957	"Modified: 23.12.1996 / 10:30:00 / cg"
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3958	!
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3959
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3960	allClassesInCategory:aCategory inOrderDo:aBlock
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3961	"evaluate the argument, aBlock for all classes in aCategory;
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3962	superclasses come first - then subclasses"
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3963
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3964	\|classes\|
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3965
1079 513fda872db0 oops - need an OC for sorting Claus Gittinger <cg@exept.de> parents: 1075 diff changeset	3966	classes := (self allClassesInCategory:aCategory) asOrderedCollection.
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3967	classes topologicalSort:[:a :b \| b isSubclassOf:a].
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3968	classes do:aBlock
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3969
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3970	"Created: 23.12.1996 / 10:27:52 / cg"
1079 513fda872db0 oops - need an OC for sorting Claus Gittinger <cg@exept.de> parents: 1075 diff changeset	3971	"Modified: 19.3.1997 / 12:48:28 / cg"
886 4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3972	!
4e6918aaa19e namespace fixes Claus Gittinger <cg@exept.de> parents: 885 diff changeset	3973
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3974	allClassesInSelectedNamespacesDo:aBlock
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3975	\|nameSpacesConsidered\|
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3976
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3977	nameSpacesConsidered := self listOfNamespaces asIdentitySet.
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3978
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3979	Smalltalk allBehaviorsDo:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3980	(nameSpacesConsidered includes:aClass nameSpace)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3981	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3982	aBlock value:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3983	]
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3984	]
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3985
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3986	"Created: 16.1.1997 / 20:18:47 / cg"
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3987	"Modified: 16.1.1997 / 20:20:24 / cg"
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3988	!
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	3989
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3990	checkClassSelected
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3991	"warn and return false, if no class is selected"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3992
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3993	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3994	self warn:'select a class first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	3995	^ false
74 f2c56efa3599 Initial revision claus parents: diff changeset	3996	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3997	^ true
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3998	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	3999
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4000	classClassDefinitionTemplateFor:aClass in:cat namespace:isNameSpace private:isPrivate
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4001	"common helper for newClass and newSubclass
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4002	- show a template to define a subclass of aClass in category cat.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4003	Also, set acceptaction to install the class."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4004
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4005	\|theSuperClass\|
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4006
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4007	currentMethodCategory := nil.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4008	currentMethod := currentSelector := nil.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4009
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	4010	classListView setSelection:nil.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4011
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4012	fullClass ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4013	methodCategoryListView contents:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4014	methodListView contents:nil
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4015	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4016
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4017	(aClass == Autoload
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	4018	or:[aClass isNil or:[aClass isLoaded not]]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4019	theSuperClass := Object
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4020	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4021	theSuperClass := aClass
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4022	].
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4023	codeView contents:(self classTemplateFor:theSuperClass in:cat namespace:isNameSpace private:isPrivate).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4024	codeView modified:false.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4025
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4026	codeView acceptAction:[:theCode \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4027	codeView cursor:Cursor execute.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4028	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4029	\|cls\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4030
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4031	Object errorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4032	codeView error:ex errorString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4033	position:1 to:nil from:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4034	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4035	Class nameSpaceQuerySignal answer:Smalltalk
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4036	do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4037
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4038	cls := (Compiler evaluate:theCode asString notifying:codeView compile:false).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4039	cls isBehavior ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4040	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4041	self classCategoryUpdate.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4042	self updateClassListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4043	cls isNamespace ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4044	self switchToClassNamed:(cls name).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4045	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4046	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4047	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4048	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4049	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4050	codeView cursor:(Cursor normal).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4051	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4052	codeView explainAction:nil.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4053	self switchToClass:nil
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4054
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4055	"Created: 23.12.1996 / 12:45:43 / cg"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	4056	"Modified: 16.1.1997 / 01:46:39 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4057	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4058
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4059	classListUpdate
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4060	RememberAspect ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4061	aspect == #hierarchy ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4062	^ self classHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4063	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4064	aspect == #classInstVars ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4065	^ self classClassInstVars
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4066	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4067	aspect == #comment ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4068	^ self classComment
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4069	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4070	aspect == #primitiveDefinitions ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4071	^ self classPrimitiveDefinitions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4072	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4073	aspect == #primitiveFunctions ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4074	^ self classPrimitiveFunctions
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4075	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4076	aspect == #primitiveVariables ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4077	^ self classPrimitiveVariables
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4078	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4079	aspect == #revisionInfo ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4080	^ self classRevisionInfo
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4081	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4082	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4083	self classDefinition
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4084
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4085	"Created: 23.11.1995 / 11:28:58 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4086	"Modified: 23.11.1995 / 11:36:08 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4087	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4088
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4089	classSelection:lineNr
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4090	"user clicked on a class line - show method categories"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4091
991 893a4dc659af added mechanism to reconnect a class (in case its removed from Claus Gittinger <cg@exept.de> parents: 990 diff changeset	4092	\|cls nm oldSelector sel classes key msg globlName\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4093
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4094	(currentClassHierarchy notNil
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4095	and:[fullProtocol]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4096	oldSelector := currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4097
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4098	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4099	self updateMethodListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4100	fullProtocol ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4101	self updateVariableList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4102	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4103	oldSelector notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4104	self switchToMethod:oldSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4105	currentMethod notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4106	self switchToMethodCategory:(currentMethod category).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4107	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4108	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4109	^ self
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4110	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4111
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4112	(sel := classListView selectionValue) isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4113	self classCategorySelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4114	aspect := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4115	currentClass := actualClass := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4116	self updateCodeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4117	^ self
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4118	].
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4119	nm := sel withoutSpaces.
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	4120	cls := self findClassNamed:nm.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4121	cls notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4122	self switchToClass:cls.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4123	self classSelectionChanged
836 22cdfaaf87fc namespace fixes & another check Claus Gittinger <cg@exept.de> parents: 834 diff changeset	4124	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4125	(self confirm:('oops - no class named: ' , nm , ' found in selected namespace(s)\\Try to reconnect ?') withCRs)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4126	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4127	"/ search for all classes by that name ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4128	classes := IdentitySet new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4129	Class allSubInstancesDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4130	aClass name = nm ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4131	classes add:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4132	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4133	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4134	classes notEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4135	classes size == 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4136	cls := classes first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4137	Smalltalk
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4138	keysAndValuesDo:[:key :aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4139	(Smalltalk at:key) == cls ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4140	globlName := key
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4141	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4142	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4143
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4144	msg := 'found ' , cls name , ' in category ''' , cls category , '''.\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4145	globlName notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4146	msg := msg , '(known as ' , globlName , ')\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4147	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4148	(self confirm:(msg , '\rebind in Smalltalk as ''' , cls name , '''?') withCRs)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4149	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4150	Smalltalk at:cls name asSymbol put:cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4151	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4152	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4153	self warn:('found multiple classes with a name of ' , nm , '.\\Select and rename as required') withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4154	SystemBrowser browseClasses:classes asOrderedCollection
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4155	title:'choose and rename as required'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4156	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4157	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4158	self warn:'oops - could not find that class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4159	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4160	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4161	]
572 0ee9fbf0e535 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	4162
1267 17fc5184fb22 checkin from browser Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	4163	"Modified: 31.7.1997 / 22:56:45 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4164	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4165
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4166	classSelectionChanged
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4167	\|oldMethodCategory oldMethod oldSelector\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4168
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	4169	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4170	"/ alien classes have no methodCategories; hide that list ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4171
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4172	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4173	currentClass supportsMethodCategories ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4174	self hideMethodCategoryList
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4175	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4176	self showMethodCategoryList
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4177	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4178	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4179
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4180	aspect := #definition.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4181
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4182	oldMethodCategory := currentMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4183	oldMethod := currentMethod.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4184	oldSelector := currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4185
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4186	showInstance ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4187	actualClass := acceptClass := currentClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4188	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4189	actualClass := acceptClass := currentClass class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4190	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4191	currentMethodCategory := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4192	currentMethod := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4193	currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4194
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4195	self updateMethodCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4196
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4197	oldMethodCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4198	methodCategoryListView setSelectElement:oldMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4199	methodCategoryListView hasSelection ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4200	currentMethodCategory := oldMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4201	self methodCategorySelectionChanged
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4202	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4203	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4204	self updateMethodList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4205	"/ self updateCodeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4206	self updateVariableList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4207
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4208	fullClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4209	self updateCodeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4210	codeView acceptAction:[:theCode \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4211	codeView cursor:Cursor execute.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4212	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4213	self compileCode:theCode asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4214	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4215	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4216	codeView cursor:Cursor normal.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4217	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4218	] ifFalse:[
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4219	"/ self classDefinition.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4220	self classListUpdate.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4221
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4222	codeView acceptAction:[:theCode \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4223	\|ns\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4224
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4225	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4226	ns := currentClass nameSpace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4227	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4228	ns := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4229	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4230
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4231	codeView cursor:Cursor execute.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4232
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4233	Class nameSpaceQuerySignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4234	ns isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4235	ex reject
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4236	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4237	ex proceedWith:ns
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4238	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4239	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4240	UndefinedObject createMinimumProtocolInNewSubclassQuery
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4241	answer:true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4242	do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4243	(Compiler
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4244	evaluate:theCode asString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4245	notifying:codeView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4246	compile:false)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4247	isBehavior ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4248	self classCategoryUpdate.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4249	self updateClassListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4250	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4251	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4252	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4253	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4254	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4255	codeView cursor:Cursor normal.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4256	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4257	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4258	codeView explainAction:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4259
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4260	(classCategoryListView notNil and:[currentClass notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4261	(currentClassCategory = currentClass category) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4262	currentClassCategory := currentClass category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4263	(classCategoryListView list includes:currentClassCategory) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4264	classCategoryListView setSelectElement:currentClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4265	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4266	classCategoryListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4267	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4268	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4269	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4270
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4271	self setDoitActionForClass
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4272	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4273
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4274	"Created: 23.11.1995 / 11:32:03 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	4275	"Modified: 18.8.1997 / 15:43:49 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4276	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4277
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4278	classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4279	"return a class definition template - be smart in what is offered initially"
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4280
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4281	\|cat aString name nameProto namePrefix i existingNames withNameSpaceDirective
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4282	className ownerName s\|
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4283
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4284	s := TextStream on:''.
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4285
1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4286	isNameSpace ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4287	s nextPutAll:'Namespace name:''NewNameSpace'''.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4288	s cr; cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4289	s emphasis:(self commentEmphasis).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4290	s nextPutAll:'"
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	4291	Replace ''NewNameSpace'' by the desired name.
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	4292
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	4293	Create the namespace by ''accepting'',
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	4294	either via the menu or the keyboard (usually CMD-A).
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	4295	"
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4296	'.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4297	^ s contents.
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4298	].
1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4299
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4300	withNameSpaceDirective :=
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4301	currentNamespace notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4302	and:[currentNamespace ~= '* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4303	and:[currentNamespace ~= Smalltalk]].
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4304
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4305	withNameSpaceDirective ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4306	className := aSuperClass nameWithoutNameSpacePrefix.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4307	s nextPutAll:('"{ Namespace: ''' , currentNamespace name , ''' }"').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4308	s cr; cr.
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4309	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4310	className := aSuperClass name.
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4311	].
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4312
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4313	cat := categoryString.
1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4314	(cat isNil or:[cat startsWith:'*']) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4315	cat := '* no category *'
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4316	].
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4317
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4318	nameProto := 'NewClass'.
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4319	i := 1.
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4320	isPrivate ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4321	namePrefix := currentClass name , '::'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4322	existingNames := currentClass privateClasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4323	existingNames size > 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4324	existingNames := existingNames collect:[:cls \| cls name].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4325	]
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4326	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4327	namePrefix := ''.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4328	existingNames := Smalltalk keys
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4329	].
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4330
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4331	name := 'NewClass' , i printString.
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4332	existingNames notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4333	nameProto := namePrefix , name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4334	[nameProto knownAsSymbol and:[existingNames includes:nameProto asSymbol]] whileTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4335	i := i + 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4336	name := 'NewClass' , i printString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4337	nameProto := namePrefix , name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4338	].
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4339	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4340
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4341	s nextPutAll:className.
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4342
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4343	isPrivate ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4344	withNameSpaceDirective ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4345	ownerName := currentClass nameWithoutNameSpacePrefix
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4346	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4347	ownerName := currentClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4348	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4349	s nextPutAll:(' subclass:#' , name , '
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4350	' , ' instanceVariableNames: ''''
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4351	' , ' classVariableNames: ''''
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4352	' , ' poolDictionaries: ''''
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4353	' , ' privateIn:' , ownerName)
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4354	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4355	s nextPutAll:(' subclass:#' , name , '
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4356	' , ' instanceVariableNames: ''''
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4357	' , ' classVariableNames: ''''
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4358	' , ' poolDictionaries: ''''
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4359	' , ' category: ''').
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4360	cat notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4361	s nextPutAll: cat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4362	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4363	s nextPutAll: ''''
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4364	].
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4365
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4366	s cr; cr.
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4367	s emphasis:(self commentEmphasis).
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4368	s nextPutAll:'
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4369	"
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4370	Replace ''' , className , ''', ''', name , ''' and
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4371	the empty string arguments by true values.
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4372
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4373	Install (or change) the class by ''accepting'',
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4374	either via the menu or the keyboard (usually CMD-A).
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4375
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4376	To be nice to others (and yourself later), do not forget to
752 2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4377	add some documentation; preferably under the classes documentation
2bfe2b7e572a prepare for private classes Claus Gittinger <cg@exept.de> parents: 751 diff changeset	4378	protocol.
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4379	(see the `create documentation stubs'' item in the methodList menu.)
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4380	"
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4381	'.
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4382
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	4383	^ s contents
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4384
889 1d4a318a6eff checkin from browser Claus Gittinger <cg@exept.de> parents: 888 diff changeset	4385	"Created: 23.12.1996 / 12:46:31 / cg"
1302 ac29a32ae8b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 1292 diff changeset	4386	"Modified: 29.8.1997 / 01:10:54 / cg"
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4387	!
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	4388
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4389	doClassMenu:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4390	"a helper - check if class is selected and evaluate aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4391	while showing waitCursor"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4392
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4393	self checkClassSelected ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4394	self withBusyCursorDo:[aBlock value:currentClass]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4395	]
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	4396
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	4397	"Modified: 18.8.1997 / 15:43:58 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4398	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4399
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4400	listOfAllClassNamesInCategory:aCategory
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4401	"return a list of the names of all classes in a given category"
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4402
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4403	^ self listOfAllClassesInCategory:aCategory names:true
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4404
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4405	"Modified: 10.1.1997 / 14:00:33 / cg"
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4406	!
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4407
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4408	listOfAllClassesInCategory:aCategory names:namesFlag
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4409	"return a list of (the names) of all classes in a given category
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4410	from the currently selected set of nameSpaces."
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4411
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4412	\|nameSpaces listOfClassNames listOfClasses classesPresent namesPresent searchCategory
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4413	match anyCategory nm owner allNameSpaces\|
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4414
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4415	allNameSpaces := (currentNamespace = '* all *').
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4416
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4417	"/ keep track of added names (care for obsolete classes)
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	4418
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4419	namesPresent := Set new.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4420
1095 b54f607eaa97 ask class for its documentation Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	4421	(aCategory = '* hierarchy *') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4422	listOfClassNames := OrderedCollection new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4423	listOfClasses := OrderedCollection new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4424
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4425	self classHierarchyOf:Object withAutoloaded:true do:[:aClass :lvl\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4426	\|indent\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4427
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4428	(aClass isNamespace not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4429	or:[aClass == Smalltalk]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4430	nm := self displayedClassNameOf:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4431
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4432	(namesPresent includes:nm) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4433	indent := String new:lvl*2.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4434
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4435	"/ show classes from other nameSpaces in italic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4436
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4437	(allNameSpaces not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4438	and:[(self findClassNamedInNameSpace:nm) isNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4439	nm := nm asText emphasizeAllWith:#italic.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4440	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4441	nm := indent , nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4442	namesPresent add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4443	listOfClassNames add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4444	listOfClasses add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4445	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4446	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4447	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4448	namesFlag ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4449	^ listOfClasses
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4450	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4451	^ listOfClassNames
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4452	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4453
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4454	(aCategory = '* all *') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4455	anyCategory := true
898 feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4456	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4457	anyCategory := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4458	(aCategory = '* no category *') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4459	searchCategory := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4460	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4461	searchCategory := aCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4462	].
898 feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4463	].
feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4464
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4465	allNameSpaces ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4466	nameSpaces := Array with:Smalltalk.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4467	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4468	nameSpaces := self listOfNamespaces.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4469	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4470
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4471	listOfClasses := OrderedCollection new.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4472	listOfClassNames := OrderedCollection new.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4473	classesPresent := IdentitySet new.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4474
898 feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4475	nameSpaces do:[:aNamespace \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4476	aNamespace allBehaviorsDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4477	\|thisCategory actualNamespace nm owner\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4478
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4479	aClass isMeta ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4480	(aClass isNamespace not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4481	or:[aClass == Smalltalk]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4482	(classesPresent includes:aClass) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4483
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4484	match := anyCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4485	match ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4486	thisCategory := aClass category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4487	match := ((thisCategory = searchCategory)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4488	or:[thisCategory = aCategory]).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4489	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4490
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4491	match ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4492	fullClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4493	aClass owningClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4494	match := false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4495	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4496	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4497	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4498
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4499	match ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4500	nm := self displayedClassNameOf:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4501	(namesPresent includes:nm) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4502
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4503	allNameSpaces ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4504	(owner := aClass topOwningClass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4505	actualNamespace := owner nameSpace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4506	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4507	actualNamespace := aClass nameSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4508	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4509	match := actualNamespace isNamespace not "/ a private class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4510	or:[actualNamespace == aNamespace].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4511	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4512	match ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4513	namesPresent add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4514	classesPresent add:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4515	listOfClasses add:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4516	listOfClassNames add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4517	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4518	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4519	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4520	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4521	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4522	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4523	]
898 feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4524	].
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4525
6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	4526	fullClass ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4527	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4528	"/ mhm - must search through private classes of those
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4529	"/ in smalltalk (they are not visible in the nameSpace,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4530	"/ but should also be displayed)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4531	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4532	Smalltalk allBehaviorsDo:[:aClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4533	\|actualNamespace owner\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4534
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4535	aClass isMeta ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4536	(classesPresent includes:aClass) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4537	(owner := aClass topOwningClass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4538	(classesPresent includes:owner) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4539	nm := self displayedClassNameOf:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4540	(namesPresent includes:nm) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4541	namesPresent add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4542	listOfClasses add:aClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4543	listOfClassNames add:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4544	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4545	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4546	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4547	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4548	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4549	].
898 feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4550	].
feb5df135b32 subclasses in nameSpaces, again Claus Gittinger <cg@exept.de> parents: 897 diff changeset	4551
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4552	(listOfClasses size == 0) ifTrue:[^ nil].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4553
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4554	"/ sort by name
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4555	listOfClassNames sortWith:listOfClasses.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4556
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4557	namesFlag ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4558	^ listOfClasses
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4559	].
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4560
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4561	"/ indent after sorting
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4562	1 to:listOfClassNames size do:[:index \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4563	\|nm cls owner s\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4564
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4565	cls := listOfClasses at:index.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4566	owner := cls.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4567	(owner := owner owningClass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4568	nm := listOfClassNames at:index.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4569	s := nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4570	[owner notNil] whileTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4571	s := ' ' , s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4572	owner := owner owningClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4573	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4574	listOfClassNames at:index put:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4575	].
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4576	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4577
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4578	^ listOfClassNames
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	4579
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4580	"Created: 10.1.1997 / 13:57:34 / cg"
1095 b54f607eaa97 ask class for its documentation Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	4581	"Modified: 22.3.1997 / 14:03:36 / cg"
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4582	!
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4583
6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4584	listOfClassNameHierarchyOf:aClass
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4585	"return a hierarchy class-list"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4586
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4587	\|startClass classes thisOne\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4588
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4589	showInstance ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4590	startClass := aClass
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4591	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4592	startClass := aClass class.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4593	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4594	classes := startClass allSuperclasses.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4595	thisOne := Array with:startClass.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4596
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4597	classes notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4598	classes := classes reverse , thisOne.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4599	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4600	classes := thisOne
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4601	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4602
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4603	fullProtocol ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4604	classes := classes , startClass allSubclassesInOrder
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4605	].
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	4606	^ classes collect:[:c \| self displayedClassNameOf:c "c name"]
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	4607
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4608	"Created: 10.1.1997 / 14:01:06 / cg"
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	4609	"Modified: 30.7.1997 / 17:47:24 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4610	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4611
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4612	renameCurrentClassTo:aString
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4613	"helper - do the rename"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4614
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4615	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4616	\|oldSym cls\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4617
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4618	"/ check if the target already exists - confirm if so.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4619
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4620	(cls := Smalltalk classNamed:aString) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4621	(self confirm:(resources string:'WARN_RENAME'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4622	with:aString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4623	with:cls category) withCRs)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4624	ifFalse:[^ self]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4625	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4626
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4627	oldSym := currentClass name asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4628
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4629	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4630	"/ renaming is actually more complicated as one might
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4631	"/ think (care for classVariables, privateClasses etc.)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4632	"/ Smalltalk knows all about that ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4633
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4634	Smalltalk renameClass:currentClass to:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4635
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4636	self updateClassList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4637	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4638	self updateMethodListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4639	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4640	Transcript showCR:('searching for users of ' , oldSym); endEntry.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4641	SystemBrowser browseReferendsOf:oldSym warnIfNone:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4642	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4643	]
214 bb193ae3f3f9 check for existing class in rename; avoid warnbox if no refs are found after rename Claus Gittinger <cg@exept.de> parents: 213 diff changeset	4644
bb193ae3f3f9 check for existing class in rename; avoid warnbox if no refs are found after rename Claus Gittinger <cg@exept.de> parents: 213 diff changeset	4645	"Created: 25.11.1995 / 13:02:53 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	4646	"Modified: 18.8.1997 / 15:44:33 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4647	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4648
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4649	switchToClass:newClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4650	"switch to some other class;
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4651	keep instance protocol as it was ..."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4652
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4653	\|cls meta\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4654
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4655	"/ fullProtocol ifTrue:[^ self].
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4656
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4657	self releaseClass.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4658
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4659	cls := newClass.
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4660	cls isMeta ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4661	meta := cls.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4662	cls := meta soleInstance
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4663	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4664	meta := cls class
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4665	].
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4666
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4667	currentClass := cls.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4668	showInstance ifTrue:[
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4669	actualClass := acceptClass := cls.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4670	] ifFalse:[
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4671	actualClass := acceptClass := meta.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4672	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4673
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4674	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4675	cls addDependent:self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4676	meta addDependent:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4677	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4678	self normalLabel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4679
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4680	"Modified: 1.9.1995 / 01:04:05 / claus"
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4681	"Modified: 13.12.1995 / 15:32:49 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4682	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4683
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4684	switchToClassNameMatching:aMatchString
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4685	\|classNames thisName box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4686
607 96781ad00fdb ignore obsoletes (in classNamesMatching) Claus Gittinger <cg@exept.de> parents: 606 diff changeset	4687	classNames := Set new.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4688	Smalltalk allBehaviorsDo:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4689	thisName := aClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4690	(aMatchString match:thisName) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4691	classNames add:thisName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4692	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4693	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4694	(classNames size == 0) ifTrue:[^ nil].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4695	(classNames size == 1) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4696	^ self switchToClassNamed:(classNames first)
607 96781ad00fdb ignore obsoletes (in classNamesMatching) Claus Gittinger <cg@exept.de> parents: 606 diff changeset	4697	].
96781ad00fdb ignore obsoletes (in classNamesMatching) Claus Gittinger <cg@exept.de> parents: 606 diff changeset	4698	classNames := classNames asArray sort.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4699
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4700	box := self listBoxTitle:'select class to switch to:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4701	okText:'ok'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4702	list:classNames.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4703	box action:[:aString \| self switchToClassNamed:aString].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4704	box showAtPointer
607 96781ad00fdb ignore obsoletes (in classNamesMatching) Claus Gittinger <cg@exept.de> parents: 606 diff changeset	4705
96781ad00fdb ignore obsoletes (in classNamesMatching) Claus Gittinger <cg@exept.de> parents: 606 diff changeset	4706	"Modified: 4.6.1996 / 11:34:22 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4707	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4708
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4709	switchToClassNamed:aString
839 b3ddd53c2791 checkin from browser Claus Gittinger <cg@exept.de> parents: 838 diff changeset	4710	\|meta str classSymbol theClass newCat element idx l\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4711
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4712	meta := false.
885 73f73666c7aa preserve class/instance setting in load function. Claus Gittinger <cg@exept.de> parents: 884 diff changeset	4713
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4714	str := aString.
885 73f73666c7aa preserve class/instance setting in load function. Claus Gittinger <cg@exept.de> parents: 884 diff changeset	4715	(aString endsWith:' class') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4716	str := aString copyWithoutLast:6.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4717	meta := true
885 73f73666c7aa preserve class/instance setting in load function. Claus Gittinger <cg@exept.de> parents: 884 diff changeset	4718	].
73f73666c7aa preserve class/instance setting in load function. Claus Gittinger <cg@exept.de> parents: 884 diff changeset	4719
73f73666c7aa preserve class/instance setting in load function. Claus Gittinger <cg@exept.de> parents: 884 diff changeset	4720	theClass := self findClassNamed:str.
484 7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	4721
7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	4722	classCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4723	classCategoryListView list size == 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4724	classCategoryListView list:(self listOfAllClassCategories).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4725	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4726	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4727
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4728	theClass == currentClass ifTrue:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4729
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4730	theClass isBehavior ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4731	classCategoryListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4732	currentClassHierarchy isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4733	((newCat := theClass category) ~= currentClassCategory) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4734	currentClassCategory := newCat.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4735	newCat isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4736	element := '* no category *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4737	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4738	element := newCat.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4739	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4740	classCategoryListView setSelectElement:element.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4741	"/ classCategoryListView makeSelectionVisible.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4742	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4743	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4744	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4745	self updateClassList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4746	self switchToClass:theClass.
484 7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	4747
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4748	"/ (currentNamespace = '* all *'
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4749	"/ or:[currentNamespace ~= theClass nameSpace]) ifTrue:[
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4750	"/ str := theClass name
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4751	"/ ] ifFalse:[
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4752	"/ str := theClass nameWithoutPrefix
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4753	"/ ].
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4754
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4755	l := classListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4756	l notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4757	idx := l findFirst:[:line \| line withoutSpaces = str].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4758	classListView selection:idx.
839 b3ddd53c2791 checkin from browser Claus Gittinger <cg@exept.de> parents: 838 diff changeset	4759
b3ddd53c2791 checkin from browser Claus Gittinger <cg@exept.de> parents: 838 diff changeset	4760	"/ classListView setSelectElement:str.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4761	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4762
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4763	self instanceProtocol:meta not.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4764	idx ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4765	self classSelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4766	classCategoryListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4767	classCategoryListView setSelectElement:theClass category
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4768	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4769	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4770	]
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4771
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4772	"Modified: 1.9.1995 / 01:41:35 / claus"
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	4773	"Modified: 17.6.1996 / 16:54:55 / stefan"
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	4774	"Modified: 3.1.1997 / 11:45:46 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4775	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4776
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4777	updateClassList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4778	self updateClassListWithScroll:true
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4779	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4780
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4781	updateClassListWithScroll:scroll
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4782	\|classes oldClassName\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4783
905 f246868be4b1 dont update the classList, if it was given explicit Claus Gittinger <cg@exept.de> parents: 903 diff changeset	4784	gotClassList == true ifTrue:[^ self].
f246868be4b1 dont update the classList, if it was given explicit Claus Gittinger <cg@exept.de> parents: 903 diff changeset	4785
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4786	classListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4787	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4788	refetch in case we are not up to date
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4789	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4790	(currentClass notNil and:[fullProtocol not]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4791	oldClassName := currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4792	currentClass := self findClassNamed:oldClassName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4793	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4794
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4795	currentClassCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4796	classes := self listOfAllClassNamesInCategory:currentClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4797	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4798	currentClassHierarchy notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4799	classes := self listOfClassNameHierarchyOf:currentClassHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4800	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4801	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4802
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4803	classListView list = classes ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4804	scroll ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4805	classListView contents:classes
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4806	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4807	classListView setContents:classes
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4808	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4809	oldClassName notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4810	classListView setContents:classes.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4811	classListView setSelectElement:oldClassName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4812	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4813	variableListView notNil ifTrue:[variableListView contents:nil]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4814	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4815
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4816	scroll ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4817	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4818	classListView scrollToBottom
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4819	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4820	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4821	].
74 f2c56efa3599 Initial revision claus parents: diff changeset	4822	]
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	4823
933 6fb063972a63 in validate-versions: only validate from current nameSpace Claus Gittinger <cg@exept.de> parents: 931 diff changeset	4824	"Modified: 10.1.1997 / 14:01:20 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4825	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4826
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4827	!BrowserView methodsFor:'class-method list menu'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4828
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4829	classMethodBrowse
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4830	SystemBrowser openInClass:actualClass selector:currentSelector
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4831
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4832	"Created: 13.12.1995 / 15:05:12 / cg"
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4833	"Modified: 13.12.1995 / 15:06:26 / cg"
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4834	!
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4835
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4836	classMethodFileOutAll
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4837	"fileout all methods into one source file"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4838
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4839	\|list classString selectorString cls mth outStream fileName append
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4840	fileBox\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4841
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4842	append := false.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4843	fileBox := FileSaveBox
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4844	title:(resources string:'save methods in:')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4845	okText:(resources string:'save')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4846	abortText:(resources string:'cancel')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4847	action:[:fName \| fileName := fName].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4848	fileBox appendAction:[:fName \| fileName := fName. append := true].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4849	fileBox initialText:'some_methods.st'.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4850	Project notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4851	fileBox directory:Project currentProjectDirectory
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4852	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4853	fileBox showAtPointer.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4854
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	4855	fileName notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4856	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4857	if file exists, save original in a .sav file
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4858	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4859	fileName asFilename exists ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4860	fileName asFilename copyTo:(fileName , '.sav')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4861	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4862	append ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4863	outStream := FileStream appendingOldFileNamed:fileName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4864	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4865	outStream := FileStream newFileNamed:fileName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4866	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4867	outStream isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4868	^ self warn:'cannot create: %1' with:fileName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4869	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4870	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4871	list := classMethodListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4872	list do:[:line \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4873	self busyLabel:'writing: ' with:line.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4874
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4875	classString := self classNameFromClassMethodString:line.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4876	selectorString := self selectorFromClassMethodString:line.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4877
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4878	cls := self findClassNamed:classString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4879	cls isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4880	self warn:'oops class %1 is gone' with:classString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4881	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4882	mth := cls compiledMethodAt:(selectorString asSymbol).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4883	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4884	\|box answer\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4885	box := YesNoBox
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4886	title:('fileOut error: '
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4887	, ex errorString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4888	, '\\continue anyway ?') withCRs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4889	yesText:'continue'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4890	noText:'abort'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4891	answer := box confirm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4892	box destroy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4893	answer ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4894	ex proceed
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4895	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4896	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4897	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4898	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4899	cls fileOutMethod:mth on:outStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4900	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4901	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4902	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4903	outStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4904	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4905	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	4906	]
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	4907
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	4908	"Modified: 17.6.1996 / 16:51:11 / stefan"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	4909	"Modified: 18.8.1997 / 15:43:43 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4910	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4911
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4912	classMethodMenu
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	4913	<resource: #keyboard ( #Cmds #Cmdi #Cmdg ) >
587 74d27450aa79 added resource info Claus Gittinger <cg@exept.de> parents: 578 diff changeset	4914
1074 346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	4915	\|labels selectors shorties m specialMenu\|
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4916
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4917	(currentMethod notNil
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4918	and:[currentMethod isWrapped]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4919	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4920	'inspect method'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4921	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4922	'remove break/trace'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4923	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4924
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4925	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4926	methodInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4927	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4928	methodRemoveBreakOrTrace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4929	).
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4930	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4931	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4932	'inspect method'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4933	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4934	'breakpoint'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4935	'breakpoint in ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4936	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4937	'trace'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4938	'trace sender'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4939	'trace full walkback'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4940	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4941	'start timing'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4942	'start counting'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4943	'start mem usage'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4944	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4945
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4946	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4947	methodInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4948	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4949	methodBreakPoint
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4950	methodBreakPointInProcess
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4951	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4952	methodTrace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4953	methodTraceSender
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4954	methodTraceFull
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4955	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4956	methodStartTiming
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4957	methodStartCounting
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4958	methodStartMemoryUsage
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4959	).
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4960	].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4961	specialMenu := PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4962	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4963	selectors:selectors.
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4964
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4965	device ctrlDown ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4966	currentMethod isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4967	classMethodListView flash.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4968	^ nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4969	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4970
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4971	^ specialMenu
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	4972	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4973
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4974	labels := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4975	'fileOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4976	'fileOut all'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4977	'printOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4978	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4979	'browse'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4980	'spawn'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4981	'spawn class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4982	'spawn full protocol'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4983	'spawn hierarchy'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4984	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4985	'senders ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4986	'implementors ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4987	'globals ...'
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4988	"/ '-'
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4989	"/ 'breakpoint'
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4990	"/ 'trace'
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	4991	"/ 'trace sender'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4992	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4993	'remove'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4994	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4995	'others'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4996	).
474 9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	4997
9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	4998	shorties := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	4999	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5000	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5001	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5002	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5003	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5004	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5005	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5006	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5007	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5008	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5009	#Cmds
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5010	#Cmdi
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5011	#Cmdg
474 9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5012	"/ nil
9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5013	"/ nil
9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5014	"/ nil
9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5015	"/ nil
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5016	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5017	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5018	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5019	#'Ctrl'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5020	).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5021
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5022	selectors := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5023	methodFileOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5024	classMethodFileOutAll
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5025	methodPrintOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5026	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5027	classMethodBrowse
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5028	methodSpawn
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5029	classSpawn
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5030	classSpawnFullProtocol
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5031	classSpawnHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5032	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5033	methodSenders
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5034	methodImplementors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5035	methodGlobalReferends
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5036	"/ nil
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5037	"/ methodBreakPoint
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5038	"/ methodTrace
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5039	"/ methodTraceSender
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5040	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5041	methodRemove
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5042	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5043	othersMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5044	).
474 9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5045
1074 346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5046	m := PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5047	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5048	selectors:selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5049	accelerators:shorties.
1074 346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5050	m subMenuAt:#othersMenu put:specialMenu.
346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5051	^ m
346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5052
346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5053	"Modified: 7.3.1997 / 19:33:14 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	5054	! !
f2c56efa3599 Initial revision claus parents: diff changeset	5055
f2c56efa3599 Initial revision claus parents: diff changeset	5056	!BrowserView methodsFor:'class-method stuff'!
f2c56efa3599 Initial revision claus parents: diff changeset	5057
f2c56efa3599 Initial revision claus parents: diff changeset	5058	classFromClassMethodString:aString
f2c56efa3599 Initial revision claus parents: diff changeset	5059	"helper for classMethod-list - extract class name from the string"
f2c56efa3599 Initial revision claus parents: diff changeset	5060
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5061	\|classString\|
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5062
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5063	classString := self classNameFromClassMethodString:aString.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5064	^ self findClassNamed:classString.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5065
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5066	"Created: 3.3.1997 / 15:12:59 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	5067	!
f2c56efa3599 Initial revision claus parents: diff changeset	5068
f2c56efa3599 Initial revision claus parents: diff changeset	5069	classMethodSelection:lineNr
f2c56efa3599 Initial revision claus parents: diff changeset	5070	"user clicked on a class/method line - show code"
f2c56efa3599 Initial revision claus parents: diff changeset	5071
1075 f0ca720bce42 checkin from browser Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	5072	\|cls string classString selectorString meta sensor\|
74 f2c56efa3599 Initial revision claus parents: diff changeset	5073
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5074	string := classMethodListView selectionValue string.
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5075	classString := self classNameFromClassMethodString:string.
74 f2c56efa3599 Initial revision claus parents: diff changeset	5076	selectorString := self selectorFromClassMethodString:string.
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5077
1074 346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5078	"/ reselected with control ?
1075 f0ca720bce42 checkin from browser Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	5079	((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5080	selectorString = currentSelector ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5081	"/ if there is a trace/break, remove it.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5082	(currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5083	self methodRemoveBreakOrTrace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5084	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5085	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5086	].
1074 346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5087	].
346d64e1e3e3 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1073 diff changeset	5088
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	5089	((classString ~= 'Metaclass') and:[classString endsWith:' class']) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5090	classString := classString copyWithoutLast:6 "copyTo:(classString size - 5)".
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5091	meta := true.
74 f2c56efa3599 Initial revision claus parents: diff changeset	5092	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5093	meta := false.
74 f2c56efa3599 Initial revision claus parents: diff changeset	5094	].
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5095	self switchToClass:(self findClassNamed:classString).
131 48cd793d8eb4 . claus parents: 130 diff changeset	5096	meta ifTrue:[cls := currentClass class] ifFalse:[cls := currentClass].
48cd793d8eb4 . claus parents: 130 diff changeset	5097	actualClass := acceptClass := cls.
129 d5446f5f565c . claus parents: 126 diff changeset	5098
74 f2c56efa3599 Initial revision claus parents: diff changeset	5099	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5100	self warn:'oops method is gone'
74 f2c56efa3599 Initial revision claus parents: diff changeset	5101	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5102	currentClassCategory := currentClass category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5103	currentSelector := selectorString asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5104	currentMethod := actualClass compiledMethodAt:currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5105	currentMethod isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5106	self warn:'oops method is gone'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5107	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5108	currentMethodCategory := currentMethod category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5109	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5110
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5111	self methodSelectionChanged
74 f2c56efa3599 Initial revision claus parents: diff changeset	5112	].
f2c56efa3599 Initial revision claus parents: diff changeset	5113
f2c56efa3599 Initial revision claus parents: diff changeset	5114	self setDoitActionForClass
131 48cd793d8eb4 . claus parents: 130 diff changeset	5115
48cd793d8eb4 . claus parents: 130 diff changeset	5116	"Modified: 31.8.1995 / 11:56:02 / claus"
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	5117	"Modified: 17.6.1996 / 16:51:28 / stefan"
1245 04b8bc5ef4f7 checkin from browser Claus Gittinger <cg@exept.de> parents: 1237 diff changeset	5118	"Modified: 24.7.1997 / 15:02:17 / cg"
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5119	!
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5120
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5121	classNameFromClassMethodString:aString
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5122	"helper for classMethod-list - extract class name from the string"
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5123
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5124	\|pos s\|
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5125
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5126	s := aString string withoutSpaces.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5127	(s endsWith:' !!') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5128	s := s copyWithoutLast:2
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5129	].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5130	(s endsWith:')') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5131	s := aString copyTo:(aString lastIndexOf:$()-1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5132	s := s withoutSpaces.
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5133	].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5134	(s endsWith:' !!') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5135	s := s copyWithoutLast:2
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5136	].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5137	pos := s lastIndexOf:(Character space).
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5138	^ s copyTo:(pos - 1)
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5139
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5140	"Modified: 17.6.1996 / 17:06:59 / stefan"
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5141	"Modified: 4.11.1996 / 23:56:52 / cg"
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	5142	"Created: 3.3.1997 / 15:11:30 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5143	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5144
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5145	selectorFromClassMethodString:aString
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5146	"helper for classMethod-list - extract selector from the string"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5147
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5148	\|pos s\|
fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5149
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	5150	s := aString withoutSpaces.
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	5151	(s endsWith:' !!') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5152	s := s copyWithoutLast:2
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	5153	].
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	5154	(s endsWith:')') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5155	s := aString copyTo:(aString lastIndexOf:$()-1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5156	s := s withoutSpaces.
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5157	].
677 7e4ad7a82041 checkin from browser Claus Gittinger <cg@exept.de> parents: 674 diff changeset	5158	(s endsWith:' !!') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5159	s := s copyWithoutLast:2
677 7e4ad7a82041 checkin from browser Claus Gittinger <cg@exept.de> parents: 674 diff changeset	5160	].
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5161	pos := s lastIndexOf:(Character space).
fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	5162	^ s copyFrom:(pos + 1)
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	5163
24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	5164	"Modified: 17.6.1996 / 17:04:38 / stefan"
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	5165	"Modified: 4.11.1996 / 23:57:00 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	5166	! !
f2c56efa3599 Initial revision claus parents: diff changeset	5167
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5168	!BrowserView methodsFor:'event handling'!
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5169
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5170	handlesKeyPress:key inView:view
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5171	"this method is reached via delegation: are we prepared to handle
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5172	a keyPress in some other view ?"
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5173
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	5174	<resource: #keyboard (#Find #Cmdn #Cmdl #Cmdi #Cmds #Cmdg #Cmdt #Cmda)>
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5175
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5176	\|untranslatedKey\|
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5177
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5178	untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key.
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5179
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5180	view == classCategoryListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5181	(key == #Find) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5182	(untranslatedKey == #Cmdn) ifTrue:[^ true].
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5183	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5184
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5185	view == classListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5186	(untranslatedKey == #Cmdn) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5187	(untranslatedKey == #Cmdl) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5188	(untranslatedKey == #Cmdd) ifTrue:[^ true].
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5189	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5190
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5191	view == methodCategoryListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5192	(untranslatedKey == #Cmdn) ifTrue:[^ true].
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5193	].
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5194
474 9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5195	((view == methodListView)
9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5196	or:[view == classMethodListView]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5197	(untranslatedKey == #Cmdi) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5198	(untranslatedKey == #Cmds) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5199	(untranslatedKey == #Cmdg) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5200	(untranslatedKey == #Cmdt) ifTrue:[^ true].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5201	(untranslatedKey == #Cmda) ifTrue:[^ true].
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5202	].
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5203
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5204	^ false
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5205
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5206	"Created: 2.3.1996 / 14:33:30 / cg"
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	5207	"Modified: 11.1.1997 / 21:42:43 / cg"
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5208	!
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5209
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5210	keyPress:key x:x y:y view:view
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5211	"this method is reached via delegation from the classCategoryListView"
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5212
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	5213	<resource: #keyboard (#Find #Cmdn #Cmdl #Cmdi #Cmds #Cmdg #Cmdt #Cmda)>
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5214
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5215	\|untranslatedKey\|
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5216
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5217	"/
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5218	"/ have to untranslate (since we get #Inspect / #Search
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5219	"/
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5220	untranslatedKey := device keyboardMap keyAtValue:key ifAbsent:key.
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5221
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5222	view == classCategoryListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5223	(key == #Find) ifTrue:[^ self classCategoryFindClass].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5224	(untranslatedKey == #Cmdn) ifTrue:[^ self classCategoryNewCategory].
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5225	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5226
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5227	view == classListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5228	(untranslatedKey == #Cmdn) ifTrue:[^ self classNewClass].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5229	(untranslatedKey == #Cmdl) ifTrue:[^ self classLoad].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5230	(untranslatedKey == #Cmdd) ifTrue:[^ self classDocumentation].
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5231	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5232
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5233	view == methodCategoryListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5234	(untranslatedKey == #Cmdn) ifTrue:[^ self methodCategoryNewCategory].
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5235	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5236
474 9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5237	((view == methodListView)
9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5238	or:[view == classMethodListView]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5239	(untranslatedKey == #Cmdi) ifTrue:[^ self methodImplementors].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5240	(untranslatedKey == #Cmds) ifTrue:[^ self methodSenders].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5241	(untranslatedKey == #Cmdg) ifTrue:[^ self methodGlobalReferends].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5242	(untranslatedKey == #Cmdt) ifTrue:[^ self methodStringSearch].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5243	(untranslatedKey == #Cmda) ifTrue:[^ self methodAproposSearch].
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5244	].
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5245	view keyPress:key x:x y:y
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5246
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5247	"Created: 2.3.1996 / 14:37:52 / cg"
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	5248	"Modified: 11.1.1997 / 21:42:54 / cg"
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5249	! !
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5250
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5251	!BrowserView methodsFor:'help'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5252
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5253	helpTextFor:aComponent
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5254	\|s\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5255
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5256	aComponent == classCategoryListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5257	s := 'HELP_CCAT_LIST'
74 f2c56efa3599 Initial revision claus parents: diff changeset	5258	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5259	aComponent == classListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5260	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5261	s := 'HELP_PCLASS_LIST'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5262	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5263	currentClassHierarchy notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5264	s := 'HELP_HCLASS_LIST'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5265	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5266	s := 'HELP_CLASS_LIST'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5267	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5268	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	5269	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5270	aComponent == methodCategoryListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5271	s := 'HELP_MCAT_LIST'
74 f2c56efa3599 Initial revision claus parents: diff changeset	5272	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5273	aComponent == methodListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5274	s := 'HELP_METHOD_LIST'
74 f2c56efa3599 Initial revision claus parents: diff changeset	5275	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5276	aComponent == variableListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5277	s := 'HELP_VAR_LIST'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5278	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5279	aComponent == codeView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5280	fullClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5281	s := 'HELP_FULLCODE_VIEW'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5282	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5283	s := 'HELP_CODE_VIEW'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5284	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5285	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5286	(aComponent == instanceToggle
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5287	or:[aComponent == classToggle]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5288	s := 'HELP_INST_CLASS_TOGGLE'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5289	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5290	aComponent == classMethodListView ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5291	s := 'HELP_CLSMTHOD_LIST'
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5292	].
1211 588a4d148234 * empty log message * Claus Gittinger <cg@exept.de> parents: 1210 diff changeset	5293	(aComponent isComponentOf:namespaceList) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5294	s := 'HELP_NS_BOX'
1210 2b37259f0068 checkin from browser Claus Gittinger <cg@exept.de> parents: 1208 diff changeset	5295	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5296	s notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5297	^ resources string:s
105 520f37755229 . claus parents: 98 diff changeset	5298	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5299	^ nil
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5300
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5301	"Modified: 31.8.1995 / 19:11:39 / claus"
1211 588a4d148234 * empty log message * Claus Gittinger <cg@exept.de> parents: 1210 diff changeset	5302	"Modified: 28.6.1997 / 15:00:18 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5303	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5304
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5305	!BrowserView methodsFor:'initialize / release'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5306
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5307	autoSearch:aString
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5308	"used with class-method list browsing. If true,
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5309	selecting an entry from the list will automatically
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5310	search for the searchstring in the codeView"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5311
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5312	self setSearchPattern:aString.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5313	autoSearch := aString
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5314	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5315
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5316	destroy
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5317	"relese dependant - destroy popups"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5318
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5319	Smalltalk removeDependent:self.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5320	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5321	self releaseClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5322	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5323	"/ just in case someone keeps a ref to myself around ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5324	"/ ... release refs to my class (not really needed)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5325	"/
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5326	currentClass := actualClass := acceptClass := nil
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5327	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5328	super destroy
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	5329
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	5330	"Modified: 13.12.1995 / 15:33:03 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5331	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5332
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5333	initialize
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5334	super initialize.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5335
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5336	showInstance := true.
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	5337	showAllNamespaces := false.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5338	fullClass := false.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5339	fullProtocol := false.
905 f246868be4b1 dont update the classList, if it was given explicit Claus Gittinger <cg@exept.de> parents: 903 diff changeset	5340	gotClassList := false.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5341	aspect := nil.
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5342	currentNamespace := '* all *'.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5343
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5344	"inform me, when Smalltalk changes"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5345	Smalltalk addDependent:self
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5346
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	5347	"Modified: 31.7.1997 / 22:32:09 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5348	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5349
1248 72832110f144 #realize -> #postRealize Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	5350	postRealize
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5351	\|v checkBlock\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5352
1248 72832110f144 #realize -> #postRealize Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	5353	super postRealize.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5354
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5355	checkBlock := [:lineNr \| self checkSelectionChangeAllowed].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5356
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5357	v := classCategoryListView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5358	v notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5359	v action:[:lineNr \| self classCategorySelection:lineNr].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5360	v selectConditionBlock:checkBlock.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5361	v ignoreReselect:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5362	v list size == 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5363	v list:(self listOfAllClassCategories).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5364	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5365	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5366	tell classCategoryListView to ask for the menu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5367	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5368	v menuHolder:self; menuPerformer:self; menuMessage:#classCategoryMenu.
107 db1b370632d7 . claus parents: 106 diff changeset	5369	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5370
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5371	v := classListView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5372	v notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5373	v action:[:lineNr \| self classSelection:lineNr].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5374	v selectConditionBlock:checkBlock.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5375	v ignoreReselect:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5376	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5377	tell classListView to ask for the menu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5378	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5379	v menuHolder:self; menuPerformer:self; menuMessage:#classMenu.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5380	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5381
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5382	v := methodCategoryListView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5383	v notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5384	v action:[:lineNr \| self methodCategorySelection:lineNr].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5385	v selectConditionBlock:checkBlock.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5386	v ignoreReselect:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5387	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5388	tell methodCategoryListView to ask for the menu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5389	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5390	v menuHolder:self; menuPerformer:self; menuMessage:#methodCategoryMenu.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5391	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5392
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5393	v := methodListView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5394	v notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5395	v action:[:lineNr \| self methodSelection:lineNr].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5396	v selectConditionBlock:checkBlock.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5397	v ignoreReselect:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5398	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5399	tell methodListView to ask for the menu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5400	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5401	v menuHolder:self; menuPerformer:self; menuMessage:#methodMenu.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5402	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5403
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5404	v := classMethodListView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5405	v notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5406	v action:[:lineNr \| self classMethodSelection:lineNr].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5407	v selectConditionBlock:checkBlock.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5408	v ignoreReselect:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5409	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5410	tell classMethodListView to ask for the menu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5411	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5412	v menuHolder:self; menuPerformer:self; menuMessage:#classMethodMenu.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5413	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5414
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5415	v := variableListView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5416	v notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5417	v action:[:lineNr \| self variableSelection:lineNr].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5418	v ignoreReselect:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5419	v toggleSelect:true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5420	v menuHolder:self; menuPerformer:self; menuMessage:#variableListMenu.
117 db21165ac0e1 . claus parents: 114 diff changeset	5421	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5422
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5423	"
571 c946e6b3acd2 dont scroll to bottom in class-hierarchy browser Claus Gittinger <cg@exept.de> parents: 569 diff changeset	5424	normal browsers show the top/selection at first;
c946e6b3acd2 dont scroll to bottom in class-hierarchy browser Claus Gittinger <cg@exept.de> parents: 569 diff changeset	5425	fullProtocol browsers better show the end initially
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5426	"
571 c946e6b3acd2 dont scroll to bottom in class-hierarchy browser Claus Gittinger <cg@exept.de> parents: 569 diff changeset	5427	fullProtocol ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5428	classListView scrollToBottom.
123 8490f8cecb6c . claus parents: 120 diff changeset	5429	]
484 7680e95d51cb added openForClass item in cc-listView Claus Gittinger <cg@exept.de> parents: 481 diff changeset	5430
571 c946e6b3acd2 dont scroll to bottom in class-hierarchy browser Claus Gittinger <cg@exept.de> parents: 569 diff changeset	5431	"Modified: 26.5.1996 / 15:59:13 / cg"
1248 72832110f144 #realize -> #postRealize Claus Gittinger <cg@exept.de> parents: 1245 diff changeset	5432	"Created: 24.7.1997 / 18:14:59 / cg"
124 46c3ad9c8f6f . claus parents: 123 diff changeset	5433	!
46c3ad9c8f6f . claus parents: 123 diff changeset	5434
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5435	terminate
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5436	(self checkSelectionChangeAllowed) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5437	super terminate
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5438	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5439	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5440
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5441	title:someString
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5442	myLabel := someString.
1291 6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	5443	self topView label:someString.
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	5444
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	5445	"Modified: 18.8.1997 / 15:19:50 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5446	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5447
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5448	!BrowserView methodsFor:'initialize subviews'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5449
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5450	createClassListViewIn:frame
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5451	"setup the classlist subview, with its toggles"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5452
1080 91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5453	\|v panel spc wScr wScrHalf\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5454
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5455	self createTogglesIn:frame.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5456
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5457	panel := VariableVerticalPanel
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5458	origin:(0.0 @ 0.0) corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5459	in:frame.
810 46e587b6e439 checkin from browser Claus Gittinger <cg@exept.de> parents: 809 diff changeset	5460	styleSheet is3D ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5461	spc := ViewSpacing.
810 46e587b6e439 checkin from browser Claus Gittinger <cg@exept.de> parents: 809 diff changeset	5462	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5463	spc := 0
810 46e587b6e439 checkin from browser Claus Gittinger <cg@exept.de> parents: 809 diff changeset	5464	].
811 fde69dbb949a checkin from browser Claus Gittinger <cg@exept.de> parents: 810 diff changeset	5465	panel bottomInset:(instanceToggle height + spc + instanceToggle borderWidth).
764 49710cf2dd47 now is the time - for a scroller to come in the classList ... Claus Gittinger <cg@exept.de> parents: 762 diff changeset	5466
49710cf2dd47 now is the time - for a scroller to come in the classList ... Claus Gittinger <cg@exept.de> parents: 762 diff changeset	5467	v := HVScrollableView
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5468	for:SelectionInListView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5469	miniScrollerH:true miniScrollerV:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5470	in:panel.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5471	v origin:(0.0 @ 0.0) corner:(1.0 @ 0.7).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5472	classListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5473	classListView delegate:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5474
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5475	v := ScrollableView for:SelectionInListView in:panel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5476	v origin:(0.0 @ 0.7) corner:(1.0 @ 1.0).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5477
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5478	variableListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5479	variableListView delegate:self.
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5480
1080 91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5481	wScr := v scrollBar preferredExtent x.
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5482	wScrHalf := wScr // 2.
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5483
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5484	"/ (styleSheet at:'scrollBarPosition' default:#right) == #right ifTrue:[
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5485	"/ classToggle rightInset:(classToggle rightInset + wScr).
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5486	"/ classToggle leftInset:(classToggle leftInset - wScrHalf).
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5487	"/ instanceToggle rightInset:(instanceToggle rightInset + wScrHalf)
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5488	"/ ].
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5489
91096431f72c * empty log message * Claus Gittinger <cg@exept.de> parents: 1079 diff changeset	5490	"Modified: 19.3.1997 / 17:38:07 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5491	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5492
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5493	createCodeViewIn:aView
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5494	"setup the code view"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5495
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5496	^ self createCodeViewIn:aView atY:0.25
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5497
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5498	"Modified: 2.3.1996 / 16:08:46 / cg"
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5499	!
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5500
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5501	createCodeViewIn:aView atY:relY
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5502	"setup the code view"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5503	\|v\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5504
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5505	v := HVScrollableView for:CodeView miniScrollerH:true miniScrollerV:false in:aView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5506	v origin:(0.0 @ relY) corner:(1.0 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5507	codeView := v scrolledView
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5508
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5509	"Created: 2.3.1996 / 16:09:03 / cg"
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5510	!
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5511
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5512	createMethodListViewIn:aView atX:relX
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5513	"setup the method list view"
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5514	\|v\|
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5515
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5516	v := HVScrollableView for:SelectionInListView miniScrollerH:true miniScrollerV:false in:aView.
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5517	v origin:(relX @ 0.0) corner:(1.0 @ 1.0).
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5518	methodListView := v scrolledView.
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5519	methodListView delegate:self.
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5520	^ v
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5521
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5522	"Created: 2.3.1996 / 16:07:10 / cg"
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5523	"Modified: 2.3.1996 / 16:11:42 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5524	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5525
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5526	createTogglesIn:aFrame
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5527	"create and setup the class/instance toggles"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5528
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5529	\|h halfSpace classAction instanceAction\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5530
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5531	classAction := [self instanceProtocol:false].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5532	instanceAction := [self instanceProtocol:true].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5533
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5534	halfSpace := ViewSpacing // 2.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5535
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5536	instanceToggle := Toggle label:(resources at:'instance') in:aFrame.
171 bd57f15a26c1 2d style pixel computations - again Claus Gittinger <cg@exept.de> parents: 170 diff changeset	5537	h := instanceToggle heightIncludingBorder.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5538	instanceToggle origin:(0.0 @ 1.0) corner:(0.5 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5539	instanceToggle topInset:h negated.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5540
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5541	instanceToggle turnOn.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5542	instanceToggle pressAction:instanceAction.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5543	instanceToggle releaseAction:classAction.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5544
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5545	classToggle := Toggle label:(resources at:'class') in:aFrame.
171 bd57f15a26c1 2d style pixel computations - again Claus Gittinger <cg@exept.de> parents: 170 diff changeset	5546	h := classToggle heightIncludingBorder.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5547	classToggle origin:(0.5 @ 1.0) corner:(1.0 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5548	classToggle topInset:h negated.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5549
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5550	classToggle turnOff.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5551	classToggle pressAction:classAction.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5552	classToggle releaseAction:instanceAction.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5553
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5554	styleSheet is3D ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5555	instanceToggle bottomInset:halfSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5556	classToggle bottomInset:halfSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5557
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5558	instanceToggle leftInset:halfSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5559	classToggle leftInset:halfSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5560	instanceToggle rightInset:ViewSpacing - halfSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5561	classToggle rightInset:ViewSpacing - halfSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5562
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5563	styleSheet name == #motif ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5564	instanceToggle showLamp:true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5565	classToggle showLamp:true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5566	]
1255 d9f620c80581 checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	5567	].
d9f620c80581 checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	5568
d9f620c80581 checkin from browser Claus Gittinger <cg@exept.de> parents: 1254 diff changeset	5569	"Modified: 28.7.1997 / 16:59:34 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5570	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5571
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5572	focusSequence
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5573	\|s\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5574
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5575	s := OrderedCollection new.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5576
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5577	classCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5578	s add:classCategoryListView
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5579	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5580
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5581	classListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5582	s add:classListView
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5583	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5584
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5585	"/ variableListView notNil ifTrue:[
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5586	"/ s add:variableListView
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5587	"/ ].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5588
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5589	instanceToggle notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5590	s add:instanceToggle.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5591	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5592
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5593	methodCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5594	s add:methodCategoryListView
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5595	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5596
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5597	methodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5598	s add:methodListView
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5599	].
74 f2c56efa3599 Initial revision claus parents: diff changeset	5600
f2c56efa3599 Initial revision claus parents: diff changeset	5601	classMethodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5602	s add:classMethodListView
74 f2c56efa3599 Initial revision claus parents: diff changeset	5603	].
f2c56efa3599 Initial revision claus parents: diff changeset	5604
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5605	s add:codeView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5606	^ s
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5607	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5608
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5609	setupForAll
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5610	"create subviews for a full browser"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5611
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5612	\|vpanel hpanel frame v spc nsHolder\|
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5613
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5614	styleSheet is3D ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5615	spc := ViewSpacing.
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5616	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5617	spc := 0
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5618	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5619
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5620	vpanel := VariableVerticalPanel origin:(0.0 @ 0.0) corner:(1.0 @ 1.0)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5621	in:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5622	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5623
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5624	v := HVScrollableView for:SelectionInListView
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5625	miniScrollerH:true miniScrollerV:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5626	in:hpanel.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5627	v origin:(0.0 @ 0.0) corner:(0.25 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5628	classCategoryListView := v scrolledView.
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5629	classCategoryListView delegate:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5630
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5631	frame := View origin:(0.25 @ 0.0) corner:(0.5 @ 1.0) in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5632	self createClassListViewIn:frame.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5633
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5634	v bottomInset:(instanceToggle height + spc + instanceToggle borderWidth).
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5635	nsHolder := currentNamespace asValue.
931 b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5636
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5637	namespaceList := ComboListView origin:(0.0@1.0) corner:(0.25@1.0) in:hpanel.
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5638	namespaceList topInset:(v bottomInset negated) + (spc // 2).
1201 5bcdee8b4644 checkin from browser Claus Gittinger <cg@exept.de> parents: 1195 diff changeset	5639	namespaceList leftInset:(ViewSpacing // 2).
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5640	namespaceList bottomInset:(spc // 2).
931 b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5641
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5642	"/ styleSheet is3D ifTrue:[
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5643	"/ namespaceList leftInset:(classCategoryListView originRelativeTo:v) x.
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5644	"/ ].
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5645
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5646	"/ (v scrollBar originRelativeTo:v) > (classCategoryListView originRelativeTo:v)
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5647	"/ ifTrue:[
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5648	"/ namespaceList rightInset:((v scrollBar originRelativeTo:v)
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5649	"/ -
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5650	"/ (classCategoryListView originRelativeTo:v))
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5651	"/ ] ifFalse:[
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5652	"/ styleSheet is3D ifTrue:[
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5653	"/ namespaceList rightInset:(ViewSpacing // 2).
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5654	"/ ]
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5655	"/ ].
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5656
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5657	"/ styleSheet is3D ifTrue:[
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5658	"/ namespaceList rightInset:(ViewSpacing // 2).
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5659	"/ ].
b31937ead721 fixed nameSpace views geometry for 2D styles Claus Gittinger <cg@exept.de> parents: 927 diff changeset	5660
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5661	self setListOfNamespaces.
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5662	namespaceList model:nsHolder.
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	5663	namespaceList label menuHolder:self; menuMessage:#nameSpaceMenu.
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5664	nsHolder onChangeSend:#value
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5665	to:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5666	self changeNameSpaceTo:nsHolder value
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5667	].
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	5668
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5669	v := HVScrollableView for:SelectionInListView miniScrollerH:true miniScrollerV:false in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5670	v origin:(0.5 @ 0.0) corner:(0.75 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5671	methodCategoryListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5672	methodCategoryListView delegate:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5673
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5674	self createMethodListViewIn:hpanel atX:0.75.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5675
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5676	self createCodeViewIn:vpanel
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5677
1201 5bcdee8b4644 checkin from browser Claus Gittinger <cg@exept.de> parents: 1195 diff changeset	5678	"Modified: 24.6.1997 / 18:55:17 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5679	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5680
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5681	setupForClass:aClass
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5682	"create subviews for browsing a single class"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5683
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5684	\|vpanel hpanel frame v\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5685
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5686	vpanel := VariableVerticalPanel origin:(0.0 @ 0.0)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5687	corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5688	in:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5689
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5690	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5691	frame := View origin:(0.0 @ 0.0) corner:(0.5 @ 1.0)in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5692
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5693	self createTogglesIn:frame.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5694
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5695	v := ScrollableView for:SelectionInListView in:frame.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5696	v origin:(0.0 @ 0.0)
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5697	extent:[frame width
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5698	@
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5699	(frame height
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5700	- ViewSpacing
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5701	- instanceToggle height
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5702	- instanceToggle borderWidth
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5703	+ v borderWidth)].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5704	methodCategoryListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5705	methodCategoryListView delegate:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5706
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5707	self createMethodListViewIn:hpanel atX:0.5.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5708	self createCodeViewIn:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5709
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5710	self switchToClass:aClass.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5711	actualClass := acceptClass := aClass.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5712	self updateMethodCategoryList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5713	self updateMethodList.
151 9ed80631f710 Show class definition when starting Class Browser. Stefan Vogel <sv@exept.de> parents: 149 diff changeset	5714	self updateCodeView.
9ed80631f710 Show class definition when starting Class Browser. Stefan Vogel <sv@exept.de> parents: 149 diff changeset	5715	self classDefinition.
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5716
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5717	"Modified: 27.10.1996 / 14:17:06 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5718	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5719
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5720	setupForClass:aClass methodCategory:aMethodCategory
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5721	"setup subviews to browse a method category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5722
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5723	\|vpanel v\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5724
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5725	vpanel := VariableVerticalPanel
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5726	origin:(0.0 @ 0.0) corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5727	in:self.
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5728
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5729	v := self createMethodListViewIn:vpanel atX:0.0.
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5730	v corner:(1.0 @ 0.25).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5731
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5732	self createCodeViewIn:vpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5733
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5734	currentClassCategory := aClass category.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5735	self switchToClass:aClass.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5736	actualClass := acceptClass := aClass.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5737	currentMethodCategory := aMethodCategory.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5738	self updateMethodList.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5739	self updateCodeView.
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5740
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5741	"Modified: 2.3.1996 / 16:10:44 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5742	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5743
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5744	setupForClass:aClass selector:selector
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5745	"setup subviews to browse a single method"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5746
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5747	\|v\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5748
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5749	v := ScrollableView for:CodeView in:self.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5750	v origin:(0.0 @ 0.0) corner:(1.0 @ 1.0).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5751	codeView := v scrolledView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5752
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5753	currentClassCategory := aClass category.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5754	self switchToClass:aClass.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5755	actualClass := acceptClass := aClass.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5756	currentSelector := selector.
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	5757	currentMethod := actualClass compiledMethodAt:selector.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5758	currentMethodCategory := currentMethod category.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5759	self updateCodeView
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	5760
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	5761	"Modified: 13.12.1995 / 15:07:50 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5762	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5763
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5764	setupForClassCategory:aClassCategory
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5765	"setup subviews to browse a class category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5766
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5767	\|vpanel hpanel frame v\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5768
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5769	vpanel := VariableVerticalPanel origin:(0.0 @ 0.0)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5770	corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5771	in:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5772
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5773	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5774	frame := View origin:(0.0 @ 0.0) corner:(0.33 @ 1.0) in:hpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5775
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5776	self createClassListViewIn:frame.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5777
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5778	v := ScrollableView for:SelectionInListView in:hpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5779	v origin:(0.33 @ 0.0) corner:(0.66 @ 1.0).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5780	methodCategoryListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5781	methodCategoryListView delegate:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5782
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5783	self createMethodListViewIn:hpanel atX:0.66.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5784	self createCodeViewIn:vpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5785
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5786	currentClassCategory := aClassCategory.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5787	self updateClassList.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5788	self updateMethodCategoryList.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5789	self updateMethodList.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5790	self updateCodeView
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5791
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5792	"Modified: 27.10.1996 / 14:17:24 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5793	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5794
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5795	setupForClassHierarchy:aClass
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5796	"setup subviews to browse a class hierarchy"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5797
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5798	\|vpanel hpanel frame v cls\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5799
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5800	vpanel := VariableVerticalPanel origin:(0.0 @ 0.0)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5801	corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5802	in:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5803
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5804	"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5805	notice: we use a different ratio here
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5806	"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5807	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.4) in:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5808	frame := View origin:(0.0 @ 0.0) corner:(0.33 @ 1.0) in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5809
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5810	self createClassListViewIn:frame.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5811
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5812	v := ScrollableView for:SelectionInListView in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5813	v origin:(0.33 @ 0.0) corner:(0.66 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5814	methodCategoryListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5815	methodCategoryListView delegate:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5816
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5817	self createMethodListViewIn:hpanel atX:0.66.
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5818	self createCodeViewIn:vpanel atY:0.4.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5819
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5820	cls := aClass.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5821	cls isMeta ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5822	cls := cls soleInstance
74 f2c56efa3599 Initial revision claus parents: diff changeset	5823	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5824	currentClassHierarchy := currentClass := actualClass := cls.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5825	self updateClassList.
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	5826	classListView setSelectElement:aClass name; makeSelectionVisible.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5827	self updateMethodCategoryList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5828	self updateMethodList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5829	self updateCodeView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5830
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5831	aClass isMeta ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5832	self instanceProtocol:false
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5833	].
572 0ee9fbf0e535 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	5834
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5835	"Modified: 27.10.1996 / 14:17:30 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5836	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5837
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5838	setupForClassList:aList
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5839	"setup subviews to browse classes from a list"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5840
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5841	self setupForClassList:aList sort:true
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5842
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5843	"Modified: 28.5.1996 / 13:53:03 / cg"
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5844	!
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5845
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5846	setupForClassList:aList sort:doSort
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5847	"setup subviews to browse classes from a list"
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5848
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5849	\|vpanel hpanel frame l v\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5850
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5851	vpanel := VariableVerticalPanel
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5852	origin:(0.0 @ 0.0) corner:(1.0 @ 1.0) in:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5853
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5854	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5855	frame := View origin:(0.0 @ 0.0) corner:(0.33 @ 1.0) in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5856
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5857	self createClassListViewIn:frame.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5858
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5859	v := ScrollableView for:SelectionInListView in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5860	v origin:(0.33 @ 0.0) corner:(0.66 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5861	methodCategoryListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5862	methodCategoryListView delegate:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5863
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5864	self createMethodListViewIn:hpanel atX:0.66.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5865	self createCodeViewIn:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5866
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5867	l := (aList collect:[:entry \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5868	entry isBehavior ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5869	entry name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5870	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5871	entry
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5872	]]) asOrderedCollection.
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5873	doSort ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5874	l sort.
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5875	].
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5876	classListView list:l.
905 f246868be4b1 dont update the classList, if it was given explicit Claus Gittinger <cg@exept.de> parents: 903 diff changeset	5877	gotClassList := true.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5878
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5879	self updateMethodCategoryList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5880	self updateMethodList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5881	self updateCodeView
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5882
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	5883	"Created: 28.5.1996 / 13:52:47 / cg"
905 f246868be4b1 dont update the classList, if it was given explicit Claus Gittinger <cg@exept.de> parents: 903 diff changeset	5884	"Modified: 4.1.1997 / 19:45:30 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5885	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5886
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5887	setupForFullClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5888	"setup subviews to browse a class as full text"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5889
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5890	\|vpanel hpanel v\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5891
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5892	vpanel := VariableVerticalPanel origin:(0.0 @ 0.0)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5893	corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5894	in:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5895
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5896	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.25) in:vpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5897
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5898	v := ScrollableView for:SelectionInListView in:hpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5899	v origin:(0.0 @ 0.0) corner:(0.5 @ 1.0).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5900	classCategoryListView := v scrolledView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5901	classCategoryListView contents:(self listOfAllClassCategories).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5902
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5903	v := ScrollableView for:SelectionInListView in:hpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5904	v origin:(0.5 @ 0.0) corner:(1.0 @ 1.0).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5905	classListView := v scrolledView.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5906
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5907	self createCodeViewIn:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5908
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5909	fullClass := true.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5910	self updateCodeView
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5911	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5912
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5913	setupForFullClassProtocol:aClass
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5914	"setup subviews to browse a classes full protocol"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5915
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5916	\|vpanel hpanel frame v cls\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5917
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5918	vpanel := VariableVerticalPanel origin:(0.0 @ 0.0)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5919	corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5920	in:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5921
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5922	"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5923	notice: we use a different ratio here
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5924	"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5925	hpanel := View origin:(0.0 @ 0.0) corner:(1.0 @ 0.4) in:vpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5926	frame := View origin:(0.0 @ 0.0) corner:(0.33 @ 1.0) in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5927
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5928	self createClassListViewIn:frame.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5929	classListView multipleSelectOk:true.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5930	classListView toggleSelect:true.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5931	classListView strikeOut:true.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5932
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5933	v := ScrollableView for:SelectionInListView in:hpanel.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5934	v origin:(0.33 @ 0.0) corner:(0.66 @ 1.0).
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5935	methodCategoryListView := v scrolledView.
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5936	methodCategoryListView delegate:self.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5937
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5938	self createMethodListViewIn:hpanel atX:0.66.
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5939	self createCodeViewIn:vpanel atY:0.4.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5940
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5941	cls := aClass.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5942	cls isMeta ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5943	cls := cls soleInstance
107 db1b370632d7 . claus parents: 106 diff changeset	5944	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5945	currentClassHierarchy := actualClass := acceptClass := currentClass := cls.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5946	fullProtocol := true.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5947
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5948	self updateClassList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5949	self updateMethodCategoryList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5950	self updateMethodList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5951	self updateCodeView.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5952	self updateVariableList.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	5953	aClass isMeta ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5954	self instanceProtocol:false
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5955	].
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	5956
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	5957	"Modified: 27.10.1996 / 14:17:47 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5958	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5959
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5960	setupForList:aList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5961	"setup subviews to browse methods from a list"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5962
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5963	\|vpanel v\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5964
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5965	vpanel := VariableVerticalPanel
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5966	origin:(0.0 @ 0.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5967	corner:(1.0 @ 1.0)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5968	in:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5969
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5970	v := ScrollableView for:SelectionInListView in:vpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5971	v origin:(0.0 @ 0.0) corner:(1.0 @ 0.25).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5972	classMethodListView := v scrolledView.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5973	classMethodListView contents:aList.
474 9ba54a6241cb shortkeys also when browsing senders/implementors Claus Gittinger <cg@exept.de> parents: 466 diff changeset	5974	classMethodListView delegate:self.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5975
408 33b1b3dfdac4 show current revision (in compare); doubleClick-start in class/method browser Claus Gittinger <cg@exept.de> parents: 393 diff changeset	5976	classMethodListView doubleClickAction:[:lineNr \| self classMethodBrowse].
33b1b3dfdac4 show current revision (in compare); doubleClick-start in class/method browser Claus Gittinger <cg@exept.de> parents: 393 diff changeset	5977
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5978	self createCodeViewIn:vpanel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5979	aList size == 1 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5980	classMethodListView setSelection:1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5981	self classMethodSelection:1.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	5982	].
1060 a103c9534977 also show icons in initial class-method-list Claus Gittinger <cg@exept.de> parents: 1058 diff changeset	5983	self updateCodeView.
a103c9534977 also show icons in initial class-method-list Claus Gittinger <cg@exept.de> parents: 1058 diff changeset	5984	"/ kludge - get trap icons
a103c9534977 also show icons in initial class-method-list Claus Gittinger <cg@exept.de> parents: 1058 diff changeset	5985	self updateClassMethodListWithScroll:false keepSelection:true
a103c9534977 also show icons in initial class-method-list Claus Gittinger <cg@exept.de> parents: 1058 diff changeset	5986
a103c9534977 also show icons in initial class-method-list Claus Gittinger <cg@exept.de> parents: 1058 diff changeset	5987	"Modified: 3.3.1997 / 15:26:48 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	5988	! !
f2c56efa3599 Initial revision claus parents: diff changeset	5989
f2c56efa3599 Initial revision claus parents: diff changeset	5990	!BrowserView methodsFor:'method category list menu'!
f2c56efa3599 Initial revision claus parents: diff changeset	5991
990 e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	5992	createAccessMethodsFor:aCollectionOfInstVarNames
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	5993	"workhorse for creating access methods for instvars."
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	5994
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	5995	aCollectionOfInstVarNames do:[:name \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5996	\|source\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5997
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5998	"check, if method is not already present"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	5999	(currentClass includesSelector:(name asSymbol)) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6000	source := (name , '\ "return the value of the instance variable ''' , name , ''' (automatically generated)"\\ ^ ' , name) withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6001	Compiler compile:source forClass:currentClass inCategory:'accessing'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6002	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6003	Transcript showCR:'method ''', name , ''' already present'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6004	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6005
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6006	(currentClass includesSelector:((name , ':') asSymbol)) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6007	source := (name , ':something\ "set the value of the instance variable ''' , name , ''' (automatically generated)"\\ ' , name , ' := something.') withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6008	Compiler compile:source forClass:currentClass inCategory:'accessing'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6009	] ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6010	Transcript showCR:'method ''', name , ':'' already present'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6011	].
990 e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	6012	]
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	6013
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	6014	"Created: 24.1.1997 / 11:04:46 / cg"
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	6015	!
e206a230a69e checkin from browser Claus Gittinger <cg@exept.de> parents: 987 diff changeset	6016
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6017	methodCategoryCopyCategory
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6018	"show the enter box to copy from an existing method category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6019
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6020	\|title box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6021
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6022	showInstance ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6023	title := 'class to copy instance method category from:'
74 f2c56efa3599 Initial revision claus parents: diff changeset	6024	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6025	title := 'class to copy class method category from:'
74 f2c56efa3599 Initial revision claus parents: diff changeset	6026	].
f2c56efa3599 Initial revision claus parents: diff changeset	6027
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6028	box := self listBoxTitle:title
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6029	okText:'ok'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6030	list:(Smalltalk allClasses collect:[:cls \| cls name]) asArray sort.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6031
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6032	box label:(resources string:'copy methods').
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6033	box action:[:aString \| self copyMethodsFromClass:aString].
74 f2c56efa3599 Initial revision claus parents: diff changeset	6034	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6035
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6036	"Modified: 16.1.1997 / 00:01:20 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	6037	!
f2c56efa3599 Initial revision claus parents: diff changeset	6038
f2c56efa3599 Initial revision claus parents: diff changeset	6039	methodCategoryCreateAccessMethods
559 432abfae606f commentary Claus Gittinger <cg@exept.de> parents: 557 diff changeset	6040	"create access methods for instvars.
432abfae606f commentary Claus Gittinger <cg@exept.de> parents: 557 diff changeset	6041	If no variable is selected, for all instvars;
432abfae606f commentary Claus Gittinger <cg@exept.de> parents: 557 diff changeset	6042	otherwise for that selected instvar."
74 f2c56efa3599 Initial revision claus parents: diff changeset	6043
f2c56efa3599 Initial revision claus parents: diff changeset	6044	self checkClassSelected ifFalse:[^ self].
f2c56efa3599 Initial revision claus parents: diff changeset	6045
f2c56efa3599 Initial revision claus parents: diff changeset	6046	showInstance ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6047	self warn:'select instance - and try again'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6048	^ self.
74 f2c56efa3599 Initial revision claus parents: diff changeset	6049	].
f2c56efa3599 Initial revision claus parents: diff changeset	6050
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6051	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6052	\|nm names\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6053
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6054	(variableListView notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6055	and:[(nm := variableListView selectionValue) notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6056	names := Array with:nm
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6057	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6058	names := currentClass instVarNames
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6059	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6060
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6061	lockUpdates := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6062	[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6063	self createAccessMethodsFor:names.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6064	] valueOnUnwindDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6065	lockUpdates := false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6066	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6067	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6068	self updateMethodListWithScroll:false
74 f2c56efa3599 Initial revision claus parents: diff changeset	6069	]
363 709901a36b48 checkin from browser Claus Gittinger <cg@exept.de> parents: 357 diff changeset	6070
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6071	"Modified: 18.8.1997 / 15:44:10 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	6072	!
f2c56efa3599 Initial revision claus parents: diff changeset	6073
f2c56efa3599 Initial revision claus parents: diff changeset	6074	methodCategoryCreateDocumentationMethods
f2c56efa3599 Initial revision claus parents: diff changeset	6075	"create empty documentation methods"
f2c56efa3599 Initial revision claus parents: diff changeset	6076
1194 7fbf9a4f4914 add copyright, if COPYRIGHT_TEMPLATE_FILE resource Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	6077	\|cls histStream fn txt\|
74 f2c56efa3599 Initial revision claus parents: diff changeset	6078
f2c56efa3599 Initial revision claus parents: diff changeset	6079	self checkClassSelected ifFalse:[^ self].
f2c56efa3599 Initial revision claus parents: diff changeset	6080
f2c56efa3599 Initial revision claus parents: diff changeset	6081	cls := currentClass class.
f2c56efa3599 Initial revision claus parents: diff changeset	6082
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6083	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6084	\|nm names source\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6085
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6086	"/ add version method containing RCS template
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6087	"/ but only if not already present and its not a private class.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6088
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6089	cls isPrivate ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6090	(cls includesSelector:#version) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6091	Compiler compile:
74 f2c56efa3599 Initial revision claus parents: diff changeset	6092	'version
432 a6c771534efa oops - dont use $ Header in createDocuStubs - rcs expands it Claus Gittinger <cg@exept.de> parents: 431 diff changeset	6093	^ ''$' , 'Header$''
1208 5a2aa83494c3 dont create a #version method in private classes. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	6094	'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6095	forClass:cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6096	inCategory:'documentation'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6097	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6098	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6099
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6100	"/ add copyright method containing your/your companies
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6101	"/ copyright template but only if not already present.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6102	"/ this is only added, if specified in the
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6103	"/ COPYRIGHT_TEMPLATE_FILE resources.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6104
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6105	(cls includesSelector:#copyright) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6106	fn := resources at:#'COPYRIGHT_TEMPLATE_FILE' default:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6107	fn notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6108	fn := fn asFilename.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6109	fn exists ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6110	txt := fn contents asString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6111	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6112	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6113
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6114	txt notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6115	txt := txt bindWith:(Date today year).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6116	Compiler compile:
1194 7fbf9a4f4914 add copyright, if COPYRIGHT_TEMPLATE_FILE resource Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	6117	'copyright
7fbf9a4f4914 add copyright, if COPYRIGHT_TEMPLATE_FILE resource Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	6118	"
7fbf9a4f4914 add copyright, if COPYRIGHT_TEMPLATE_FILE resource Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	6119	' , txt , '
7fbf9a4f4914 add copyright, if COPYRIGHT_TEMPLATE_FILE resource Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	6120	"
7fbf9a4f4914 add copyright, if COPYRIGHT_TEMPLATE_FILE resource Claus Gittinger <cg@exept.de> parents: 1191 diff changeset	6121	' forClass:cls
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6122	inCategory:'documentation'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6123	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6124	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6125
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6126	"/ add documentation method containing doc template
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6127	"/ but only if not already present.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6128
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6129	(cls includesSelector:#documentation) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6130	Compiler compile:
74 f2c56efa3599 Initial revision claus parents: diff changeset	6131	'documentation
f2c56efa3599 Initial revision claus parents: diff changeset	6132	"
f2c56efa3599 Initial revision claus parents: diff changeset	6133	documentation to be added.
f2c56efa3599 Initial revision claus parents: diff changeset	6134	"
120 05dd17f0b031 . claus parents: 118 diff changeset	6135	' forClass:cls
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6136	inCategory:'documentation'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6137	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6138
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6139	"/ add examples method containing examples template
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6140	"/ but only if not already present.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6141
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6142	(cls includesSelector:#examples) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6143	Compiler compile:
74 f2c56efa3599 Initial revision claus parents: diff changeset	6144	'examples
f2c56efa3599 Initial revision claus parents: diff changeset	6145	"
f2c56efa3599 Initial revision claus parents: diff changeset	6146	examples to be added.
f2c56efa3599 Initial revision claus parents: diff changeset	6147	"
120 05dd17f0b031 . claus parents: 118 diff changeset	6148	' forClass:cls
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6149	inCategory:'documentation'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6150	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6151
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6152	"/ add history method containing created-entry
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6153	"/ but only if not already present.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6154
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6155	(cls includesSelector:#history) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6156	histStream := ReadWriteStream on: String new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6157	histStream nextPutLine: 'history'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6158	HistoryLine isBehavior ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6159	histStream nextPutLine: (HistoryLine newCreated printString).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6160	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6161	histStream cr.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6162	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6163	Compiler compile:(histStream contents)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6164	forClass:cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6165	inCategory:'documentation'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6166	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6167
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6168	self instanceProtocol:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6169	self switchToMethodNamed:#documentation
1208 5a2aa83494c3 dont create a #version method in private classes. Claus Gittinger <cg@exept.de> parents: 1202 diff changeset	6170
74 f2c56efa3599 Initial revision claus parents: diff changeset	6171	"/ self updateMethodCategoryListWithScroll:false.
f2c56efa3599 Initial revision claus parents: diff changeset	6172	"/ self updateMethodListWithScroll:false
f2c56efa3599 Initial revision claus parents: diff changeset	6173	]
363 709901a36b48 checkin from browser Claus Gittinger <cg@exept.de> parents: 357 diff changeset	6174
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6175	"Modified: 18.8.1997 / 15:44:13 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	6176	!
f2c56efa3599 Initial revision claus parents: diff changeset	6177
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6178	methodCategoryFileOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6179	"fileOut all methods in the selected methodcategory of
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6180	the current class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6181
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6182	self checkClassSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6183	self whenMethodCategorySelected:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6184	self busyLabel:'saving: %1' with:currentClass name , '-' , currentMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6185	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6186	self warn:'cannot create: %1' with:ex parameter.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6187	ex return.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6188	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6189	actualClass fileOutCategory:currentMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6190	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6191	self normalLabel.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6192	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6193	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6194
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6195	methodCategoryFileOutAll
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6196	"fileOut all methods in the selected methodcategory of
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6197	the current class"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6198
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6199
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6200	self whenMethodCategorySelected:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6201	\|fileName outStream\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6202
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6203	fileName := currentMethodCategory , '.st'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6204	fileName replaceAll:Character space with:$_.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6205	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6206	this test allows a smalltalk to be built without Projects/ChangeSets
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6207	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6208	Project notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6209	fileName := Project currentProjectDirectory , fileName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6210	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6211	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6212	if file exists, save original in a .sav file
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6213	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6214	fileName asFilename exists ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6215	fileName asFilename copyTo:(fileName , '.sav')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6216	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6217	outStream := FileStream newFileNamed:fileName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6218	outStream isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6219	^ self warn:'cannot create: %1' with:fileName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6220	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6221
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6222	self busyLabel:'saving: ' with:currentMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6223	Class fileOutErrorSignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6224	self warn:'cannot create: %1' with:ex parameter.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6225	ex return
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6226	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6227	Smalltalk allBehaviorsDo:[:class \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6228	\|hasMethodsInThisCategory\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6229
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6230	hasMethodsInThisCategory := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6231	class methodDictionary do:[:method \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6232	method category = currentMethodCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6233	hasMethodsInThisCategory := true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6234	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6235	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6236	hasMethodsInThisCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6237	class fileOutCategory:currentMethodCategory on:outStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6238	outStream cr
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6239	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6240	hasMethodsInThisCategory := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6241	class class methodDictionary do:[:method \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6242	method category = currentMethodCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6243	hasMethodsInThisCategory := true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6244	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6245	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6246	hasMethodsInThisCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6247	class class fileOutCategory:currentMethodCategory on:outStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6248	outStream cr
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6249	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6250	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6251	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6252	outStream close.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6253	self normalLabel.
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6254	].
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6255
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6256	"Modified: 7.6.1996 / 09:03:56 / stefan"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6257	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6258
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6259	methodCategoryFindAnyMethod
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6260	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6261
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6262	box := self enterBoxForSearchSelectorTitle:'method selector to search for:'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6263	box label:(resources string:'find method').
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6264	box action:[:aString \| self switchToAnyMethodNamed:aString].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6265	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6266
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6267	"Modified: 15.1.1997 / 23:59:53 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6268	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6269
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6270	methodCategoryFindMethod
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6271	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6272
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6273	box := self enterBoxForSearchSelectorTitle:'method selector to search for:'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6274	box label:(resources string:'find method').
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6275	box action:[:aString \| self switchToMethodNamed:aString].
74 f2c56efa3599 Initial revision claus parents: diff changeset	6276	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6277
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6278	"Modified: 15.1.1997 / 23:59:27 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	6279	!
f2c56efa3599 Initial revision claus parents: diff changeset	6280
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6281	methodCategoryMenu
946 68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	6282	<resource: #keyboard (#Cmdn)>
68f742bdbcd0 checkin from browser Claus Gittinger <cg@exept.de> parents: 933 diff changeset	6283
1230 ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6284	\|labels selectors shorties i m varSel s\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6285
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6286	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6287	methodCategoryListView flash.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6288	^ nil
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6289	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6290
1230 ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6291	labels := #().
ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6292	selectors := #().
ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6293
ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6294	currentMethodCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6295	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6296	'fileOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6297	'fileOut all'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6298	'printOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6299	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6300	'SPAWN_METHODCATEGORY'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6301	'spawn category'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6302	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6303	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6304
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6305	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6306	methodCategoryFileOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6307	methodCategoryFileOutAll
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6308	methodCategoryPrintOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6309	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6310	methodCategorySpawn
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6311	methodCategorySpawnCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6312	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6313	).
1230 ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6314	].
ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6315
ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6316	labels := labels , #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6317	'find method here ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6318	'find method ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6319	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6320	'new category ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6321	'copy category ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6322	).
1230 ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6323	selectors := selectors , #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6324	methodCategoryFindMethod
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6325	methodCategoryFindAnyMethod
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6326	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6327	methodCategoryNewCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6328	methodCategoryCopyCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6329	).
1230 ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6330
1237 eb435327405d checkin from browser Claus Gittinger <cg@exept.de> parents: 1236 diff changeset	6331	showInstance ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6332	labels := labels , #( 'create access methods' ).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6333	selectors := selectors , #( #methodCategoryCreateDocumentationMethods ).
1237 eb435327405d checkin from browser Claus Gittinger <cg@exept.de> parents: 1236 diff changeset	6334	] ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6335	(variableListView notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6336	and:[(varSel := variableListView selectionValue) notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6337	s := 'create access methods (for ''%1'')'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6338	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6339	s := 'create access methods (for all)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6340	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6341	s := resources string:s with:varSel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6342	labels := labels , (Array with:s).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6343	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6344	methodCategoryCreateAccessMethods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6345	).
1237 eb435327405d checkin from browser Claus Gittinger <cg@exept.de> parents: 1236 diff changeset	6346	].
1230 ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6347
ebc7e14ceff1 show variable in 'create access method' menu item Claus Gittinger <cg@exept.de> parents: 1211 diff changeset	6348	currentMethodCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6349	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6350	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6351	'rename ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6352	'remove'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6353	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6354
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6355	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6356	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6357	methodCategoryRename
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6358	methodCategoryRemove
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6359	).
74 f2c56efa3599 Initial revision claus parents: diff changeset	6360	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6361
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6362	showInstance ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6363	labels := labels copy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6364	selectors := selectors copy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6365	i := labels indexOf:'create access methods'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6366	labels at:i put:'create documentation stubs'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6367	selectors at:i put:#methodCategoryCreateDocumentationMethods
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6368	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6369
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6370	shorties := Array new:(selectors size).
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6371	(selectors includes:#methodCategoryNewCategory) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6372	shorties at:(selectors indexOf:#methodCategoryNewCategory) put:#Cmdn
813 a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6373	].
a62df3d52e01 Alt-n (for new-xxx); Claus Gittinger <cg@exept.de> parents: 812 diff changeset	6374
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6375	m := PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6376	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6377	selectors:selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6378	accelerators:shorties.
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6379
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6380	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6381	m disableAll:#(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6382	methodCategoryNewCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6383	methodCategoryCopyCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6384	methodCategoryCreateAccessMethods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6385	)
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6386	].
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6387
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6388	^ m
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	6389
1237 eb435327405d checkin from browser Claus Gittinger <cg@exept.de> parents: 1236 diff changeset	6390	"Modified: 4.7.1997 / 10:03:55 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6391	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6392
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6393	methodCategoryNewCategory
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6394	"show the enter box to add a new method category.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6395	Offer existing superclass categories in box to help avoiding
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6396	useless typing."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6397
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6398	\|someCategories existingCategories box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6399
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6400	actualClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6401	someCategories := actualClass allCategories
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6402	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6403	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6404	mhmh - offer some typical categories ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6405	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6406	showInstance ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6407	someCategories := #('accessing'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6408	'initialization'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6409	'private'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6410	'printing & storing'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6411	'queries'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6412	'testing'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6413	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6414	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6415	someCategories := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6416	'documentation'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6417	'initialization'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6418	'instance creation'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6419	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6420	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6421	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6422	someCategories sort.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6423
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6424	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6425	remove existing categories
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6426	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6427	existingCategories := methodCategoryListView list.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6428	existingCategories notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6429	someCategories := someCategories select:[:cat \| (existingCategories includes:cat) not].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6430	].
838 9e981e2b8158 checkin from browser Claus Gittinger <cg@exept.de> parents: 836 diff changeset	6431	someCategories := someCategories asSet asOrderedCollection sort.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6432
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6433	box := self listBoxTitle:'name of new method category:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6434	okText:'create'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6435	list:someCategories.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6436	box label:(resources string:'create category').
463 9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	6437	box initialText:lastCategory.
9d2bc0eb5876 remember last category / last package/module; better checkin of non-info classes into existing container Claus Gittinger <cg@exept.de> parents: 455 diff changeset	6438	box action:[:aString \| self newMethodCategory:aString. lastCategory := aString].
74 f2c56efa3599 Initial revision claus parents: diff changeset	6439	box showAtPointer
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6440
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6441	"Modified: 15.1.1997 / 23:57:26 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6442	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6443
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6444	methodCategoryPrintOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6445	\|printStream\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6446
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6447	self checkClassSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6448	self whenMethodCategorySelected:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6449	printStream := Printer new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6450	actualClass printOutCategory:currentMethodCategory on:printStream.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6451	printStream close
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6452	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	6453	!
f2c56efa3599 Initial revision claus parents: diff changeset	6454
f2c56efa3599 Initial revision claus parents: diff changeset	6455	methodCategoryRemove
f2c56efa3599 Initial revision claus parents: diff changeset	6456	"show number of methods to remove and query user"
f2c56efa3599 Initial revision claus parents: diff changeset	6457
916 fcc0c3c945d4 destroy box after use Claus Gittinger <cg@exept.de> parents: 910 diff changeset	6458	\|t box sels count answer\|
74 f2c56efa3599 Initial revision claus parents: diff changeset	6459
f2c56efa3599 Initial revision claus parents: diff changeset	6460	currentMethodCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6461	sels := OrderedCollection new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6462	actualClass methodDictionary keysAndValuesDo:[:selector :aMethod \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6463	(aMethod category = currentMethodCategory) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6464	sels add:selector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6465	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6466	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6467	count := sels size.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6468	(count ~~ 0) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6469	(count == 1) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6470	t := 'remove %1\(with 1 method) ?'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6471	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6472	t := 'remove %1\(with %2 methods) ?'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6473	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6474	t := resources string:t with:currentMethodCategory with:count printString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6475	t := t withCRs.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6476
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6477	box := YesNoBox
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6478	title:t
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6479	yesText:(resources at:'remove')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6480	noText:(resources at:'abort').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6481	answer := box confirm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6482	box destroy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6483	answer ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6484	^ self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6485	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6486	sels do:[:selector\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6487	actualClass removeSelector:selector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6488	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6489	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6490	currentMethodCategory := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6491	currentMethod := currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6492	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6493	self updateMethodList
74 f2c56efa3599 Initial revision claus parents: diff changeset	6494	]
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6495
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6496	"Modified: 7.6.1996 / 09:13:15 / stefan"
916 fcc0c3c945d4 destroy box after use Claus Gittinger <cg@exept.de> parents: 910 diff changeset	6497	"Modified: 7.1.1997 / 23:03:20 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6498	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6499
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6500	methodCategoryRename
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6501	"launch an enterBox to rename current method category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6502
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6503	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6504
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6505	self checkMethodCategorySelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6506
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6507	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6508	enterBoxTitle:(resources string:'rename method category %1 to:' with:currentMethodCategory)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6509	okText:(resources at:'rename')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6510	label:'rename category'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6511
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6512	box initialText:currentMethodCategory.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6513	box action:[:aString \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6514	actualClass renameCategory:currentMethodCategory to:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6515	currentMethodCategory := aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6516	currentMethod := currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6517	self updateMethodCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6518	self updateMethodListWithScroll:false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6519	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6520	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6521
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6522	"Modified: 15.1.1997 / 23:10:44 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6523	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6524
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6525	methodCategorySpawn
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6526	"create a new SystemBrowser browsing current method category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6527
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6528	currentMethodCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6529	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6530	SystemBrowser browseClass:actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6531	methodCategory:currentMethodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6532	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6533	]
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6534
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6535	"Modified: 18.8.1997 / 15:44:18 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6536	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6537
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6538	methodCategorySpawnCategory
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6539	"create a new SystemBrowser browsing all methods from all
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6540	classes with same category as current method category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6541
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6542	self askAndBrowseMethodCategory:'category to browse methods:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6543	action:[:aString \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6544	SystemBrowser browseMethodCategory:aString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6545	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	6546	! !
f2c56efa3599 Initial revision claus parents: diff changeset	6547
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6548	!BrowserView methodsFor:'method category stuff'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6549
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6550	checkMethodCategorySelected
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6551	currentMethodCategory isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6552	self warn:'select a method category first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6553	^ false
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6554	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6555	^ true
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6556	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6557
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6558	copyMethodsFromClass:aClassName
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6559	\|class box list\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6560
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6561	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6562	class := Smalltalk classNamed:aClassName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6563	class isBehavior ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6564	self warn:'no class named %1' with:aClassName.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6565	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6566	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6567
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6568	showInstance ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6569	class := class class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6570	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6571
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6572	"show enterbox for category to copy from"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6573
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6574	list := class categories asOrderedCollection sort.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6575	list addFirst:'*'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6576
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6577	box := self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6578	enterBoxTitle:'name of category to copy from (matchpattern allowed, * for all):'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6579	okText:'copy'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6580	label:(resources string:'copy methods from %1' with:aClassName)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6581	list:list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6582
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6583	box open.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6584	box accepted ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6585	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6586	copyMethodsFromClass:class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6587	category:(box aspectFor:#fieldValue) value
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6588	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6589	]
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6590
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	6591	"Modified: 16.1.1997 / 20:15:51 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6592	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6593
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6594	copyMethodsFromClass:class category:category
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6595	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6596	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6597	class methodDictionary do:[:aMethod \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6598	\|source\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6599
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6600	(category match:aMethod category) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6601	source := aMethod source.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6602	codeView contents:source.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6603	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6604	actualClass compilerClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6605	compile:source
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6606	forClass:actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6607	inCategory:aMethod category
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6608	notifying:codeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6609	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6610	self updateMethodListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6611	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6612	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6613	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6614	]
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6615
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6616	"Modified: 7.6.1996 / 09:02:35 / stefan"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6617	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6618
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6619	listOfAllMethodCategoriesInClass:aClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6620	"answer a list of all method categories of the argument, aClass"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6621
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6622	\|newList\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6623
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6624	newList := Set new.
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6625	aClass methodDictionary do:[:aMethod \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6626	\|cat\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6627
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6628	cat := aMethod category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6629	cat isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6630	cat := '* no category *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6631	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6632	newList add:cat
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6633	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6634	(newList size == 0) ifTrue:[^ nil].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6635	newList add:'* all *'.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6636	^ newList asOrderedCollection sort
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6637
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6638	"Modified: 7.6.1996 / 09:02:57 / stefan"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6639	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6640
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6641	listOfAllMethodCategoriesInFullProtocolHierarchy:aClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6642	"answer a list of all method categories of the argument, aClass,
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6643	and all of its superclasses.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6644	Used with fullProtocol browsing."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6645
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6646	\|newList\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6647
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6648	newList := Set new.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6649	self classesInFullProtocolHierarchy:aClass do:[:c \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6650	\|cat\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6651
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6652	c methodDictionary do:[:aMethod \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6653	cat := aMethod category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6654	cat isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6655	cat := '* no category *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6656	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6657	newList add:cat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6658	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6659	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6660	(newList size == 0) ifTrue:[^ nil].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6661	newList add:'* all *'.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6662	^ newList asOrderedCollection sort
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6663
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	6664	"Modified: 7.6.1996 / 09:03:11 / stefan"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6665	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6666
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6667	methodCategorySelection:lineNr
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6668	"user clicked on a method category line - show selectors"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6669
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	6670	self switchToMethodCategory:(methodCategoryListView selectionValue string).
ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	6671
ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	6672	"Modified: 22.10.1996 / 17:27:13 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6673	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6674
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6675	methodCategorySelectionChanged
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6676	"method category selection has changed - update dependent views"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6677
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6678	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6679	currentMethod := currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6680
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6681	self updateMethodList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6682	self updateCodeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6683
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6684	currentMethodCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6685	methodCategoryListView setSelectElement:currentMethodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6686	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6687
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6688	aspect isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6689	self setAcceptAndExplainActionsForMethod.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6690	].
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6691
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6692	"/ this is now done in
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6693	"/ #updateMethodList
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6694	"/
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6695	"/ (variableListView notNil
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6696	"/ and:[variableListView hasSelection]) ifTrue:[
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6697	"/ self hilightMethodsInMethodCategoryList:false inMethodList:true.
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	6698	"/ ]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6699	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6700
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6701	"Created: 23.11.1995 / 14:17:38 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6702	"Modified: 18.8.1997 / 15:44:16 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6703	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6704
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6705	newMethodCategory:aString
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6706	\|categories\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6707
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6708	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6709	^ self warn:'select/create a class first'.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6710	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6711	categories := methodCategoryListView list.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6712	categories isNil ifTrue:[categories := OrderedCollection new].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6713	(categories includes:aString) ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6714	categories add:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6715	categories sort.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6716	methodCategoryListView contents:categories
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6717	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6718	currentMethodCategory := aString.
363 709901a36b48 checkin from browser Claus Gittinger <cg@exept.de> parents: 357 diff changeset	6719	aspect := nil.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6720	self methodCategorySelectionChanged
363 709901a36b48 checkin from browser Claus Gittinger <cg@exept.de> parents: 357 diff changeset	6721
709901a36b48 checkin from browser Claus Gittinger <cg@exept.de> parents: 357 diff changeset	6722	"Modified: 10.2.1996 / 13:07:32 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6723	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6724
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6725	switchToMethodCategory:aCategory
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6726	\|oldSelector\|
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6727
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6728	oldSelector := currentSelector.
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6729
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6730	aspect := nil.
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6731	(fullProtocol not and:[currentClass isNil]) ifTrue:[^ self].
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6732
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6733	currentMethodCategory := aCategory.
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6734	self methodCategorySelectionChanged.
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6735
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6736	"if there is only one method, show it right away"
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6737	methodListView list size == 1 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6738	methodListView setSelection:1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6739	self methodSelection:1
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6740	] ifFalse:[
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6741	oldSelector notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6742	methodListView setSelectElement:oldSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6743	methodListView hasSelection ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6744	self methodSelection:methodListView selection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6745	]
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6746	]
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6747	]
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6748
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6749	"Modified: 26.5.1996 / 15:07:07 / cg"
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6750	"Created: 4.6.1996 / 23:03:50 / cg"
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6751	!
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	6752
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6753	updateMethodCategoryList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6754	self updateMethodCategoryListWithScroll:true
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6755	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6756
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6757	updateMethodCategoryListWithScroll:scroll
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6758	\|categories\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6759
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6760	methodCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6761	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6762	currentClassHierarchy notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6763	categories := self listOfAllMethodCategoriesInFullProtocolHierarchy:actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6764	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6765	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6766	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6767	categories := self listOfAllMethodCategoriesInClass:actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6768	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6769	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6770
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6771	methodCategoryListView list = categories ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6772	scroll ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6773	methodCategoryListView contents:categories
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6774	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6775	methodCategoryListView setContents:categories
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6776	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6777	currentMethodCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6778	methodCategoryListView setSelectElement:currentMethodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6779	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6780	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6781	]
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	6782
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	6783	"Modified: 30.7.1997 / 15:53:22 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6784	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6785
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6786	whenMethodCategorySelected:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6787	self checkMethodCategorySelected ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6788	self withBusyCursorDo:aBlock
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6789	]
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6790
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	6791	"Modified: 18.8.1997 / 15:44:38 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6792	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6793
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6794	!BrowserView methodsFor:'method list menu'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	6795
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6796	commonTraceHelperWith:aSelector
305 16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	6797	"install a break/trace or countPoint for the current method"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	6798
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6799	"/ not for unbound methods (i.e. obsolete)
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6800
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6801	currentMethod isNil ifTrue:[^ self].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6802	currentMethod who isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6803	self warn:'method is no longer valid'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6804	^ self
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6805	].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6806
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6807	currentMethod := MessageTracer perform:aSelector with:currentMethod.
925 6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	6808	Class withoutUpdatingChangesDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6809	currentClass changed:#methodTrap with:currentSelector.
925 6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	6810	]
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	6811
1073 a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	6812	"Modified: 7.3.1997 / 19:17:33 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6813	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6814
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6815	commonTraceHelperWith:aSelector with:argument
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6816	"install a break/trace or countPoint for the current method"
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6817
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6818	currentMethod := MessageTracer perform:aSelector with:currentMethod with:argument.
925 6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	6819	Class withoutUpdatingChangesDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6820	currentClass changed:#methodTrap with:currentSelector.
925 6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	6821	]
6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	6822
6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	6823	"Modified: 8.1.1997 / 22:34:21 / cg"
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6824	!
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6825
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6826	methodAproposSearch
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6827	"launch an enterBox for a keyword search"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6828
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	6829	self askForSearchTitle:'keyword to search for (in selector & comment):'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6830	openWith:#aproposSearch:in:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6831	isSelector:true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6832	searchArea:#class
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	6833
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	6834	"Modified: 11.11.1996 / 12:43:54 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6835	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6836
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6837	methodBreakPoint
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6838	"set a breakpoint on the current method"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6839
308 920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	6840	self commonTraceHelperWith:#trapMethod:
920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	6841
920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	6842	"Modified: 15.12.1995 / 17:35:12 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6843	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6844
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6845	methodBreakPointInProcess
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6846	"set a breakpoint on the current method, which only triggers if
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6847	executed by some particular process."
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6848
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	6849	\|processes processNames box windowGroups\|
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	6850
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	6851	windowGroups := WindowGroup allInstances.
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6852
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6853	processes := ProcessorScheduler knownProcesses asOrderedCollection.
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6854	processes := processes select:[:aProcess \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6855	aProcess notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6856	and:[aProcess id notNil]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6857	].
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6858	processes := processes sort:[:a :b \| a id < b id].
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6859	processNames := processes collect:[:aProcess \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6860	\|pName theGroup top topLabel winLabel\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6861
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6862	pName := aProcess nameOrId.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6863
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6864	"/ if its a windowGroup process,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6865	"/ fetch its first topViews name and add.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6866	"/ (allows selecting among multiple browsers ...)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6867	winLabel := ''.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6868
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6869	theGroup := windowGroups select:[:g \| g process == aProcess].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6870	theGroup size == 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6871	theGroup := theGroup first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6872	top := theGroup topViews.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6873	top size > 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6874	top := top first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6875	topLabel := top label.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6876	topLabel ~= pName ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6877	winLabel := ' "' , topLabel , '")'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6878	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6879	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6880	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6881	aProcess id printString , ' [' , pName , ']' , winLabel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6882	].
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6883
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6884	"/ let user specify which one ...
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6885
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6886	box := ListSelectionBox new.
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6887	box noEnterField.
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6888	box list:processNames.
1233 c5aac7105c4e more messages improved Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	6889	box label:(resources string:'process selection').
c5aac7105c4e more messages improved Claus Gittinger <cg@exept.de> parents: 1232 diff changeset	6890	box title:(resources
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6891	string:'stop if method is executed by process:\\(current process is %1)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6892	with:(Processor activeProcess id)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6893	with:(Processor activeProcess nameOrId)) withCRs.
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6894	box action:[:selection \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6895	self commonTraceHelperWith:#trapMethod:inProcess:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6896	with:(processes at:box selectionIndex)
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6897	].
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6898	box showAtPointer.
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6899	box destroy
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6900
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6901	"Created: 14.10.1996 / 15:40:53 / cg"
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	6902	"Modified: 30.7.1997 / 16:08:46 / cg"
756 357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6903	!
357db0b88e1b selective breakpoints Claus Gittinger <cg@exept.de> parents: 753 diff changeset	6904
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6905	methodChangeCategory
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6906	"move the current method into another category -
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6907	nothing done here, but a query for the new category.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6908	Remember the last category, to allow faster category change of a group of methods."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6909
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6910	\|box txt\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6911
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6912	self checkMethodSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6913
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6914	actualClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6915	box := self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6916	enterBoxTitle:''
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6917	okText:'change'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6918	label:'change category'.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6919	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6920	\|someCategories\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6921
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6922	someCategories := actualClass categories sort.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6923	box := self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6924	listBoxTitle:''
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6925	okText:'change'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6926	list:someCategories.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6927	].
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6928
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6929	box title:(resources string:'change category from ''%1'' to:' with:currentMethod category).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6930	lastMethodCategory isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6931	txt := currentMethod category.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6932	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6933	txt := lastMethodCategory
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6934	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6935	box initialText:txt.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6936	box action:[:aString \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6937	\|method\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6938
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6939	lastMethodCategory := aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6940	method := currentMethod.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6941
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6942	method category:aString asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6943	actualClass changed:#organization with:currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6944	method changed:#category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6945	actualClass addChangeRecordForMethodCategory:method category:aString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6946	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6947	self updateMethodListWithScroll:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6948	].
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6949	box label:(resources string:'change category').
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6950	box showAtPointer
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6951
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6952	"Created: 29.10.1995 / 19:59:22 / cg"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	6953	"Modified: 16.1.1997 / 00:16:29 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6954	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6955
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6956	methodCompareWithPreviousVersion
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6957	"compare with previous version"
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6958
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6959	\|prev v\|
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6960
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6961	self checkMethodSelected ifFalse:[^ self].
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6962
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6963	prev := currentMethod previousVersion.
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6964	prev isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6965	self warn:'oops - previous version is gone'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6966	^ self
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6967	].
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6968
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6969	v := DiffTextView
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6970	openOn:codeView contents
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6971	label:(resources string:'code here')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6972	and:prev source
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6973	label:'previous version'.
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6974	v label:'comparing ' , currentMethod whoString.
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6975
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6976	"Modified: 7.11.1996 / 18:53:55 / cg"
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6977	!
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	6978
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6979	methodDecompile
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6980	"decompile the current methods bytecodes.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6981	The Decompiler is delivered as an extra, and not normally
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6982	avaliable with the system."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6983
481 7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6984	\|s\|
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6985
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6986	self checkMethodSelected ifFalse:[^ self].
481 7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6987	self checkSelectionChangeAllowed ifFalse:[^ self].
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6988
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6989	s := '' writeStream.
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6990	(currentMethod decompileTo:s) ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	6991	self warn:'No decompiler available'.
481 7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6992	].
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6993	codeView contents:s contents.
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6994	codeView modified:false.
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6995	codeView acceptAction:nil.
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6996	codeView explainAction:nil.
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6997
7a550399e2aa moved decompilation into codeObject (alien code); decompile into codeView Claus Gittinger <cg@exept.de> parents: 480 diff changeset	6998	"Modified: 16.4.1996 / 20:35:05 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	6999	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7000
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7001	methodFileOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7002	"file out the current method"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7003
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7004	self checkMethodSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7005
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7006	self busyLabel:'saving:' with:currentSelector.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7007	Class fileOutErrorSignal handle:[:ex \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7008	self warn:'cannot create: %1' with:ex parameter.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7009	ex return
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7010	] do:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7011	actualClass fileOutMethod:currentMethod.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7012	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7013	self normalLabel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7014	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7015
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7016	methodGlobalReferends
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7017	"launch an enterBox for global symbol to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7018
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7019	self askForSearchTitle:'global variable to search users of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7020	openWith:#browseReferendsOf:in:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7021	isSelector:false
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7022
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7023	"/ self enterBoxForBrowseTitle:'global variable to browse users of:'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7024	"/ action:[:aString \|
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7025	"/ SystemBrowser browseReferendsOf:aString asSymbol
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7026	"/ ]
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7027
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7028	"Modified: 10.7.1996 / 10:37:37 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7029	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7030
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7031	methodImplementors
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7032	"launch an enterBox for selector to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7033
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7034	self askForSearchTitle:'selector to browse implementors of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7035	openWith:#browseImplementorsOf:in:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7036	isSelector:true
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7037
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7038	"Modified: 10.7.1996 / 12:40:07 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7039	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7040
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7041	methodInspect
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7042	"inspect the current method"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7043
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7044	self checkMethodSelected ifFalse:[^ self].
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	7045	currentMethod inspect.
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	7046	"/ (actualClass compiledMethodAt:currentSelector) inspect.
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	7047
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	7048	"Modified: 4.6.1996 / 22:47:27 / cg"
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	7049	!
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7050
1169 3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7051	methodInvoke
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7052	"invoke the current method"
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7053
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7054	\|w cls sel\|
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7055
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7056	self checkMethodSelected ifFalse:[^ self].
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7057
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7058	w := currentMethod who.
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7059	w notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7060	cls := w methodClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7061	cls notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7062	cls ~~ actualClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7063	^ self warn:'oops - obsolete class; please reselect class ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7064	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7065	cls isMeta ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7066	cls := cls soleInstance
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7067	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7068	cls := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7069	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7070	cls notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7071	sel := w methodSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7072	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7073	actualClass perform:sel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7074	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7075	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7076	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7077	].
1169 3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7078	].
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7079	self warn:'cannot invoke method (no class)'
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7080
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7081	"Modified: 29.4.1997 / 11:24:30 / dq"
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7082	!
3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7083
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7084	methodLocalSuperSends
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7085	"launch a browser showing super sends in current class & subclasses"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7086
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7087	self checkClassSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7088	self withSearchCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7089	SystemBrowser browseSuperCallsUnder:currentClass
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7090	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7091
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7092	"Created: 23.11.1995 / 12:03:57 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7093	"Modified: 23.11.1995 / 14:12:15 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7094	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7095
289 a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7096	methodMakeIgnored
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7097	"make the current method be invisible.
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7098	EXPERIMENTAL"
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7099
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7100	self methodPrivacy:#ignored
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7101
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7102	"Created: 13.12.1995 / 13:59:59 / cg"
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7103	!
a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7104
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7105	methodMakePrivate
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7106	"make the current method private.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7107	EXPERIMENTAL"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7108
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7109	self methodPrivacy:#private
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7110	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7111
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7112	methodMakeProtected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7113	"make the current method protected.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7114	EXPERIMENTAL"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7115
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7116	self methodPrivacy:#protected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7117	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7118
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7119	methodMakePublic
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7120	"make the current method public.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7121	EXPERIMENTAL"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7122
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7123	self methodPrivacy:#public
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7124	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7125
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7126	methodMenu
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7127	"return a popupmenu as appropriate for the methodList"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7128
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7129	<resource: #keyboard ( #Cmds #Cmdi #Cmdg #Cmdt #Cmda) >
432 a6c771534efa oops - dont use $ Header in createDocuStubs - rcs expands it Claus Gittinger <cg@exept.de> parents: 431 diff changeset	7130
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7131	\|specialMenu m labels selectors shorties
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7132	newLabels newSelectors
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7133	mthdLabels mthdSelectors
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7134	brkLabels brkSelectors
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7135	fileLabels fileSelectors
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7136	searchLabels searchSelectors searchShorties
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7137	sepLocalLabels sepLocalSelectors
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7138	localSearchLabels localSearchSelectors\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7139
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7140	currentMethod notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7141	currentMethod isWrapped ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7142	(MessageTracer notNil
1308 658715ecc30b dont crash if MessageTracer is not present Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	7143	and:[MessageTracer isCountingMemoryUsage:currentMethod]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7144	brkLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7145	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7146	'stop mem usage'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7147	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7148
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7149	brkSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7150	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7151	methodStopMemoryUsage
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7152	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7153	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7154	(MessageTracer notNil
1308 658715ecc30b dont crash if MessageTracer is not present Claus Gittinger <cg@exept.de> parents: 1302 diff changeset	7155	and:[MessageTracer isCounting:currentMethod]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7156	brkLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7157	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7158	'stop counting'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7159	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7160
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7161	brkSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7162	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7163	methodStopCounting
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7164	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7165	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7166	currentMethod isTimed ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7167	brkLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7168	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7169	'stop timing'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7170	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7171
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7172	brkSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7173	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7174	methodStopTiming
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7175	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7176	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7177	currentMethod isTraced ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7178	brkLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7179	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7180	'remove trace'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7181	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7182	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7183	brkLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7184	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7185	'remove breakpoint'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7186	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7187	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7188
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7189	brkSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7190	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7191	methodRemoveBreakOrTrace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7192	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7193	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7194	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7195	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7196	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7197	brkLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7198	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7199	'breakpoint'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7200	'breakpoint in ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7201	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7202	'trace'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7203	'trace sender'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7204	'trace full walkback'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7205	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7206	'start timing'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7207	'start counting'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7208	'start mem usage'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7209	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7210
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7211	brkSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7212	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7213	methodBreakPoint
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7214	methodBreakPointInProcess
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7215	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7216	methodTrace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7217	methodTraceSender
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7218	methodTraceFull
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7219	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7220	methodStartTiming
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7221	methodStartCounting
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7222	methodStartMemoryUsage
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7223	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7224	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7225
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7226	Method methodPrivacySupported ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7227	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7228	'inspect method'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7229	'compile to machine code'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7230	'decompile'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7231	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7232	'make public'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7233	'make private'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7234	'make protected'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7235	'make ignored'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7236	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7237	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7238	methodInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7239	methodSTCCompile
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7240	methodDecompile
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7241	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7242	methodMakePublic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7243	methodMakePrivate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7244	methodMakeProtected
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7245	methodMakeIgnored
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7246	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7247	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7248	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7249	'inspect method'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7250	'compile to machine code'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7251	'decompile'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7252	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7253	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7254	methodInspect
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7255	methodSTCCompile
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7256	methodDecompile
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7257	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7258	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7259
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7260	actualClass isMeta ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7261	labels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7262	'invoke method'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7263	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7264	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7265	, labels.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7266	selectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7267	methodInvoke
1171 319f4ed8c590 * empty log message * Claus Gittinger <cg@exept.de> parents: 1169 diff changeset	7268	nil
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7269	)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7270	, selectors.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7271	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7272
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7273	labels := labels , brkLabels.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7274	selectors := selectors , brkSelectors.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7275
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7276	specialMenu := PopUpMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7277	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7278	selectors:selectors.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7279
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7280	currentMethod isPublic ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7281	specialMenu disable:#methodMakePublic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7282	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7283	currentMethod isPrivate ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7284	specialMenu disable:#methodMakePrivate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7285	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7286	currentMethod isProtected ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7287	specialMenu disable:#methodMakeProtected
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7288	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7289	currentMethod isIgnored ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7290	specialMenu disable:#methodMakeIgnored
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7291	].
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7292	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7293
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7294	device ctrlDown ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7295	currentMethod isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7296	methodListView flash.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7297	^ nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7298	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7299
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7300	^ specialMenu
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7301	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7302
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7303
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7304	sepLocalLabels := sepLocalSelectors := #().
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7305
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7306	searchLabels := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7307	'senders ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7308	'implementors ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7309	'globals ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7310	'string search ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7311	'apropos ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7312	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7313	searchSelectors := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7314	methodSenders
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7315	methodImplementors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7316	methodGlobalReferends
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7317	methodStringSearch
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7318	methodAproposSearch
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7319	).
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7320
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7321	searchShorties := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7322	Cmds
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7323	Cmdi
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7324	Cmdg
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7325	Cmdt
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7326	Cmda
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7327	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7328
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7329	"/ currentClass notNil ifTrue:[
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7330	"/ localSearchLabels := #(
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7331	"/ '-'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7332	"/ 'local senders ...'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7333	"/ 'local implementors ...'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7334	"/ 'local super sends ...'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7335	"/ 'local string search ...'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7336	"/ 'local apropos ...'
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7337	"/ ).
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7338	"/ localSearchSelectors := #(
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7339	"/ nil
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7340	"/ methodLocalSenders
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7341	"/ methodLocalImplementors
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7342	"/ methodLocalSuperSends
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7343	"/ methodLocalStringSearch
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7344	"/ methodLocalAproposSearch
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7345	"/ ).
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7346	"/ ] ifFalse:[
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7347	"/ localSearchLabels := localSearchSelectors := #()
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7348	"/ ].
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7349
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7350	currentMethodCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7351	sepLocalLabels := #('-'). sepLocalSelectors := #(nil).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7352
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7353	newLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7354	'new method'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7355	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7356
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7357	newSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7358	methodNewMethod
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7359	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7360	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7361	newLabels := newSelectors := #()
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7362	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7363
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7364	currentMethod notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7365	fileLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7366	'fileOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7367	'printOut'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7368	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7369	'SPAWN_METHOD'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7370	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7371	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7372
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7373	fileSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7374	methodFileOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7375	methodPrintOut
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7376	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7377	methodSpawn
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7378	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7379	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7380
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7381	sepLocalLabels := #('-'). sepLocalSelectors := #(nil).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7382
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7383	mthdLabels := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7384	'change category ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7385	'move ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7386	'remove'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7387	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7388	'compare with previous'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7389	'back to previous'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7390	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7391
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7392	mthdSelectors := #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7393	methodChangeCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7394	methodMove
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7395	methodRemove
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7396	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7397	methodCompareWithPreviousVersion
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7398	methodPreviousVersion
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7399	).
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7400
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7401	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7402	fileLabels := fileSelectors := #().
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7403	mthdLabels := mthdSelectors := #().
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7404	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7405
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7406
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7407
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7408	labels :=
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7409	fileLabels ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7410	searchLabels ,
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7411	"/ localSearchLabels ,
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7412	sepLocalLabels ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7413	newLabels ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7414	mthdLabels.
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7415
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7416	selectors :=
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7417	fileSelectors ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7418	searchSelectors ,
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7419	"/ localSearchSelectors ,
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7420	sepLocalSelectors ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7421	newSelectors ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7422	mthdSelectors .
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7423
23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7424	shorties := (Array new:(fileSelectors size))
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7425	, searchShorties
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7426	, (Array new:(localSearchSelectors size
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7427	+ sepLocalSelectors size
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7428	+ newSelectors size
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7429	+ mthdSelectors size)).
422 23db16b448fd added shortKey info to menus Claus Gittinger <cg@exept.de> parents: 408 diff changeset	7430
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7431
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7432	specialMenu notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7433	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7434	'='
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7435	'others'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7436	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7437	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7438	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7439	#otherMenu
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7440	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7441	shorties := shorties , #( nil #'Ctrl')
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7442	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7443
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7444	m := PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7445	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7446	selectors:selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7447	accelerators:shorties.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7448
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7449	specialMenu notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7450	m subMenuAt:#otherMenu put:specialMenu.
320 5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7451	].
5a9b407ce09d specialmenus reachable via others entry Claus Gittinger <cg@exept.de> parents: 312 diff changeset	7452
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7453	currentMethod notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7454	currentMethod isPrivate ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7455	m disable:#methodMakePrivate
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7456	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7457	currentMethod isProtected ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7458	m disable:#methodMakeProtected
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7459	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7460	currentMethod isPublic ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7461	m disable:#methodMakePublic
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7462	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7463	currentMethod isIgnored ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7464	m disable:#methodMakeIgnored
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7465	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7466
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7467	(currentMethod code notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7468	or:[Compiler canCreateMachineCode not]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7469	m disable:#methodSTCCompile
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7470	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7471	currentMethod byteCode isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7472	m disable:#methodDecompile
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7473	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7474
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7475	currentMethod previousVersion isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7476	m disable:#methodPreviousVersion.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7477	m disable:#methodCompareWithPreviousVersion
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7478	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7479	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7480	^ m
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7481
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7482	"Created: 23.11.1995 / 12:02:29 / cg"
312 88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7483	"Modified: 18.12.1995 / 16:20:07 / stefan"
1137 10e33fb60d73 checkin from browser Claus Gittinger <cg@exept.de> parents: 1135 diff changeset	7484	"Modified: 15.4.1997 / 10:19:00 / cg"
1169 3d0ca3b8270a added #invokeMethod Claus Gittinger <cg@exept.de> parents: 1164 diff changeset	7485	"Modified: 29.4.1997 / 11:20:59 / dq"
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7486	!
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7487
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7488	methodMove
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7489	"move the current method into another class; typically a superclass"
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7490
1202 190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7491	\|newClass newClassName sup initial movedMethod list holders\|
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7492
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7493	self checkMethodSelected ifFalse:[^ self].
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7494
1202 190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7495	lastMethodMoveClass ~= currentClass name ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7496	initial := lastMethodMoveClass.
1202 190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7497	].
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7498
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7499	initial isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7500	(sup := currentClass superclass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7501	initial := sup name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7502	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7503	initial := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7504	].
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	7505	].
2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	7506
1202 190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7507	"/ preps to use windowSpecs ...
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7508	"/
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7509	"/ list := (currentClass allSuperclasses collect:[:cls \| cls name]).
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7510	"/ list := list , (currentClass allSubclasses collect:[:cls \| cls name]).
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7511	"/
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7512	"/ holders := IdentityDictionary new.
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7513	"/ holders at:#className put:initial asValue.
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7514	"/ holders at:#classList put:list.
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7515	"/
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7516	"/ (SystemBrowser
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7517	"/ openDialogInterface:#methodMoveDialogSpec
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7518	"/ withBindings:holders) ifTrue:[
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7519	"/ newClassName := (holders at:#className) value.
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7520	"/ ].
190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7521
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7522	newClassName := Dialog
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7523	request:(resources string:'move current method to which class:')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7524	initialAnswer:initial
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7525	okLabel:(resources string:'move')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7526	title:(resources string:'move method')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7527	onCancel:nil.
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7528	newClassName isNil ifTrue:[^ self].
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	7529
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7530	newClass := Smalltalk classNamed:newClassName.
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7531	newClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7532	self warn:'no such class'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7533	^ self
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7534	].
832 2ddf9308bb2f * empty log message * Claus Gittinger <cg@exept.de> parents: 826 diff changeset	7535	lastMethodMoveClass := newClassName.
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7536
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7537	showInstance ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7538	newClass isMeta ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7539	newClass := newClass class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7540	]
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7541	].
978 007c5b8c75b5 oops - care for compilation error when moving methods was Claus Gittinger <cg@exept.de> parents: 971 diff changeset	7542
007c5b8c75b5 oops - care for compilation error when moving methods was Claus Gittinger <cg@exept.de> parents: 971 diff changeset	7543	movedMethod := newClass
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7544	compile:(currentMethod source)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7545	classified:currentMethodCategory.
978 007c5b8c75b5 oops - care for compilation error when moving methods was Claus Gittinger <cg@exept.de> parents: 971 diff changeset	7546
007c5b8c75b5 oops - care for compilation error when moving methods was Claus Gittinger <cg@exept.de> parents: 971 diff changeset	7547	(movedMethod isNil or:[movedMethod == #Error]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7548	self warn:'not moved - compilation failed due to a compilation error'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7549	^ self
284 def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7550	].
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7551
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7552	self methodRemove
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7553
def16ab8c75f new 'move-method' function (in methodMenu); new 'show history' function (in classCategoryMenu) Claus Gittinger <cg@exept.de> parents: 283 diff changeset	7554	"Created: 13.12.1995 / 10:56:42 / cg"
1202 190ff2307ea4 preps to use UISpec. Claus Gittinger <cg@exept.de> parents: 1201 diff changeset	7555	"Modified: 25.6.1997 / 13:58:56 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7556	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7557
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7558	methodNewMethod
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7559	"prepare for definition of a new method - put a template into
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7560	code view and define accept-action to compile it"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7561
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7562	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7563	^ self warn:'select/create a class first'.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7564	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7565	currentMethodCategory isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7566	^ self warn:'select/create a method category first'.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7567	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7568
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7569	currentMethod := currentSelector := nil.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7570
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	7571	methodListView setSelection:nil.
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	7572	codeView contents:(self methodTemplate).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7573	codeView modified:false.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7574
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7575	self setAcceptAndExplainActionsForMethod.
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	7576
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	7577	"Modified: 25.5.1996 / 13:02:44 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7578	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7579
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7580	methodPreviousVersion
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7581	"switch back to the previous version
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7582	(undo last change)"
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7583
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7584	\|cls sel prev\|
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7585
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7586	self checkMethodSelected ifFalse:[^ self].
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7587
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7588	prev := currentMethod previousVersion.
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7589	prev isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7590	self warn:'oops - previous version is gone'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7591	^ self
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7592	].
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7593
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7594	cls := currentMethod containingClass.
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7595	cls notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7596	sel := actualClass selectorAtMethod:currentMethod.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7597	sel isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7598	self warn:'oops - cannot find methods selector (gone)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7599	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7600	cls basicAddSelector:sel withMethod:prev.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7601	currentMethod := prev.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7602	self updateCodeView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7603	].
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7604	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7605	self warn:'oops - cannot find containing class'
842 229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7606	]
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7607
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7608	"Modified: 7.11.1996 / 18:51:09 / cg"
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7609	!
229453c636b4 access to history of changed methods Claus Gittinger <cg@exept.de> parents: 841 diff changeset	7610
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7611	methodPrintOut
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7612	"print out the current method"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7613
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7614	\|printStream\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7615
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7616	self checkMethodSelected ifFalse:[^ self].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7617
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7618	printStream := Printer new.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7619	actualClass printOutSource:(currentMethod source) on:printStream.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7620	printStream close
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7621	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7622
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7623	methodPrivacy:how
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7624	"change the current methods privacy.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7625	EXPERIMENTAL"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7626
826 cdbbf4eb1afb use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 823 diff changeset	7627	\|cls m\|
610 26f0bebb40c0 show privacy in fullprotocol as well Claus Gittinger <cg@exept.de> parents: 609 diff changeset	7628
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7629	self checkMethodSelected ifFalse:[^ self].
289 a6133415c545 added methodIgnore; browse-menu-entry in method-list-browsers; update in full-class-brwsr; more on revisions; better compare with repository Claus Gittinger <cg@exept.de> parents: 287 diff changeset	7630
795 6f24c4b8e04a update for privacy/wrapping changes fixed. Claus Gittinger <cg@exept.de> parents: 793 diff changeset	7631	m := currentMethod.
6f24c4b8e04a update for privacy/wrapping changes fixed. Claus Gittinger <cg@exept.de> parents: 793 diff changeset	7632	m isWrapped ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7633	m := m originalMethod
795 6f24c4b8e04a update for privacy/wrapping changes fixed. Claus Gittinger <cg@exept.de> parents: 793 diff changeset	7634	].
6f24c4b8e04a update for privacy/wrapping changes fixed. Claus Gittinger <cg@exept.de> parents: 793 diff changeset	7635
6f24c4b8e04a update for privacy/wrapping changes fixed. Claus Gittinger <cg@exept.de> parents: 793 diff changeset	7636	(how == m privacy ) ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7637	m privacy:how.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7638	cls := currentMethod containingClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7639	cls notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7640	cls addChangeRecordForMethodPrivacy:currentMethod.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7641	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7642	self warn:'cannot write change record (no class)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7643	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7644
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7645	Class withoutUpdatingChangesDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7646	currentClass changed:#methodPrivacy with:currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7647	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7648	]
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7649
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7650	"Created: 29.10.1995 / 20:00:00 / cg"
925 6d82de68d7c6 new changed notifications for tracing/trapping Claus Gittinger <cg@exept.de> parents: 918 diff changeset	7651	"Modified: 8.1.1997 / 22:37:02 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7652	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7653
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7654	methodRemove
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7655	"remove the current method"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7656
1054 ecaae0ab1185 removeMethod in obsolete class - show warning ca parents: 1050 diff changeset	7657	\|cls sel w\|
610 26f0bebb40c0 show privacy in fullprotocol as well Claus Gittinger <cg@exept.de> parents: 609 diff changeset	7658
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7659	self checkMethodSelected ifFalse:[^ self].
826 cdbbf4eb1afb use new Method>>who interface Claus Gittinger <cg@exept.de> parents: 823 diff changeset	7660
1054 ecaae0ab1185 removeMethod in obsolete class - show warning ca parents: 1050 diff changeset	7661	w := currentMethod who.
ecaae0ab1185 removeMethod in obsolete class - show warning ca parents: 1050 diff changeset	7662	w notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7663	cls := w methodClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7664	sel := w methodSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7665	cls notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7666	cls ~~ actualClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7667	^ self warn:'oops - obsolete class; please reselect class ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7668	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7669	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7670	actualClass removeSelector:sel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7671	currentMethod := currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7672	self updateMethodListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7673	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7674	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7675	].
1054 ecaae0ab1185 removeMethod in obsolete class - show warning ca parents: 1050 diff changeset	7676	].
ecaae0ab1185 removeMethod in obsolete class - show warning ca parents: 1050 diff changeset	7677	self warn:'cannot remove method (no class)'
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7678	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7679
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7680	methodRemoveBreakOrTrace
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7681	"turn off tracing of the current method"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7682
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7683	(currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7684	self commonTraceHelperWith:#unwrapMethod:
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7685	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7686	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7687
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7688	methodSTCCompile
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7689	"compile the current method to machine code.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7690	This is not supported on all machines, and never supported in
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7691	the demo version."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7692
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7693	\|prev\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7694
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7695	self checkMethodSelected ifFalse:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7696	prev := Compiler stcCompilation:#always.
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	7697	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7698	[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7699	codeView accept.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7700	] valueNowOrOnUnwindDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7701	Compiler stcCompilation:prev
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7702	]
1183 5c5ddf5dcac1 checkin from browser Claus Gittinger <cg@exept.de> parents: 1171 diff changeset	7703	].
5c5ddf5dcac1 checkin from browser Claus Gittinger <cg@exept.de> parents: 1171 diff changeset	7704
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	7705	"Modified: 18.8.1997 / 15:44:22 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7706	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7707
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7708	methodSenders
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7709	"launch an enterBox for selector to search for"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7710
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7711	self askForSearchTitle:'selector to browse senders of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7712	openWith:#browseAllCallsOn:in:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7713	isSelector:true
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7714
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	7715	"Modified: 10.7.1996 / 10:33:29 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7716	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7717
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7718	methodSpawn
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7719	"create a new SystemBrowser browsing current method,
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7720	or if the current selection is of the form 'class>>selector', spawan
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7721	a browser on that method."
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7722
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7723	\|s sel selSymbol clsName clsSymbol cls isMeta w\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7724
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7725	classMethodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7726	s := classMethodListView selectionValue string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7727	clsName := self classNameFromClassMethodString:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7728	sel := self selectorFromClassMethodString:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7729	isMeta := false
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7730	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7731
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7732	self extractClassAndSelectorFromSelectionInto:[:c :s :m \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7733	clsName := c.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7734	sel := s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7735	isMeta := m
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7736	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7737
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7738	(sel notNil and:[clsName notNil]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7739	(clsName knownAsSymbol and:[sel knownAsSymbol]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7740	clsSymbol := clsName asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7741	(Smalltalk includesKey:clsSymbol) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7742	cls := Smalltalk at:clsSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7743	isMeta ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7744	cls := cls class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7745	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7746	cls isBehavior ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7747	cls := cls class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7748	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7749	cls isBehavior ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7750	selSymbol := sel asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7751	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7752	(cls includesSelector:selSymbol) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7753	cls := cls class.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7754	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7755	(cls includesSelector:selSymbol) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7756	SystemBrowser browseClass:cls selector:selSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7757	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7758	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7759	w := ' does not implement #' , sel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7760	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7761	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7762	w := ' is not a class'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7763	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7764	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7765	w := ' is unknown'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7766	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7767	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7768	w := ' and/or ' , sel , ' are unknown'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7769	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7770	self warn:(clsName , w).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7771	^ self
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7772	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7773
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7774	self checkMethodSelected ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7775	self warn:'select a method first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7776	^ self
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7777	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7778
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	7779	self withBusyCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7780	w := currentMethod who.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7781	SystemBrowser browseClass:(w methodClass) selector:(w methodSelector)
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7782	]
363 709901a36b48 checkin from browser Claus Gittinger <cg@exept.de> parents: 357 diff changeset	7783
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	7784	"Modified: 18.8.1997 / 15:46:10 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7785	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7786
305 16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7787	methodStartCounting
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7788	"set a countpoint on the current method"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7789
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7790	self commonTraceHelperWith:#countMethod:
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7791
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7792	"Modified: 15.12.1995 / 10:53:59 / cg"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7793	"Created: 15.12.1995 / 11:00:44 / cg"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7794	!
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7795
312 88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7796	methodStartMemoryUsage
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7797	"set a countpoint for memory usage on the current method"
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7798
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7799	self commonTraceHelperWith:#countMemoryUsageOfMethod:
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7800
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7801	"Created: 18.12.1995 / 16:00:22 / stefan"
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7802	!
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7803
629 754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7804	methodStartTiming
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7805	"set a timing on the current method"
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7806
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7807	self commonTraceHelperWith:#timeMethod:
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7808
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7809	"Modified: 15.12.1995 / 10:53:59 / cg"
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7810	"Created: 17.6.1996 / 17:12:06 / cg"
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7811	!
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7812
305 16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7813	methodStopCounting
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7814	"show the number of invocations & remove a countpoint on the current method"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7815
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7816	"/ self information:'called ' , (MessageTracer executionCountOfMethod:currentMethod) printString , ' times.'.
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7817	self commonTraceHelperWith:#stopCountingMethod:
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7818
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7819	"Created: 15.12.1995 / 11:03:22 / cg"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7820	"Modified: 15.12.1995 / 17:13:05 / cg"
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7821	!
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7822
312 88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7823	methodStopMemoryUsage
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7824	"stop counting of memory usage for this method"
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7825
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7826	"/ self information:'called ' , (MessageTracer executionCountOfMethod:currentMethod) printString , ' times.'.
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7827	self commonTraceHelperWith:#stopCountingMemoryUsageOfMethod:
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7828
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7829	"Created: 18.12.1995 / 16:02:02 / stefan"
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7830	!
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	7831
629 754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7832	methodStopTiming
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7833	"show the execution times on the current method"
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7834
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7835	"/ self information:'called ' , (MessageTracer executionCountOfMethod:currentMethod) printString , ' times.'.
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7836	self commonTraceHelperWith:#stopTimingMethod:
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7837
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7838	"Modified: 15.12.1995 / 17:13:05 / cg"
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7839	"Created: 17.6.1996 / 17:12:27 / cg"
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7840	!
754a858231f9 method timing info Claus Gittinger <cg@exept.de> parents: 626 diff changeset	7841
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7842	methodStringSearch
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7843	"launch an enterBox for string to search for"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7844
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	7845	self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7846	askForSearchTitle:'string to search for in sources:'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7847	openWith:#browseForString:in:
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7848	isSelector:true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7849	searchArea:#class
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	7850
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	7851	"Modified: 11.11.1996 / 12:44:13 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7852	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7853
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7854	methodTrace
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7855	"turn on tracing of the current method"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7856
308 920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	7857	self commonTraceHelperWith:#traceMethod:
920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	7858
920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	7859	"Modified: 15.12.1995 / 17:34:53 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7860	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7861
306 f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7862	methodTraceFull
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7863	"turn on tracing of the current method"
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7864
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7865	self commonTraceHelperWith:#traceMethodFull:
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7866
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7867	"Modified: 15.12.1995 / 10:52:58 / cg"
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7868	"Created: 15.12.1995 / 18:20:33 / cg"
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7869	!
f0218f7cdbc1 full walkback trace / trace entries now on CONTROL menu Claus Gittinger <cg@exept.de> parents: 305 diff changeset	7870
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7871	methodTraceSender
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7872	"turn on tracing of the current method"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7873
305 16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7874	self commonTraceHelperWith:#traceMethodSender:
16d903e3d59d methodcounting added Claus Gittinger <cg@exept.de> parents: 303 diff changeset	7875
308 920ebf8d011e checkin from browser Claus Gittinger <cg@exept.de> parents: 307 diff changeset	7876	"Modified: 15.12.1995 / 17:34:58 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7877	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7878
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7879	!BrowserView methodsFor:'method stuff'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7880
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7881	checkMethodSelected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7882	currentMethod isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7883	self warn:'select a method first'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7884	^ false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7885	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7886	^ true
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7887	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7888
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7889	listEntryForMethod:aMethod selector:selector
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7890	"answer a method list entry
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7891	(gimmic: adding a little image to breakPointed methods)"
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7892
856 45d8adb56f96 checkin from browser Claus Gittinger <cg@exept.de> parents: 852 diff changeset	7893	\|s icn\|
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7894
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7895	s := aMethod printStringForBrowserWithSelector:selector.
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7896	aMethod isWrapped ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7897	(s endsWith:' !!') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7898	s := s copyWithoutLast:2
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7899	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7900	aMethod isBreakpointed ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7901	icn := self stopIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7902	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7903	aMethod isTimed ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7904	icn := self timeIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7905	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7906	icn := self traceIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7907	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7908	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7909	^ LabelAndIcon icon:icn string:s
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7910	].
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7911	^ s
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7912
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7913	"Created: 22.10.1996 / 19:51:00 / cg"
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	7914	"Modified: 11.4.1997 / 17:16:19 / cg"
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7915	!
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7916
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7917	listOfAllMethodsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7918	"answer a list of all methods in a given method category
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7919	of the argument, aClass and its superclasses.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7920	Used with fullProtocol browsing."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7921
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7922	\|newList otherSelectors allCategories\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7923
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7924	newList := Set new.
611 f3e973ecc846 checkin from browser Claus Gittinger <cg@exept.de> parents: 610 diff changeset	7925	otherSelectors := IdentitySet new.
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7926
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7927	allCategories := (aCategory = '* all *').
56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7928
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7929	self classesInFullProtocolHierarchy:aClass do:[:c \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7930	\|searchCategory\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7931
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7932	(aCategory = '* no category *') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7933	searchCategory := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7934	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7935	searchCategory := aCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7936	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7937
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7938	c methodDictionary keysAndValuesDo:[:selector :aMethod \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7939	(allCategories
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7940	or:[aMethod category = searchCategory]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7941	(otherSelectors includes:selector) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7942	newList add:(selector -> aMethod)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7943	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7944	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7945	otherSelectors add:selector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7946	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7947	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7948	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	7949	(newList size == 0) ifTrue:[^ nil].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7950	^ newList
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7951
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7952	"Modified: 30.7.1997 / 15:13:01 / cg"
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7953	!
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7954
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7955	listOfAllMethodsInCategory:aCategory ofClass:aClass
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7956	"answer a list of all methods in a given method category
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7957	of the argument, aClass"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7958
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7959	\|newList searchCategory all\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7960
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7961	all := (aCategory = '* all *').
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7962
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7963	(aCategory = '* no category *') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7964	searchCategory := nil
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7965	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7966	searchCategory := aCategory
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7967	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7968	newList := OrderedCollection new.
793 56d50de4ad72 checkin from browser Claus Gittinger <cg@exept.de> parents: 792 diff changeset	7969
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	7970	aClass methodDictionary keysAndValuesDo:[:selector :aMethod \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7971	(all or:[aMethod category = searchCategory]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7972	newList add:(selector -> aMethod)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7973	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7974	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	7975	(newList size == 0) ifTrue:[^ nil].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7976	^ newList
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7977
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7978	"Created: 30.7.1997 / 15:10:16 / cg"
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7979	"Modified: 30.7.1997 / 15:12:38 / cg"
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7980	!
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7981
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7982	listOfAllSelectorsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7983	"answer a list of all selectors in a given method category
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7984	of the argument, aClass and its superclasses.
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7985	Used with fullProtocol browsing."
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7986
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7987	\|methodList newList otherSelectors allCategories\|
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7988
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7989	methodList := self listOfAllMethodsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass.
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7990	(methodList size == 0) ifTrue:[^ nil].
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7991
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	7992	aClass isJavaClass ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7993	methodList := methodList asOrderedCollection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7994	methodList sort:[:a :b \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7995	\|mA mB\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7996
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7997	mA := a value.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7998	mB := b value.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	7999	mA name < mB name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8000	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8001
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8002	selectorList := methodList collect:[:assoc \| assoc key].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8003	^ methodList collect:[:assoc \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8004	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8005	listEntryForMethod:(assoc value)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8006	selector:(assoc key)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8007	].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8008	].
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8009
1262 8e1263b12ec6 checkin from browser ca parents: 1260 diff changeset	8010	methodList := methodList asOrderedCollection.
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8011	selectorList := methodList collect:[:assoc \| assoc key].
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8012	newList := methodList
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8013	collect:[:assoc \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8014	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8015	listEntryForMethod:(assoc value)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8016	selector:assoc key
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8017	].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8018	^ newList asOrderedCollection sort:[:a :b \| a string < b string] with:selectorList
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8019
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8020	"Modified: 30.7.1997 / 15:28:59 / cg"
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8021	!
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8022
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8023	listOfAllSelectorsInCategory:aCategory ofClass:aClass
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8024	"answer a list of all selectors in a given method category
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8025	of the argument, aClass"
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8026
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8027	\|methodList newList\|
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8028
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8029	methodList := self listOfAllMethodsInCategory:aCategory ofClass:aClass.
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8030	(methodList size == 0) ifTrue:[^ nil].
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8031
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8032	aClass isJavaClass ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8033	methodList := methodList asOrderedCollection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8034	methodList sort:[:a :b \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8035	\|mA mB\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8036
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8037	mA := a value.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8038	mB := b value.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8039	mA name < mB name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8040	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8041
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8042	selectorList := methodList collect:[:assoc \| assoc key].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8043	^ methodList collect:[:assoc \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8044	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8045	listEntryForMethod:(assoc value)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8046	selector:(assoc key)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8047	].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8048	].
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8049
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8050	selectorList := methodList collect:[:assoc \| assoc key].
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8051	newList := methodList
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8052	collect:[:assoc \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8053	self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8054	listEntryForMethod:(assoc value)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8055	selector:(assoc key)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8056	].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8057	^ newList sort:[:a :b \| a string < b string] with:selectorList
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8058
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8059	"Modified: 30.7.1997 / 15:29:16 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8060	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8061
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8062	methodSelection:lineNr
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8063	"user clicked on a method line - show code"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8064
1075 f0ca720bce42 checkin from browser Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	8065	\|selection sensor\|
1073 a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8066
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8067	"/ selection := methodListView selectionValue string.
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8068	selection := selectorList at:lineNr.
1073 a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8069
a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8070	"/ reselected with control ?
1075 f0ca720bce42 checkin from browser Claus Gittinger <cg@exept.de> parents: 1074 diff changeset	8071	((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8072	selection = currentSelector ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8073	"/ if there is a trace/break, remove it.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8074	(currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8075	self methodRemoveBreakOrTrace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8076	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8077	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8078	].
1073 a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8079	].
a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8080
a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8081	self switchToMethod:selection.
a5ce4c71ab14 ctrl-click on a method removes break/trace point Claus Gittinger <cg@exept.de> parents: 1066 diff changeset	8082
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8083	"Modified: 30.7.1997 / 15:31:21 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8084	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8085
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8086	methodSelectionChanged
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8087	"method selection has changed - update dependent views"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8088
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	8089	self withBusyCursorDo:[
1342 f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8090	\|index cls\|
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8091
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8092	aspect := nil.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8093	self updateCodeView.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8094	(currentMethod notNil
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8095	and:[MessageTracer notNil
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8096	and:[MessageTracer isCounting:currentMethod]]) ifTrue:[
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8097	self updateMethodListWithScroll:false.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8098	].
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8099
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8100	self setAcceptAndExplainActionsForMethod.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8101
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8102	"
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8103	if there is any autoSearch string, do the search
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8104	"
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8105	autoSearch notNil ifTrue:[
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8106	codeView
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8107	searchFwd:autoSearch
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8108	startingAtLine:1 col:0
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8109	ifAbsent:[]
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8110	].
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8111
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8112	fullProtocol ifTrue:[
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8113	"
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8114	remove any bold attribute from classList
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8115	"
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8116	1 to:classListView list size do:[:i \|
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8117	classListView attributeAt:i remove:#bold.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8118	].
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8119	"
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8120	boldify the class where this method is implemented
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8121	"
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8122	currentMethod notNil ifTrue:[
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8123	cls := currentMethod containingClass.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8124	index := classListView list indexOf:(cls name).
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8125	(index == 0
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8126	and:[cls isMeta
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8127	and:[cls name endsWith:' class']]) ifTrue:[
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8128	index := classListView list indexOf:(cls name copyWithoutLast:6).
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8129	].
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8130	index ~~ 0 ifTrue:[
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8131	classListView attributeAt:index add:#bold.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8132	].
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8133	currentClass := acceptClass := cls.
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8134	]
f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8135	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8136	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8137
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8138	"Created: 23.11.1995 / 14:17:44 / cg"
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	8139	"Modified: 17.6.1996 / 16:47:50 / stefan"
1342 f0101f5528ec checkin from browser Claus Gittinger <cg@exept.de> parents: 1330 diff changeset	8140	"Modified: 9.10.1997 / 13:07:21 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8141	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8142
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8143	methodTemplate
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8144	"return a method definition template"
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8145
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8146	\|s\|
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8147
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8148	s := TextStream on:''.
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8149	s nextPutAll:'message selector and argument names
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8150	"comment stating purpose of this message"
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8151
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8152	\|temporaries\|
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8153
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8154	statement.
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8155	statement.
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8156
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8157
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8158	"
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8159	optional: comment giving example use
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8160	"
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8161	'.
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8162	s cr.
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8163	s emphasis:(self commentEmphasis).
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8164	s nextPutAll:'"
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8165	change the above template into real code.
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8166	Then `accept'' either via the menu
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8167	or via the keyboard (usually CMD-A).
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8168
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8169	You do not need this template; you can also
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8170	select any existing methods code, change it,
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8171	and finally `accept''. The method will then be
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8172	installed under the selector as defined in the
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8173	actual text - no matter which method is selected
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8174	in the browser.
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8175
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8176	Or clear this text, type in the method from scratch
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8177	and install it with `accept''.
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8178	"
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8179	'.
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8180	^ s contents
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8181
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8182	"Created: 8.2.1996 / 18:21:53 / cg"
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	8183	"Modified: 1.8.1997 / 12:43:51 / cg"
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8184	!
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8185
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8186	switchToAnyMethodNamed:matchString
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	8187	"switch (in the current classes hierarchy) to a method named matchString.
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8188	If there are more than one matches, switch to the first."
55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8189
750 7427968b55f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 746 diff changeset	8190	\|aSelector classToStartSearch classToSearch aClass nm idx\|
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8191
55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8192	actualClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8193	currentClassHierarchy notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8194	classToStartSearch := currentClassHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8195	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8196	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8197	classToStartSearch := actualClass
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8198	].
637 9cf2a5a397d6 switch to method fixes Claus Gittinger <cg@exept.de> parents: 634 diff changeset	8199
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8200	classToStartSearch notNil ifTrue:[
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8201	"/ showInstance ifFalse:[
55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8202	"/ classToStartSearch := classToStartSearch class
55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8203	"/ ].
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8204	((matchString ~= '*') and:[matchString includesMatchCharacters]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8205	classToSearch := classToStartSearch.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8206	aClass := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8207	[classToSearch notNil and:[aClass isNil]] whileTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8208	aSelector := classToSearch methodDictionary findFirstKey:[:element \| matchString match:element].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8209	aSelector notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8210	aClass := classToSearch
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8211	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8212	classToSearch := classToSearch superclass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8213	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8214	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8215	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8216	aSelector := matchString asSymbolIfInterned.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8217	aSelector notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8218	aClass := classToStartSearch whichClassIncludesSelector:aSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8219	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8220	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8221
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8222	aClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8223	nm := aClass name.
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8224	"/ showInstance ifFalse:[
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	8225	"/ ((nm ~= 'Metaclass') and:[nm endsWith:' class']) ifTrue:[
24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	8226	"/ nm := nm copyWithoutLast:6 "copyTo:(nm size - 5)"
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8227	"/ ]
55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8228	"/ ].
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8229	aClass ~~ actualClass ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8230	self switchToClassNamed:nm.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8231	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8232	self switchToMethodNamed:aSelector "matchString".
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8233	^ self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8234	]
578 53a433c25395 checkin from browser Claus Gittinger <cg@exept.de> parents: 575 diff changeset	8235	].
53a433c25395 checkin from browser Claus Gittinger <cg@exept.de> parents: 575 diff changeset	8236	self beep
53a433c25395 checkin from browser Claus Gittinger <cg@exept.de> parents: 575 diff changeset	8237
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	8238	"Modified: 17.6.1996 / 16:52:36 / stefan"
750 7427968b55f6 checkin from browser Claus Gittinger <cg@exept.de> parents: 746 diff changeset	8239	"Modified: 8.10.1996 / 22:06:01 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8240	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8241
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8242	switchToMethod:aString
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8243	"user clicked on a method line - show code"
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8244
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8245	\|selectorString selectorSymbol\|
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8246
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8247	(fullProtocol not and:[currentClass isNil]) ifTrue:[^ self].
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8248
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8249	"
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8250	kludge: extract real selector
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8251	"
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8252	selectorString := aString withoutSpaces upTo:(Character space).
637 9cf2a5a397d6 switch to method fixes Claus Gittinger <cg@exept.de> parents: 634 diff changeset	8253	selectorSymbol := selectorString asSymbolIfInterned.
9cf2a5a397d6 switch to method fixes Claus Gittinger <cg@exept.de> parents: 634 diff changeset	8254	selectorSymbol isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8255	self beep.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8256	^ self
637 9cf2a5a397d6 switch to method fixes Claus Gittinger <cg@exept.de> parents: 634 diff changeset	8257	].
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8258
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8259	fullProtocol ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8260	currentMethod := currentSelector := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8261	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8262	search which class implements the selector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8263	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8264	self classesInFullProtocolHierarchy:actualClass do:[:c \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8265	(currentMethod isNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8266	and:[c includesSelector:selectorSymbol]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8267	currentSelector := selectorSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8268	currentMethod := c compiledMethodAt:selectorSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8269	acceptClass := c
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8270	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8271	]
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8272	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8273	currentSelector := selectorSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8274	currentMethod := actualClass compiledMethodAt:selectorSymbol.
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8275	].
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8276
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8277	methodCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8278	currentMethod notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8279	(currentMethodCategory = currentMethod category) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8280	currentMethodCategory := currentMethod category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8281	methodCategoryListView setSelectElement:currentMethodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8282	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8283	]
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8284	].
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8285
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8286	self methodSelectionChanged
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8287
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8288	"Created: 4.6.1996 / 23:00:12 / cg"
637 9cf2a5a397d6 switch to method fixes Claus Gittinger <cg@exept.de> parents: 634 diff changeset	8289	"Modified: 22.6.1996 / 16:46:18 / cg"
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8290	!
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	8291
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8292	switchToMethodNamed:matchString
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8293	"switch (in the current class) to a method named matchString.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8294	If there are more than one matches, switch to the first."
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8295
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	8296	\|aSelector method cat classToSearch dict m idx\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8297
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8298	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8299	classToSearch := actualClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8300	dict := classToSearch methodDictionary.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8301
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8302	((matchString ~= '*') and:[matchString includesMatchCharacters]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8303	aSelector := dict findFirstKey:[:element \| matchString match:element].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8304	aSelector notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8305	method := dict at:aSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8306	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8307	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8308	aSelector := matchString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8309	method := dict at:matchString ifAbsent:[]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8310	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8311
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8312	method notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8313	cat := method category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8314	cat isNil ifTrue:[cat := '* all *'].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8315	methodCategoryListView setSelectElement:cat.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8316	currentMethodCategory := cat.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8317	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8318	self methodCategorySelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8319
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8320	currentMethod := method.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8321	currentSelector := aSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8322
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8323	m := aSelector , '()'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8324	selectorList notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8325	idx := selectorList findFirst:[:line \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8326	line = aSelector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8327	or:[m match:line]].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8328	"/ idx := methodListView list findFirst:[:line \|
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8329	"/ line = aSelector
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8330	"/ or:[m match:line]].
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	8331
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8332	methodListView setSelection:idx. "/ setSelectElement:aSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8333	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8334	self methodSelectionChanged.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8335	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8336	]
348 55e8c40ae940 fixed findMethod / findMethodHere when showing class protocol Claus Gittinger <cg@exept.de> parents: 340 diff changeset	8337	].
578 53a433c25395 checkin from browser Claus Gittinger <cg@exept.de> parents: 575 diff changeset	8338	self beep.
53a433c25395 checkin from browser Claus Gittinger <cg@exept.de> parents: 575 diff changeset	8339
650 bb426452251e Fix #switchToMethodNamed: -- select name in methodListView. Stefan Vogel <sv@exept.de> parents: 637 diff changeset	8340	"Modified: 28.6.1996 / 20:28:56 / stefan"
1278 0b0ee3c97910 checkin from browser Claus Gittinger <cg@exept.de> parents: 1269 diff changeset	8341	"Modified: 8.8.1997 / 12:06:11 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8342	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8343
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8344	updateClassMethodListWithScroll:scroll keepSelection:keep
1163 b36faf475548 ??? duplication removed Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	8345	\|newList selection s\|
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8346
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8347	newList := OrderedCollection new.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8348	selection := classMethodListView selection.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8349
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8350	"/ update the list, caring for traps.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8351	classMethodListView list do:[:entry \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8352	\|cls sel mthd s icn\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8353
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8354	cls := self classFromClassMethodString:entry string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8355	sel := self selectorFromClassMethodString:entry string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8356	(cls isNil or:[sel isNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8357	"/ method is gone ?
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8358	s := entry string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8359	(s endsWith:'???') ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8360	s := s , ' ???'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8361	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8362	newList add:s
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8363	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8364	mthd := cls compiledMethodAt:(sel asSymbol).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8365	mthd isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8366	newList add:cls name , ' ' , sel , ' ???'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8367	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8368	s := cls name , ' ' , (mthd printStringForBrowserWithSelector:sel).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8369	mthd isWrapped ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8370	(s endsWith:' !!') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8371	s := s copyWithoutLast:2
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8372	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8373	(s endsWith:' !!') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8374	s := s copyWithoutLast:2
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8375	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8376	mthd isBreakpointed ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8377	icn := self stopIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8378	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8379	mthd isTimed ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8380	icn := self timeIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8381	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8382	icn := self traceIcon
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8383	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8384	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8385	newList add:(LabelAndIcon icon:icn string:s)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8386	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8387	newList add:s
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8388	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8389	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8390	].
1066 3d42c6f886f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1060 diff changeset	8391	].
3d42c6f886f4 checkin from browser Claus Gittinger <cg@exept.de> parents: 1060 diff changeset	8392	classMethodListView setList:newList.
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8393	classMethodListView setSelection:selection.
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8394
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8395	"Modified: 18.12.1995 / 22:54:04 / stefan"
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8396	"Created: 3.3.1997 / 15:10:15 / cg"
1163 b36faf475548 ??? duplication removed Claus Gittinger <cg@exept.de> parents: 1161 diff changeset	8397	"Modified: 24.4.1997 / 17:14:23 / cg"
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8398	!
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8399
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8400	updateMethodList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8401	self updateMethodListWithScroll:true keepSelection:false
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8402	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8403
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8404	updateMethodListWithScroll:scroll
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8405	self updateMethodListWithScroll:scroll keepSelection:false
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8406	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8407
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8408	updateMethodListWithScroll:scroll keepSelection:keep
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8409	\|selectors scr first last selection searchCategory\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8410
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8411	methodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8412	selection := methodListView selection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8413
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8414	searchCategory := currentMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8415	(currentClass notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8416	and:[currentClass supportsMethodCategories not]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8417	searchCategory := '* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8418	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8419
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8420	(searchCategory notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8421	and:[actualClass notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8422	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8423	selectors := self listOfAllSelectorsInCategory:searchCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8424	inFullProtocolHierarchyOfClass:actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8425	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8426	selectors := self listOfAllSelectorsInCategory:searchCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8427	ofClass:actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8428	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8429	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8430	scr := scroll.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8431	first := methodListView firstLineShown.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8432	first ~~ 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8433	last := methodListView lastLineShown.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8434	selectors size <= (last - first + 1) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8435	scr := true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8436	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8437	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8438
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8439	scr ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8440	methodListView list: "contents:" selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8441	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8442	methodListView setList: "setContents:" selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8443	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8444
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8445	(variableListView notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8446	and:[variableListView hasSelection]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8447	self hilightMethodsInMethodList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8448	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8449
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8450	keep ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8451	methodListView setSelection:selection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8452	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8453	^ self
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8454	].
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8455
bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8456	classMethodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8457	self updateClassMethodListWithScroll:scroll keepSelection:keep
1058 bb27859b0d78 care for lazy methods when searching for senders; Claus Gittinger <cg@exept.de> parents: 1054 diff changeset	8458	].
312 88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	8459
88a6d2b2f1fb Add memory usage counting in method ctrl/menu. Stefan Vogel <sv@exept.de> parents: 309 diff changeset	8460	"Modified: 18.12.1995 / 22:54:04 / stefan"
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8461	"Modified: 30.7.1997 / 15:55:06 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8462	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8463
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8464	!BrowserView methodsFor:'misc'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8465
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8466	instanceProtocol:aBoolean
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8467	"switch between instance and class protocol"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8468
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8469	\|onToggle offToggle\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8470
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8471	showInstance ~~ aBoolean ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8472	self checkSelectionChangeAllowed ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8473	instanceToggle notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8474	aBoolean ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8475	offToggle := classToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8476	onToggle := instanceToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8477	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8478	onToggle := classToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8479	offToggle := instanceToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8480	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8481	onToggle turnOn.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8482	offToggle turnOff.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8483	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8484	showInstance := aBoolean.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8485
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8486	(variableListView notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8487	and:[variableListView hasSelection]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8488	self unhilightMethodCategories.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8489	self unhilightMethods.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8490	variableListView setSelection:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8491	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8492
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8493	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8494	showInstance ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8495	actualClass := currentClassHierarchy.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8496	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8497	actualClass := currentClassHierarchy class.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8498	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8499	acceptClass := actualClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8500
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8501	self updateClassList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8502	self updateMethodCategoryListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8503	self updateMethodListWithScroll:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8504	self updateVariableList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8505	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8506	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8507	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8508	self classSelectionChanged
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8509	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8510	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8511	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8512	aBoolean ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8513	onToggle := classToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8514	offToggle := instanceToggle
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8515	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8516	offToggle := classToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8517	onToggle := instanceToggle.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8518	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8519	onToggle turnOn.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8520	offToggle turnOff.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8521	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8522	]
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	8523
a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	8524	"Modified: 25.5.1996 / 13:02:41 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8525	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8526
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8527	processName
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8528	"the name of my process - for the processMonitor only"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8529
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8530	^ 'System Browser'.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8531	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8532
309 383db60e61b7 show activity notifications in the title Claus Gittinger <cg@exept.de> parents: 308 diff changeset	8533	showActivity:someMessage
501 655c9ce9a600 commentary Claus Gittinger <cg@exept.de> parents: 486 diff changeset	8534	"some activityNotification to be forwarded to the user;
655c9ce9a600 commentary Claus Gittinger <cg@exept.de> parents: 486 diff changeset	8535	show it in the windows title area here."
655c9ce9a600 commentary Claus Gittinger <cg@exept.de> parents: 486 diff changeset	8536
309 383db60e61b7 show activity notifications in the title Claus Gittinger <cg@exept.de> parents: 308 diff changeset	8537	self busyLabel:someMessage with:nil
383db60e61b7 show activity notifications in the title Claus Gittinger <cg@exept.de> parents: 308 diff changeset	8538
383db60e61b7 show activity notifications in the title Claus Gittinger <cg@exept.de> parents: 308 diff changeset	8539	"Created: 16.12.1995 / 18:41:37 / cg"
501 655c9ce9a600 commentary Claus Gittinger <cg@exept.de> parents: 486 diff changeset	8540	"Modified: 23.4.1996 / 21:39:24 / cg"
309 383db60e61b7 show activity notifications in the title Claus Gittinger <cg@exept.de> parents: 308 diff changeset	8541	!
383db60e61b7 show activity notifications in the title Claus Gittinger <cg@exept.de> parents: 308 diff changeset	8542
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8543	updateCodeView
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8544	\|code sourceLineNumber\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8545
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8546	aspect == #hierarchy ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8547	^ self classHierarchy
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8548	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8549	aspect == #classInstVars ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8550	^ self classClassInstVars
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8551	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8552	aspect == #comment ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8553	^ self classComment
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8554	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8555	aspect == #primitiveDefinitions ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8556	^ self classPrimitiveDefinitions
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8557	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8558	aspect == #primitiveFunctions ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8559	^ self classPrimitiveFunctions
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8560	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8561	aspect == #primitiveVariables ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8562	^ self classPrimitiveVariables
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8563	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8564	aspect == #revisionInfo ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8565	^ self classRevisionInfo
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8566	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	8567
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8568	fullClass ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8569	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8570	code := currentClass source.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8571	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8572	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8573	aspect == #definition ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8574	^ self classDefinition
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8575	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8576
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8577	currentMethod notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8578	(codeView acceptAction isNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8579	and:[actualClass notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8580	and:[currentMethodCategory notNil]]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8581	self setAcceptAndExplainActionsForMethod.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8582	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8583
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8584	code := currentMethod source.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8585	sourceLineNumber := currentMethod sourceLineNumber.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8586	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8587	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8588	codeView contents:code.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8589	codeView modified:false.
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8590	sourceLineNumber notNil ifTrue:[
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8591	sourceLineNumber ~~ 1 ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8592	codeView gotoLine:sourceLineNumber.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8593	sourceLineNumber > 10 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8594	sourceLineNumber := sourceLineNumber - 10
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8595	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8596	codeView scrollToLine:sourceLineNumber.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8597	].
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8598	].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8599	self normalLabel.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8600
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8601	"Created: 23.11.1995 / 14:16:43 / cg"
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	8602	"Modified: 30.7.1997 / 16:16:10 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8603	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8604
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8605	!BrowserView methodsFor:'namespace menu'!
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8606
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8607	nameSpaceMenu
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8608	\|labels selectors\|
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8609
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8610	labels := #('new namespace').
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8611	selectors := #(nameSpaceNewNameSpace).
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8612
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8613	"/ showAllNamespaces ifTrue:[
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8614	"/ labels := labels , #( '-' 'show topLevel namespaces only').
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8615	"/ selectors := selectors , #(nil showTopLevelNamespaces).
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8616	"/ ] ifFalse:[
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8617	"/ labels := labels , #( '-' 'show all namespaces').
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8618	"/ selectors := selectors , #(nil showAllNamespaces).
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8619	"/ ].
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8620
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8621
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8622	(currentNamespace notNil
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8623	and:[currentNamespace ~~ Smalltalk
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8624	and:[currentNamespace ~= '* all *']]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8625	"/ is it all empty ?
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8626	currentNamespace allClasses isEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8627	labels := labels , #('-' 'remove').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8628	selectors := selectors , #(nil nameSpaceRemove).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8629	]
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8630	].
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8631
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8632	^ PopUpMenu
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8633	labels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8634	selectors:selectors
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8635	receiver:self.
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8636
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8637	"Created: 4.1.1997 / 23:51:38 / cg"
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8638	"Modified: 31.7.1997 / 22:40:33 / cg"
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8639	!
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8640
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8641	nameSpaceNewNameSpace
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8642	"create a namespace-definition prototype in codeview"
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8643
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8644	self classClassDefinitionTemplateFor:nil in:nil namespace:true private:false.
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8645	aspect := nil.
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8646
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8647	"Modified: 23.12.1996 / 12:47:06 / cg"
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8648	"Created: 23.12.1996 / 13:11:48 / cg"
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8649	!
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8650
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8651	nameSpaceRemove
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8652	"remove that nameSpace - but only if its empty"
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8653
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8654	(currentNamespace ~~ Smalltalk
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8655	and:[currentNamespace allClasses isEmpty]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8656	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8657	Smalltalk removeClass:currentNamespace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8658	allNamespaces := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8659	self setListOfNamespaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8660	self changeNameSpaceTo:'* all *'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8661	namespaceList contents:'* all *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8662	]
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8663	].
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8664
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	8665	"Modified: 18.8.1997 / 15:44:31 / cg"
907 915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8666	! !
915c9573dc5c added remove-namespace menu item (only if the space is empty) Claus Gittinger <cg@exept.de> parents: 906 diff changeset	8667
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8668	!BrowserView methodsFor:'namespace stuff'!
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8669
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8670	changeNameSpaceTo:nsName
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8671	\|n selectedClass str selectedCategory\|
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8672
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8673	nsName = '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8674	currentNamespace := nsName.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8675	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8676	n := Smalltalk at:nsName asSymbol.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8677	n isNamespace ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8678	currentNamespace := n.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8679	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8680	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8681	]
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8682	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8683
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8684	selectedClass := actualClass.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8685	currentClass := actualClass := nil.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8686	selectedCategory := currentClassCategory.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8687
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8688	self updateClassCategoryListWithScroll:true.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8689	selectedCategory notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8690	self classCategorySelectionChanged.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8691	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8692
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8693	selectedClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8694	str := self displayedClassNameOf:selectedClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8695
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8696	self switchToClassNamed:str.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8697
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8698	(classListView list isNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8699	or:[(classListView list includes:str) not]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8700	currentClassCategory := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8701	currentClass := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8702	aspect := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8703	self updateMethodCategoryList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8704	self updateMethodList.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8705	self updateCodeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8706	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8707
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8708	(classCategoryListView notNil and:[currentClass notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8709	(currentClassCategory = currentClass category) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8710	currentClassCategory := currentClass category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8711	classCategoryListView setSelectElement:currentClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8712	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8713	].
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8714	]
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8715
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8716	"Created: 3.1.1997 / 11:11:13 / cg"
1015 b3727346969f nicer version validation Claus Gittinger <cg@exept.de> parents: 1000 diff changeset	8717	"Modified: 29.1.1997 / 18:33:42 / cg"
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8718	!
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8719
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8720	displayedClassNameOf:aClass
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8721	"depending on the current nameSpace, either show a classes
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8722	fullname or its name without the namespace prefix (if its in the current)"
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8723
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8724	\|owner nm ns\|
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8725
1095 b54f607eaa97 ask class for its documentation Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	8726	aClass isJavaClass ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8727	^ aClass fullName "/ asString replaceAll:$/ with:$.
1095 b54f607eaa97 ask class for its documentation Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	8728	].
b54f607eaa97 ask class for its documentation Claus Gittinger <cg@exept.de> parents: 1083 diff changeset	8729
1267 17fc5184fb22 checkin from browser Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	8730	"/ in which nameSpace is that class (or its owner) ?
17fc5184fb22 checkin from browser Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	8731
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8732	owner := aClass topOwningClass.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8733	owner notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8734	ns := owner nameSpace.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8735	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8736	ns := aClass nameSpace.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8737	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8738
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8739	"/ this 'cannot' happen (should always be Smalltalk)
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8740	ns isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8741	^ aClass name
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8742	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8743
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8744	currentNamespace = '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8745	(ns == Smalltalk) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8746	nm := aClass nameWithoutNameSpacePrefix.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8747	^ nm
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8748	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8749	nm := aClass nameWithoutNameSpacePrefix.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8750	^ ns name , '::' , nm "/ full name
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8751	"/ ^ aClass name "/ full name
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8752	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8753
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8754	nm := aClass nameWithoutNameSpacePrefix.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8755
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8756	"/ is it in one of the selected namespaces ?
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8757
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8758	(self findClassNamedInNameSpace:nm) isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8759	^ ns name , '::' , nm "/ full name
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8760	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8761	currentNamespace = ns ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8762	^ ns name , '::' , nm "/ full name
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8763	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8764	^ nm.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8765
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8766	"Created: 20.12.1996 / 17:46:41 / cg"
1267 17fc5184fb22 checkin from browser Claus Gittinger <cg@exept.de> parents: 1266 diff changeset	8767	"Modified: 31.7.1997 / 22:57:16 / cg"
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8768	!
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8769
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8770	listOfAllNamespaces
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8771	"return a list of all namespaces"
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8772
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8773	allNamespaces isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8774	allNamespaces := Namespace allNamespaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8775
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8776	showAllNamespaces ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8777	"/ only topLevel namespaces are shown
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8778	"/ i.e. those without colons in their name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8779
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8780	allNamespaces := allNamespaces select:[:ns \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8781	\|nm\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8782
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8783	nm := ns name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8784	(nm includes:$:) not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8785	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8786	]
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8787	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8788	^ allNamespaces
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8789
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8790	"Modified: 31.7.1997 / 22:32:30 / cg"
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8791	!
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8792
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8793	listOfNamespaces
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8794	"return a list of considered namespaces"
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8795
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8796	currentNamespace isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8797	^ Array with:Smalltalk
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8798	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8799
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8800	currentNamespace = '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8801	^ self listOfAllNamespaces
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8802	].
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8803
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8804	^ Array with:currentNamespace
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8805
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8806	"Created: 26.10.1996 / 11:25:39 / cg"
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8807	"Modified: 20.12.1996 / 19:18:18 / cg"
918 3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8808	!
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8809
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8810	setListOfNamespaces
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8811	\|l hasSmalltalk\|
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8812
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8813	namespaceList isNil ifTrue:[ ^ self ].
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8814
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8815	l := self listOfAllNamespaces collect:[:ns \| ns name].
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8816	l := l asOrderedCollection.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8817	hasSmalltalk := true.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8818	l remove:'Smalltalk' ifAbsent:[hasSmalltalk := false].
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8819	l sort.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8820	l addFirst:'-'.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8821	hasSmalltalk ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8822	l addFirst:'Smalltalk'
918 3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8823	].
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8824	l addFirst:'* all *'.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8825	namespaceList list:l
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8826
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8827	"Modified: 20.12.1996 / 19:18:29 / cg"
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8828	!
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8829
1266 ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8830	showAllNamespaces
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8831	"toggle to show all namespaces"
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8832
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8833	showAllNamespaces := true.
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8834	self updateNamespaceList
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8835
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8836	"Modified: 31.7.1997 / 22:33:16 / cg"
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8837	!
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8838
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8839	showTopLevelNamespaces
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8840	"toggle to show topLevel namespaces only"
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8841
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8842	showAllNamespaces := false.
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8843	self updateNamespaceList
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8844
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8845	"Created: 31.7.1997 / 22:33:29 / cg"
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8846	!
ee97c01c22c9 checkin from browser Claus Gittinger <cg@exept.de> parents: 1262 diff changeset	8847
918 3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8848	updateNamespaceList
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8849	allNamespaces := nil.
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8850	namespaceList notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8851	self setListOfNamespaces
918 3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8852	].
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8853
3b631dff391e also update the nameSpace list (update menu item) Claus Gittinger <cg@exept.de> parents: 916 diff changeset	8854	"Created: 8.1.1997 / 10:54:03 / cg"
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8855	! !
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	8856
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8857	!BrowserView methodsFor:'private'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	8858
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8859	askAndBrowseMethodCategory:title action:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8860	"convenient method: setup enterBox with initial being current method category"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8861
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8862	\|sel box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8863
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	8864	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8865	enterBoxTitle:title
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8866	okText:'browse'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8867	label:'browse category'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	8868
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8869	sel := codeView selection.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8870	sel isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8871	currentMethodCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8872	sel := currentMethodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8873	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8874	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8875	sel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8876	box initialText:(sel asString withoutSpaces)
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8877	].
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	8878	box action:[:aString \| self withBusyCursorDo:[aBlock value:aString]].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8879	box showAtPointer
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	8880
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	8881	"Modified: 18.8.1997 / 15:42:07 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8882	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8883
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8884	askForMethodCategory
455 4fd3fb9a34e4 checkin from browser Claus Gittinger <cg@exept.de> parents: 449 diff changeset	8885	\|someCategories box txt retVal\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8886
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8887	someCategories := actualClass categories sort.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8888	box := self listBoxTitle:'accept in which method category ?' okText:'accept' list:someCategories.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8889
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8890	lastMethodCategory isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8891	txt := 'new methods'
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8892	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8893	txt := lastMethodCategory
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8894	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8895	box initialText:txt.
455 4fd3fb9a34e4 checkin from browser Claus Gittinger <cg@exept.de> parents: 449 diff changeset	8896	box action:[:aString \| aString notEmpty ifTrue:[retVal := aString] ].
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8897	box showAtPointer.
455 4fd3fb9a34e4 checkin from browser Claus Gittinger <cg@exept.de> parents: 449 diff changeset	8898	^ retVal
4fd3fb9a34e4 checkin from browser Claus Gittinger <cg@exept.de> parents: 449 diff changeset	8899
4fd3fb9a34e4 checkin from browser Claus Gittinger <cg@exept.de> parents: 449 diff changeset	8900	"Modified: 27.3.1996 / 15:33:46 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8901	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	8902
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8903	askForSearchSelectorTitle:title openWith:aSelector
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8904	"convenient method: setup enterBox with text from codeView or selected
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8905	method for browsing based on a selector. Set action and launch box"
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8906
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8907	^ self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8908	askForSearchTitle:title
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8909	openWith:aSelector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8910	isSelector:true
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8911
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8912	"Modified: 11.11.1996 / 12:43:24 / cg"
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8913	!
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8914
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8915	askForSearchTitle:title openWith:aSelector isSelector:isSelector
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8916	"convenient method: setup enterBox with text from codeView or selected
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8917	method for browsing based on a selector. Set action and launch box"
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8918
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8919	^ self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8920	askForSearchTitle:title
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8921	openWith:aSelector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8922	isSelector:isSelector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8923	searchArea:#everywhere
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8924
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8925	"Modified: 11.11.1996 / 12:42:46 / cg"
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8926	!
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8927
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8928	askForSearchTitle:title openWith:aSelector isSelector:isSelector searchArea:whereDefault
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8929	"convenient method: setup enterBox with text from codeView or selected
65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	8930	method for browsing based on a selector. Set action and launch box.
1155 c37cb25bed62 better search ;-) private stuff ca parents: 1149 diff changeset	8931	SearchArea may be one of #everywhere, #classCategory, #class, #classWithPrivateClasses,
c37cb25bed62 better search ;-) private stuff ca parents: 1149 diff changeset	8932	#classHierarchy or #classHierarchyWithPrivateClasses"
c37cb25bed62 better search ;-) private stuff ca parents: 1149 diff changeset	8933
1256 29c8e994602f checkin from browser Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	8934	\|box grp panel selectorHolder where whereChannel
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8935	b sel classes areas toSearch cls privates inputField\|
1155 c37cb25bed62 better search ;-) private stuff ca parents: 1149 diff changeset	8936
c37cb25bed62 better search ;-) private stuff ca parents: 1149 diff changeset	8937	areas := #(everywhere
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8938	classCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8939	class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8940	classHierarchy
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8941	classWithPrivateClasses
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8942	classHierarchyWithPrivateClasses).
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8943
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8944	isSelector ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8945	sel := self selectorToSearchFor.
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8946	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8947	sel := self stringToSearchFor.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	8948	].
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	8949	selectorHolder := sel asValue.
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8950
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8951	box := Dialog new.
723 c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	8952	(box addTextLabel:(resources string:title)) adjust:#left.
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8953
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8954	inputField := box addInputFieldOn:selectorHolder tabable:true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8955	inputField selectAll.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8956	inputField entryCompletionBlock:[:contents \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8957	\|s what m\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8958
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8959	s := contents withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8960	box topView withWaitCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8961	what := Smalltalk selectorCompletion:s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8962	inputField contents:what first.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8963	(what at:2) size ~~ 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8964	self beep
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8965	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8966	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8967	].
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8968
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	8969	(currentClassCategory notNil or:[currentClass notNil]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8970	box addHorizontalLine.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8971	box addVerticalSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8972
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8973	(box addTextLabel:(resources string:'search in:')) adjust:#left.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8974
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8975	panel := VerticalPanelView "HorizontalPanelView" new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8976	panel horizontalLayout:#fitSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8977
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8978	grp := RadioButtonGroup new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8979	b := CheckBox "RadioButton" label:(resources string:'everywhere').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8980	panel add:b. grp add:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8981	box makeTabable:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8982
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8983	currentClassCategory notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8984	b := CheckBox "RadioButton" label:(resources string:'class category').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8985	panel add:b. grp add:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8986	box makeTabable:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8987	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8988
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8989	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8990	b := CheckBox "RadioButton" label:(resources string:'class').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8991	panel add:b.grp add:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8992	box makeTabable:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8993
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8994	b := CheckBox "RadioButton" label:(resources string:'class & subclasses').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8995	panel add:b. grp add:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8996	box makeTabable:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8997
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8998	currentClass subclasses size == 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	8999	b disable.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9000	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9001
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9002	b := CheckBox "RadioButton" label:(resources string:'class & private classes').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9003	panel add:b.grp add:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9004	box makeTabable:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9005
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9006	currentClass privateClasses size == 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9007	b disable
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9008	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9009
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9010	b := CheckBox "RadioButton" label:(resources string:'class & subclasses & all private classes').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9011	panel add:b. grp add:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9012	box makeTabable:b.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9013
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9014	currentClass subclasses size == 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9015	b disable.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9016	] ifFalse:[
1236 ffc80648ab57 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	9017	"/ this takes too long ...
ffc80648ab57 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	9018	"/ toSearch := IdentitySet new.
ffc80648ab57 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	9019	"/ currentClass withAllSubclasses do:[:cls \| toSearch add:cls privateClasses].
ffc80648ab57 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	9020	"/ toSearch size == 0 ifTrue:[
ffc80648ab57 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	9021	"/ b disable
ffc80648ab57 * empty log message * Claus Gittinger <cg@exept.de> parents: 1233 diff changeset	9022	"/ ]
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9023	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9024	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9025	whereDefault notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9026	where := areas indexOf:whereDefault.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9027	where == 0 ifTrue:[where := 1].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9028	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9029	where := 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9030	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9031	grp value:where.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9032	whereChannel := grp.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9033	box addComponent:panel indent:0. "/ panel has its own idea of indenting
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9034
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9035	box addVerticalSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9036	box addHorizontalLine.
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9037	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9038	whereChannel := 1 asValue.
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9039	].
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9040
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9041	box addAbortButton.
723 c25a73e57512 use -categories; correctly update after a classCategory-remove; Claus Gittinger <cg@exept.de>* parents: 714 diff changeset	9042	box addOkButtonLabelled:(resources string:'browse').
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9043
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9044	box label:(resources string:'search').
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9045	box open.
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9046
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9047	box accepted ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9048	sel := selectorHolder value.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9049	where := whereChannel value.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9050
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9051	sel isEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9052	self warn:'nothing entered for search'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9053	^ self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9054	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9055	where isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9056	self warn:'no class(es) for search'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9057	^ self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9058	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9059
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9060	where := areas at:where ifAbsent:#class.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9061
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9062	where == #everywhere ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9063	classes := Smalltalk allClasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9064	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9065	where == #classCategory ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9066	classes := Smalltalk allClassesInCategory:currentClassCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9067	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9068	(where == #class or:[where == #classWithPrivateClasses]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9069	currentClass isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9070	classes := #()
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9071	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9072	classes := Array with:currentClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9073	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9074	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9075	(where == #classHierarchy or:[where == #classHierarchyWithPrivateClasses]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9076	classes := currentClass withAllSubclasses
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9077	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9078	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9079	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9080	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9081	(where == #classWithPrivateClasses or:[where == #classHierarchyWithPrivateClasses]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9082	toSearch := IdentitySet withAll:classes.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9083	classes := IdentitySet withAll:toSearch.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9084
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9085	[toSearch notEmpty] whileTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9086	cls := toSearch removeFirst.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9087	privates := cls privateClasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9088	privates notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9089	toSearch addAll:cls privateClasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9090	classes addAll:cls privateClasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9091	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9092	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9093	classes := classes asOrderedCollection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9094	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9095
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9096	classes isEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9097	self warn:'no class(es) given for search'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9098	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9099	self withSearchCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9100	SystemBrowser perform:aSelector with:sel with:classes
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9101	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9102	]
665 eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9103	]
eb23262a5ee1 combined sender/localSenders into one dialog-controlled search operation. Claus Gittinger <cg@exept.de> parents: 650 diff changeset	9104
863 65769db0afe5 use different searchArea defaults Claus Gittinger <cg@exept.de> parents: 862 diff changeset	9105	"Created: 11.11.1996 / 12:42:14 / cg"
1256 29c8e994602f checkin from browser Claus Gittinger <cg@exept.de> parents: 1255 diff changeset	9106	"Modified: 28.7.1997 / 18:04:04 / cg"
674 fa41cdb5faa5 show privacy in senders/implementors list; Claus Gittinger <cg@exept.de> parents: 665 diff changeset	9107	!
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9108
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9109	busyLabel:what with:someArgument
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9110	"set the title for some warning"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9111
1291 6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9112	self topView
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9113	label:('System Browser - ' , (resources string:what with:someArgument))
1291 6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9114
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9115	"Modified: 18.8.1997 / 15:19:15 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9116	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9117
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9118	checkSelectionChangeAllowed
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9119	"return true, if selection change is ok;
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9120	its not ok, if code has been changed.
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9121	in this case, return the result of a user query"
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9122
971 3f31069f85ce ignore historyLine, when checking for a changed method Claus Gittinger <cg@exept.de> parents: 969 diff changeset	9123	\|what m src1 src2 list1 list2 v\|
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9124
447 7f2888c05b92 dont access source again when leaving, if codeView was not modified Claus Gittinger <cg@exept.de> parents: 442 diff changeset	9125	codeView modified ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9126	^ true
447 7f2888c05b92 dont access source again when leaving, if codeView was not modified Claus Gittinger <cg@exept.de> parents: 442 diff changeset	9127	].
7f2888c05b92 dont access source again when leaving, if codeView was not modified Claus Gittinger <cg@exept.de> parents: 442 diff changeset	9128
387 cdd20d24f2ee check for nil-actualClass (in case its gone) Claus Gittinger <cg@exept.de> parents: 376 diff changeset	9129	(currentMethod notNil and:[actualClass notNil]) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9130	self withBusyCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9131	m := actualClass compiledMethodAt:currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9132	m notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9133	(src1 := m source) = (src2 := codeView contents) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9134	list1 := src1 asCollectionOfLines collect:[:line \| line isNil ifTrue:['']
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9135	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9136	line
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9137	withoutTrailingSeparators
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9138	withTabsExpanded
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9139	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9140	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9141	list2 := src2 asCollectionOfLines collect:[:line \| line isNil ifTrue:['']
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9142	ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9143	line
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9144	withoutTrailingSeparators
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9145	withTabsExpanded
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9146	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9147	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9148	HistoryManager notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9149	list1 := HistoryManager withoutHistoryLines:list1 asStringCollection asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9150	list2 := HistoryManager withoutHistoryLines:list2 asStringCollection asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9151	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9152
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9153	list1 = list2 ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9154	what := self checkSelectionChangeAllowedWithCompare:true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9155	what == #compare ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9156	v := DiffTextView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9157	openOn:src2
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9158	label:(resources string:'code here (to be accepted ?)')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9159	and:src1
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9160	label:(resources string:'methods actual code').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9161	v label:(resources string:'comparing method versions').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9162	^ false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9163	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9164	^ what
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9165	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9166	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9167	^ true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9168	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9169	]
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9170	].
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9171
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9172	^ self checkSelectionChangeAllowedWithCompare:false
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9173
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9174	"Created: 24.11.1995 / 11:03:33 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9175	"Modified: 18.8.1997 / 15:42:16 / cg"
253 67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9176	!
67448eb25c03 checkin from browser Claus Gittinger <cg@exept.de> parents: 251 diff changeset	9177
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9178	checkSelectionChangeAllowedWithCompare:compareOffered
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9179	"return true, if selection change is ok;
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9180	its not ok, if code has been changed.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9181	in this case, return the result of a user query"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9182
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9183	\|action labels values\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9184
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9185	codeView modified ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9186	^ true
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9187	].
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9188
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9189	compareOffered ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9190	labels := #('cancel' 'compare' 'accept' 'continue').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9191	values := #(false #compare #accept true).
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9192	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9193	labels := #('cancel' 'accept' 'continue').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9194	values := #(false #accept true).
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9195	].
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9196
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9197	action := OptionBox
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9198	request:(resources at:'text has not been accepted.\\Your modifications will be lost when continuing.') withCRs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9199	label:(resources string:'Attention')
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9200	form:(WarningBox iconBitmap)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9201	buttonLabels:(resources array:labels)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9202	values:values
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9203	default:true.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9204	action ~~ #accept ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9205	^ action
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9206	].
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9207	codeView accept.
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9208	^ true
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9209
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9210	"Created: 24.11.1995 / 10:54:46 / cg"
376 1e23e215bf66 copy file for mod-time Claus Gittinger <cg@exept.de> parents: 372 diff changeset	9211	"Modified: 20.2.1996 / 20:47:51 / cg"
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9212	!
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 201 diff changeset	9213
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9214	classHierarchyOf:aClass level:level do:aBlock using:subclassDictionary removeFrom:remainSet
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9215	"evaluate the 2-arg block for every subclass of aClass,
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9216	passing class and nesting level to the block."
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9217
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9218	\|names subclasses\|
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9219
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9220	remainSet remove:aClass ifAbsent:[].
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9221
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9222	aBlock value:aClass value:level.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9223
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9224	subclasses := subclassDictionary at:aClass ifAbsent:[nil].
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9225	(subclasses size == 0) ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9226	names := subclasses collect:[:class \| class name].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9227	names sortWith:subclasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9228	subclasses do:[:aSubClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9229	self classHierarchyOf:aSubClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9230	level:(level + 1)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9231	do:aBlock
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9232	using:subclassDictionary
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9233	removeFrom:remainSet
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9234	]
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9235	]
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9236
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9237	"Created: 20.12.1996 / 17:05:06 / cg"
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9238	"Modified: 5.1.1997 / 18:45:41 / cg"
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9239	!
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9240
6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9241	classHierarchyOf:topClass withAutoloaded:withAutoloaded do:aBlock
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9242	"evaluate the 2-arg block for every class,
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9243	starting at Object; passing class and nesting level to the block."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9244
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9245	\|classes s subclassDict l remaining allNameSpaces nameSpaceList\|
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9246
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9247	classes := IdentitySet new.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9248
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9249	"/ first, collect the list of classes to consider
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9250	"/ thats all classes which are in the selected NameSpaces,
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9251	"/ or private ones, owned by a class which is
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9252	"/ also all of its superclasses are added.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9253
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9254	allNameSpaces := (currentNamespace = '* all *').
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9255	nameSpaceList := self listOfNamespaces.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9256
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9257	Smalltalk allBehaviorsDo:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9258	\|actualNamespace match owner\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9259
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9260	aClass isMeta ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9261	(aClass isNamespace not
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9262	or:[aClass == Smalltalk]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9263	match := allNameSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9264	match ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9265	(owner := aClass topOwningClass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9266	actualNamespace := owner nameSpace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9267	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9268	actualNamespace := aClass nameSpace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9269	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9270	match := nameSpaceList includesIdentical:actualNamespace.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9271	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9272	match ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9273	classes addAll:(aClass withAllSuperclasses).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9274	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9275	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9276	]
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9277	].
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9278
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9279	"/ now, generate a dictionary, which associates a set of subclasses
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9280	"/ to each ...
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9281
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9282	subclassDict := IdentityDictionary new:classes size.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9283	classes do:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9284	s := aClass superclass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9285	s notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9286	l := subclassDict at:s ifAbsent:[nil].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9287	l isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9288	l := OrderedCollection new:5.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9289	subclassDict at:s put:l
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9290	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9291	l add:aClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9292	]
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	9293	].
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9294
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9295	"/
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9296	"/ walk this ..
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9297	"/
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9298	remaining := classes.
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9299	self classHierarchyOf:topClass level:0 do:aBlock using:subclassDict removeFrom:remaining.
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9300
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9301	"/
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9302	"/ if autoloaded classes are wanted ...
8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9303	"/
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9304	withAutoloaded ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9305	(remaining includes:Autoload) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9306	self classHierarchyOf:Autoload level:0 do:aBlock using:subclassDict removeFrom:remaining.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9307	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9308	(remaining asSortedCollection:[:a :b \| a name < b name]) do:[:aNilSubclass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9309	aBlock value:aNilSubclass value:0
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9310	]
900 6fd4cb8c03e9 fixed clasHierarchy walk for subclasses Claus Gittinger <cg@exept.de> parents: 899 diff changeset	9311	].
575 1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	9312
1dc6e1aa6d39 show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 572 diff changeset	9313	"Created: 28.5.1996 / 13:46:23 / cg"
910 8121a4d4ab79 speedup class list generation Claus Gittinger <cg@exept.de> parents: 909 diff changeset	9314	"Modified: 5.1.1997 / 18:44:50 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9315	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9316
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9317	classesInFullProtocolHierarchy:aClass do:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9318	"evaluate aBlock for all non-striked out classes in
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9319	the hierarchy"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9320
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9321	\|index\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9322
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9323	index := (classListView list size).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9324	aClass withAllSuperclasses do:[:c \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9325	(classListView isInSelection:index) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9326	aBlock value:c
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9327	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9328	index := index - 1
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9329	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9330
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9331	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9332
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9333	classesInHierarchy:aClass do:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9334	\|index\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9335
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9336	index := (classListView list size).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9337	aClass withAllSuperclasses do:[:c \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9338	(classListView isInSelection:index) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9339	aBlock value:c
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9340	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9341	index := index - 1
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9342	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9343
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9344	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9345
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9346	compileCode:someCode
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9347	(ReadStream on:someCode) fileIn
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9348	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9349
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9350	enterBoxForCodeSelectionTitle:title okText:okText
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9351	"convenient method: setup enterBox with text from codeview"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9352
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9353	\|sel box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9354
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9355	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9356	enterBoxTitle:(resources string:title)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9357	okText:(resources string:okText).
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9358
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9359	sel := codeView selection.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9360	sel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9361	box initialText:(sel asString withoutSeparators)
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9362	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9363	^ box
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9364
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9365	"Modified: 15.1.1997 / 23:09:11 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9366	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9367
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9368	enterBoxForSearchSelectorTitle:title
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9369	"convenient method: setup enterBox with text from codeView or selected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9370	method for browsing based on a selector"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9371
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9372	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9373
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9374	box := self
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9375	enterBoxTitle:title
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9376	okText:'search'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9377	label:'search selector'.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9378
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9379	box initialText:(self selectorToSearchFor).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9380	^ box
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9381
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9382	"Modified: 15.1.1997 / 23:10:26 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9383	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9384
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9385	enterBoxTitle:title okText:okText
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9386	"convenient method: setup enterBox"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9387
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9388	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9389
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9390	box := EnterBox new.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9391	box title:(resources string:title) okText:(resources string:okText).
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9392	^ box
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9393	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9394
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9395	enterBoxTitle:title okText:okText label:label
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9396	"convenient method: setup enterBox"
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9397
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9398	\|box\|
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9399
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9400	box := EnterBox new.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9401	box label:(resources string:label).
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9402	box title:(resources string:title)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9403	okText:(resources string:okText).
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9404	^ box
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9405
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9406	"Created: 15.1.1997 / 23:01:04 / cg"
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9407	"Modified: 16.1.1997 / 00:26:31 / cg"
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9408	!
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9409
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9410	enterBoxTitle:title okText:okText label:label list:aList
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9411	"convenient method: setup enterBox"
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9412
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9413	\|box fieldHolder\|
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9414
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9415	fieldHolder := ValueHolder new.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9416
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9417	box := DialogBox new.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9418	box label:(resources string:label).
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9419
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9420	(box addTextLabel:(resources string:title)) adjust:#left.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9421	box addVerticalSpace.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9422
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9423	aList isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9424	box addInputFieldOn:fieldHolder.
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9425	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9426	(box addComboBoxOn:fieldHolder) list:aList
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9427	].
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9428
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9429	box addVerticalSpace:15.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9430	box addAbortButton;
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9431	addOkButtonLabelled:(resources string:okText).
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9432
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	9433	box aspectAt:#fieldValue put:fieldHolder.
f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	9434
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9435	"/ box showAtPointer.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9436	"/
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9437	"/ box := EnterBox new.
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9438	"/ box label:(resources string:label).
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9439	"/ box title:(resources string:title)
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9440	"/ okText:(resources string:okText).
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9441	^ box
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9442
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9443	"Created: 15.1.1997 / 23:01:04 / cg"
966 f15f2ac0a745 nicer category copy; Claus Gittinger <cg@exept.de> parents: 962 diff changeset	9444	"Modified: 16.1.1997 / 20:13:28 / cg"
962 55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9445	!
55c72d957f50 more national strings; Claus Gittinger <cg@exept.de> parents: 953 diff changeset	9446
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9447	extractClassAndSelectorFromSelectionInto:aBlock
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9448	"given a string which can be either 'class>>sel' or
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9449	'class sel', extract className and selector, and call aBlock with
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9450	the result."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9451
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9452	\|sel clsName isMeta sep s\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9453
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9454	sel := codeView selection.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9455	sel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9456	sel := sel asString withoutSeparators.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9457	('>>' match:sel) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9458	sep := $>
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9459	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9460	('* *' match:sel) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9461	sep := Character space
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9462	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9463	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9464	sep notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9465	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9466	extract class/sel from selection
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9467	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9468	s := ReadStream on:sel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9469	clsName := s upTo:sep.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9470	[s peek == sep] whileTrue:[s next].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9471	sel := s upToEnd.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9472
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9473	(clsName endsWith:' class') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9474	isMeta := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9475	clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9476	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9477	isMeta := false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9478	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9479	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9480	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9481	aBlock value:clsName value:sel value:isMeta
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9482
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 629 diff changeset	9483	"Modified: 17.6.1996 / 16:52:14 / stefan"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9484	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9485
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9486	findClassNamed:aClassName
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9487	"search through namespaces for aClassName."
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9488
985 fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9489	\|nm nameSym cls meta\|
fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9490
fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9491	meta := false.
fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9492	nm := aClassName.
fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9493	(nm endsWith:' class') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9494	meta := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9495	nm := nm copyWithoutLast:6.
985 fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9496	].
fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9497	nameSym := nm asSymbol.
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9498
884 4e3796d405bc checkin from browser Claus Gittinger <cg@exept.de> parents: 883 diff changeset	9499	currentNamespace = '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9500	(cls := Smalltalk at:nameSym) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9501	meta ifTrue:[^ cls class].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9502	^ cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9503	]
884 4e3796d405bc checkin from browser Claus Gittinger <cg@exept.de> parents: 883 diff changeset	9504	].
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9505	self listOfNamespaces do:[:aNamespace \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9506	(cls := aNamespace at:nameSym) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9507	meta ifTrue:[^ cls class].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9508	^ cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9509	]
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9510	].
884 4e3796d405bc checkin from browser Claus Gittinger <cg@exept.de> parents: 883 diff changeset	9511	currentNamespace ~= '* all *' ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9512	(cls := Smalltalk at:nameSym) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9513	meta ifTrue:[^ cls class].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9514	^ cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9515	]
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9516	].
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9517
985 fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9518	(nm startsWith:'Smalltalk::') ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9519	cls := Smalltalk classNamed:(nm copyFrom:'Smalltalk::' size + 1).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9520	cls notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9521	meta ifTrue:[^ cls class].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9522	^ cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9523	]
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9524	].
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9525	^ nil
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9526
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9527	"Created: 20.12.1996 / 15:39:38 / cg"
985 fde6b90945cc method-list fileOut of class methods Claus Gittinger <cg@exept.de> parents: 978 diff changeset	9528	"Modified: 23.1.1997 / 14:21:00 / cg"
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9529	!
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9530
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9531	findClassNamedInNameSpace:aClassName
897 8475fc61998f correctly display private subclasses in other namespaces Claus Gittinger <cg@exept.de> parents: 896 diff changeset	9532	"search through current namespaces for aClassName.
8475fc61998f correctly display private subclasses in other namespaces Claus Gittinger <cg@exept.de> parents: 896 diff changeset	9533	Return the class or nil, if not found."
8475fc61998f correctly display private subclasses in other namespaces Claus Gittinger <cg@exept.de> parents: 896 diff changeset	9534
8475fc61998f correctly display private subclasses in other namespaces Claus Gittinger <cg@exept.de> parents: 896 diff changeset	9535	\|cls owner\|
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9536
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9537	self listOfNamespaces do:[:aNamespace \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9538	(cls := aNamespace at:aClassName asSymbol) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9539	(owner := cls topOwningClass) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9540	owner nameSpace == aNamespace ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9541	^ cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9542	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9543	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9544	cls nameSpace == aNamespace ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9545	^ cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9546	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9547	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9548	]
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9549	].
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9550	^ nil
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9551
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9552	"Created: 20.12.1996 / 17:41:54 / cg"
897 8475fc61998f correctly display private subclasses in other namespaces Claus Gittinger <cg@exept.de> parents: 896 diff changeset	9553	"Modified: 3.1.1997 / 19:30:53 / cg"
882 c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9554	!
c355bfd9eb08 added a nameSpace filter Claus Gittinger <cg@exept.de> parents: 881 diff changeset	9555
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9556	findClassOfVariable:aVariableName accessWith:aSelector
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9557	"this method returns the class, in which a variable
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9558	is defined;
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9559	needs either #instVarNames or #classVarNames as aSelector."
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9560
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9561	\|cls homeClass\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9562
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9563	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9564	first, find the class, where the variable is declared
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9565	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9566	cls := currentClass.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9567	[cls notNil] whileTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9568	((cls perform:aSelector) includes:aVariableName) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9569	homeClass := cls.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9570	cls := nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9571	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9572	cls := cls superclass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9573	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9574	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9575	homeClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9576	"nope, must be one below ... (could optimize a bit, by searching down
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9577	for the declaring class ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9578	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9579	homeClass := currentClass
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9580	] ifFalse:[
552 c61c0758c10b showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 547 diff changeset	9581	"/ Transcript showCR:'starting search in ' , homeClass name.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9582	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9583	^ homeClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9584	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9585
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9586	hideMethodCategoryList
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9587	classCategoryListView isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9588	methodCategoryListView superView extent:0.0 @ 1.0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9589	methodListView superView origin:0.33 @ 0.0 extent:0.67 @ 1.0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9590	^ self.
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9591	].
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9592
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9593	methodCategoryListView superView extent:0.0 @ 1.0.
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9594	methodListView superView origin:0.5 @ 0.0 extent:0.5 @ 1.0.
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9595
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9596	"Created: 30.7.1997 / 17:50:27 / cg"
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9597	"Modified: 30.7.1997 / 18:00:02 / cg"
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9598	!
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9599
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9600	listBoxForCodeSelectionTitle:title okText:okText
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9601	"convenient method: setup listBox with text from codeview"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9602
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9603	\|sel box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9604
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9605	box := self listBoxTitle:title okText:okText list:nil.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9606	sel := codeView selection.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9607	sel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9608	box initialText:(sel asString withoutSeparators)
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9609	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9610	^ box
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9611	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9612
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9613	listBoxTitle:title okText:okText list:aList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9614	"convenient method: setup a listBox & return it"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9615
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9616	\|box\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9617
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9618	box := ListSelectionBox
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9619	title:(resources string:title)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9620	okText:(resources string:okText)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9621	action:nil.
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9622	box list:aList.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9623	^ box
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9624	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9625
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9626	normalLabel
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9627	"set the normal (inactive) window- and icon labels"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9628
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9629	\|l il\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9630
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9631	myLabel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9632	"if I have been given an explicit label,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9633	and its not the default, take that one"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9634
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9635	myLabel ~= 'System Browser' ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9636	l := il := myLabel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9637	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9638	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9639	l isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9640	l := resources string:'System Browser'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9641
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9642	currentClass notNil ifTrue:[
902 6aa43ef227c3 delayed update; Claus Gittinger <cg@exept.de> parents: 900 diff changeset	9643	"/ l := l, ': ', currentClass name.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9644	l := self displayedClassNameOf:currentClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9645	classListView isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9646	currentSelector notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9647	l := l , ' ' , currentSelector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9648	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9649	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9650	currentClass isLoaded ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9651	l := l , ' (unloaded)'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9652	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9653	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9654	il := currentClass nameWithoutPrefix
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9655	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9656	il := l.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9657	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9658	].
1291 6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9659	self topView label:l.
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9660	self topView iconLabel:il.
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9661
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9662	"Modified: 18.8.1997 / 15:19:36 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9663	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9664
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9665	releaseClass
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9666	\|cls meta\|
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9667
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9668	currentClass notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9669	cls := currentClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9670	cls isMeta ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9671	meta := cls.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9672	cls := meta soleInstance
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9673	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9674	meta := cls class
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9675	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9676	cls removeDependent:self.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9677	meta removeDependent:self.
287 b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9678	].
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9679
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9680	"Created: 13.12.1995 / 15:32:21 / cg"
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9681	!
b578810b0ec4 update-notification in full-class mode; more revision stuff; dont modify method-source for brk/tracePoints Claus Gittinger <cg@exept.de> parents: 285 diff changeset	9682
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9683	selectorToSearchFor
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9684	"look in codeView and methodListView for a search-string when searching for selectors"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9685
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9686	\|sel t\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9687
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9688	sel := codeView selection.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9689	sel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9690	sel := sel asString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9691	t := Parser selectorInExpression:sel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9692	t notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9693	sel := t
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9694	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9695	sel := sel withoutSpaces.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9696	sel == #>> ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9697	"oops - thats probably not what we want here ..."
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9698	self extractClassAndSelectorFromSelectionInto:[:c :s :m \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9699	sel := s
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9700	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9701	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9702	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9703	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9704	methodListView selection notNil ifTrue:[
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	9705	sel := selectorList at:(methodListView selection).
09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	9706	"/ sel := methodListView selectionValue string
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9707	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9708	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9709	classMethodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9710	classMethodListView selection notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9711	sel := classMethodListView selectionValue string.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9712	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9713	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9714	sel := self selectorFromClassMethodString:sel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9715	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9716	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9717	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9718	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9719	sel := sel withoutSpaces upTo:(Character space)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9720	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9721	sel := ''
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9722	]
606 b2d60c276bde care for Text in lists (implementors & senders) Claus Gittinger <cg@exept.de> parents: 599 diff changeset	9723	].
b2d60c276bde care for Text in lists (implementors & senders) Claus Gittinger <cg@exept.de> parents: 599 diff changeset	9724	^ sel string
b2d60c276bde care for Text in lists (implementors & senders) Claus Gittinger <cg@exept.de> parents: 599 diff changeset	9725
1259 09357f451ee3 * empty log message * Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	9726	"Modified: 30.7.1997 / 15:30:10 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9727	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9728
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9729	setAcceptAndExplainActionsForMethod
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9730	"tell the codeView what to do on accept and explain"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9731
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9732	codeView acceptAction:[:theCode \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9733	\|cat cls rslt\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9734
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9735	fullProtocol ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9736	cls := acceptClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9737	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9738	cls isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9739	cls := actualClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9740	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9741	cls isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9742	self warning:'oops class is gone; reselect and try again'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9743	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9744	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9745
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9746	codeView cursor:Cursor execute.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9747
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9748	(cat := currentMethodCategory) = '* all *' ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9749	"must check from which category this code came from ...
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9750	... thanks to Arno for pointing this out"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9751
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9752	cat := self askForMethodCategory.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9753	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9754	(cat notNil and:[cat notEmpty]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9755	Object abortSignal catch:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9756	lockUpdates := true.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9757
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9758	rslt := actualClass compilerClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9759	compile:theCode asString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9760	forClass:cls
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9761	inCategory:cat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9762	notifying:codeView.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9763
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9764	codeView modified:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9765	currentMethod := actualClass compiledMethodAt:currentSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9766	self updateMethodListWithScroll:false keepSelection:(rslt == currentMethod).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9767	self normalLabel.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9768	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9769	lockUpdates := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9770	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9771	codeView cursor:Cursor normal.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9772	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9773
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9774	codeView explainAction:[:theCode :theSelection \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9775	self showExplanation:(Explainer
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9776	explain:theSelection
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9777	in:theCode
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9778	forClass:actualClass)
353 c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	9779	].
c985b6878ade better updating changes from other browsers Claus Gittinger <cg@exept.de> parents: 349 diff changeset	9780
1191 d200548bc0b0 care for class being already removed (in another browser) in accept. Claus Gittinger <cg@exept.de> parents: 1188 diff changeset	9781	"Modified: 19.6.1997 / 18:57:35 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9782	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9783
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9784	setDoitActionForClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9785	"tell the codeView what to do on doIt"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9786
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9787	"set self for doits. This allows accessing the current class
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9788	as self, and access to the class variables by name.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9789	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9790	codeView doItAction:[:theCode \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9791	\|compiler ns\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9792
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9793	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9794	ns := currentClass nameSpace
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9795	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9796	ns := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9797	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9798
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9799	Class nameSpaceQuerySignal handle:[:ex \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9800	ns isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9801	ex reject
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9802	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9803	ex proceedWith:ns
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9804	] do:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9805	currentClass isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9806	compiler := Compiler
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9807	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9808	compiler := currentClass evaluatorClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9809	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9810
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9811	compiler
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9812	evaluate:theCode
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9813	in:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9814	receiver:currentClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9815	notifying:codeView
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9816	logged:false
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9817	ifFail:nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9818	]
1029 ad46ca1ccd38 set nameSpace for doIt's to currentClasses ns. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	9819	].
ad46ca1ccd38 set nameSpace for doIt's to currentClasses ns. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	9820
ad46ca1ccd38 set nameSpace for doIt's to currentClasses ns. Claus Gittinger <cg@exept.de> parents: 1015 diff changeset	9821	"Modified: 10.2.1997 / 14:17:15 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9822	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9823
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9824	setSearchPattern:aString
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9825	codeView setSearchPattern:aString
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9826	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9827
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9828	showExplanation:someText
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9829	"show explanation from Parser"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9830
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9831	self information:someText
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9832	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9833
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9834	showMethodCategoryList
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9835	classCategoryListView isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9836	methodCategoryListView superView extent:0.33 @ 1.0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9837	methodListView superView origin:0.66 @ 0.0 extent:0.34 @ 1.0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9838	^ self.
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9839	].
1290 e4354da51252 checkin from browser Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	9840	methodCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9841	methodCategoryListView superView extent:0.25 @ 1.0.
1290 e4354da51252 checkin from browser Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	9842	].
e4354da51252 checkin from browser Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	9843	methodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9844	methodListView superView origin:0.75 @ 0.0 extent:0.25 @ 1.0.
1290 e4354da51252 checkin from browser Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	9845	].
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9846
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9847	"Created: 30.7.1997 / 17:50:20 / cg"
1290 e4354da51252 checkin from browser Claus Gittinger <cg@exept.de> parents: 1288 diff changeset	9848	"Modified: 16.8.1997 / 03:28:23 / cg"
1260 856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9849	!
856e6e5b2668 more support for alien classes. Claus Gittinger <cg@exept.de> parents: 1259 diff changeset	9850
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9851	stringToSearchFor
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9852	"look in codeView and methodListView for a search-string when searching for classes/names"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9853
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9854	\|sel\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9855
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9856	sel := codeView selection.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9857	sel notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9858	sel := sel asString withoutSpaces
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9859	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9860	sel isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9861	currentClass notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9862	sel := currentClass name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9863	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9864	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9865	sel notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9866	sel := sel withoutSpaces
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9867	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9868	sel := ''
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9869	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9870	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9871	^ sel
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9872	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9873
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9874	warnLabel:what
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9875	"set the title for some warning"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9876
1291 6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9877	self topView label:('System Browser WARNING: ' , what)
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9878
6ea3207c5f5e prepare for being subclass of simpleView Claus Gittinger <cg@exept.de> parents: 1290 diff changeset	9879	"Modified: 18.8.1997 / 15:19:56 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9880	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9881
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9882	withBusyCursorDo:aBlock
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9883	^ self topView withWaitCursorDo:aBlock
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9884
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9885	"Created: 18.8.1997 / 15:41:52 / cg"
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9886	!
7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9887
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9888	withSearchCursorDo:aBlock
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9889	^ self topView withCursor:(Cursor questionMark) do:aBlock
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9890
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9891	"Created: 23.11.1995 / 14:11:14 / cg"
1292 7e1f3a7c65ab central busyCursor handling Claus Gittinger <cg@exept.de> parents: 1291 diff changeset	9892	"Modified: 18.8.1997 / 15:40:19 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9893	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9894
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9895	!BrowserView methodsFor:'private - defaults'!
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9896
1269 122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	9897	commentEmphasis
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	9898	^ (#color -> (Color red:0 green:0 blue:25))
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	9899
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	9900	"Created: 1.8.1997 / 12:36:14 / cg"
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	9901	!
122015faaba9 nicer colors ;-) Claus Gittinger <cg@exept.de> parents: 1268 diff changeset	9902
1134 6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9903	stopIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9904	"answer an icon to mark breakPointed methods"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9905
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9906	^ self class stopIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9907
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9908	"Modified: 7.4.1997 / 17:31:40 / cg"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9909	!
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9910
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9911	timeIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9912	"answer an icon to mark timed methods"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9913
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9914	^ self class timeIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9915
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9916	"Modified: 7.4.1997 / 17:31:40 / cg"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9917	"Created: 11.4.1997 / 17:02:55 / cg"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9918	!
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9919
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9920	traceIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9921	"answer an icon to mark traced methods"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9922
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9923	^ self class traceIcon
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9924
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9925	"Modified: 7.4.1997 / 17:32:14 / cg"
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9926	! !
6b310d81b83e nice timed-method icon Claus Gittinger <cg@exept.de> parents: 1126 diff changeset	9927
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9928	!BrowserView methodsFor:'unused'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9929
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9930	listOfAllMethodCategoriesInHierarchy:aClass
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9931	"answer a list of all method categories of the argument, aClass,
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9932	and all of its superclasses"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9933
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9934	\|newList cat\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9935
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9936	newList := Set new.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9937	self classesInHierarchy:aClass do:[:c \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9938	c methodDictionary do:[:aMethod \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9939	cat := aMethod category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9940	cat isNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9941	cat := '* no category *'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9942	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9943	newList add:cat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9944	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9945	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9946	(newList size == 0) ifTrue:[^ nil].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9947	newList add:'* all *'.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9948	^ newList asOrderedCollection sort
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9949
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	9950	"Modified: 7.6.1996 / 09:03:22 / stefan"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9951	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9952
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9953	listOfAllSelectorsInCategory:aCategory inHierarchyOfClass:aClass
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9954	"answer a list of all selectors in a given method category
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9955	of the argument, aClass and its superclasses"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9956
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9957	\|newList\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9958
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9959	newList := Set new.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9960	self classesInHierarchy:aClass do:[:c \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9961	\|searchCategory\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9962
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9963	(aCategory = '* all *') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9964	newList addAll:(c methodDictionary keys)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9965	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9966	(aCategory = '* no category *') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9967	searchCategory := nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9968	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9969	searchCategory := aCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9970	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9971	c methodDictionary keysAndValuesDo:[:selector :aMethod \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9972	(aMethod category = searchCategory) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9973	newList add:selector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9974	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9975	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9976	].
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9977	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9978	(newList size == 0) ifTrue:[^ nil].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9979	^ newList asOrderedCollection sort
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	9980
3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	9981	"Modified: 5.6.1996 / 11:42:12 / stefan"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9982	! !
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	9983
74 f2c56efa3599 Initial revision claus parents: diff changeset	9984	!BrowserView methodsFor:'variable list menu'!
f2c56efa3599 Initial revision claus parents: diff changeset	9985
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9986	allClassOrInstVarRefsTitle:title access:access mods:modifications
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9987	"show an enterbox for instVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9988
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	9989	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9990	\|box\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9991
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9992	box := self enterBoxForVariableSearch:title.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9993	box action:[:aVariableName \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9994	\|homeClass\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9995
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9996	aVariableName isEmpty ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9997	self withSearchCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9998	homeClass := self findClassOfVariable:aVariableName accessWith:access.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	9999	access == #classVarNames ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10000	SystemBrowser
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10001	browseClassRefsTo:aVariableName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10002	under:homeClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10003	modificationsOnly:modifications
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10004	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10005	SystemBrowser
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10006	browseInstRefsTo:aVariableName
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10007	under:homeClass
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10008	modificationsOnly:modifications
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10009	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10010	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10011	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10012	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10013	box showAtPointer
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10014	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10015
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10016	"Created: 23.11.1995 / 14:13:24 / cg"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10017	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10018
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10019	allClassVarMods
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10020	"show an enterbox for classVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10021
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10022	self allClassOrInstVarRefsTitle:'class variable to browse modifications of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10023	access:#classVarNames
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10024	mods:true
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10025	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10026
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10027	allClassVarRefs
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10028	"show an enterbox for classVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10029
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10030	self allClassOrInstVarRefsTitle:'class variable to browse references to:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10031	access:#classVarNames
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10032	mods:false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10033	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10034
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10035	allInstVarMods
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10036	"show an enterbox for instVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10037
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10038	self allClassOrInstVarRefsTitle:'instance variable to browse modifications of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10039	access:#instVarNames
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10040	mods:true
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10041	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10042
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10043	allInstVarRefs
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10044	"show an enterbox for instVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10045
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10046	self allClassOrInstVarRefsTitle:'instance variable to browse references to:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10047	access:#instVarNames
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10048	mods:false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10049	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10050
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10051	classVarMods
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10052	"show an enterbox for classVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10053
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10054	self classVarRefsOrModsTitle:'class variable to browse modifications of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10055	mods:true
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10056	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10057
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10058	classVarRefs
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10059	"show an enterbox for classVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10060
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10061	self classVarRefsOrModsTitle:'class variable to browse references to:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10062	mods:false
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10063	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10064
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10065	classVarRefsOrModsTitle:title mods:mods
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10066	"show an enterbox for classVar to search for"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10067
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10068	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10069	\|box\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10070
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10071	box := self enterBoxForVariableSearch:title.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10072	box action:[:aString \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10073	aString notEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10074	self withSearchCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10075	SystemBrowser
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10076	browseClassRefsTo:aString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10077	in:(Array with:currentClass)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10078	modificationsOnly:mods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10079	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10080	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10081	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10082	box showAtPointer
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10083	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10084
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10085	"Created: 23.11.1995 / 14:12:56 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	10086	!
f2c56efa3599 Initial revision claus parents: diff changeset	10087
f2c56efa3599 Initial revision claus parents: diff changeset	10088	enterBoxForVariableSearch:title
f2c56efa3599 Initial revision claus parents: diff changeset	10089	\|box sel\|
f2c56efa3599 Initial revision claus parents: diff changeset	10090
f2c56efa3599 Initial revision claus parents: diff changeset	10091	box := self enterBoxForCodeSelectionTitle:title okText:'browse'.
f2c56efa3599 Initial revision claus parents: diff changeset	10092	variableListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10093	codeView hasSelection ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10094	(sel := variableListView selectionValue) notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10095	(sel startsWith:'---') ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10096	box initialText:sel
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10097	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10098	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10099	]
74 f2c56efa3599 Initial revision claus parents: diff changeset	10100	].
f2c56efa3599 Initial revision claus parents: diff changeset	10101	^ box
f2c56efa3599 Initial revision claus parents: diff changeset	10102	!
f2c56efa3599 Initial revision claus parents: diff changeset	10103
f2c56efa3599 Initial revision claus parents: diff changeset	10104	instVarMods
f2c56efa3599 Initial revision claus parents: diff changeset	10105	"show an enterbox for instVar to search for"
f2c56efa3599 Initial revision claus parents: diff changeset	10106
f2c56efa3599 Initial revision claus parents: diff changeset	10107	self instVarRefsOrModsTitle:'instance variable to browse modifications of:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10108	mods:true
74 f2c56efa3599 Initial revision claus parents: diff changeset	10109	!
f2c56efa3599 Initial revision claus parents: diff changeset	10110
f2c56efa3599 Initial revision claus parents: diff changeset	10111	instVarRefs
f2c56efa3599 Initial revision claus parents: diff changeset	10112	"show an enterbox for instVar to search for"
f2c56efa3599 Initial revision claus parents: diff changeset	10113
f2c56efa3599 Initial revision claus parents: diff changeset	10114	self instVarRefsOrModsTitle:'instance variable to browse references to:'
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10115	mods:false
74 f2c56efa3599 Initial revision claus parents: diff changeset	10116	!
f2c56efa3599 Initial revision claus parents: diff changeset	10117
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10118	instVarRefsOrModsTitle:title mods:mods
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10119	"show an enterbox for instvar to search for"
74 f2c56efa3599 Initial revision claus parents: diff changeset	10120
f2c56efa3599 Initial revision claus parents: diff changeset	10121	self doClassMenu:[:currentClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10122	\|box\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10123
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10124	box := self enterBoxForVariableSearch:title.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10125	box action:[:aString \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10126	aString notEmpty ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10127	self withSearchCursorDo:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10128	SystemBrowser
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10129	browseInstRefsTo:aString
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10130	in:(Array with:currentClass)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10131	modificationsOnly:mods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10132	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10133	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10134	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10135	box showAtPointer
74 f2c56efa3599 Initial revision claus parents: diff changeset	10136	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10137
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10138	"Created: 23.11.1995 / 14:12:40 / cg"
93 dda97353e775 . claus parents: 92 diff changeset	10139	!
dda97353e775 . claus parents: 92 diff changeset	10140
dda97353e775 . claus parents: 92 diff changeset	10141	varTypeInfo
dda97353e775 . claus parents: 92 diff changeset	10142	"show typical usage of a variable"
dda97353e775 . claus parents: 92 diff changeset	10143
dda97353e775 . claus parents: 92 diff changeset	10144	\|name idx classes values value msg cut names instCount subInstCount box
285 8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10145	searchClass s\|
93 dda97353e775 . claus parents: 92 diff changeset	10146
dda97353e775 . claus parents: 92 diff changeset	10147	name := variableListView selectionValue.
dda97353e775 . claus parents: 92 diff changeset	10148	name isNil ifTrue:[^ self].
dda97353e775 . claus parents: 92 diff changeset	10149
285 8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10150	showInstance ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10151	searchClass := currentClass whichClassDefinesClassVar:name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10152	value := searchClass classVarAt:(name asSymbol).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10153	s := value displayString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10154	s size > 60 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10155	s := (s copyTo:60) , ' ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10156	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10157	msg := name , ' is (currently):\\' , s.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10158	s ~= value classNameWithArticle ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10159	msg := msg , '\\(' , value class name , ')'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10160	]
285 8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10161	] ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10162	searchClass := actualClass whichClassDefinesInstVar:name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10163
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10164	idx := searchClass instVarOffsetOf:name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10165	idx isNil ifTrue:[^ self].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10166
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10167	classes := IdentitySet new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10168	values := IdentitySet new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10169	instCount := 0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10170	subInstCount := 0.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10171	searchClass allSubInstancesDo:[:i \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10172	\|val\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10173
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10174	val := i instVarAt:idx.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10175	val notNil ifTrue:[values add:val].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10176	classes add:val class.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10177	(i isMemberOf:searchClass) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10178	instCount := instCount + 1.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10179	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10180	subInstCount := subInstCount + 1
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10181	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10182	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10183	(instCount == 0 and:[subInstCount == 0]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10184	self warn:'there are currently no instances of ' , currentClass name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10185	^ self
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10186	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10187
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10188	instCount ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10189	msg := 'in (currently: ' , instCount printString,') instances '.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10190	subInstCount ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10191	msg := msg , 'and '
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10192	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10193	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10194	msg := 'in '.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10195	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10196	subInstCount ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10197	msg := msg , '(currently: ' , subInstCount printString, ') derived instances '
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10198	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10199	msg := msg, 'of ' , searchClass name , ',\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10200	msg := msg , name , ' '.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10201	((values size == 1)
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10202	or:[classes size == 1 and:[classes first == UndefinedObject]]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10203	values size == 1 ifTrue:[value := values first].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10204	(value isNumber or:[value isString]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10205	msg := msg , 'is always the same:\\ ' ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10206	value class name , ' (' , value storeString , ')'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10207	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10208	(value isNil or:[value == true or:[value == false]]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10209	msg := msg , 'is always:\\ ' ,
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10210	value printString.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10211	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10212	msg := msg , 'is always the same:\\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10213	msg := msg , ' ' , value class name.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10214	value isLiteral ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10215	msg := msg , ' (' , value storeString , ')'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10216	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10217	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10218	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10219	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10220	classes size == 1 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10221	msg := msg , 'is always:\\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10222	msg := msg , ' ' , classes first name , '\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10223	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10224	msg := msg , 'is one of:\\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10225	classes := classes asOrderedCollection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10226	classes size > 20 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10227	classes := classes copyFrom:1 to:20.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10228	cut := true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10229	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10230	cut := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10231	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10232	names := classes collect:[:cls \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10233	\|nm\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10234	cls == UndefinedObject ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10235	'nil'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10236	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10237	cls == True ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10238	'true'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10239	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10240	cls == False ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10241	'false'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10242	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10243	cls name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10244	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10245	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10246	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10247	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10248	names sort.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10249	names do:[:nm \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10250	msg := msg , ' ' , nm , '\'.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10251	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10252	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10253	].
93 dda97353e775 . claus parents: 92 diff changeset	10254	].
dda97353e775 . claus parents: 92 diff changeset	10255
dda97353e775 . claus parents: 92 diff changeset	10256	box := InfoBox title:msg withCRs.
dda97353e775 . claus parents: 92 diff changeset	10257	box label:'variable type information'.
dda97353e775 . claus parents: 92 diff changeset	10258	box showAtPointer
285 8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10259
8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10260	"Modified: 13.12.1995 / 12:59:03 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10261	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10262
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10263	variableListMenu
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10264	\|labels selectors m\|
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10265
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10266	currentClass isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10267	variableListView flash.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10268	^ nil
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10269	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10270
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10271	labels := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10272	'instvar refs ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10273	'classvar refs ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10274	'all instvar refs ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10275	'all classvar refs ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10276	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10277	'instvar mods ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10278	'classvar mods ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10279	'all instvar mods ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10280	'all classvar mods ...'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10281	).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10282	selectors := #(
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10283	instVarRefs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10284	classVarRefs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10285	allInstVarRefs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10286	allClassVarRefs
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10287	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10288	instVarMods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10289	classVarMods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10290	allInstVarMods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10291	allClassVarMods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10292	).
285 8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10293
8a64105d4ba0 typeinfo also for classVariables Claus Gittinger <cg@exept.de> parents: 284 diff changeset	10294	("showInstance and:[" variableListView hasSelection "]" ) ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10295	labels := labels , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10296	'-'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10297	'type information'
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10298	).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10299	selectors := selectors , #(
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10300	nil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10301	varTypeInfo
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10302	).
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10303	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10304
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10305	m := PopUpMenu labels:(resources array:labels)
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10306	selectors:selectors.
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10307
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10308	currentClass isLoaded ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10309	m disableAll
894 8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10310	].
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10311	^ m
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10312
8efe0f142f40 keep class when switching namespaces Claus Gittinger <cg@exept.de> parents: 892 diff changeset	10313	"Modified: 3.1.1997 / 11:57:27 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10314	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10315
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10316	variableSelection:lineNr
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10317	"variable selection changed"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10318
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10319	\|name idx\|
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10320
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10321	name := variableListView selectionValue.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10322	name isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10323	self unhilightMethodCategories.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10324	self unhilightMethods.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10325	self autoSearch:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10326	^ self
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10327	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10328
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10329	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10330	first, check if the selected variable is really the one
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10331	we get - reselect if its hidden (for example, a class variable
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10332	with the same name could be defined in a subclass)
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10333	"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10334	idx := variableListView list findLast:[:entry \| entry = name].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10335	idx ~~ lineNr ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10336	"select it - user will see whats going on"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10337	variableListView setSelection:idx
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10338	].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10339
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10340	"search for methods in the current category, which access the selected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10341	variable, and highlight them"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10342
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10343	self hilightMethodsInMethodCategoryList:true inMethodList:true.
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10344	self autoSearch:name.
561 a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	10345
a2e208a1f0d2 #selection: now does a notification / #setSelection: does not Claus Gittinger <cg@exept.de> parents: 559 diff changeset	10346	"Modified: 25.5.1996 / 12:26:07 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	10347	! !
f2c56efa3599 Initial revision claus parents: diff changeset	10348
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10349	!BrowserView methodsFor:'variable stuff'!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10350
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10351	hilightEntryFor:entry
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10352	"helper; given a list itme, highlight it"
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10353
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10354	\|e\|
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10355
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10356	methodCategoryListView font bold ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10357	"/ already bold; use different color then
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10358	methodCategoryListView foregroundColor brightness > 0.5 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10359	methodCategoryListView backgroundColor brightness < 0.25 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10360	e := #color->Color blue
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10361	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10362	e := #color->Color black
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10363	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10364	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10365	methodCategoryListView backgroundColor brightness > 0.75 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10366	e := #color->Color red darkened
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10367	] ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10368	e := #color->Color white.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10369	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10370	]
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10371	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10372	e := #bold.
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10373	].
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10374
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10375	entry isString ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10376	^ entry asText emphasizeAllWith:e.
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10377	].
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10378	^ entry copy string:(entry string asText emphasizeAllWith:e)
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10379
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10380	"Created: 22.10.1996 / 23:36:59 / cg"
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10381	"Modified: 22.10.1996 / 23:50:03 / cg"
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10382	!
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10383
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10384	hilightMethodsInMethodCategoryList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10385	"search for methods which access the selected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10386	variable, and highlight them"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10387
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10388	self hilightMethodsInMethodCategoryList:true inMethodList:false
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10389
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10390
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10391
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10392	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10393
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10394	hilightMethodsInMethodCategoryList:inCat inMethodList:inMethods
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10395	"search for methods which access the selected
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10396	variable, and highlight them"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10397
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10398	\|name redefinedSelectors methodList methodCategoryList entry\|
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10399
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10400	variableListView isNil ifTrue:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10401
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10402	inCat ifTrue:[self unhilightMethodCategories].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10403	inMethods ifTrue:[self unhilightMethods].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10404
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10405	actualClass isNil ifTrue:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10406	(methodCategoryListView isNil
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10407	and:[methodListView isNil]) ifTrue:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10408
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10409	name := variableListView selectionValue.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10410	name isNil ifTrue:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10411
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10412	self withSearchCursorDo:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10413	\|classes filter any supers\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10414
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10415	classes := Array with:actualClass.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10416	(currentClassHierarchy notNil and:[fullProtocol]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10417	supers := actualClass allSuperclasses.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10418	supers notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10419	classes := classes , supers.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10420	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10421	redefinedSelectors := IdentitySet new.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10422	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10423
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10424	filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10425
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10426	methodListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10427	methodList := methodListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10428	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10429	methodCategoryListView notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10430	methodCategoryList := methodCategoryListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10431	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10432
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10433	any := false.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10434
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10435	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10436	highlight the method that ref this variable
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10437	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10438	classes do:[:someClass \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10439	(fullProtocol
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10440	and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10441	someClass methodDictionary keysAndValuesDo:[:selector :method \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10442	(inCat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10443	or:[methodList notNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10444	and:[methodList includes:selector]])
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10445	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10446	(redefinedSelectors isNil
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10447	or:[(redefinedSelectors includes:selector) not])
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10448	ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10449	(filter value:someClass value:method value:selector) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10450	\|idx cat\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10451
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10452	(inCat
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10453	and:[methodCategoryList notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10454	cat := method category.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10455	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10456	highlight the methodCategory
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10457	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10458	idx := methodCategoryListView list indexOf:cat.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10459	idx ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10460	entry := methodCategoryListView at:idx.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10461	entry := self hilightEntryFor:entry.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10462	methodCategoryListView at:idx put:entry
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10463	"/ methodCategoryListView attributeAt:idx put:#bold.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10464	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10465	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10466
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10467	(inMethods
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10468	and:[methodList notNil]) ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10469	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10470	highlight the method
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10471	"
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10472	idx := methodListView list
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10473	findFirst:[:item \| item string = selector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10474	or:[item string startsWith:(selector , ' ')]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10475	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10476	idx ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10477	entry := methodListView at:idx.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10478	entry := self hilightEntryFor:entry.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10479	methodListView at:idx put:entry
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10480	"/ methodListView attributeAt:idx put:#bold.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10481	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10482	any := true
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10483	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10484	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10485	redefinedSelectors notNil ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10486	redefinedSelectors add:selector
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10487	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10488	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10489	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10490	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10491	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10492	].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10493	any ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10494	self setSearchPattern:name
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10495	]
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10496	]
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10497
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10498	"Created: 23.11.1995 / 14:12:08 / cg"
620 3ce270dbff3b Use methodDictionary instead of selector/method arrays. Stefan Vogel <sv@exept.de> parents: 611 diff changeset	10499	"Modified: 5.6.1996 / 11:38:19 / stefan"
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10500	"Modified: 22.10.1996 / 23:37:25 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10501	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10502
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10503	hilightMethodsInMethodList
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10504	"search for methods which access the selected
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10505	variable, and highlight them"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10506
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10507	self hilightMethodsInMethodCategoryList:false inMethodList:true
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10508
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10509
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10510
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10511	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10512
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10513	unhilightEntryFor:entry
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10514	"helper; given a list itme, unhighlight it"
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10515
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10516	entry isString ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10517	^ entry string
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10518	].
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10519	^ entry copy string:(entry string)
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10520
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10521	"Created: 22.10.1996 / 23:38:21 / cg"
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10522	!
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10523
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10524	unhilightMethodCategories
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10525	"unhighlight items in method list"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10526
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10527	\|list entry sz "{ Class: SmallInteger }"\|
d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10528
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10529	variableListView isNil ifTrue:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10530
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10531	methodCategoryListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10532	list := methodCategoryListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10533	sz := list size.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10534	1 to:sz do:[:idx \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10535	entry := list at:idx.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10536	entry := self unhilightEntryFor:entry.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10537	methodCategoryListView at:idx put:entry.
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10538	"/ methodCategoryListView attributeAt:idx put:nil.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10539	]
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10540	].
ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10541
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10542	"Modified: 22.10.1996 / 23:40:52 / cg"
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10543	!
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10544
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10545	unhilightMethods
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10546	"unhighlight items in method list"
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10547
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10548	\|list entry sz "{Class: SmallInteger }" \|
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10549
199 821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10550	variableListView isNil ifTrue:[^ self].
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10551
821e07871f4f superSend-search added; remember last class-aspect Claus Gittinger <cg@exept.de> parents: 197 diff changeset	10552	methodListView notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10553	list := methodListView list.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10554	sz := list size.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10555	1 to:sz do:[:idx \|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10556	entry := list at:idx.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10557	entry := self unhilightEntryFor:entry.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10558	methodListView at:idx put:entry.
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10559
ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10560	"/ methodListView attributeAt:idx put:nil.
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10561	].
791 ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10562	].
ed22bea001e8 nice trap/break marks Claus Gittinger <cg@exept.de> parents: 768 diff changeset	10563
797 d0061c784af8 care for bold-font-views when boldifying Claus Gittinger <cg@exept.de> parents: 795 diff changeset	10564	"Modified: 22.10.1996 / 23:39:18 / cg"
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10565	!
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10566
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10567	updateVariableList
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10568	\|l subList last nameAccessSelector class oldSelection\|
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10569
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10570	variableListView isNil ifTrue:[^ self].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10571
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10572	oldSelection := variableListView selectionValue.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10573
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10574	l := OrderedCollection new.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10575	"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10576	show classVars, if classProtocol is shown (instead of classInstance vars)
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10577	"
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10578	showInstance ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10579	nameAccessSelector := #instVarNames
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10580	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10581	nameAccessSelector := #classVarNames
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10582	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10583
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10584	"/ class := currentClass notNil ifTrue:[currentClass] ifFalse:[actualClass].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10585	"/ class isNil ifTrue:[class := currentClassHierarchy].
572 0ee9fbf0e535 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	10586
0ee9fbf0e535 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	10587	class := currentClassHierarchy notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10588	currentClassHierarchy
572 0ee9fbf0e535 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	10589	] ifFalse:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10590	currentClass
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10591	].
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10592	class := currentClass.
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10593	fullProtocol ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10594	class := currentClassHierarchy
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10595	].
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10596
11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10597	class isNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10598	variableListView list:nil.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10599	^ self
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10600	].
572 0ee9fbf0e535 checkin from browser Claus Gittinger <cg@exept.de> parents: 571 diff changeset	10601
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10602	class withAllSuperclasses do:[:aClass \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10603	\|ignore\|
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10604
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10605	ignore := fullProtocol
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10606	and:[classListView valueIsInSelection:(aClass name asString)].
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10607	ignore ifFalse:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10608	subList := aClass perform:nameAccessSelector.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10609	subList size ~~ 0 ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10610	l := l , (subList asOrderedCollection reverse).
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10611	l := l , (OrderedCollection with:'---- ' , aClass name , ' ---------').
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10612	]
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10613	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10614	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10615	l reverse.
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10616	variableListView setAttributes:nil.
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	10617	l ~= variableListView list ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10618	variableListView list:l.
609 99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	10619	].
99cdf593410c fixed fullProtocol method display when superclass gets striked-out Claus Gittinger <cg@exept.de> parents: 607 diff changeset	10620
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10621	l keysAndValuesDo:[:index :entry \|
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10622	(entry startsWith:'---') ifTrue:[
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10623	variableListView attributeAt:index put:#disabled.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10624	last := index
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10625	]
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10626	].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10627	last notNil ifTrue:[variableListView scrollToLine:last].
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10628
54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10629	oldSelection notNil ifTrue:[
1330 2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10630	variableListView setSelectElement:oldSelection.
2d8c64367afc * empty log message * Claus Gittinger <cg@exept.de> parents: 1316 diff changeset	10631	self hilightMethodsInMethodCategoryList:true inMethodList:true.
149 54ab1ea8dc12 change classes versionString when class changes (prepare for sourceCode system) Claus Gittinger <cg@exept.de> parents: 142 diff changeset	10632	]
569 0b86821dc11a checkin from browser Claus Gittinger <cg@exept.de> parents: 567 diff changeset	10633
814 11abf716717e checkin from browser Claus Gittinger <cg@exept.de> parents: 813 diff changeset	10634	"Modified: 27.10.1996 / 15:48:02 / cg"
74 f2c56efa3599 Initial revision claus parents: diff changeset	10635	! !
f2c56efa3599 Initial revision claus parents: diff changeset	10636
759 8d667c66af50 checkin from browser Claus Gittinger <cg@exept.de> parents: 758 diff changeset	10637	!BrowserView class methodsFor:'documentation'!
201 3331e9abc9f0 more features & checkin from browser Claus Gittinger <cg@exept.de> parents: 199 diff changeset	10638
3331e9abc9f0 more features & checkin from browser Claus Gittinger <cg@exept.de> parents: 199 diff changeset	10639	version
1344 b85865124251 added fileOutAs in class category menu (for tz) Claus Gittinger <cg@exept.de> parents: 1342 diff changeset	10640	^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.342 1997-10-11 15:50:36 cg Exp $'
263 7b9622ce4fcc more protocol to create containers for new classes Claus Gittinger <cg@exept.de> parents: 261 diff changeset	10641	! !
74 f2c56efa3599 Initial revision claus parents: diff changeset	10642	BrowserView initialize!

author	Claus Gittinger <cg@exept.de>
	Sat, 11 Oct 1997 17:50:36 +0200
changeset 1344	b85865124251
parent 1342	f0101f5528ec
child 1345	767926e950e1
permissions	-rw-r--r--