hg/stx-libtool: SystemBrowser.st@a8195f61d4f2 (annotated)

36 ccde5a941840 * empty log message * claus parents: diff changeset	1	"
ccde5a941840 * empty log message * claus parents: diff changeset	2	COPYRIGHT (c) 1989 by Claus Gittinger
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3	All Rights Reserved
36 ccde5a941840 * empty log message * claus parents: diff changeset	4
ccde5a941840 * empty log message * claus parents: diff changeset	5	This software is furnished under a license and may be used
ccde5a941840 * empty log message * claus parents: diff changeset	6	only in accordance with the terms of that license and with the
ccde5a941840 * empty log message * claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
ccde5a941840 * empty log message * claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
ccde5a941840 * empty log message * claus parents: diff changeset	9	other person. No title to or ownership of the software is
ccde5a941840 * empty log message * claus parents: diff changeset	10	hereby transferred.
ccde5a941840 * empty log message * claus parents: diff changeset	11	"
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	12	"{ Package: 'stx:libtool' }"
9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	13
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	14	ApplicationModel subclass:#SystemBrowser
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	15	instanceVariableNames:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	16	classVariableNames:'CheckForInstancesWhenRemovingClasses ClassHistory
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	17	EmphasisForDifferentPackage EmphasisForModifiedBuffer
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	18	EmphasisForObsoleteCode EmphasisForReadVariable
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	19	EmphasisForWrittenVariable EmphasisForChangedCode
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	20	LastSearchPatterns LastClassSearchBoxShowedFullName'
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	21	poolDictionaries:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	22	category:'Interface-Browsers'
36 ccde5a941840 * empty log message * claus parents: diff changeset	23	!
ccde5a941840 * empty log message * claus parents: diff changeset	24
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	25	Object subclass:#BrowserHistoryEntry
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	26	instanceVariableNames:'className meta selector'
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	27	classVariableNames:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	28	poolDictionaries:''
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	29	privateIn:SystemBrowser
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	30	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	31
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	32	!SystemBrowser class methodsFor:'documentation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	33
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	34	copyright
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	35	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	36	COPYRIGHT (c) 1989 by Claus Gittinger
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	37	All Rights Reserved
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	38
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	39	This software is furnished under a license and may be used
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	40	only in accordance with the terms of that license and with the
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	41	inclusion of the above copyright notice. This software may not
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	42	be provided or otherwise made available to, or used by, any
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	43	other person. No title to or ownership of the software is
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	44	hereby transferred.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	45	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	46	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	47
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	48	documentation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	49	"
8893 27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	50	Notice: SystemBrowser has been completely rewritten to be an instance
8894 73a8f5f943aa changed: #documentation Claus Gittinger <cg@exept.de> parents: 8893 diff changeset	51	of ApplicationModel. This rewritten version is found under NewSystemBrowser.
8893 27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	52	Because the class protocol here was used by many others, it is left here
27e01498c25b changed: #documentation Claus Gittinger <cg@exept.de> parents: 8877 diff changeset	53	as an instance-less functionality provider only.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	54
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	55	written winter 89 by claus.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	56
508 8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	57	[author:]
8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	58	Claus Gittinger
8d2ab732fca5 documentation Claus Gittinger <cg@exept.de> parents: 504 diff changeset	59
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	60	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	61	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	62
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	63	!SystemBrowser class methodsFor:'initialization'!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	64
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	65	initialize
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	66	"Browser configuration;
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	67	(values can be changed from your private startup file)"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	68
254 8258536e5bcf * empty log message * Claus Gittinger <cg@exept.de> parents: 215 diff changeset	69	"/ self classResources.
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	70
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	71	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	72	setting this to false, the removeClass function will remove
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	73	classes WITHOUT checking for instances. Otherwise,
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	74	it will check and let you confirm in case there are instances.
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	75	Checking for instances may be a bit time consuming, though.
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	76	The default is true - therefore, it will check
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	77	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	78	CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	79
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	80	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	81	CheckForInstancesWhenRemovingClasses := true
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	82	CheckForInstancesWhenRemovingClasses := false
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	83
85 d9713a3ca092 * empty log message * claus parents: 77 diff changeset	84	SystemBrowser initialize
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	85	"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	86	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	87
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	88	!SystemBrowser class methodsFor:'instance creation'!
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	89
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	90	open
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	91	"launch a standard browser"
f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	92
2631 bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	93	self == SystemBrowser ifFalse:[
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	94	^ super open
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	95	].
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	96
105 520f37755229 . claus parents: 100 diff changeset	97	^ self openOnDevice:(Screen current)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	98
93 dda97353e775 . claus parents: 90 diff changeset	99	"
dda97353e775 . claus parents: 90 diff changeset	100	SystemBrowser open
dda97353e775 . claus parents: 90 diff changeset	101	"
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	102	!
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	103
523 db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	104	openInClass:aClass
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	105	"launch a standard browser which immediately switches
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	106	to aClass"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	107
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	108	^ self openInClass:aClass selector:nil
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	109
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	110	"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	111	SystemBrowser openInClass:Object
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	112	"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	113
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	114	"Created: 30.4.1996 / 14:43:45 / cg"
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	115	!
db2c1ad12524 checkin from browser Claus Gittinger <cg@exept.de> parents: 508 diff changeset	116
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	117	openInClass:aClass selector:aSelector
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	118	"launch a standard browser which immediately switches
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	119	to aClass>>aSelector."
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	120
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	121	\|brwsr classesName\|
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	122
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	123	brwsr := self openOnDevice:(Screen current).
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	124	brwsr waitUntilVisible.
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	125
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	126	aClass notNil ifTrue:[
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	127	"/ cls := aClass.
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	128	"/ cls isMeta ifTrue:[
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	129	"/ cls := aClass soleInstance
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	130	"/ ].
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	131	aClass isMeta ifTrue:[
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	132	brwsr instanceProtocol:false
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	133	].
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	134	aClass isJavaClass ifTrue:[
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	135	classesName := aClass fullName.
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	136	] ifFalse:[
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	137	classesName := aClass name.
1931 03de5c5f4402 care for javaClass in #openInClass:selector: Claus Gittinger <cg@exept.de> parents: 1919 diff changeset	138	].
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	139	brwsr switchToClassNamed:classesName.
1681 b209bdfbf762 checkin from browser Claus Gittinger <cg@exept.de> parents: 1620 diff changeset	140	brwsr classSelectionChanged.
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	141	aSelector notNil ifTrue:[
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	142	brwsr switchToMethodNamed:aSelector.
102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	143	]
194 93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	144	].
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	145	^ brwsr
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	146
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	147	"
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	148	SystemBrowser openInClass:Object selector:#at:put:
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	149	SystemBrowser openInClass:Object selector:nil
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	150	SystemBrowser openInClass:nil selector:nil
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	151	"
93155825c7a0 added openInClass:selector: Claus Gittinger <cg@exept.de> parents: 165 diff changeset	152
1561 102b90f99e58 avoid double-redraw Claus Gittinger <cg@exept.de> parents: 1367 diff changeset	153	"Created: / 22.11.1995 / 21:04:50 / cg"
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	154	"Modified: / 5.11.2001 / 16:51:02 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	155	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	156
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	157	openOn:anEnvironment
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	158	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	159	openOn:anEnvironment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	160	label:(self classResources string:'System Browser')
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	161
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	162	"
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	163	SystemBrowser openOn:Smalltalk
3589 f38e59e3ab76 * empty log message * Claus Gittinger <cg@exept.de> parents: 3588 diff changeset	164	SystemBrowser openOn:Demos
3588 3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	165	"
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	166	!
3a8e5e30a92a * empty log message * Claus Gittinger <cg@exept.de> parents: 3573 diff changeset	167
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	168	openOn:aClassEnvironment label:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	169	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	170	openOn:aClassEnvironment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	171	label:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	172	onDevice:(Screen current)
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	173	!
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	174
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	175	openOn:aClassEnvironment label:title onDevice:aDisplayDevice
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	176	\|browser\|
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	177
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	178	browser := self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	179	newWithLabel:title
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	180	setupBlock:[:browser \| browser environment:aClassEnvironment.
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	181	browser setupForAll]
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	182	onDevice:aDisplayDevice.
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	183	^ browser
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	184	!
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	185
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	186	openOnDevice:aDisplay
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	187	"launch a standard browser on another display."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	188
2631 bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	189	self == SystemBrowser ifFalse:[
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	190	^ super openOnDevice:aDisplay
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	191	].
bd18074649ed * empty log message * Claus Gittinger <cg@exept.de> parents: 2623 diff changeset	192
3519 0fef57de776a checkin from browser Claus Gittinger <cg@exept.de> parents: 3476 diff changeset	193	^ self
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	194	openOn:Smalltalk
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	195	label:(self classResources string:'System Browser')
3519 0fef57de776a checkin from browser Claus Gittinger <cg@exept.de> parents: 3476 diff changeset	196	onDevice:aDisplay
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	197
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	198	"\|d\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	199
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	200	d := XWorkstation new initializeFor:'porty:0'.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	201	d startDispatch.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	202	SystemBrowser openOnDevice:d
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	203	"
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	204	!
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	205
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	206	openOnRemoteImageOnHost:aHostName port:portOrNil
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	207	\|environment\|
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	208
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	209	environment := RemoteImage onHost:aHostName port:portOrNil.
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	210	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	211	openOn:environment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	212	label:(self classResources string:'RemoteImage Browser - %1' with:aHostName)
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	213
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	214	"
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	215	SystemBrowser openOnRemoteImageOnHost:'funkfix' port:nil
7998 0c63e8647d1f comment Claus Gittinger <cg@exept.de> parents: 7992 diff changeset	216	SystemBrowser openOnRemoteImageOnHost:'192.168.8.1' port:nil
3573 cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	217	"
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	218	!
cc8a6cf4520a + openOnRemoteImage Claus Gittinger <cg@exept.de> parents: 3549 diff changeset	219
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	220	openOnSnapShotImage:anImageFileName
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	221	\|environment\|
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	222
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	223	environment := SnapShotImage for:anImageFileName.
4921 cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	224	^ self
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	225	openOn:environment
cd47f919e8f9 openOn: protocols Claus Gittinger <cg@exept.de> parents: 4909 diff changeset	226	label:(self classResources string:'Image Browser - %1' with:anImageFileName asFilename baseName)
2818 27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	227
27ff722f6c45 checkin from browser Claus Gittinger <cg@exept.de> parents: 2813 diff changeset	228	"
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	229	SystemBrowser openOnSnapShotImage:('/tmp/stmeas.img')
2824 85795055a3bf * empty log message * Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	230	"
85795055a3bf * empty log message * Claus Gittinger <cg@exept.de> parents: 2822 diff changeset	231	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	232
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	233	!SystemBrowser class methodsFor:'Compatibility-ST80'!
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	234
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	235	newOnClass:aClass
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	236	^ self browseClass:aClass
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	237
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	238	"Created: / 27.10.1997 / 20:10:39 / cg"
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	239	! !
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	240
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	241	!SystemBrowser class methodsFor:'accessing-history'!
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	242
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	243	addToHistory:aClass selector:aSelectorOrNil
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	244	\|newEntry oldEntry classHistory\|
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	245
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	246	(newEntry := self historyEntryForClass:aClass selector:aSelectorOrNil) isNil ifTrue:[^ self].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	247	classHistory := self classHistory.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	248
10173 ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	249	oldEntry := classHistory detect:[:entry \| (entry className = newEntry className)
ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	250	"and:[entry selector = newEntry selector]"] ifNone:nil.
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	251	oldEntry notNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	252	classHistory removeIdentical:oldEntry.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	253	].
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	254	classHistory addFirst:newEntry.
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	255	classHistory size > self visitedHistoryMaxSize ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	256	classHistory removeLast
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	257	].
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	258	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	259
10173 ed7cc5e574cb comment/format in: #addToHistory:selector: Claus Gittinger <cg@exept.de> parents: 10048 diff changeset	260	"Modified: / 05-07-2011 / 16:49:57 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	261	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	262
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	263	checkClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	264	"checks the class history for non-existing classes"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	265
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	266	"/ reverse, since we might modify while enumerating
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	267	self classHistory reverseDo:[:histEntry\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	268	(Smalltalk at: (histEntry className) asSymbol) isBehavior
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	269	ifFalse:[
10346 560fea0fd857 changed: #checkClassHistory Claus Gittinger <cg@exept.de> parents: 10327 diff changeset	270	self classHistory removeIdentical: histEntry
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	271	]
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	272	]
10346 560fea0fd857 changed: #checkClassHistory Claus Gittinger <cg@exept.de> parents: 10327 diff changeset	273
560fea0fd857 changed: #checkClassHistory Claus Gittinger <cg@exept.de> parents: 10327 diff changeset	274	"Modified: / 20-07-2011 / 11:59:22 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	275	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	276
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	277	classHistory
3679 102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	278	ClassHistory isNil ifTrue:[
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	279	ClassHistory := List new
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	280	].
102d85a9efbc * empty log message * Claus Gittinger <cg@exept.de> parents: 3675 diff changeset	281	^ ClassHistory
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	282	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	283
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	284	classHistory:newCollection
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	285	ClassHistory := newCollection
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	286	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	287
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	288	emptyClassHistory
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	289	"removes all class history entries"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	290
7524 0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	291	\|classHistory\|
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	292
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	293	classHistory := self classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	294	classHistory removeAll.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	295	SystemBrowser changed:#visitedClassHistory with:classHistory.
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	296
0257265ae6b7 do not make dependent on the history-list; Claus Gittinger <cg@exept.de> parents: 7395 diff changeset	297	"Modified: / 20-11-2006 / 12:29:42 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	298	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	299
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	300	historyEntryForClass:aClass selector:aSelectorOrNil
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	301	\|newEntry meta cls\|
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	302
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	303	aClass isBehavior ifFalse:[^ nil].
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	304
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	305	(meta := aClass isMeta) ifTrue:[
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	306	cls := aClass theNonMetaclass.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	307	] ifFalse:[
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	308	cls := aClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	309	].
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	310	newEntry := BrowserHistoryEntry new.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	311	newEntry
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	312	className:cls name
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	313	meta:meta
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	314	selector:aSelectorOrNil.
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	315	^ newEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	316
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	317	"Modified: / 24.2.2000 / 18:03:52 / cg"
9189 9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	318	!
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	319
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	320	lastSearchPatterns
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	321	^ LastSearchPatterns
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	322	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	323
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	324	rememberSearchPattern:aString
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	325	LastSearchPatterns isNil ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	326	LastSearchPatterns := OrderedCollection new.
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	327	].
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	328	(LastSearchPatterns includes:aString) ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	329	LastSearchPatterns remove:aString.
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	330	] ifFalse:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	331	LastSearchPatterns size > 20 ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	332	LastSearchPatterns removeFirst
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	333	]
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	334	].
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	335	LastSearchPatterns addFirst:aString.
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	336
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	337	"Modified: / 24-11-2010 / 12:51:31 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	338	"Created: / 14-02-2012 / 14:00:24 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	339	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	340
9189 9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	341	visitedClassNamesHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	342	^ self classHistory
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	343	collect:[:e \| e className]
9f57319e21ca added: #visitedClassNamesHistory Claus Gittinger <cg@exept.de> parents: 9157 diff changeset	344	thenSelect:[:nm \| nm notEmptyOrNil]
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	345
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	346	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	347	Tools::NewSystemBrowser visitedClassNamesHistory
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	348	"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	349	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	350
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	351	!SystemBrowser class methodsFor:'defaults'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	352
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	353	classHistoryMaxLevels
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	354	^ 3
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	355	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	356
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	357	classHistoryMaxSize
12954 bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	358	"returns maximum size of the visited class history"
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	359
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	360	Screen current height < 768 ifTrue:[
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	361	^ 15
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	362	].
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	363	^ 20 "/ 15
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	364
bb8d0ae1c21d class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12866 diff changeset	365	"Modified: / 10.2.2000 / 14:07:07 / cg"
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	366	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	367
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	368	methodTemplate
8877 bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	369	"return a method definition template string or nil"
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	370
bb432153d321 changed: #methodTemplate Claus Gittinger <cg@exept.de> parents: 8862 diff changeset	371	^ SmalltalkLanguage instance methodTemplate
3549 056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	372	!
056bd76b5b0a * empty log message * Claus Gittinger <cg@exept.de> parents: 3519 diff changeset	373
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	374	visitedHistoryMaxSize
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	375	"the maximum number of remembered visited-class-history entries"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	376
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	377	^ 15
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	378	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	379
4909 e6b77dc6942e category Claus Gittinger <cg@exept.de> parents: 4860 diff changeset	380	!SystemBrowser class methodsFor:'defaults-presentation'!
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	381
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	382	emphasisForChangedCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	383	^ UserPreferences current emphasisForChangedCode.
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	384
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	385	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	386	EmphasisForChangedCode := #underwave
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	387	EmphasisForChangedCode := #color->Color blue
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	388	EmphasisForChangedCode := #color->Color red lightened lightened lightened
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	389	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	390
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	391	"Created: / 31.10.2001 / 10:15:33 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	392	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	393
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	394	emphasisForChangedCode:anEmphasis
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	395	EmphasisForChangedCode := anEmphasis
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	396
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	397	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	398	self emphasisForChangedCode:#underwave
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	399	self emphasisForChangedCode:(#color->Color red lightened lightened lightened)
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	400	"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	401
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	402	"Created: / 31.10.2001 / 10:15:44 / cg"
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	403	!
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	404
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	405	emphasisForDifferentPackage
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	406	^ UserPreferences current emphasisForDifferentPackage.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	407
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	408	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	409	EmphasisForDifferentPackage := nil.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	410	EmphasisForDifferentPackage := #underwave
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	411	EmphasisForDifferentPackage := #color->Color red lightened lightened lightened
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	412	"
3352 fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	413
fd047f6a8c9f +empForChangedCode Claus Gittinger <cg@exept.de> parents: 3314 diff changeset	414	"Modified: / 31.10.2001 / 10:47:25 / cg"
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	415	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	416
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	417	emphasisForDifferentPackage:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	418	EmphasisForDifferentPackage := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	419
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	420	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	421	self emphasisForDifferentPackage:#underwave
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	422	self emphasisForDifferentPackage:(#color->Color red lightened lightened lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	423	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	424	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	425
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	426	emphasisForModifiedBuffer
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	427	^ UserPreferences current emphasisForModifiedBuffer.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	428	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	429
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	430	emphasisForModifiedBuffer:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	431	EmphasisForModifiedBuffer := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	432	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	433
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	434	emphasisForObsoleteCode
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	435	^ UserPreferences current emphasisForObsoleteCode.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	436	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	437
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	438	emphasisForObsoleteCode:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	439	EmphasisForObsoleteCode := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	440	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	441
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	442	emphasisForReadVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	443	^ UserPreferences current emphasisForReadVariable.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	444
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	445	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	446	EmphasisForReadVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	447	EmphasisForReadVariable := Array with:#underline with:#underlineColor->Color yellow
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	448	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	449	!
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	450
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	451	emphasisForReadVariable:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	452	EmphasisForReadVariable := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	453
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	454	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	455	self emphasisForReadVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	456	self emphasisForReadVariable:(Array with:#underline with:#underlineColor->Color yellow)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	457	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	458	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	459
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	460	emphasisForWrittenVariable
4499 395d7282b2f0 emphasis stuff Claus Gittinger <cg@exept.de> parents: 4490 diff changeset	461	^ UserPreferences current emphasisForWrittenVariable.
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	462
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	463	"
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	464	EmphasisForWrittenVariable := #underline
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	465	EmphasisForWrittenVariable := Array with:#underline with:#underlineColor->Color red lightened
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	466	"
3241 caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	467	!
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	468
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	469	emphasisForWrittenVariable:anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	470	EmphasisForWrittenVariable := anEmphasis
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	471
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	472	"
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	473	self emphasisForWrittenVariable:#underline
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	474	self emphasisForWrittenVariable:(Array with:#underline with:#underlineColor->Color red lightened)
caf04eb8c500 checkin from browser Claus Gittinger <cg@exept.de> parents: 3240 diff changeset	475	"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	476	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	477
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	478	iconForClass:aClass
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	479	"now ask the class for its browser symbol; thats a key/selector in the
287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	480	ToolbarIconLibrary"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	481
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	482	aClass withAllSuperclassesDo:[:eachCls \|
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	483	\| iconSymbol \|
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	484
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	485	iconSymbol := eachCls iconInBrowserSymbol.
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	486	iconSymbol notNil ifTrue:[
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	487	^ ToolbarIconLibrary perform:iconSymbol
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	488	].
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	489	].
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	490
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	491	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	492
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	493	"Created: / 17-08-2006 / 09:11:27 / cg"
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	494	"Modified: / 20-07-2007 / 09:01:43 / cg"
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	495	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	496
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	497	resourceIconForMethod:aMethod
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	498	\|resources\|
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	499
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	500	(resources := aMethod resources) isNil ifTrue:[^ nil].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	501
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	502	(resources includesKey:#obsolete) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	503	^ self deprecatedMethodIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	504	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	505	(resources includesKey:#canvas) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	506	^ self canvasIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	507	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	508	(resources includesKey:#menu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	509	^ self menuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	510	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	511	(resources includesKey:#image) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	512	^ self imageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	513	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	514	(resources includesKey:#fileImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	515	^ self fileImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	516	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	517	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	518	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	519	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	520	(resources includesKey:#help) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	521	^ self helpIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	522	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	523	(resources includesKey:#programMenu) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	524	^ self programMenuIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	525	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	526	(resources includesKey:#tableColumns) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	527	^ self tableColumnsIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	528	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	529	(resources includesKey:#tabList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	530	^ self tabListIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	531	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	532	(resources includesKey:#hierarchicalList) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	533	^ self hierarchicalListIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	534	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	535	(resources includesKey:#programImage) ifTrue:[
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	536	^ self programImageIcon
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	537	].
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	538	^ nil
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	539
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	540	"Created: / 17-08-2006 / 09:08:11 / cg"
3240 34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	541	! !
34f017469465 allow for some colors to be parametrized (Timos red-green blindness) Claus Gittinger <cg@exept.de> parents: 3221 diff changeset	542
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	543	!SystemBrowser class methodsFor:'dialogs'!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	544
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	545	askForClassNameMatching:matchStringArg inEnvironment:anEnvironmentOrClassOrNil for:aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	546	"open a dialog to ask for a class name.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	547	env is either a nameSpace or a class (to ask for a private class)"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	548
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	549	\|classNames caselessMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	550	substringMatchingNames caselessSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	551	caselessWithoutPrefixSubstringMatchingNames
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	552	lcMatchString subMatch lcSubMatch box className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	553	needSearch cls env searchBlock searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	554	idx pref aMatchString allNames sortedBySpellingDistance msg resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	555
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	556	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	557	env := anEnvironmentOrClassOrNil ? Smalltalk.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	558
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	559	aMatchString := matchStringArg.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	560
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	561	"/ try to limit search to a namespace (but only if nameSpace is not a matchCharacter)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	562
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	563	(aMatchString includesString:'::') ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	564	"/ pref := aMatchString upTo:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	565	idx := aMatchString lastIndexOf:$:.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	566	pref := aMatchString copyTo:idx-2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	567	pref includesMatchCharacters ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	568	"/ search all in Smalltalk
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	569	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	570	cls := Smalltalk at:pref asSymbol ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	571	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	572	env := cls.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	573	aMatchString := aMatchString copyFrom:pref size + 1 + 2.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	574	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	575	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	576	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	577
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	578	classNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	579	caselessMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	580	substringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	581	caselessSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	582	caselessWithoutPrefixSubstringMatchingNames := Set new.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	583
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	584	lcMatchString := aMatchString asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	585	needSearch := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	586	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	587	subMatch := '' , aMatchString , ''.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	588	lcSubMatch := subMatch asLowercase.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	589
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	590	"/ if the name is already a good one, avoid the expensive search
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	591	className := aMatchString asSymbolIfInterned.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	592	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	593	env isNameSpace ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	594	cls := env at:className ifAbsent:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	595	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	596	cls := env privateClassesAt:className.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	597	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	598	(cls notNil and:[cls isBehavior]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	599	needSearch := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	600	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	601	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	602	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	603
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	604	needSearch ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	605	searchBlock := [:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	606	\|thisName\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	607
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	608	"/ use dotted names for java
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	609	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	610	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	611	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	612	thisName := aClass name
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	613	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	614	(lcMatchString match:aClass name asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	615	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	616	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	617	aClass nameWithoutPrefix ~= aClass name ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	618	(lcMatchString match:aClass nameWithoutPrefix asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	619	caselessWithoutPrefixSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	620	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	621	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	622
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	623	(aMatchString match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	624	classNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	625	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	626	(lcMatchString match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	627	caselessMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	628	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	629	subMatch notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	630	(subMatch match:thisName) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	631	substringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	632	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	633	(lcSubMatch match:thisName asLowercase) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	634	caselessSubstringMatchingNames add:thisName
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	635	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	636	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	637	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	638	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	639	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	640	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	641
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	642	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	643	env allClassesDo:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	644	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	645	env allPrivateClasses do:searchBlock
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	646	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	647
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	648	sortedBySpellingDistance := false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	649	"/ if nothing matched - try caseless matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	650	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	651	classNames := caselessMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	652
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	653	"/ if nothing matched - try substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	654	classNames size == 0 ifTrue:[
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	655	aMatchString isUppercaseFirst ifTrue:[
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	656	classNames := substringMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	657	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	658	"/ if nothing matched - try caseless substring matches
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	659	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	660	classNames := caselessSubstringMatchingNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	661
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	662	"/ if nothing matched - try best fitting
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	663	classNames size == 0 ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	664	aMatchString includesMatchCharacters ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	665	allNames := SortedCollection sortBlock:[:a :b \| a value > b value].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	666	searchBlock2 :=
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	667	[:aClass \|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	668	\|thisName dist\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	669
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	670	aClass isJavaClass ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	671	thisName := aClass displayString. "/ fullName copyReplaceAll:$/ with:$.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	672	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	673	thisName := aClass name
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	674	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	675	dist := thisName asLowercase spellAgainst:lcMatchString.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	676	(thisName asLowercase startsWith:lcMatchString) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	677	dist := dist + (thisName size * 10).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	678	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	679	allNames add:(thisName -> dist).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	680	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	681	(env == Smalltalk or:[env isNameSpace]) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	682	env allClassesDo:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	683	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	684	env allPrivateClasses do:searchBlock2
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	685	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	686	classNames := (allNames copyTo:(allNames size min:40)) collect:[:each \| each key].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	687	sortedBySpellingDistance := true.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	688	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	689	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	690	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	691	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	692	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	693
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	694	(classNames size == 0) ifTrue:[^ nil].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	695	(classNames size == 1) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	696	className := classNames first
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	697	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	698	\|browseButton\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	699
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	700	sortedBySpellingDistance ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	701	classNames := classNames asArray sort.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	702	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	703
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	704	aMatchString includesMatchCharacters ifTrue:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	705	msg := 'Classes matching or similar to "%1"\\Select or enter name of class to switch to:'
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	706	] ifFalse:[
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	707	msg := 'Classes containing or similar to "%1"\\Select or enter name of class to switch to:'
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	708	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	709
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	710	box := self listBoxTitle:(resources string:msg with:matchStringArg) withCRs
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	711	okText:'OK'
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	712	list:classNames.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	713	caselessWithoutPrefixSubstringMatchingNames notEmpty ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	714	box initialText:(caselessWithoutPrefixSubstringMatchingNames first).
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	715	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	716	box action:[:aString \| className := aString].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	717
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	718	browseButton := Button label:(resources string:'Browse All').
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	719	browseButton action:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	720	\|classes title\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	721
9065 efb483eb10a8 changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9010 diff changeset	722	title := resources string:'Classes Matching or Similar to "%1"' with:matchStringArg.
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	723	classes := classNames collect:[:nm \| Smalltalk classNamed:nm].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	724	aBrowserOrNil isNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	725	SystemBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	726	browseClasses:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	727	label:title.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	728	] ifFalse:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	729	aBrowserOrNil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	730	spawnClassBrowserFor:classes
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	731	label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	732	in:#newBrowser
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	733	select:false.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	734	].
13365 58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	735	box hide.
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	736	box closeRequest
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	737	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	738	box addButton:browseButton before:box okButton.
9157 c8166dbf5a5a changed: #askForClassNameMatching:inEnvironment:for: Claus Gittinger <cg@exept.de> parents: 9065 diff changeset	739	box minExtent:300@250.
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	740
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	741	box open.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	742	(box accepted not or:[className isNil]) ifTrue:[ "/ cancel
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	743	^ nil
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	744	]
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	745	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	746	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	747
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	748	className notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	749	"/ use slashed javaName for search.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	750	(className includes:$.) ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	751	className := className copyReplaceAll:$. with:$/
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	752	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	753	].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	754
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	755	"/ pref notNil ifTrue:[
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	756	"/ ^ pref , '::' , className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	757	"/ ].
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	758	^ className
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	759
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	760	"Modified: / 16-10-2006 / 11:36:20 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	761	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	762
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	763	listBoxTitle:title okText:okText list:aList
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	764	"convenient method: setup a listBox & return it"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	765
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	766	\|box resources\|
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	767
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	768	resources := self classResources.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	769
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	770	box := ListSelectionBox
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	771	title:(resources string:title)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	772	okText:(resources string:okText)
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	773	action:nil.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	774	box list:aList.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	775	^ box
13365 58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	776
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	777	"
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	778	(self listBoxTitle:'hello world' okText:'aaa' list:#(1 2 3 4)) open
58156ff25996 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13319 diff changeset	779	"
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	780	! !
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	781
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	782	!SystemBrowser class methodsFor:'image specs'!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	783
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	784	abstractMethodIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	785	<resource: #programImage>
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	786
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	787	^ self padLockGrayMiniIcon
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	788	!
80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	789
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	790	addBreakPointIcon
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	791	"This resource specification was automatically generated
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	792	by the ImageEditor of ST/X."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	793
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	794	"Do not manually edit this!! If it is corrupted,
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	795	the ImageEditor may not be able to read the specification."
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	796
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	797	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	798	self addBreakPointIcon inspect
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	799	ImageEditor openOnClass:self andSelector:#addBreakPointIcon
4852 b9266dc55860 * empty log message * Claus Gittinger <cg@exept.de> parents: 4806 diff changeset	800	Icon flushCachedIcons
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	801	"
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	802
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	803	<resource: #image>
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	804
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	805	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	806	constantNamed:'SystemBrowser class addBreakPointIcon'
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	807	ifAbsentPut:[(Depth1Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@8@C @N@@8@A@@@@@P@C @D@@@@@@@@@@@@b') ; colorMapFromArray:#[255 0 0 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@O8A?0O?!!??G?<_?1??G?<_?1??C?8G?@O8@@@@@@b') ; yourself); yourself]
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	808	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	809
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	810	addBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	811	^ XPToolbarIconLibrary addBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	812	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	813
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	814	autoloadedClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	815	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	816
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	817	^ ToolbarIconLibrary autoloadedClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	818
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	819	"Modified: / 20-07-2007 / 09:15:37 / cg"
4341 7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	820	!
7bb51f44dca7 Icon for autoloaded classes Stefan Vogel <sv@exept.de> parents: 4332 diff changeset	821
12040 5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	822	breakPointedIcon
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	823	<resource: #programImage>
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	824
12822 cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	825	^ ToolbarIconLibrary breakpointRedEnabled
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	826	"/ ^ self breakPointedIcon2
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	827	!
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	828
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	829	breakPointedIcon1
12040 5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	830	"This resource specification was automatically generated
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	831	by the ImageEditor of ST/X."
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	832
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	833	"Do not manually edit this!! If it is corrupted,
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	834	the ImageEditor may not be able to read the specification."
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	835
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	836	"
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	837	self breakPointedIcon1 inspect
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	838	ImageEditor openOnClass:self andSelector:#breakPointedIcon1
12040 5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	839	Icon flushCachedIcons
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	840	"
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	841
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	842	<resource: #image>
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	843
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	844	^Icon
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	845	constantNamed:'SystemBrowser breakPointedIcon1'
12040 5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	846	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@P@@L3@@@@$@L@@@L@@H@@@C@@@@APL@DQ@C@@@C@1DS@0@B@0@QD@L@@@@@@0@@@@@@L@@@L@@@@@@3L@@@@ @@@@@@@@ b') ; colorMapFromArray:#[255 0 0 255 255 255 0 0 0 255 199 199]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@N@C>@O8A?0G?@_<@? C>@C @@@@@a') ; yourself); yourself]
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	847	!
5f2202d6fbec class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 11964 diff changeset	848
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	849	breakPointedIcon2
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	850	"This resource specification was automatically generated
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	851	by the ImageEditor of ST/X."
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	852
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	853	"Do not manually edit this!! If it is corrupted,
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	854	the ImageEditor may not be able to read the specification."
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	855
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	856	"
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	857	self breakPointedIcon2 inspect
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	858	ImageEditor openOnClass:self andSelector:#breakPointedIcon2
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	859	Icon flushCachedIcons
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	860	"
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	861
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	862	<resource: #image>
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	863
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	864	^Icon
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	865	constantNamed:'SystemBrowser breakPointedIcon2'
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	866	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'DQH"H!!DQDAD!!DQD!!DQ@RDQDQD!!DPHQDQDQD!!DBDQDQDQHQ@!!DQDQDRDZHQDQDQD!!FBDQDQDQHQ@RDQDQD!!DPDRDQDRDQDADRH"HQDQ@b') ; colorMapFromArray:#[255 255 255 255 0 0 128 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a') ; yourself); yourself]
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	867	!
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	868
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	869	canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	870	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	871	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	872
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	873	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	874	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	875
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	876	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	877	ImageEditor openOnClass:self andSelector:#canvasIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	878	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	879
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	880	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	881
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	882	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	883	constantNamed:'SystemBrowser class canvasIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	884	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@.;.;.;.0@@@@@@@@@@C.;/C.;/@@9&XP9&XP@NY&DNY&D@C&Y!!C&Y!!@@9&XP9&XP@NY&DNY&D@C1DQC1DQ@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	885	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	886
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	887	containerClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	888	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	889
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	890	^ ToolbarIconLibrary containerClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	891
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	892	"Modified: / 20-07-2007 / 09:14:54 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	893	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	894
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	895	defaultIcon
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	896	"This resource specification was automatically generated
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	897	by the ImageEditor of ST/X."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	898
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	899	"Do not manually edit this!! If it is corrupted,
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	900	the ImageEditor may not be able to read the specification."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	901
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	902	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	903	self defaultIcon inspect
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	904	ImageEditor openOnClass:self andSelector:#defaultIcon
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	905	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	906
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	907	<resource: #image>
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	908
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	909	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	910	constantNamed:'SystemBrowser class defaultIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	911	ifAbsentPut:[(Depth4Image new) width: 28; height: 28; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	912	@@@@@@@@@@@@@@@@@@@FY&Y&Y&X0@@@@@@@@@@YDQDQDQB@@@@@@@@@@A$QDQDQDH@@@@@@@@@@CH"H"H"H @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@
3794 8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	913	@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@A&Y&Y&Y#@@@@@F@"H"HFDQDQDQH@@@@@@@@@@@L"H"H"
8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	914	H @@@@@ @@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@A&Y&Y&Y#@@@@@F@"H"HFUUUUUUH@@@@@@@@@@@L"H"H"H @@@@@@
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	915	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@B@B@ @@H@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	916	@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@@@@H@@ @@@@Hb') ; colorMapFromArray:#[0 0 0 0 255 0 127 127 127 170 170 170 255 0 0 255 255 0 255 255 255]; mask:((Depth1Image new) width: 28; height: 28; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
3794 8e0c2bab6856 icon Claus Gittinger <cg@exept.de> parents: 3780 diff changeset	917	??0@@O?<@@C??@@@??0@@O?<@@C??@@@@ @@@@H@@@@B@@@@@ O?8@\C?>@G??? A0O?8@HC?>@B@@@@@ O?8@\C?>@G??? A0O?8@@C?>@@@@@@9O\7\IRT
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	918	QDBD%DQ@!!OH''HHRQEABT$QPP99]7\@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	919	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	920
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	921	deprecatedMethodIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	922	^ self doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	923	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	924
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	925	doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	926	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	927	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	928
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	929	"Do not manually edit this!! If it is corrupted,
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	930	the ImageEditor may not be able to read the specification."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	931
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	932	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	933	self doNotEnterIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	934	ImageEditor openOnClass:self andSelector:#doNotEnterIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	935	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	936	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	937
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	938	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	939
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	940	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	941	constantNamed:'SystemBrowser class doNotEnterIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	942	ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??C0<NA00CB@EY>P''9B@DL@08GC0<@@a') ; colorMapFromArray:#[255 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@O@A>@O<A?8G? _>A?8C?@G8@O@@@a') ; yourself); yourself]
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	943	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	944
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	945	emptyIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	946	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	947	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	948
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	949	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	950	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	951
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	952	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	953	self emptyIcon inspect
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	954	ImageEditor openOnClass:self andSelector:#emptyIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	955	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	956
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	957	<resource: #image>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	958
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	959	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	960	constantNamed:'SystemBrowser class emptyIcon'
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	961	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	962
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	963	"Created: / 5.11.2001 / 09:39:54 / cg"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	964	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	965
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	966	errorClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	967	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	968
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	969	^ ToolbarIconLibrary errorClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	970
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	971	"Modified: / 20-07-2007 / 09:14:06 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	972	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	973
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	974	exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	975	"This resource specification was automatically generated
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	976	by the ImageEditor of ST/X."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	977
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	978	"Do not manually edit this!! If it is corrupted,
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	979	the ImageEditor may not be able to read the specification."
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	980
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	981	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	982	self exceptionClassIcon inspect
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	983	ImageEditor openOnClass:self andSelector:#exceptionClassIcon
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	984	Icon flushCachedIcons
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	985	"
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	986
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	987	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	988
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	989	^ ToolbarIconLibrary exceptionClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	990
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	991	"Modified: / 20-07-2007 / 09:13:18 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	992	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	993
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	994	fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	995	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	996	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	997
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	998	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	999	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1000
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1001	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1002	self fileImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1003	ImageEditor openOnClass:self andSelector:#fileImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1004	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1005
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1006	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1007
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1008	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1009	constantNamed:'SystemBrowser class fileImageIcon'
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1010	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@H"H"H"@@@BQBH!!D"@@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 51 153 153 51 255 255 255 153 0 255 255 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?<C?8O?0??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1011	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1012
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1013	greenCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1014	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1015	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1016
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1017	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1018	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1019
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1020	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1021	self greenCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1022	ImageEditor openOnClass:self andSelector:#greenCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1023	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1024	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1025
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1026	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1027
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1028	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1029	constantNamed:'SystemBrowser class greenCheckIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1030	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@H @@@@@@@"@@@@@@@@H@@@@@@ @"@@@@@@H H@@@@@@@H"@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 0 127 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@C@@X@A@AL@F @N@@P@@@@@@@@a') ; yourself); yourself]
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1031	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1032
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1033	greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1034	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1035	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1036
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1037	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1038	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1039
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1040	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1041	self greenLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1042	ImageEditor openOnClass:self andSelector:#greenLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1043	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1044
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1045	<resource: #programImage>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1046
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1047	^ self padLockGreenMiniIcon
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1048
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1049	"Modified: / 5.11.2001 / 09:40:12 / cg"
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1050	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1051
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1052	greenThumbUpIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1053	^ ToolbarIconLibrary greenThumbUpIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1054
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1055	"Modified: / 17-07-2011 / 10:03:34 / cg"
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1056	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1057
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1058	greenThumbUpSmallIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1059	^ ToolbarIconLibrary greenThumbUpSmallIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1060
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1061	"Modified: / 17-07-2011 / 10:03:43 / cg"
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1062	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1063
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1064	greyCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1065	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1066	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1067
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1068	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1069	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1070
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1071	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1072	self greyCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1073	ImageEditor openOnClass:self andSelector:#greyCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1074	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1075	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1076
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1077	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1078
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1079	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1080	constantNamed:'SystemBrowser class greyCheckIcon'
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1081	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@H @@@@@@@"@@@@@@@@H@@@@@@ @"@@@@@@H H@@@@@@@H"@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@C@@X@A@AL@F @N@@P@@@@@@@@a') ; yourself); yourself]
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1082	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1083
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1084	greyThumbUpIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1085	^ ToolbarIconLibrary greyThumbUpIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1086
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1087	"Modified: / 17-07-2011 / 10:04:06 / cg"
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1088	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1089
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1090	helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1091	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1092	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1093
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1094	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1095	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1096
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1097	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1098	self helpIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1099	ImageEditor openOnClass:self andSelector:#helpIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1100	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1101
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1102	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1103
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1104	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1105	constantNamed:'SystemBrowser class helpIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1106	ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A?<G#0]7A?\G;0__A?<G72_?@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1107	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1108
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1109	hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1110	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1111	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1112
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1113	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1114	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1115
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1116	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1117	ImageEditor openOnClass:self andSelector:#hierarchicalListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1118	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1119
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1120	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1121
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1122	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1123	constantNamed:'SystemBrowser class hierarchicalListIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1124	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@NAUUU0@R??8@GO?>@A0@C @\??88G@@N@A3?? @^@@8@N***@@@@@C b') ; colorMapFromArray:#[0 0 0 255 255 255 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1125	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1126
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1127	ignoredMethodIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1128	<resource: #programImage>
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1129
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1130	^ self padLockBlackMiniIcon
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1131	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1132
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1133	imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1134	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1135	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1136
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1137	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1138	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1139
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1140	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1141	self imageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1142	ImageEditor openOnClass:self andSelector:#imageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1143	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1144
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1145	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1146
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1147	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1148	constantNamed:'SystemBrowser class imageIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1149	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@H"H"H"H @BQBH!!D"H@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 51 153 153 51 255 255 255 153 0 255 255 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1150	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1151
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1152	instVarOverlayXmlSpec
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1153	"This resource specification was automatically generated
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1154	by the ImageEditor of ST/X."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1155
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1156	"Do not manually edit this!! If it is corrupted,
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1157	the ImageEditor may not be able to read the specification."
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1158
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1159	"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1160	self instVarOverlayXmlSpec inspect
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1161	ImageEditor openOnClass:self andSelector:#instVarOverlayXmlSpec
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1162	Icon flushCachedIcons
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1163	"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1164
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1165	<resource: #image>
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1166
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1167	^Icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1168	constantNamed:'SystemBrowser class instVarOverlayXmlSpec'
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1169	ifAbsentPut:[(Depth2Image new) width: 16; height: 16; photometric:(#palette); bitsPerSample:(#[2]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BDP@@BID@@@"Q@@@BDP@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 84 84 84 170 170 170 255 255 255]; mask:((Depth1Image new) width: 16; height: 16; photometric:(#blackIs0); bitsPerSample:(#[1]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1170	@@@@@@@@@@@@@@@@BA@XFC@L[>[O8<=#[7X0CA XBA@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1171	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1172	@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1173	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	1174
7992 425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1175	instrumentationIcon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1176	<resource: #programImage>
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1177
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1178	^ ToolbarIconLibrary pipette16x16Icon
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1179	!
425aa862d872 * empty log message * Claus Gittinger <cg@exept.de> parents: 7968 diff changeset	1180
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1181	medium_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1182	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1183	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1184
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1185	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1186	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1187
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1188	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1189	self medium_methodEmptyInheritedIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1190	ImageEditor openOnClass:self andSelector:#medium_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1191	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1192
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1193	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1194
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1195	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1196	constantNamed:'SystemBrowser class medium_methodEmptyInheritedIcon'
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1197	ifAbsentPut:[(Depth4Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@a') ; yourself); yourself]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1198	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1199
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1200	medium_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1201	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1202	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1203
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1204	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1205	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1206
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1207	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1208	self medium_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1209	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveAndRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1210	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1211	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1212
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1213	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1214
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1215	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1216	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveAndRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1217	ifAbsentPut:[(Depth2Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@B()@B(@A@ @A@ @A@ (EP@HEP@@@@@@@@@@') ; colorMapFromArray:#[0 0 0 255 255 127 255 127 127]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@/ B>@K8A7@G\@]0C:@O(@> @@@@@a') ; yourself); yourself]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1218	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1219
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1220	medium_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1221	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1222	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1223
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1224	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1225	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1226
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1227	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1228	self medium_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1229	ImageEditor openOnClass:self andSelector:#medium_methodInheritedFromAboveIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1230	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1231	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1232
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1233	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1234
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1235	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1236	constantNamed:'SystemBrowser class medium_methodInheritedFromAboveIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1237	ifAbsentPut:[(Depth1Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@A@@@ @B@@HA=0LG@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 127]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@ @B@@H@A0@G@@\@C8@O @>@@@@@@a') ; yourself); yourself]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1238	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1239
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1240	medium_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1241	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1242	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1243
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1244	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1245	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1246
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1247	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1248	self medium_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1249	ImageEditor openOnClass:self andSelector:#medium_methodRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1250	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1251	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1252
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1253	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1254
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1255	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1256	constantNamed:'SystemBrowser class medium_methodRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1257	ifAbsentPut:[(Depth1Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ED@L@\@A0@B@@H@@"8@P@@@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 127 127]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@O @>@C8@G@@\@A0@B@@H@@ @@@@@a') ; yourself); yourself]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1258	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1259
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1260	menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1261	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1262	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1263
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1264	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1265	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1266
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1267	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1268	self menuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1269	ImageEditor openOnClass:self andSelector:#menuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1270	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1271
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1272	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1273
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1274	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1275	constantNamed:'SystemBrowser class menuIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1276	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@B*P@%UUT@@@@@@BP@%UUT@@@@@@B**P@%UUT@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 170 170 170 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1277	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1278
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1279	methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1280	^ self small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1281	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1282
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1283	methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1284	^ self small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1285	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1286
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1287	methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1288	^ self small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1289	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1290
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1291	methodIsSubclassResponsibilityAndRedefinedBelowIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1292	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1293	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1294
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1295	"Do not manually edit this!! If it is corrupted,
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1296	the ImageEditor may not be able to read the specification."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1297
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1298	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1299	self methodIsSubclassResponsibilityAndRedefinedBelowIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1300	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityAndRedefinedBelowIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1301	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1302	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1303
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1304	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1305
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1306	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1307	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityAndRedefinedBelowIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1308	ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' @D@@H@@@@@B@@@@@@4UBHR@A@@"@@@a') ; colorMapFromArray:#[0 0 0 255 127 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<HC DO@@>O#8\G@b') ; yourself); yourself]
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1309	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1310
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1311	methodIsSubclassResponsibilityIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1312	"This resource specification was automatically generated
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1313	by the ImageEditor of ST/X."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1314
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1315	"Do not manually edit this!! If it is corrupted,
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1316	the ImageEditor may not be able to read the specification."
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1317
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1318	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1319	self methodIsSubclassResponsibilityIcon inspect
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1320	ImageEditor openOnClass:self andSelector:#methodIsSubclassResponsibilityIcon
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1321	Icon flushCachedIcons
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1322	"
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1323
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1324	<resource: #image>
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1325
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1326	^Icon
7968 1acda3f58974 * empty log message * Claus Gittinger <cg@exept.de> parents: 7915 diff changeset	1327	constantNamed:'SystemBrowser class methodIsSubclassResponsibilityIcon'
5761 b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1328	ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:' @D@@H@@@@@B@@@@@ 4@B@H@@@@@@@@a') ; colorMapFromArray:#[0 0 0 255 127 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'<HC DO@@<IC0(I@b') ; yourself); yourself]
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1329	!
b350e042dc9f Icons for subclassResponsibility and deprecated methods Stefan Vogel <sv@exept.de> parents: 5546 diff changeset	1330
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1331	methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1332	^ self small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1333	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1334
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1335	nameSpaceIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1336	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1337
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1338	^ ToolbarIconLibrary nameSpaceBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1339
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1340	"Modified: / 20-07-2007 / 09:12:26 / cg"
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1341	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1342
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1343	notificationClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1344	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1345
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1346	^ ToolbarIconLibrary notificationClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1347
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1348	"Modified: / 20-07-2007 / 09:11:21 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1349	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1350
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1351	packageIcon
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1352	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1353
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1354	^ ToolbarIconLibrary smallYellowPackageIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1355	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1356
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1357	packageIconGraySmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1358	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1359
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1360	^ ToolbarIconLibrary smallGrayPackageIcon
6954 b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1361	!
b10a2c15fee5 * empty log message * Claus Gittinger <cg@exept.de> parents: 6944 diff changeset	1362
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1363	packageIconGreenSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1364	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1365
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1366	^ ToolbarIconLibrary smallGreenPackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1367	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1368
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1369	packageIconOrangeSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1370	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1371
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1372	^ ToolbarIconLibrary smallOrangePackageIcon
6925 388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1373	!
388067acd009 * empty log message * Claus Gittinger <cg@exept.de> parents: 6913 diff changeset	1374
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1375	packageIconSmall
8853 a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1376	<resource: #programImage>
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1377
a2a14e8871c0 changed:5 methods Claus Gittinger <cg@exept.de> parents: 8851 diff changeset	1378	^ ToolbarIconLibrary smallYellowPackageIcon
6901 34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1379	!
34d695317c51 * empty log message * Claus Gittinger <cg@exept.de> parents: 6873 diff changeset	1380
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1381	padLockBlackMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1382	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1383
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1384	^ XPToolbarIconLibrary padLockBlackMiniIcon
5997 a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1385	!
a0654a5af9a1 * empty log message * Claus Gittinger <cg@exept.de> parents: 5928 diff changeset	1386
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1387	padLockBlueMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1388	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1389
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1390	^ XPToolbarIconLibrary padLockBlueMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1391	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1392
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1393	padLockGrayMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1394	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1395
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1396	^ GenericToolbarIconLibrary padLockGrayMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1397	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1398
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1399	padLockGreenMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1400	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1401
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1402	^ GenericToolbarIconLibrary padLockGreenMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1403	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1404
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1405	padLockRedMiniIcon
6333 d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1406	<resource: #programImage>
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1407
d5d28109866e * empty log message * Claus Gittinger <cg@exept.de> parents: 6303 diff changeset	1408	^ GenericToolbarIconLibrary padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1409	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1410
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1411	privateMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1412	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1413
2748 80829f5a575d * empty log message * Claus Gittinger <cg@exept.de> parents: 2743 diff changeset	1414	^ self padLockRedMiniIcon
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1415	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1416
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1417	programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1418	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1419	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1420
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1421	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1422	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1423
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1424	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1425	self programImageIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1426	ImageEditor openOnClass:self andSelector:#programImageIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1427	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1428
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1429	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1430
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1431	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1432	constantNamed:#'SystemBrowser class programImageIcon'
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1433	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@H"H"H"H @BQBH!!D"H@@$P"HQH"@@H"H"DQH @BH"HQDRH@@"H"DQH"@@L3L3DSL0@CL3L1D3L@@3L3L3L3@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 25 77 77 51 255 255 128 128 0 128 77 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1434	!
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1435
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1436	programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1437	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1438	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1439
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1440	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1441	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1442
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1443	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1444	self programMenuIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1445	ImageEditor openOnClass:self andSelector:#programMenuIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1446	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1447
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1448	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1449
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1450	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1451	constantNamed:#'SystemBrowser class programMenuIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1452	ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@A?<G?0@@A?<G?0@@A?<G?3@@@@@@@a') ; colorMapFromArray:#[0 0 0 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8?? @@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1453	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1454
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1455	protectedMethodIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1456	<resource: #programImage>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1457
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1458	^ self padLockGreenMiniIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1459	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1460
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1461	queryClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1462	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1463
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1464	^ ToolbarIconLibrary queryClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1465
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1466	"Modified: / 20-07-2007 / 09:10:32 / cg"
4308 9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1467	!
9957b7ab92e3 checkin from browser Claus Gittinger <cg@exept.de> parents: 4275 diff changeset	1468
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1469	redCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1470	"This resource specification was automatically generated
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1471	by the ImageEditor of ST/X."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1472
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1473	"Do not manually edit this!! If it is corrupted,
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1474	the ImageEditor may not be able to read the specification."
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1475
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1476	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1477	self redCheckIcon inspect
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1478	ImageEditor openOnClass:self andSelector:#redCheckIcon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1479	Icon flushCachedIcons
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1480	"
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1481
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1482	<resource: #image>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1483
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1484	^Icon
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1485	constantNamed:#'SystemBrowser class redCheckIcon'
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1486	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@"@@@@@@@BH@@@@ @@H @@@BH @"@@@@@BH"H @@@@@BH"@@@@@@@BH @@@@@@@B@@@@@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@A @L@!! GL@O0@^@@8@A@@@@@@a') ; yourself); yourself]
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1487	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1488
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1489	redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1490	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1491	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1492
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1493	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1494	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1495
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1496	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1497	self redLockIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1498	ImageEditor openOnClass:self andSelector:#redLockIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1499	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1500
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1501	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1502
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1503	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1504	constantNamed:#'SystemBrowser class redLockIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1505	ifAbsentPut:[(Depth2Image new) width: 9; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@T@@AA@@AA@@EUP@EUP@EQP@EQP@EQP@EAP@AU@@@@@@') ; colorMapFromArray:#[0 0 0 255 0 0]; mask:((Depth1Image new) width: 9; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'F@@$@BP@_ A>@G8@_ A>@G8@O@@@@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1506	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1507
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1508	redThumbDownIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1509	^ ToolbarIconLibrary redThumbDownIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1510
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1511	"Modified: / 17-07-2011 / 10:04:37 / cg"
4165 5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1512	!
5004f043a266 * empty log message * Claus Gittinger <cg@exept.de> parents: 4158 diff changeset	1513
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1514	redThumbDownSmallIcon
10327 1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1515	^ ToolbarIconLibrary redThumbDownSmallIcon
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1516
1273d6c94564 changed:5 methods Claus Gittinger <cg@exept.de> parents: 10188 diff changeset	1517	"Modified: / 17-07-2011 / 10:05:09 / cg"
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1518	!
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1519
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1520	removeBreakPointIcon2
6115 43cde28a3209 * empty log message * Claus Gittinger <cg@exept.de> parents: 6052 diff changeset	1521	^ XPToolbarIconLibrary removeBreakPointIcon2
3813 7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1522	!
7242fd2a602c icons Claus Gittinger <cg@exept.de> parents: 3794 diff changeset	1523
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1524	small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1525	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1526	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1527
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1528	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1529	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1530
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1531	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1532	self small_methodEmptyInheritedIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1533	ImageEditor openOnClass:self andSelector:#small_methodEmptyInheritedIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1534	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1535
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1536	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1537
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1538	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1539	constantNamed:#'SystemBrowser class small_methodEmptyInheritedIcon'
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1540	ifAbsentPut:[(Depth4Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@') ; colorMapFromArray:#[0 0 0]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@@@@@@b') ; yourself); yourself]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1541	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1542
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1543	small_methodInheritedFromAboveAndRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1544	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1545	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1546
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1547	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1548	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1549
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1550	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1551	self small_methodInheritedFromAboveAndRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1552	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveAndRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1553	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1554	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1555
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1556	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1557
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1558	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1559	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveAndRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1560	ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'L1@DLLS,ES@@@@@0@@@*@L#@B@@3@@@a') ; colorMapFromArray:#[0 0 0 255 255 127 255 127 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'\GC8>O @>O#8\G@b') ; yourself); yourself]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1561	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1562
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1563	small_methodInheritedFromAboveIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1564	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1565	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1566
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1567	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1568	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1569
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1570	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1571	self small_methodInheritedFromAboveIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1572	ImageEditor openOnClass:self andSelector:#small_methodInheritedFromAboveIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1573	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1574	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1575
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1576	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1577
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1578	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1579	constantNamed:#'SystemBrowser class small_methodInheritedFromAboveIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1580	ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'H#HDLHR@EP@@@@@@@BD@IP@!!@B@@IP@a') ; colorMapFromArray:#[0 0 0 255 255 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'\GC8>O @@@@@@@@b') ; yourself); yourself]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1581	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1582
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1583	small_methodRedefinedBelowIcon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1584	"This resource specification was automatically generated
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1585	by the ImageEditor of ST/X."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1586
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1587	"Do not manually edit this!! If it is corrupted,
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1588	the ImageEditor may not be able to read the specification."
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1589
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1590	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1591	self small_methodRedefinedBelowIcon inspect
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1592	ImageEditor openOnClass:self andSelector:#small_methodRedefinedBelowIcon
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1593	Icon flushCachedIcons
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1594	"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1595
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1596	<resource: #image>
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1597
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1598	^Icon
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1599	constantNamed:#'SystemBrowser class small_methodRedefinedBelowIcon'
4130 88a578bf42d3 icons Claus Gittinger <cg@exept.de> parents: 4129 diff changeset	1600	ifAbsentPut:[(Depth2Image new) width: 5; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@D@@@@@@@@@@@@@@@4UBHR@A@@"@@@a') ; colorMapFromArray:#[0 0 0 255 127 127 127 127 127]; mask:((Depth1Image new) width: 5; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@>O#8\G@b') ; yourself); yourself]
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1601	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	1602
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1603	startableClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1604	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1605
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1606	^ ToolbarIconLibrary startableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1607
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1608	"Created: / 05-11-2001 / 09:50:16 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1609	"Modified: / 20-07-2007 / 09:09:40 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1610	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1611
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1612	startableVisualAppIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1613	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1614
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1615	^ ToolbarIconLibrary visualStartableClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1616
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1617	"Created: / 05-11-2001 / 09:49:00 / cg"
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1618	"Modified: / 20-07-2007 / 09:08:34 / cg"
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1619	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1620
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1621	stopIcon
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1622	<resource: #programImage>
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1623
12822 cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	1624	^ ToolbarIconLibrary stopPoint9x9
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1625	"/ ^ self stopIcon2
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1626	!
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1627
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1628	stopIcon1
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1629	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1630	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1631
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1632	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1633	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1634
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1635	"
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1636	self stopIcon1 inspect
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1637	ImageEditor openOnClass:self andSelector:#stopIcon1
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1638	Icon flushCachedIcons
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1639	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1640
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1641	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1642
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1643	^Icon
12504 abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1644	constantNamed:'SystemBrowser stopIcon1'
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1645	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'DQH"H!!DQDAD!!DAD!!DQ@RDP@AD!!DPHQD@@QD!!DBDQ@@DQHQ@!!DQ@QDRDZHQDQDQD!!FBDQDADQHQ@RDP@AD!!DPDRDPDRDQDADRH"HQDQ@b') ; colorMapFromArray:#[255 255 255 255 0 0 128 0 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a') ; yourself); yourself]
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1646	!
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1647
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1648	stopIcon2
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1649	"This resource specification was automatically generated
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1650	by the ImageEditor of ST/X."
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1651
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1652	"Do not manually edit this!! If it is corrupted,
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1653	the ImageEditor may not be able to read the specification."
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1654
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1655	"
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1656	self stopIcon2 inspect
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1657	ImageEditor openOnClass:self andSelector:#stopIcon2
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1658	Icon flushCachedIcons
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1659	"
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1660
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1661	<resource: #image>
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1662
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1663	^Icon
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1664	constantNamed:'SystemBrowser stopIcon2'
abf0ab5f5941 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12475 diff changeset	1665	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#[4]); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'DQH"H!!DQDAD!!DQD!!DQ@RDQDQD!!DPHQDQDQD!!DBDSL3LQHQ@!!D@@@DRDZHQL3L1D!!FBDQDQDQHQ@RDQDQD!!DPDRDQDRDQDADRH"HQDQ@b') ; colorMapFromArray:#[255 255 255 255 0 0 128 0 0 255 163 163]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1)); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'G0@? G?@?>C?8O? ?>C?8G?@O8@_@@@a') ; yourself); yourself]
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1666	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1667
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1668	tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1669	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1670	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1671
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1672	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1673	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1674
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1675	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1676	self tabListIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1677	ImageEditor openOnClass:self andSelector:#tabListIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1678	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1679
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1680	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1681
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1682	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1683	constantNamed:#'SystemBrowser class tabListIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1684	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@D3!!QP@@8TT@@N@@J@C*P@:$AN)@CP@:*$@IUUUB @@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'?8C?0O?0??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1685	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1686
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1687	tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1688	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1689	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1690
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1691	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1692	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1693
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1694	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1695	self tableColumnsIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1696	ImageEditor openOnClass:self andSelector:#tableColumnsIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1697	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1698
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1699	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1700
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1701	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1702	constantNamed:#'SystemBrowser class tableColumnsIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1703	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@C??? @8(($@L@@AHC"""R@0@@D@NJJI@C@@@P@8(($@IUUU@@@@@@@b') ; colorMapFromArray:#[0 0 0 127 127 127 170 170 170 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1704	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1705
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1706	testCaseClassIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1707	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1708
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1709	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1710	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1711	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1712
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1713	testCaseClassIconFor:cls
4167 588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	1714	<resource: #programImage>
588e05d2124d * empty log message * Claus Gittinger <cg@exept.de> parents: 4166 diff changeset	1715
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1716	"/ decision moved to TestCase - see there.
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1717	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1718
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1719	\|lastResult\|
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1720
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	1721	lastResult := cls lastTestRunResultOrNil.
12729 8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1722	lastResult notNil ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1723	lastResult == TestResult statePass ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1724	^ self testCasePassedIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1725	].
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1726	lastResult == TestResult stateFail ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1727	^ self testCaseFailedIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1728	].
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1729	lastResult == TestResult stateError ifTrue:[
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1730	^ self testCaseErrorIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1731	].
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1732	].
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1733	^ self testCaseUnknownResultIcon
6848 27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	1734
27b76bc54f22 * empty log message * Claus Gittinger <cg@exept.de> parents: 6776 diff changeset	1735	"Modified: / 06-08-2006 / 11:14:12 / cg"
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1736	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1737
12729 8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1738	testCaseErrorIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1739	<resource: #programImage>
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1740
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1741	"/ only left here for backward compatibility...
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1742	^ ToolbarIconLibrary testCaseErrorIcon
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1743	!
8185c4f20ed1 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12713 diff changeset	1744
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1745	testCaseFailedIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1746	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1747
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1748	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1749	^ ToolbarIconLibrary testCaseFailedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1750	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1751
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1752	testCasePassedIcon
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1753	<resource: #programImage>
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1754
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1755	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1756	^ ToolbarIconLibrary testCasePassedIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1757	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1758
12631 94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1759	testCaseSkippedIcon
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1760	<resource: #programImage>
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1761
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1762	"/ only left here for backward compatibility...
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1763	^ ToolbarIconLibrary testCaseSkippedIcon
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1764	!
94d188b87901 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12621 diff changeset	1765
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1766	testCaseUnknownResultIcon
4166 e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1767	<resource: #programImage>
e24130283125 * empty log message * Claus Gittinger <cg@exept.de> parents: 4165 diff changeset	1768
8862 dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1769	"/ only left here for backward compatibility...
dece7957557d comment/format in: #testCaseClassIconFor: Claus Gittinger <cg@exept.de> parents: 8853 diff changeset	1770	^ ToolbarIconLibrary testCaseClassIcon
4150 1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1771	!
1b60aaf75f2d icons Claus Gittinger <cg@exept.de> parents: 4143 diff changeset	1772
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1773	timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1774	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1775	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1776
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1777	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1778	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1779
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1780	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1781	self timeIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1782	ImageEditor openOnClass:self andSelector:#timeIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1783	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1784
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1785	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1786
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1787	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1788	constantNamed:#'SystemBrowser class timeIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1789	ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@G@A7@G\@=8C0 O>@_0A?@A0@@@@@a') ; colorMapFromArray:#[0 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'A0@_0C? O>A?<G?0_?@?8C? G<@G@@@a') ; yourself); yourself]
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1790	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1791
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1792	traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1793	"This resource specification was automatically generated
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1794	by the ImageEditor of ST/X."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1795
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1796	"Do not manually edit this!! If it is corrupted,
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1797	the ImageEditor may not be able to read the specification."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1798
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1799	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1800	self traceIcon inspect
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1801	ImageEditor openOnClass:self andSelector:#traceIcon
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1802	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1803
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1804	<resource: #image>
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1805
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1806	^Icon
8478 ca4c5daa3fb3 image resource method fixes (key must be name of method) Claus Gittinger <cg@exept.de> parents: 8281 diff changeset	1807	constantNamed:#'SystemBrowser class traceIcon'
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	1808	ifAbsentPut:[(Depth1Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@>@C8@G@@\@@ @B@@@@@@@@@@@a') ; colorMapFromArray:#[255 0 0 255 255 255]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'_?A?<C? O>@_0A?@C8@O @\@A0@B@@@a') ; yourself); yourself]
2830 36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1809	!
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1810
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1811	visualStartableClassIcon
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1812	"This resource specification was automatically generated
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1813	by the ImageEditor of ST/X."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1814
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1815	"Do not manually edit this!! If it is corrupted,
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1816	the ImageEditor may not be able to read the specification."
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1817
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1818	"
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1819	self visualStartableClassIcon inspect
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1820	ImageEditor openOnClass:self andSelector:#visualStartableClassIcon
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1821	"
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1822
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1823	<resource: #image>
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1824
36dee112c780 checkin from browser Claus Gittinger <cg@exept.de> parents: 2828 diff changeset	1825	^Icon
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1826	constantNamed:#'SystemBrowser class visualStartableClassIcon'
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1827	ifAbsentPut:[(Depth2Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(2 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'*JNJ"#"!!J(@!!T@J(DJ BDR(@!!TNJ(J BO2(@+.@J*** @b') ; colorMapFromArray:#[0 0 0 127 127 127 255 0 0 255 255 0]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@ @B@@\@C8@O @>@C8@H @>@A0@G@@@a') ; yourself); yourself]
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1828
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1829	"Modified: / 5.11.2001 / 09:49:30 / cg"
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1830	!
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1831
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1832	warningClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1833	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1834
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1835	^ ToolbarIconLibrary warningClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1836
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1837	"Modified: / 20-07-2007 / 09:04:39 / cg"
4275 aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1838	!
aeaf7c245b7a * empty log message * Claus Gittinger <cg@exept.de> parents: 4270 diff changeset	1839
2892 1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1840	watchIcon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1841	"This resource specification was automatically generated
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1842	by the ImageEditor of ST/X."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1843
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1844	"Do not manually edit this!! If it is corrupted,
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1845	the ImageEditor may not be able to read the specification."
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1846
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1847	"
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1848	self watchIcon inspect
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1849	ImageEditor openOnClass:self andSelector:#watchIcon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1850	"
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1851
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1852	<resource: #image>
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1853
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1854	^Icon
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1855	constantNamed:#'SystemBrowser class watchIcon'
1acef635a284 icons use less colors Claus Gittinger <cg@exept.de> parents: 2882 diff changeset	1856	ifAbsentPut:[(Depth4Image new) width: 13; height: 12; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@X@@@X@@@@AE XQY @@XALCDFD@@AD0@CDV@@XAL@@1A @AD0@P@1D@XBI!!DVH A QUPQEEU@@%"EDAVHT@IX]R@%!!5@FQUH@@%U@A&H$@@P"X@') ; colorMapFromArray:#[0 0 51 0 0 60 0 51 102 51 102 153 71 102 145 128 213 221 153 153 204 153 255 255 255 255 255]; mask:((Depth1Image new) width: 13; height: 12; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'FL@]0C7 O>A?<G?0??#=>O78?_#8>GA0') ; yourself); yourself]
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1857	!
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1858
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1859	windowClassIcon
7827 36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1860	<resource: #programImage>
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1861
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1862	^ ToolbarIconLibrary windowClassBrowserIcon
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1863
36dc2d8ec6b6 icons in ToolbarIconLibrary Claus Gittinger <cg@exept.de> parents: 7711 diff changeset	1864	"Modified: / 20-07-2007 / 09:05:57 / cg"
4143 abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1865	!
abafc869f5ce icons Claus Gittinger <cg@exept.de> parents: 4130 diff changeset	1866
3354 056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1867	windowIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1868	"This resource specification was automatically generated
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1869	by the ImageEditor of ST/X."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1870
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1871	"Do not manually edit this!! If it is corrupted,
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1872	the ImageEditor may not be able to read the specification."
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1873
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1874	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1875	self windowIcon inspect
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1876	ImageEditor openOnClass:self andSelector:#windowIcon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1877	"
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1878
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1879	<resource: #image>
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1880
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1881	^Icon
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1882	constantNamed:#'SystemBrowser class windowIcon'
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1883	ifAbsentPut:[(Depth4Image new) width: 13; height: 11; photometric:(#palette); bitsPerSample:(#(4 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'@@@@@@@@@@.;.;.;.0@@@@@@@@@@C.;.;.;/@@9&Y&Y&XP@NY&Y&Y&D@C&Y&Y&Y!!@@9&Y&Y&XP@NY&Y&Y&D@C1DQDQDQ@@@@@@@@@@@b') ; colorMapFromArray:#[0 0 0 255 255 255 255 0 0 0 255 0 0 0 255 0 255 255 255 255 0 255 0 255 127 0 0 0 127 0 0 0 127 0 127 127 127 127 0 127 0 127 127 127 127 170 170 170]; mask:((Depth1Image new) width: 13; height: 11; photometric:(#blackIs0); bitsPerSample:(#(1 )); samplesPerPixel:(1); bits:(ByteArray fromPackedString:'??#?>O?8??#?>O?8??#?>O?8??#?>@@a') ; yourself); yourself]
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1884
056873d29183 icons Claus Gittinger <cg@exept.de> parents: 3352 diff changeset	1885	"Created: / 5.11.2001 / 09:39:03 / cg"
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	1886	! !
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	1887
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1888	!SystemBrowser class methodsFor:'interface specs'!
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1889
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1890	metaSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1891	"UIPainter new openOnClass: self andSelector: #metaSpec"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1892
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1893	<resource: #canvas>
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1894	^#(#FullSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1895	#window:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1896	#(#WindowSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1897	#label: 'Unlabeled Canvas'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1898	#bounds: #(#Rectangle 27 249 325 334 ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1899	#component:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1900	#(#SpecCollection
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1901	#collection: #(
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1902	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1903	#layout: #(#LayoutFrame 0 0 4 0 -1 0.575 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1904	#name: #instanceSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1905	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1906	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1907	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1908	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1909	#label: 'instance'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1910	#select: false )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1911	#(#RadioButtonSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1912	#layout: #(#LayoutFrame 1 0.575 4 0 -1 1 20 0 )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1913	#name: #classSwitch
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1914	#model: #metaHolder
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1915	#callbacksSpec:
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1916	#(#UIEventCallbackSubSpec
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1917	#requestValueChangeSelector: #changeRequest )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1918	#label: 'class'
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1919	#select: true ) ) ) )
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1920
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1921	"Created: / 30.10.1997 / 19:07:29 / cg"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1922	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	1923
1203 ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1924	methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1925	"this window spec was automatically generated by the ST/X UIPainter"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1926
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1927	"do not manually edit this - the painter/builder may not be able to
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1928	handle the specification if its corrupted."
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1929
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1930	"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1931	UIPainter new openOnClass:SystemBrowser andSelector:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1932	SystemBrowser new openDialogInterface:#methodMoveDialogSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1933	"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1934
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1935	<resource: #canvas>
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1936
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1937	^
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1938
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1939	#(#FullSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1940	#'window:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1941	#(#WindowSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1942	#'name:' 'uIPainterView'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1943	#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1944	#'label:' 'move method'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1945	#'bounds:' #(#Rectangle 0 0 279 118)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1946	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1947	#'component:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1948	#(#SpecCollection
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1949	#'collection:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1950	#(
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1951	#(#HorizontalPanelViewSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1952	#'name:' 'horizontalPanelView'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1953	#'layout:' #(#LayoutFrame 0 0.0 -35 1.0 0 1.0 -2 1.0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1954	#'component:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1955	#(#SpecCollection
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1956	#'collection:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1957	#(
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1958	#(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1959	#'name:' 'actionButton2'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1960	#'label:' 'cancel'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1961	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1962	#'model:' #cancel
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1963	#'extent:' #(#Point 133 27)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1964	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1965	#(#ActionButtonSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1966	#'name:' 'actionButton1'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1967	#'label:' 'move'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1968	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1969	#'isDefault:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1970	#'model:' #accept
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1971	#'extent:' #(#Point 134 27)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1972	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1973	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1974	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1975	#'level:' 0
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1976	#'horizontalLayout:' #fitSpace
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1977	#'verticalLayout:' #center
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1978	#'horizontalSpace:' 4
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1979	#'verticalSpace:' 4
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1980	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1981	#(#LabelSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1982	#'name:' 'label'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1983	#'layout:' #(#LayoutFrame 2 0 2 0 -2 1.0 25 0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1984	#'label:' 'move current method to which class:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1985	#'style:'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1986	#(#Font
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1987	'helvetica' 'medium'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1988	'roman' 12
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1989	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1990	#'foregroundColor:' #(#Color 0.0 0.0 0.0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1991	#'backgroundColor:' #(#Color 66.9993 66.9993 66.9993)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1992	#'adjust:' #left
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1993	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1994	#(#ComboBoxSpec
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1995	#'name:' 'comboBox1'
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1996	#'layout:' #(#LayoutFrame 2 0 29 0 -2 1.0 51 0)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1997	#'tabable:' true
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1998	#'model:' #className
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	1999	#'comboList:' #classList
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2000	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2001	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2002	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2003	)
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2004
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2005	"Created: 25.6.1997 / 13:45:20 / cg"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2006	"Modified: 25.6.1997 / 13:46:44 / cg"
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2007	! !
ade0bcc06188 preps to use UISpecs Claus Gittinger <cg@exept.de> parents: 1190 diff changeset	2008
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	2009	!SystemBrowser class methodsFor:'private-helpers'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	2010
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2011	askForPackageChangeFrom:oldPkg to:newPkg
3626 abf84bdbfdb2 Remove unused method vars Stefan Vogel <sv@exept.de> parents: 3621 diff changeset	2012	\|answer box notAgain chk\|
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2013
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2014	box := OptionBox
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2015	title:
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2016	('You are about to change a method from another (system-) package.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2017	The methods original packageID was ''%1''.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2018	If you proceed, the new method will be marked as belonging
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2019	to the ''%2'' package (and this warning will not be shown again).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2020	If you proceed with ''keep'', the new method will be installed
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2021	but the old packageID will be preserved.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2022	Otherwise, hit ''cancel'' to leave the code unchanged.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2023
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2024	PS: if you disable this check here, it can be reenabled it in the launchers settings-compilation dialog.'
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2025	bindWith:(oldPkg allBold)
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2026	with:(newPkg allBold))
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2027	numberOfOptions:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2028
3476 685f67f7e818 * empty log message * Claus Gittinger <cg@exept.de> parents: 3471 diff changeset	2029	box buttonTitles:#('Cancel' 'Keep' 'Continue').
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2030	box defaultButtonIndex:3.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2031	box action:[:n \| answer := #(#cancel #keep #continue) at:n].
5833 5c2a75846afc Do not use obsolete methods with #form: Stefan Vogel <sv@exept.de> parents: 5802 diff changeset	2032	box label:'Method redefinition'; image:(WarningBox iconBitmap).
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2033	box yPosition:(box formLabel bottom max:box textLabel bottom).
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2034	box addVerticalSpace:10.
11291 d4d27edd6ab4 changed: #askForPackageChangeFrom:to: Claus Gittinger <cg@exept.de> parents: 11271 diff changeset	2035	chk := box addCheckBoxAtBottom:'Dont show this dialog again (never keep)' on:(notAgain := false asValue).
8158 f7b891e7fb75 added preferredWidth & preferredHeight Claus Gittinger <cg@exept.de> parents: 8139 diff changeset	2036	box preferredExtent:(box preferredExtent + (0 @ chk preferredHeight) + (0@10)).
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2037	box resize.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2038	box showAtPointer.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2039	box destroy.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2040
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2041	(answer ~~ #cancel) ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2042	notAgain value ifTrue:[
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2043	Class catchMethodRedefinitions:false.
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2044	].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2045	].
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2046	^ answer.
11291 d4d27edd6ab4 changed: #askForPackageChangeFrom:to: Claus Gittinger <cg@exept.de> parents: 11271 diff changeset	2047
d4d27edd6ab4 changed: #askForPackageChangeFrom:to: Claus Gittinger <cg@exept.de> parents: 11271 diff changeset	2048	"Modified: / 28-02-2012 / 10:41:52 / cg"
2880 ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2049	!
ef6fcc02a924 give user a chance to suppress the annoying package-change-keep Claus Gittinger <cg@exept.de> parents: 2846 diff changeset	2050
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2051	showNoneFound
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	2052	self warn:(self classResources string:'None found.').
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2053	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	2054
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2055	showNoneFound:what
1620 51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	2056	\|rs\|
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	2057
51341ec8360b checkin from browser Claus Gittinger <cg@exept.de> parents: 1573 diff changeset	2058	rs := self classResources.
3244 1e41eccb08b9 * empty log message * Claus Gittinger <cg@exept.de> parents: 3241 diff changeset	2059	self information:((rs string:what) , (rs string:'...\\... none found.')) withCRs.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2060	! !
36 ccde5a941840 * empty log message * claus parents: diff changeset	2061
4860 8e1a4b990512 method category rename Claus Gittinger <cg@exept.de> parents: 4852 diff changeset	2062	!SystemBrowser class methodsFor:'private-instance creation'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2063
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2064	newWithLabel:aString setupBlock:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2065	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2066
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2067	^ self newWithLabel:aString setupBlock:aBlock onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2068	!
ccde5a941840 * empty log message * claus parents: diff changeset	2069
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2070	newWithLabel:aString setupBlock:aBlock onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2071	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2072
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2073	\|newBrowser\|
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2074
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2075	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2076	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2077	aBlock value:newBrowser.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2078
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2079	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2080	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2081	!
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	2082
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2083	newWithLabel:aString setupSelector:aSymbol arg:arg
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2084	"common helper method for all creation methods"
36 ccde5a941840 * empty log message * claus parents: diff changeset	2085
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2086	^ self newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:Screen current
36 ccde5a941840 * empty log message * claus parents: diff changeset	2087	!
ccde5a941840 * empty log message * claus parents: diff changeset	2088
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2089	newWithLabel:aString setupSelector:aSymbol arg:arg onDevice:aWorkstation
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2090	"common helper method for all creation methods"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2091
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2092	\|newBrowser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2093
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2094	newBrowser := BrowserView onDevice:aWorkstation.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2095	newBrowser title:aString.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2096	newBrowser perform:aSymbol with:arg.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2097	newBrowser open.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2098	^ newBrowser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2099	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2100
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2101	!SystemBrowser class methodsFor:'special search startup'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2102
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2103	allCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2104	"return a collection of methods which send aSelector."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2105
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2106	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2107	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2108	in:(Smalltalk allClasses)
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2109	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2110	match:false
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2111
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2112	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2113	SystemBrowser allCallsOn:#at:put:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2114	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2115
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2116	"Created: 24.1.1997 / 19:42:57 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2117	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2118
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2119	allCallsOn:aSelectorString in:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2120	"return a collection of methods which send aSelector.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2121	Methods from classes in aCollectionOfClasses are searched only."
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2122
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2123	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2124	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2125	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2126	ignoreCase:false
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2127	match:false
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2128	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2129
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2130	allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2131	"return a collection of methods which send aSelector.
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2132	Methods from classes in aCollectionOfClasses are searched only."
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2133
9007 7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2134	^ self
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2135	allCallsOn:aSelectorString
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2136	in:aCollectionOfClasses
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2137	ignoreCase:ignoreCase
7e05080796d6 comment/format in: Claus Gittinger <cg@exept.de> parents: 9002 diff changeset	2138	match:true
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2139
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2140	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2141	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2142	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2143
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2144	"Modified: 18.4.1997 / 10:32:50 / cg"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2145	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2146
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2147	allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2148	"return a collection of methods which send aSelector.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2149	Methods from classes in aCollectionOfClasses are searched only."
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2150
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2151	\|sel searchBlock classesSearched\|
3471 4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2152
4c4b41516d96 care for empty selector in allCallsOn. Claus Gittinger <cg@exept.de> parents: 3470 diff changeset	2153	aSelectorString size == 0 ifTrue:[ ^ #() ].
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2154	doMatch ifFalse:[
5090 1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2155	ignoreCase ifFalse:[
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2156	sel := aSelectorString asSymbolIfInterned.
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2157	sel isNil ifTrue:[
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2158	^ #() "/ none (no such selector)
1d20f51a7d6f checkin from browser Claus Gittinger <cg@exept.de> parents: 5018 diff changeset	2159	].
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2160	].
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2161	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2162
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2163	classesSearched := aCollectionOfClasses.
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2164	(doMatch and:[aSelectorString includesMatchCharacters]) ifFalse:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2165	"/ exclude javaClasses, if selector cannot be a valid java-selector
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2166	(aSelectorString includes:$() ifFalse:[
12831 f7fe86345bc4 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12822 diff changeset	2167	classesSearched := classesSearched reject:[:eachClass \| eachClass theNonMetaclass isJavaClass ].
2846 b332c41c3daa allCallsOn fix Claus Gittinger <cg@exept.de> parents: 2830 diff changeset	2168	].
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2169	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	2170
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2171	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
4332 c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2172	searchBlock isNil ifTrue:[
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2173	^ #() "/ none (no such selector)
c8efd47b1a1c * empty log message * Claus Gittinger <cg@exept.de> parents: 4308 diff changeset	2174	].
2901 8d162dedd271 * empty log message * Claus Gittinger <cg@exept.de> parents: 2892 diff changeset	2175	^ self allMethodsIn:classesSearched where:searchBlock
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2176
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2177	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2178	SystemBrowser allCallsOn:#at:put: in:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2179	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2180
1143 0707461e582a avoid compilation of lazy methods when searching for senders Claus Gittinger <cg@exept.de> parents: 1059 diff changeset	2181	"Modified: 18.4.1997 / 10:32:50 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2182	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2183
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2184	allMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2185	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2186	wantInst/wantClass control if instMethods and/or classMethods are to be
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2187	considered.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2188	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2189
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2190	\|list activePriority\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2191
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2192	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2193	since this may take a long time, lower my priority ...
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2194	"
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2195	activePriority := Processor activePriority.
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	2196	Processor activeProcess
2769 768b6aa2fb5f eliminated a message Claus Gittinger <cg@exept.de> parents: 2748 diff changeset	2197	withPriority:activePriority-1 to:activePriority
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	2198	do:[
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2199	\|checkedClasses checkBlock detectedMethods\|
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2200
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2201	checkedClasses := IdentitySet new.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2202	list := OrderedCollection new.
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2203	detectedMethods := IdentitySet new.
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2204
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2205	checkBlock := [:cls \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2206	(checkedClasses includes:cls) ifFalse:[
8554 441ea25ad1fd Do not complain about obsolete classes which are unloaded when searching Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	2207	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	2208	Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2209	] ifFalse:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2210	cls methodDictionary keysAndValuesDo:[:sel :method \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2211	(aBlock value:cls value:method value:sel) ifTrue:[
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2212	"/ care for methods being in multiple classes (should not happen)
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2213	(detectedMethods includes:method) ifFalse:[
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2214	list add:method.
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2215	detectedMethods add:method
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2216	]
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2217	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2218	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2219	checkedClasses add:cls.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2220	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2221	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2222	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2223
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2224	aCollectionOfClasses do:[:aClass \|
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2225	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2226	output disabled - it slows down things too much (when searching for
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2227	implementors or senders)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2228	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2229	wantInst ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2230	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2231	checkBlock value:aClass
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2232	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2233	wantClass ifTrue:[
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2234	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2235	checkBlock value:(aClass class)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2236	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2237	Processor yield
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2238	]
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2239	].
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2240	^ list
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2241
2484 afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2242	"Created: / 24.1.1997 / 19:41:12 / cg"
afd8d8dbd9e2 care vor methods being found in multiple classes Claus Gittinger <cg@exept.de> parents: 2439 diff changeset	2243	"Modified: / 14.12.1999 / 14:59:02 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2244	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2245
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2246	allMethodsIn:aCollectionOfClasses where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2247	"return a collection of methods which pass the given test.
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2248	Only classes in aCollectionOfClasses are inspected in the search"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2249
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2250	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2251	allMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2252	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2253	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2254	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2255
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2256	"Created: 24.1.1997 / 19:41:49 / cg"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2257	!
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2258
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2259	aproposSearch:aString
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2260	"browse all methods, which have aString in their selector."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2261
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2262	^ self aproposSearch:aString in:(Smalltalk allClasses)
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	2263
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2264	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2265
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2266	aproposSearch:aString in:aCollectionOfClasses
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2267	"browse all methods, which have aString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2268	This is relatively slow, since all source must be processed."
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2269
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2270	\|matchString list s searchBlock browser\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2271
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2272	matchString := '' , aString , ''.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2273
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2274	list := OrderedCollection new.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2275
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2276	(aString includesMatchCharacters) ifTrue:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2277	s := '' , aString asLowercase , ''.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2278	"a matchString"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2279	searchBlock := [:text \| (text asCollectionOfLinesfindFirst:[:line \| s match:line]) ~~ 0].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2280	] ifFalse:[
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2281	searchBlock := [:source \| (source findString:aString asLowercase) ~~ 0]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2282	].
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2283
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2284	browser := self browseMethodsIn:aCollectionOfClasses
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2285	where:[:class :method :sel \|
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2286	\|comment\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2287
2655 9e90bbd1eb18 apropos search is now: selectors containing Claus Gittinger <cg@exept.de> parents: 2642 diff changeset	2288	(searchBlock value:sel asLowercase)
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2289	]
2729 9af04074a4bb no direct access to super-class-instvars Claus Gittinger <cg@exept.de> parents: 2728 diff changeset	2290	title:(self classResources string:'selectors containing: %1' with:aString).
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2291
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2292	browser notNil ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2293	browser autoSearch:aString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2294	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2295	^ browser
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2296
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2297	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2298	SystemBrowser aproposSearch:'append' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2299	SystemBrowser aproposSearch:'add' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2300	SystemBrowser aproposSearch:'sort' in:(Collection withAllSubclasses)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2301	SystemBrowser aproposSearch:'[Aa]bsent' in:(Collection withAllSubclasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2302	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2303
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2304	"Created: 9.12.1995 / 18:02:36 / cg"
204 6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 203 diff changeset	2305	!
6f4460d5a09d added supersend searches; offer comparing the current version with the Claus Gittinger <cg@exept.de> parents: 203 diff changeset	2306
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2307	browseAllCallsOn:aSelectorString
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2308	"launch a browser for all senders of aSelector.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	2309	Notice: better go via Smalltalk browseAllCallsOn:, which honors the tool-preferences"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2310
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2311	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2312	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2313	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2314
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2315	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2316	SystemBrowser browseAllCallsOn:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2317	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2318
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2319	"Created: 9.12.1995 / 18:00:41 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2320	"Modified: 10.7.1996 / 10:26:15 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2321	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2322
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2323	browseAllCallsOn:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2324	"launch a browser for all senders of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2325
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2326	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2327	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2328	in:aSetOfClasses
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2329	title:(self classResources string:'Senders of: %1' with:aSelectorString)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2330
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2331	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2332	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2333	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2334
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2335	"Created: 10.7.1996 / 10:25:49 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2336	"Modified: 24.1.1997 / 19:49:34 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2337	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2338
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2339	browseAllCallsOn:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2340	"launch a browser for all senders of aSelector"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2341
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2342	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2343	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2344	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2345	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2346	title:(self classResources string:'Senders of: %1' with:aSelectorString)
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2347
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2348	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2349	SystemBrowser browseAllCallsOn:#+ in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2350	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2351
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2352	"Created: 10.7.1996 / 10:25:49 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2353	"Modified: 24.1.1997 / 19:49:34 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2354	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2355
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2356	browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:match title:titleArg
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2357	"launch a browser for all senders of aSelector in aCollectionOfClasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2358
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2359	\|list list2 browser selWithColon title rs\|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2360
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2361	title := titleArg.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2362
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	2363	list := self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2364	list isEmpty ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2365	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2366	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2367	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2368	list2 := self allCallsOn:selWithColon in:aCollectionOfClasses ignoreCase:ignoreCase match:true.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2369	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2370	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2371	list2 size == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2372	self showNoneFound:title.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2373	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2374	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2375	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2376	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2377	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2378	(rs string:'\\But I found %1 sends of the "%2" message (with colon).\\Browse those ?'
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2379	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2380	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2381	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2382	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2383	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	2384	title := title , ':'.
4200 3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2385	].
3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2386
3859a6fee797 show none found Claus Gittinger <cg@exept.de> parents: 4198 diff changeset	2387	browser := self browseMethods:list title:title.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2388	browser notNil ifTrue:[
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2389	\|s\|
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2390
8139 acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2391	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2392	"/ kludge for now, if its a multipart selector,
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2393	"/ no easy search is (as yet) possible
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2394	"/ "
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2395	"/ s := aSelectorString.
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2396	"/ (s includes:$:) ifTrue:[
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2397	"/ s := s copyTo:(s indexOf:$:)
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2398	"/ ].
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2399	"/ browser autoSearch:s
acdaec7c63a0 auto-search for selector (not string) when searching senders. Claus Gittinger <cg@exept.de> parents: 8129 diff changeset	2400	browser autoSearchSelector:aSelectorString ignoreCase:ignoreCase doMatch:true.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2401	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2402	^ browser
648 6ec086b7972c Move method's literals form literalArray to indexed instvars. Stefan Vogel <sv@exept.de> parents: 634 diff changeset	2403
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2404	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2405	SystemBrowser
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2406	browseAllCallsOn:#+
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2407	in:(Number withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2408	title:'just a test'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2409	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2410
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2411	"Modified: / 24-01-1997 / 19:48:54 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2412	"Created: / 14-02-2012 / 14:19:51 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2413	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2414
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2415	browseAllCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2416	"launch a browser for all senders of aSelector in aCollectionOfClasses"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2417
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2418	^ self
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2419	browseAllCallsOn:aSelectorString
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2420	in:aCollectionOfClasses
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2421	ignoreCase:ignoreCase
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2422	match:true
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2423	title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2424
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2425	"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2426	SystemBrowser
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2427	browseAllCallsOn:#+
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2428	in:(Number withAllSubclasses)
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2429	title:'just a test'
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2430	"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2431
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	2432	"Modified: / 14-02-2012 / 14:20:17 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2433	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2434
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2435	browseAllCallsOn:aSelectorString in:aCollectionOfClasses title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2436	"launch a browser for all senders of aSelector in aCollectionOfClasses"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2437
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2438	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2439	browseAllCallsOn:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2440	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2441	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2442	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2443
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2444	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2445	SystemBrowser
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2446	browseAllCallsOn:#+
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2447	in:(Number withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2448	title:'just a test'
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2449	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2450
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2451	"Modified: 24.1.1997 / 19:48:54 / cg"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2452	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2453
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2454	browseCallsOn:aSelectorString under:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2455	"launch a browser for all senders of aSelector in aClass and subclasses"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2456
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2457	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2458	browseAllCallsOn:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2459	in:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2460	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2461	string:'Senders of: %1 (in and below %2)'
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2462	with:aSelectorString
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2463	with:aClass name)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2464
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2465	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2466	SystemBrowser browseCallsOn:#+ under:Number
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2467	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2468
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2469	"Created: 9.12.1995 / 17:59:57 / cg"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	2470	"Modified: 24.1.1997 / 19:50:33 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2471	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2472
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2473	browseClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2474	"launch a browser for all methods in aClass where the classVar named
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2475	aString is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2476	classvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2477
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2478	^ self browseRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2479	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2480
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2481	browseClassRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2482	"launch a browser for all methods in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2483	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2484	if modsOnly is true, browse only methods where the classvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2485
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2486	^ self browseRefsTo:varName classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2487	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2488
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2489	browseClassRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2490	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2491	where the classVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2492	if modsOnly is true, browse only methods where the classvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2493
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2494	^ self browseClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2495
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2496	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2497
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2498	browseForResource:aResourceSymbol containing:item in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2499	"launch a browser for all methods which have a particular (or any, ifNil)
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2500	resource in aCollectionOfClasses.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2501	If aKey is nonNil, only methods which have aKey in the (any) resourceSpec
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2502	are parsed.
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2503	I.e. to find all methods, which access the styleSheets, use:
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2504	browseForResource:#style containing:nil in:... title:...
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2505	to find methods which access the 'arrowButtonDownForm' styleSheet entry, use:
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2506	browseForResource:#style containing:'arrowButtonDownForm' in:... title:..."
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2507
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	2508	\|browser searchBlock\|
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2509
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2510	"/ search for any resource can be done without looking
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2511	"/ at the source ...
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2512	(aResourceSymbol isNil and:[item isNil]) ifTrue:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2513	searchBlock := [:class :method :s \| method hasResource]
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2514	] ifFalse:[
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2515	searchBlock := [:class :method :s \|
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2516	\|rsrc val found\|
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2517
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2518	found := false.
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2519	method hasResource ifTrue:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2520	rsrc := method resources.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2521	rsrc notNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2522	aResourceSymbol isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2523	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2524	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2525	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2526	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2527	rsrc keysAndValuesDo:[:rsrc :val \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2528	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2529	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2530	found := item match:v printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2531	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2532	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2533	found := item match:val printString
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2534	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2535	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2536	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2537	found := item match:rsrc printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2538	]
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2539	]
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2540	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2541	(rsrc includesKey:aResourceSymbol) ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2542	item isNil ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2543	found := true
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2544	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2545	rsrc isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2546	val := rsrc at:aResourceSymbol.
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2547	val isCollection ifTrue:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2548	val do:[:v \|
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2549	found := item match:v printString
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2550	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2551	] ifFalse:[
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2552	found := item match:val printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2553	]
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2554	] ifFalse:[
4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2555	found := item match:rsrc printString
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2556	]
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2557	]
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2558	]
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2559	]
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2560	].
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2561	].
1356 0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2562	found
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2563	].
0080df099c35 checkin from browser Claus Gittinger <cg@exept.de> parents: 1203 diff changeset	2564	].
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2565
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2566	browser := self browseMethodsIn:aCollectionOfClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2567	where:searchBlock
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2568	title:title.
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2569	browser notNil ifTrue:[
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2570	browser autoSearch:'resource:'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2571	].
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2572	^ browser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2573
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2574	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2575	SystemBrowser
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2576	browseForResource:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2577	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2578	title:'methods with a resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2579	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2580	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2581	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2582	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2583	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2584	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2585	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2586	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2587	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2588	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2589	browseForResource:#style
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2590	containing:'arrowButton*'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2591	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2592	title:'methods with a #style resource'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2593	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2594
1573 4b6ce12dff2b dont duplicate the code in method>>resources Claus Gittinger <cg@exept.de> parents: 1561 diff changeset	2595	"Modified: / 22.4.1998 / 10:29:20 / cg"
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2596	!
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2597
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2598	browseForResource:aResourceSymbol in:aCollectionOfClasses title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2599	"launch a browser for all methods which have a particular (or any, ifNil)
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2600	resource in aCollectionOfClasses"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2601
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2602	^ self
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2603	browseForResource:aResourceSymbol
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2604	containing:nil
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2605	in:aCollectionOfClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2606	title:title
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2607
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2608	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2609	SystemBrowser
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2610	browseForResource:#style
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2611	in:Smalltalk allClasses
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2612	title:'methods accessing styleSheet values'
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2613	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2614	"
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2615	SystemBrowser
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2616	browseForResource:#keyboard
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2617	in:Smalltalk allClasses
a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2618	title:'methods handling keyboard events'
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2619	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2620	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2621	SystemBrowser
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2622	browseForResource:nil
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2623	in:Smalltalk allClasses
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2624	title:'methods with a resource'
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2625	"
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2626
929 a2275f1b4c94 enhanced resource search, to search for a particular Claus Gittinger <cg@exept.de> parents: 825 diff changeset	2627	"Modified: 9.1.1997 / 12:44:38 / cg"
573 e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2628	!
e32bd3e46a72 added startup for searching resourceSpecs Claus Gittinger <cg@exept.de> parents: 553 diff changeset	2629
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2630	browseForString:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2631	"launch a browser for all methods containing a string in their source.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2632	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2633
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2634	^ self browseForString:aString in:(Smalltalk allClasses) ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2635
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2636	"Modified: / 18.6.1998 / 16:42:39 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2637	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2638
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2639	browseForString:aString in:aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2640	"launch a browser for all methods in aCollectionOfClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2641	containing a string in their source.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2642	This may be slow, since source-code has to be scanned."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2643
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2644	^ self
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2645	browseForString:aString
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2646	in:aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2647	ignoreCase:false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2648
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2649	"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2650	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2651	SystemBrowser browseForString:'should' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2652	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2653	"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2654
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2655	"Created: / 9.12.1995 / 18:03:12 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2656	"Modified: / 18.6.1998 / 16:43:27 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2657	!
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2658
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2659	browseForString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2660	"launch a browser for all methods in aCollectionOfClasses
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2661	containing a string in their source.
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2662	This may be slow, since source-code has to be scanned."
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2663
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2664	\|browser searchBlock title s\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2665
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2666	title := self classResources string:'Methods containing: %1' with:aString displayString.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2667
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2668	(aString includesMatchCharacters
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2669	or:[ignoreCase]) ifTrue:[
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2670	s := '' , aString , ''.
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2671	"a matchString"
475 b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2672	searchBlock := [:c :m :sel \|
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2673	\|src\|
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2674	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2675	src isNil ifTrue:[
2208 e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available) Claus Gittinger <cg@exept.de> parents: 1937 diff changeset	2676	('Browser [info]: no source for ' , m printString) infoPrintCR.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2677	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2678	] ifFalse:[
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	2679	s match:src caseSensitive:ignoreCase not
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2680	]
475 b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2681	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2682	] ifFalse:[
475 b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2683	searchBlock := [:c :m :sel \|
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2684	\|src\|
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2685
b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2686	src := m source.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2687	src isNil ifTrue:[
2208 e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available) Claus Gittinger <cg@exept.de> parents: 1937 diff changeset	2688	('Browser [info]: no source for ' , m printString) infoPrintCR.
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2689	false
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2690	] ifFalse:[
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2691	(src findString:aString) ~~ 0
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2692	]
475 b14b3ab39af6 dont crash if searching a string in a method which has no accessable source Claus Gittinger <cg@exept.de> parents: 436 diff changeset	2693	]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2694	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2695	browser := self browseMethodsIn:aCollectionOfClasses where:searchBlock title:title.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2696
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2697	browser notNil ifTrue:[
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2698	browser autoSearch:aString ignoreCase:ignoreCase
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2699	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2700	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2701
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2702	"
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2703	SystemBrowser browseForString:'all' in:(Array with:Object)
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2704	SystemBrowser browseForString:'should' in:(Array with:Object)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2705	SystemBrowser browseForString:'[eE]rror' in:(Array with:Object)
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2706	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2707
1703 ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2708	"Created: / 18.6.1998 / 16:42:50 / cg"
ea66390f879b added ignoreCase option to string-search. Claus Gittinger <cg@exept.de> parents: 1681 diff changeset	2709	"Modified: / 18.6.1998 / 16:51:25 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2710	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2711
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2712	browseForSymbol:aSymbol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2713	"launch a browser for all methods referencing aSymbol"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2714
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2715	^ self
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2716	browseForSymbol:aSymbol
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	2717	title:(self classResources string:'Users of: %1' with:aSymbol)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2718	warnIfNone:true
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2719
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2720	"Created: 9.12.1995 / 18:04:34 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2721	"Modified: 10.7.1996 / 10:35:34 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2722	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2723
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2724	browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2725	"launch a browser for all methods referencing aSymbol"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2726
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2727	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2728	browseForSymbol:aSymbol
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2729	in:aSetOfClasses
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2730	title:title
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2731	warnIfNone:doWarn
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	2732	searchFor:aSymbol
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2733	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2734
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2735	browseForSymbol:aSymbol in:aSetOfClasses title:title warnIfNone:doWarn searchFor:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2736	"launch a browser for all methods referencing aSymbol"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2737
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2738	\|browser searchBlock sym\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2739
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2740	(aSymbol includesMatchCharacters) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2741	"a matchString"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2742	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2743	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2744	(aLiteral isMemberOf:Symbol)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2745	and:[aSymbol match:aLiteral]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2746	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2747	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2748	] ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2749	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2750	can do a faster search
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2751	"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2752	sym := aSymbol asSymbolIfInterned.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2753	sym isNil ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2754	self showNoneFound:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2755	^ nil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2756	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2757
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2758	searchBlock := [:c :m :s \|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2759	(m literalsDetect:[:aLiteral\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2760	(sym == aLiteral)
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2761	] ifNone:nil) notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2762	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2763	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2764	doWarn ifFalse:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2765	WarningSignal ignoreIn:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2766	browser := self browseMethodsIn:aSetOfClasses where:searchBlock title:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2767	]
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2768	] ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2769	browser := self browseMethodsIn:aSetOfClasses where:searchBlock title:title.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2770	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2771
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2772	(browser notNil
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2773	and:[searchString notNil]) ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2774	browser autoSearch:searchString
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2775	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2776	^ browser
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2777
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2778	"Modified: 24.6.1996 / 14:39:07 / stefan"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2779	"Modified: 30.6.1996 / 16:45:25 / cg"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2780	"Created: 31.10.1996 / 14:57:30 / cg"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2781	!
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2782
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2783	browseForSymbol:aSymbol title:title ifNone:actionIfNoneFound searchFor:searchString
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2784	"launch a browser for all methods referencing aSymbol"
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2785
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2786	\|browser searchBlock\|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2787
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2788	searchBlock := self searchBlockForSymbol:aSymbol.
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	2789	searchBlock == false ifTrue:[
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	2790	actionIfNoneFound value.
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	2791	^ nil
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	2792	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2793
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2794	WarningSignal ignoreIn:[
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2795	InformationSignal ignoreIn:[
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2796	browser := self browseMethodsWhere:searchBlock title:title.
a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2797	]
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2798	].
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2799	browser isNil ifTrue:[
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	2800	actionIfNoneFound value.
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	2801	^ nil
215 244f3a9b2a60 check for existing class in rename; avoid warnbox if no refs are found after rename Claus Gittinger <cg@exept.de> parents: 204 diff changeset	2802	].
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2803
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2804	(browser notNil and:[searchString notNil]) ifTrue:[
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	2805	browser autoSearch:searchString
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2806	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2807	^ browser
375 a82f2fe29802 checkin from browser Claus Gittinger <cg@exept.de> parents: 279 diff changeset	2808
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2809	"Modified: / 24-06-1996 / 14:39:07 / stefan"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2810	"Created: / 31-10-1996 / 14:45:08 / cg"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	2811	"Modified: / 22-03-2012 / 06:58:07 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2812	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	2813
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2814	browseForSymbol:aSymbol title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2815	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2816
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2817	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2818	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2819	title:title
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2820	warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2821	searchFor:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2822
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2823	"Modified: 31.10.1996 / 14:45:38 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2824	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2825
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2826	browseForSymbol:aSymbol title:title warnIfNone:doWarn searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2827	"launch a browser for all methods referencing aSymbol"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2828
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2829	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2830
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2831	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2832	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2833	].
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2834	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2835	browseForSymbol:aSymbol
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2836	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	2837	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2838	searchFor:searchString
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2839	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	2840
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2841	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2842	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2843
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2844	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2845	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2846	in:(Smalltalk allClasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2847
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2848	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2849	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2850	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2851	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2852
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2853	"Created: / 9.12.1995 / 18:01:18 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2854	"Modified: / 5.11.2001 / 17:31:11 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2855	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2856
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2857	browseImplementorsMatching:aSelectorString in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2858	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2859
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2860	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2861	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2862	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2863	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2864
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2865	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2866	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2867	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2868	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2869
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2870	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2871	"Modified: / 5.11.2001 / 17:30:57 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2872	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2873
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2874	browseImplementorsMatching:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2875	"launch a browser for all implementors of aSelector"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2876
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2877	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2878	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2879	in:aSetOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2880	ignoreCase:ignoreCase
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2881	title:(self classResources string:'implementors of: %1' with:aSelectorString)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2882
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2883	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2884	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2885	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2886	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2887
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2888	"Created: / 10.7.1996 / 10:20:59 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2889	"Modified: / 5.11.2001 / 17:30:43 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2890	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2891
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2892	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2893	"launch a browser for all implementors of aSelector in
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2894	the classes contained in aCollectionOfClasses and its metaclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2895
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2896	\|list\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2897
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2898	list := self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2899	findImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2900	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2901	ignoreCase:ignoreCase.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2902
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2903	list size == 0 ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2904	self showNoneFound:title.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2905	^ nil
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2906	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2907
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2908	^ self browseMethods:list asOrderedCollection title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2909
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2910	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2911	SystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2912	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2913	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2914	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2915	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2916
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2917	NewSystemBrowser browseImplementorsOf:#+
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2918	in:(Array with:Number
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2919	with:Float
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2920	with:SmallInteger)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2921	title:'some implementors of +'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2922	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2923
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2924	"Modified: / 4.9.1995 / 17:33:39 / claus"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2925	"Modified: / 19.6.1996 / 14:19:02 / stefan"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2926	"Modified: / 5.11.2001 / 17:30:38 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2927	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2928
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2929	browseImplementorsMatching:aSelectorString in:aCollectionOfClasses title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2930	"launch a browser for all implementors of aSelector in
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2931	the classes contained in aCollectionOfClasses and its metaclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2932
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2933	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2934	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2935	in:aCollectionOfClasses
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2936	ignoreCase:false
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2937	title:title
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2938	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2939
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2940	browseImplementorsMatching:aSelectorString under:aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2941	"launch a browser for all implementors of aSelector in aClass
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2942	and its subclasses"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2943
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2944	^ self
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2945	browseImplementorsMatching:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2946	in:(aClass withAllSubclasses)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2947	title:(self classResources
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2948	string:'implementors of: %1 (in and below %2)'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2949	with:aSelectorString
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2950	with:aClass name)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2951
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2952	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2953	SystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2954	NewSystemBrowser browseImplementorsOf:#+ under:Integer
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2955	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2956
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2957	"Created: / 9.12.1995 / 18:06:09 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2958	"Modified: / 5.11.2001 / 17:30:15 / cg"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2959	!
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	2960
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2961	browseImplementorsOf:aSelectorString
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2962	"launch a browser for all implementors of aSelector"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2963
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2964	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2965	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2966	in:(Smalltalk allClasses)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2967
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2968	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2969	SystemBrowser browseImplementorsOf:#+
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2970	NewSystemBrowser browseImplementorsOf:#+
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2971	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	2972
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2973	"Created: / 9.12.1995 / 18:01:18 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2974	"Modified: / 5.11.2001 / 17:31:11 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2975	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2976
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2977	browseImplementorsOf:aSelectorString in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2978	"launch a browser for all implementors of aSelector"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2979
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2980	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2981	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2982	in:aSetOfClasses
8704 f5b8ba75a158 some code cleanup Claus Gittinger <cg@exept.de> parents: 8702 diff changeset	2983	title:(self classResources string:'Implementors of: %1' with:aSelectorString allBold)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2984
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2985	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2986	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2987	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2988	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	2989
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2990	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	2991	"Modified: / 5.11.2001 / 17:30:57 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	2992	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	2993
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2994	browseImplementorsOf:aSelectorString in:aSetOfClasses ignoreCase:ignoreCase
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2995	"launch a browser for all implementors of aSelector"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2996
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2997	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2998	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	2999	in:aSetOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3000	ignoreCase:ignoreCase
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3001	title:(self classResources string:'Implementors of: %1' with:aSelectorString)
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3002
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3003	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3004	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3005	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3006	"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3007
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3008	"Created: / 10.7.1996 / 10:20:59 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3009	"Modified: / 5.11.2001 / 17:30:43 / cg"
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3010	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3011
11271 efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3012	browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3013	"launch a browser for all implementors of aSelector in
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3014	the classes contained in aCollectionOfClasses and its metaclasses"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3015
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3016	doMatch ifTrue:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3017	self browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3018	] ifFalse:[
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3019	self browseImplementorsMatching:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3020	].
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3021
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3022	"Created: / 14-02-2012 / 13:55:23 / cg"
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3023	!
efce0b7d3072 class definition Claus Gittinger <cg@exept.de> parents: 10897 diff changeset	3024
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3025	browseImplementorsOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase title:titleArg
36 ccde5a941840 * empty log message * claus parents: diff changeset	3026	"launch a browser for all implementors of aSelector in
ccde5a941840 * empty log message * claus parents: diff changeset	3027	the classes contained in aCollectionOfClasses and its metaclasses"
ccde5a941840 * empty log message * claus parents: diff changeset	3028
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3029	\|list list2 rs selWithColon title top20 allSelectors choice but globalClass global \|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3030
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3031	title := titleArg.
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3032	list := self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3033	findImplementorsOf:aSelectorString
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3034	in:aCollectionOfClasses
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3035	ignoreCase:ignoreCase.
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	3036
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3037	list size == 0 ifTrue:[
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3038	aSelectorString numArgs == 0 ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3039	selWithColon := aSelectorString , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3040	selWithColon knownAsSymbol ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3041	list2 := self findImplementorsOf:selWithColon in:aCollectionOfClasses ignoreCase:ignoreCase.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3042	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3043	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3044	list2 size == 0 ifTrue:[
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3045	"/ self showNoneFound:title.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3046	"/ ^ self
8688 71d973fdd817 * empty log message * Claus Gittinger <cg@exept.de> parents: 8685 diff changeset	3047	allSelectors := Set new.
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3048	top20 := SortedCollection new.
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3049	top20 sortBlock:[:a :b \| (a spellAgainst:aSelectorString) > (b spellAgainst:aSelectorString)].
8759 1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3050	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
12475 469fd10da830 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12073 diff changeset	3051	((eachSelector asLowercase startsWith:aSelectorString) or:[(eachSelector spellAgainst:aSelectorString) > 50]) ifTrue:[
8759 1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3052	(allSelectors includes:eachSelector) ifFalse:[
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3053	allSelectors add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3054	top20 add:eachSelector.
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3055	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
1ef143757126 * empty log message * Claus Gittinger <cg@exept.de> parents: 8704 diff changeset	3056	]
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3057	]
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3058	].
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3059	top20 isEmpty ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3060	\|lcSelector\|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3061
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3062	lcSelector := aSelectorString asLowercase.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3063	Smalltalk allMethodsWithSelectorDo:[:eachMethod :eachSelector \|
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3064	(eachSelector asLowercase spellAgainst:lcSelector) > 50 ifTrue:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3065	(allSelectors includes:eachSelector) ifFalse:[
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3066	allSelectors add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3067	top20 add:eachSelector.
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3068	top20 size > 20 ifTrue:[ top20 removeLast. allSelectors := top20 asSet ].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3069	]
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3070	]
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3071	].
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3072	].
12621 a0af9112b051 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12575 diff changeset	3073	but := ''.
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3074	(globalClass := Smalltalk classNamed:aSelectorString) notNil ifTrue:[
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3075	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse class ',aSelectorString,' <<'); yourself.
12621 a0af9112b051 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12575 diff changeset	3076	but := '\But there exists a class by that name.'.
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3077	] ifFalse:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3078	(aSelectorString knownAsSymbol
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3079	and:[ (global := Smalltalk at:aSelectorString asSymbol) notNil ])
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3080	ifTrue:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3081	global isBehavior ifTrue:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3082	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse alias ',aSelectorString,' <<'); yourself.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3083	but := '\But there exists a global alias by that name.'.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3084	globalClass := global
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3085	] ifFalse:[
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3086	top20 := (OrderedCollection withAll:top20) addFirst:('>> Browse class of ',aSelectorString,' <<'); yourself.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3087	but := '\But there exists a global by that name.'.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3088	globalClass := global class.
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3089	]
6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3090	].
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3091	].
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3092	choice := Dialog
12621 a0af9112b051 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12575 diff changeset	3093	choose:(title,(' - none found.',but,'\\Browse implementors of a similar selector or cancel:') withCRs)
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3094	fromList:top20
7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3095	lines:10.
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3096
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3097	choice notEmptyOrNil ifTrue:[
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3098	(choice startsWith:'>>') ifTrue:[
13128 6f770c1da3f5 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13071 diff changeset	3099	self openInClass:globalClass selector:nil.
12575 7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3100	] ifFalse:[
7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3101	self browseImplementorsOf:choice in:aCollectionOfClasses ignoreCase:ignoreCase title:'Implementors of ',choice.
7fd56ce01f68 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12504 diff changeset	3102	]
8678 7d5bb9de7f7d * empty log message * Claus Gittinger <cg@exept.de> parents: 8554 diff changeset	3103	].
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3104	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3105	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3106	rs := self classResources.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3107	(Dialog confirm:((rs string:title) ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3108	(rs string:'...\\... none found.') ,
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3109	(rs string:'\\But I found %1 implementor(s) of the "%2" message (with colon).\\Browse those ?'
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3110	with:list2 size
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3111	with:selWithColon allBold)) withCRs) ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3112	^ nil
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3113	].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3114	list := list2.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3115	title := title , ':'.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	3116
36 ccde5a941840 * empty log message * claus parents: diff changeset	3117	].
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3118
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3119	^ self browseMethods:list asOrderedCollection title:title
36 ccde5a941840 * empty log message * claus parents: diff changeset	3120
ccde5a941840 * empty log message * claus parents: diff changeset	3121	"
ccde5a941840 * empty log message * claus parents: diff changeset	3122	SystemBrowser browseImplementorsOf:#+
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3123	in:(Array with:Number
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3124	with:Float
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3125	with:SmallInteger)
f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	3126	title:'some implementors of +'
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3127
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3128	NewSystemBrowser browseImplementorsOf:#+
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3129	in:(Array with:Number
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3130	with:Float
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3131	with:SmallInteger)
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3132	title:'some implementors of +'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3133	"
132 9bf0c15113f2 . claus parents: 118 diff changeset	3134
9685 629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3135	"Modified: / 04-09-1995 / 17:33:39 / claus"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3136	"Modified: / 19-06-1996 / 14:19:02 / stefan"
629e1d789a2d changed: #browseImplementorsOf:in:ignoreCase:title: Claus Gittinger <cg@exept.de> parents: 9660 diff changeset	3137	"Modified: / 15-01-2011 / 14:35:56 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3138	!
ccde5a941840 * empty log message * claus parents: diff changeset	3139
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3140	browseImplementorsOf:aSelectorString in:aCollectionOfClasses title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3141	"launch a browser for all implementors of aSelector in
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3142	the classes contained in aCollectionOfClasses and its metaclasses"
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3143
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3144	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3145	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3146	in:aCollectionOfClasses
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3147	ignoreCase:false
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3148	title:title
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3149
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3150	!
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3151
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3152	browseImplementorsOf:aSelectorString under:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3153	"launch a browser for all implementors of aSelector in aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3154	and its subclasses"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3155
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3156	^ self
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3157	browseImplementorsOf:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3158	in:(aClass withAllSubclasses)
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3159	title:(self classResources
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3160	string:'Implementors of: %1 (in and below %2)'
2623 9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3161	with:aSelectorString
9e488daf53da allow for senders/implementors to be searched with caseIgnore Claus Gittinger <cg@exept.de> parents: 2551 diff changeset	3162	with:aClass name)
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3163
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3164	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3165	SystemBrowser browseImplementorsOf:#+ under:Integer
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3166	NewSystemBrowser browseImplementorsOf:#+ under:Integer
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3167	"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3168
3360 2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3169	"Created: / 9.12.1995 / 18:06:09 / cg"
2eab40d1a498 isMeta/soleInstance -> theNonMetaclass Claus Gittinger <cg@exept.de> parents: 3354 diff changeset	3170	"Modified: / 5.11.2001 / 17:30:15 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3171	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3172
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3173	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3174	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3175
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3176	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3177	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3178	in:(Smalltalk allClasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3179
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3180	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3181	SystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3182	NewSystemBrowser browseImplementorsOfAny:#( #+ #- )
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3183	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3184
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3185	"Created: / 9.12.1995 / 18:01:18 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3186	"Modified: / 5.11.2001 / 17:31:11 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3187	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3188
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3189	browseImplementorsOfAny:setOfSelectors in:aSetOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3190	"launch a browser for all implementors of aSelector"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3191
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3192	\|title\|
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3193
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3194	setOfSelectors size == 1 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3195	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3196	string:'Implementors of %1'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3197	with:(setOfSelectors asOrderedCollection first).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3198	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3199	setOfSelectors size == 2 ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3200	title := self classResources
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3201	string:'Implementors of %1 or %2'
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3202	with:(setOfSelectors asOrderedCollection first)
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3203	with:(setOfSelectors asOrderedCollection second).
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3204	] ifFalse:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3205	title := self classResources string:'Implementors of some'.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3206	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3207	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3208
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3209	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3210	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3211	in:aSetOfClasses
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	3212	title:title
3663 5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3213
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3214	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3215	SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3216	NewSystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3217	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3218
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3219	"Created: / 10.7.1996 / 10:20:59 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3220	"Modified: / 5.11.2001 / 17:30:57 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3221	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3222
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3223	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3224	"launch a browser for all implementors of aSelector in
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3225	the classes contained in aCollectionOfClasses and its metaclasses"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3226
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3227	\|list\|
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3228
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3229	list := self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3230	findImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3231	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3232	ignoreCase:ignoreCase.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3233
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3234	list size == 0 ifTrue:[
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3235	self showNoneFound:title.
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3236	^ nil
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3237	].
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3238
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3239	^ self browseMethods:list asOrderedCollection title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3240
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3241	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3242	SystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3243	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3244	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3245	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3246	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3247
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3248	NewSystemBrowser browseImplementorsOf:#+
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3249	in:(Array with:Number
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3250	with:Float
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3251	with:SmallInteger)
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3252	title:'some implementors of +'
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3253	"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3254
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3255	"Modified: / 4.9.1995 / 17:33:39 / claus"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3256	"Modified: / 19.6.1996 / 14:19:02 / stefan"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3257	"Modified: / 5.11.2001 / 17:30:38 / cg"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3258	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3259
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3260	browseImplementorsOfAny:setOfSelectors in:aCollectionOfClasses title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3261	"launch a browser for all implementors of aSelector in
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3262	the classes contained in aCollectionOfClasses and its metaclasses"
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3263
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3264	^ self
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3265	browseImplementorsOfAny:setOfSelectors
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3266	in:aCollectionOfClasses
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3267	ignoreCase:false
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3268	title:title
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3269	!
5163f3c2d560 findImplementorsOfAny Claus Gittinger <cg@exept.de> parents: 3626 diff changeset	3270
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3271	browseInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3272	"launch a browser for all methods in aClass where the instVar named
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3273	aString is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3274	instvar is modified"
45 950b84ba89e6 * empty log message * claus parents: 41 diff changeset	3275
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3276	^ self browseRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3277	!
ccde5a941840 * empty log message * claus parents: diff changeset	3278
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3279	browseInstRefsTo:varName in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3280	"launch a browser for all methods in aClass where the instVar named
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3281	varName is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3282	instvar is modified"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3283
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3284	^ self browseRefsTo:varName classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly title:title
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3285	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3286
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3287	browseInstRefsTo:aString under:aClass modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3288	"launch a browser for all methods in aClass and subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3289	where the instVar named aString is referenced;
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3290	if modsOnly is true, browse only methods where the instvar is modified"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3291
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3292	^ self browseInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
36 ccde5a941840 * empty log message * claus parents: diff changeset	3293	!
ccde5a941840 * empty log message * claus parents: diff changeset	3294
ccde5a941840 * empty log message * claus parents: diff changeset	3295	browseReferendsOf:aGlobalName
ccde5a941840 * empty log message * claus parents: diff changeset	3296	"launch a browser for all methods referencing a global
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3297	named aGlobalName. The argument may be a symbol, a string or
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3298	a matchPattern.
36 ccde5a941840 * empty log message * claus parents: diff changeset	3299	"
ccde5a941840 * empty log message * claus parents: diff changeset	3300
ccde5a941840 * empty log message * claus parents: diff changeset	3301	^ self browseReferendsOf:aGlobalName warnIfNone:true
ccde5a941840 * empty log message * claus parents: diff changeset	3302
ccde5a941840 * empty log message * claus parents: diff changeset	3303	"
ccde5a941840 * empty log message * claus parents: diff changeset	3304	Browser browseReferendsOf:#Transcript
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3305	Browser browseReferendsOf:'Tr*'
36 ccde5a941840 * empty log message * claus parents: diff changeset	3306	"
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	3307
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3308	"Modified: / 30.10.1997 / 23:45:52 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	3309	!
ccde5a941840 * empty log message * claus parents: diff changeset	3310
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3311	browseReferendsOf:aGlobalName ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3312	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3313	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3314	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3315
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3316	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3317	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3318	title:(self classResources string:'Users of: %1' with:aGlobalName)
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3319	ifNone:actionIfNone
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3320
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3321	"Modified: / 31.10.1997 / 15:42:05 / cg"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3322	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3323
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3324	browseReferendsOf:aGlobalName in:aSetOfClasses
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3325	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3326	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3327	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3328
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3329	^ self browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:true
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3330
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3331	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3332	Browser browseReferendsOf:#Transcript
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3333	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3334
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3335	"Created: 10.7.1996 / 10:37:30 / cg"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3336	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3337
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3338	browseReferendsOf:aGlobalName in:aSetOfClasses warnIfNone:doWarn
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3339	"launch a browser for all methods referencing a global
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3340	named aGlobalName.
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3341	"
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3342
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3343	\|globalsPlainName idx\|
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3344
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3345	globalsPlainName := aGlobalName.
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3346	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3347	globalsPlainName := globalsPlainName copyFrom:idx+1
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3348	].
2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3349
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3350	^ self browseForSymbol:aGlobalName
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3351	in:aSetOfClasses
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3352	title:(self classResources string:'Users of: %1' with:aGlobalName)
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3353	warnIfNone:doWarn
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3354	searchFor:globalsPlainName
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3355
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3356	"Created: 10.7.1996 / 10:37:02 / cg"
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	3357	"Modified: 31.10.1996 / 14:56:38 / cg"
666 c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3358	!
c349555a5550 checkin from browser Claus Gittinger <cg@exept.de> parents: 653 diff changeset	3359
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3360	browseReferendsOf:aGlobalName title:title ifNone:actionIfNone
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3361	"launch a browser for all methods referencing a global named aGlobalName."
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3362
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3363	\|searchBlock browser\|
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3364
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3365	searchBlock := self searchBlockForReferendsOf:aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3366	browser := self
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3367	browseMethodsWhere:searchBlock
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3368	title:title
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3369	ifNone:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3370	actionIfNone value.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3371	^ nil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3372	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3373
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3374	browser isNil ifTrue:[
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3375	actionIfNone value
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3376	] ifFalse:[
9010 fa5c1fef4aef changed: #browseReferendsOf:title:ifNone: Claus Gittinger <cg@exept.de> parents: 9007 diff changeset	3377	browser autoSearchVariable:aGlobalName.
2828 6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3378	].
6e54ebb9b75e * empty log message * Claus Gittinger <cg@exept.de> parents: 2826 diff changeset	3379	^ browser
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3380
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3381	"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3382	Tools::NewSystemBrowser browseReferendsOf:'SortedCollection' title:'foo' ifNone:[ self halt ]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	3383	"
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3384	!
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3385
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3386	browseReferendsOf:aGlobalName title:title warnIfNone:doWarn
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3387	"launch a browser for all methods referencing a global
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3388	named aGlobalName.
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3389	"
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3390
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3391	\|b\|
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3392
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3393	doWarn ifTrue: [
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3394	b := [self showNoneFound:title]
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3395	].
a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3396
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3397	^ self
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3398	browseReferendsOf:aGlobalName
656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3399	title:title
2414 a84eac935500 * empty log message * Claus Gittinger <cg@exept.de> parents: 2412 diff changeset	3400	ifNone:b
2409 656eeb7197fa checkin from browser Claus Gittinger <cg@exept.de> parents: 2398 diff changeset	3401
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3402	!
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3403
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3404	browseReferendsOf:aGlobalName warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3405	"launch a browser for all methods referencing a global
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3406	named aGlobalName.
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3407	"
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3408
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3409	^ self
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3410	browseReferendsOf:aGlobalName
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3411	title:(self classResources string:'Users of: %1' with:aGlobalName)
1367 80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3412	warnIfNone:doWarn
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3413
80e92dd370c8 checkin from browser Claus Gittinger <cg@exept.de> parents: 1356 diff changeset	3414	"Modified: / 31.10.1997 / 15:42:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3415	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3416
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3417	browseReferendsOfUnboundGlobalsWithTitle:title ifNone:actionIfNone
12844 2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	3418	"launch a browser for all methods referencing an unbound global."
2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	3419
2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	3420	\|searchBlock browser\|
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3421
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3422	searchBlock := [:cls :mthd :sel \|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3423
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3424	\|mSource globals potentialNames\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3425
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3426	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3427	mthd isLazyMethod ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3428	mSource := mthd source.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3429	mSource notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3430	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3431	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3432	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3433	"/ try hard to avoid the usedGlobals - its expensive
6640 326360e94271 * empty log message * Claus Gittinger <cg@exept.de> parents: 6581 diff changeset	3434	potentialNames := mthd literals select:[:lit \| lit isSymbol and:[lit size > 0 and:[lit isUppercaseFirst]]].
4198 de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3435	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3436	potentialNames := potentialNames select:[:lit \| (Smalltalk at:lit) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3437	potentialNames notEmpty ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3438	globals := mthd usedGlobals.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3439	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3440	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3441	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3442	globals notNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3443	globals contains:[:aGlobalKey \| (Smalltalk at:aGlobalKey asSymbol) isNil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3444	] ifFalse:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3445	false
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3446	]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3447	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3448
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3449	browser := self browseMethodsWhere:searchBlock title:title ifNone:[actionIfNone value. ^ nil].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3450	browser isNil ifTrue:[
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3451	actionIfNone value
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3452	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3453	^ browser
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3454	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3455
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3456	browseReferendsOfUnboundGlobalsWithTitle:title warnIfNone:doWarn
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3457	"launch a browser for all methods referencing an unbound global.
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3458	"
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3459
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3460	\|b\|
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3461
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3462	doWarn ifTrue: [
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3463	b := [self showNoneFound:title]
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3464	].
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3465
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3466	^ self
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3467	browseReferendsOfUnboundGlobalsWithTitle:title
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3468	ifNone:b
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3469	!
de8b73b42e1e added browse refs to unbound globals. Claus Gittinger <cg@exept.de> parents: 4167 diff changeset	3470
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3471	browseRefsTo:aString classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3472	"launch a browser for all methods in aClass where the instVar/classVar named
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3473	aString is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3474	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3475
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3476	\|title\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3477
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3478	modsOnly ifTrue:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3479	title := 'Modifications of: %1'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3480	] ifFalse:[
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3481	title := 'References to: %1 '
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3482	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3483	^ self
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3484	browseRefsTo:aString
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3485	classVars:classVars
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3486	in:aCollectionOfClasses
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3487	modificationsOnly:modsOnly
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3488	title:(self classResources string:title with:aString)
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3489
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3490	"Created: 9.12.1995 / 18:07:05 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3491	"Modified: 9.12.1995 / 18:11:49 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3492	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3493
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3494	browseRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3495	"launch a browser for all methods in aClass where the instVar/classVar named
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3496	varName is referenced; if modsOnly is true, browse only methods where the
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3497	instvar is modified"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3498
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3499	\|filter browser pattern\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3500
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3501	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3502	browser := self browseMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter title:title.
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3503
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3504	browser notNil ifTrue:[
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3505	modsOnly ifTrue:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3506	pattern := varName , ' :='
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3507	] ifFalse:[
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3508	pattern := varName
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3509	].
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3510	browser autoSearch:pattern
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3511	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3512	^ browser
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3513	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3514
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3515	browseSendersOf:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3516	"launch a browser for all senders of aSelector"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3517
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3518	^ self browseAllCallsOn:aSelectorString
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3519
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3520	"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3521	SystemBrowser browseSendersOf:#+
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3522	UserPreferences current systemBrowserClass browseSendersOf:#+
3407 7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3523	"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3524
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3525	"Modified: / 10.7.1996 / 10:26:15 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3526	"Created: / 13.11.2001 / 13:52:12 / cg"
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3527	!
7813f46be17f * empty log message * Claus Gittinger <cg@exept.de> parents: 3360 diff changeset	3528
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3529	browseSuperCallsIn:aCollectionOfClasses title:title
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3530	"launch a browser for all super sends in aCollectionOfClasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3531
742 2ef5e22d8983 code cleanup (unused vars eliminated) Claus Gittinger <cg@exept.de> parents: 675 diff changeset	3532	\|browser searchBlock\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3533
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3534	searchBlock := [:class :method :s \|
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3535	\|src parser\|
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3536
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3537	src := method source.
2208 e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available) Claus Gittinger <cg@exept.de> parents: 1937 diff changeset	3538	(src notNil and:[src findString:'super']) ~~ 0 ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3539	parser := Parser
2208 e077aa992f7a check for nil source in #allCallsOn: (for methods where src in not available) Claus Gittinger <cg@exept.de> parents: 1937 diff changeset	3540	parseMethod:src
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3541	in:class
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3542	ignoreErrors:true
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3543	ignoreWarnings:true.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3544
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3545	(parser notNil and:[parser ~~ #Error and:[parser usesSuper]])
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3546	] ifFalse:[
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3547	false
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3548	]
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3549	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3550
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3551	browser := self browseMethodsIn:aCollectionOfClasses
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3552	where:searchBlock
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3553	title:title.
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3554
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3555	browser notNil ifTrue:[
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3556	browser autoSearch:'super'
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3557	].
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3558	^ browser
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3559
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3560	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3561	SystemBrowser
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3562	browseSuperCallsIn:(Array with:SortedCollection)
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3563	title:'superSends in SortedCollection'
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3564	"
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3565
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3566	"Created: / 23-11-1995 / 14:08:55 / cg"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	3567	"Modified: / 06-03-2007 / 14:00:12 / cg"
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3568	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3569
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3570	browseSuperCallsUnder:aClass
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3571	"launch a browser for all supersends in aClass and subclasses"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3572
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3573	^ self browseSuperCallsIn:(aClass withAllSubclasses)
6476 01f8b6dfd829 * empty log message * Claus Gittinger <cg@exept.de> parents: 6368 diff changeset	3574	title:(self classResources string:'Supersends (in and below %1)' with:aClass name)
256 5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3575
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3576	"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3577	SystemBrowser browseSuperCallsUnder:Number
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3578	"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3579
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3580	"Created: 23.11.1995 / 12:06:06 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3581	"Modified: 9.12.1995 / 18:11:59 / cg"
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3582	!
5ae592de1b4f national strings Claus Gittinger <cg@exept.de> parents: 254 diff changeset	3583
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3584	browseUsesOf:aClass
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3585	\|dict owners offsets
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3586	sz "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3587	n "{ Class: SmallInteger }"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3588	removeSet newDict\|
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3589
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3590	owners := ObjectMemory whoReferencesInstancesOf:aClass.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3591
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3592	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3593	collect set of offsets in dict; key is class
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3594	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3595	dict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3596	owners do:[:someObject \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3597	\|cls create\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3598
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3599	someObject isContext ifFalse:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3600	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3601	someObject refers to an instance of aClass;
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3602	find out, which instVar(s)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3603	"
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3604	cls := someObject class.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3605	cls ~~ Array ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3606	n := cls instSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3607	create := [\|s\| s := Set new. dict at:cls put:s. s].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3608
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3609	1 to:n do:[:i \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3610	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3611
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3612	ref := someObject instVarAt:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3613	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3614	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3615	offsets add:i.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3616	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3617	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3618	cls isVariable ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3619	cls isPointers ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3620	\| idx "{ Class: SmallInteger }" \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3621
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3622	sz := someObject basicSize.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3623	idx := 1.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3624	[idx <= sz] whileTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3625	\|ref\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3626
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3627	ref := someObject basicAt:idx.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3628	(ref isMemberOf:aClass) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3629	offsets := dict at:cls ifAbsent:create.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3630	offsets add:0.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3631	idx := sz
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3632	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3633	idx := idx + 1
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3634	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3635	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3636	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3637	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3638	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3639	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3640
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3641	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3642	merge with superclass refs
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3643	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3644	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3645	cls allSuperclasses do:[:aSuperclass \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3646	\|superSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3647
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3648	superSet := dict at:aSuperclass ifAbsent:[].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3649	superSet notNil ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3650	\|removeSet\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3651
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3652	superSet := dict at:aSuperclass.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3653	removeSet := Set new.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3654	set do:[:offset \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3655	(superSet includes:offset) ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3656	removeSet add:offset
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3657	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3658	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3659	set removeAll:removeSet
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3660	]
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3661	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3662	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3663
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3664	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3665	remove empty ones
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3666	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3667	removeSet := Set new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3668	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3669	set isEmpty ifTrue:[
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3670	removeSet add:cls
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3671	]
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3672	].
9334 ed9742f1a717 changed: #browseUsesOf: Claus Gittinger <cg@exept.de> parents: 9313 diff changeset	3673	dict removeAllKeys:removeSet.
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3674
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3675	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3676	replace the indices by real names
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3677	"
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3678	newDict := IdentityDictionary new.
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3679	dict keysAndValuesDo:[:cls :set \|
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3680	\|newSet names\|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3681
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3682	names := cls allInstVarNames.
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3683	newSet := set collect:[:index \|
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3684	index == 0 ifTrue:['indexed'] ifFalse:[names at:index].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3685	].
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	3686	newDict at:cls put:newSet
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	3687	].
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3688
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3689	newDict inspect
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3690	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	3691
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3692	filterToSearchRefsTo:varName classVars:classVars access:accessType
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3693	"return a searchblock for variable references (obsolete)"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3694
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3695	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3696	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3697	instVars:(classVars not)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3698	classVars:classVars
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3699	globals:false
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3700	poolVars:false
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3701	access:accessType
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3702	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3703
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3704	filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3705	"return a searchblock for variable references"
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3706
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3707	^ self
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3708	filterToSearchRefsTo:varName
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3709	classVars:classVars
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3710	access:(modsOnly ifTrue:#write ifFalse:#readWrite)
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3711	!
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3712
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3713	filterToSearchRefsTo:varName instVars:doInstVars classVars:doClassVars globals:doGlobals access:accessType
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3714	"return a searchblock for variable references"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3715
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3716	^ self
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3717	filterToSearchRefsTo:varName instVars:doInstVars classVars:doClassVars globals:doGlobals
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3718	poolVars:false access:accessType
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3719	!
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3720
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3721	filterToSearchRefsTo:varName instVars:doInstVars classVars:doClassVars globals:doGlobals poolVars:doPoolVars access:accessType
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3722	"return a searchblock for variable references"
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3723
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3724	\|searchBlock needMatch baseVarName\|
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3725
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3726	needMatch := varName includesMatchCharacters.
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3727	(varName includes:$:) ifTrue:[
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3728	baseVarName := varName copyFrom:(varName lastIndexOf:$:)+1
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3729	] ifFalse:[
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3730	baseVarName := varName
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3731	].
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3732
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3733	searchBlock := [:c :m :s \|
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	3734	\|src result parser vars instVars classVars poolVars globals\|
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3735
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3736	result := false.
d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3737
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3738	"/ JV Following code is bad. It assumes that method is a Smalltalk method.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3739	"/ But it may not, it could be JavaScript method, Java method or whatever fancy language
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3740	"/ method. Should be actually delegated to the method itself.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3741
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3742	m programmingLanguage isSmalltalk ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3743	"/ For Smalltalk, use parser...
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3744	src := m source.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3745	src notNil ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3746	needMatch ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3747	"
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3748	before doing a slow parse, quickly scan the
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3749	method's source for the variable's name ...
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3750	"
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3751	result := (src findString:baseVarName) ~~ 0.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3752	] ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3753	result := true.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3754	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3755	result ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3756	result := false.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3757	parser := Parser
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3758	parseMethod:src
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3759	in:c
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3760	ignoreErrors:true
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3761	ignoreWarnings:true.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3762
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3763	(parser notNil and:[parser ~~ #Error]) ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3764	vars := Set new.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3765	doInstVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3766	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3767	instVars := parser readInstVars
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3768	] ifFalse:[
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3769	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3770	instVars := parser modifiedInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3771	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3772	instVars := parser usedInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3773	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3774	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3775	vars addAll:instVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3776	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3777	doClassVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3778	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3779	classVars := parser readClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3780	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3781	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3782	classVars := parser modifiedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3783	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3784	classVars := parser usedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3785	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3786	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3787	vars addAll:classVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3788	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3789	doPoolVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3790	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3791	poolVars := parser readPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3792	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3793	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3794	poolVars := parser modifiedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3795	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3796	poolVars := parser usedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3797	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3798	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3799	vars addAll:poolVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3800	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3801	doGlobals ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3802	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3803	globals := parser readGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3804	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3805	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3806	globals := parser modifiedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3807	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3808	globals := parser usedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3809	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3810	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3811	vars addAll:globals.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3812	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3813	vars size > 0 ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3814	needMatch ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3815	result := vars contains:[:cv \| (varName match:cv)]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3816	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3817	result := vars includes:varName
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3818	]
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3819	]
7914 d8fa35236729 refactoring Claus Gittinger <cg@exept.de> parents: 7847 diff changeset	3820	].
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3821	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3822	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3823	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3824	"/ For all other languages, ask method.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3825	vars := Set new.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3826	doInstVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3827	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3828	instVars := m readInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3829	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3830	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3831	instVars := m modifiedInstVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3832	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3833	instVars := m usedInstVars
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3834	]
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3835	].
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3836	vars addAll:instVars.
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3837	].
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3838	doClassVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3839	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3840	classVars := m readClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3841	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3842	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3843	classVars := m modifiedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3844	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3845	classVars := m usedClassVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3846	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3847	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3848	vars addAll:classVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3849	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3850	doPoolVars ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3851	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3852	poolVars := m readPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3853	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3854	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3855	poolVars := m modifiedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3856	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3857	poolVars := m usedPoolVars
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3858	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3859	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3860	vars addAll:poolVars.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3861	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3862	doGlobals ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3863	accessType == #read ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3864	globals := m readGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3865	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3866	accessType == #write ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3867	globals := m modifiedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3868	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3869	globals := m usedGlobals
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3870	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3871	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3872	vars addAll:globals.
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3873	].
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3874	vars size > 0 ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3875	needMatch ifTrue:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3876	result := vars contains:[:cv \| (varName match:cv)]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3877	] ifFalse:[
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3878	result := vars includes:varName
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3879	]
a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3880	]
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3881	].
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3882	Processor yield.
1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3883	result
36 ccde5a941840 * empty log message * claus parents: diff changeset	3884	].
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	3885	^ searchBlock
504 1bb5e6002ebb checkin from browser Claus Gittinger <cg@exept.de> parents: 475 diff changeset	3886
10897 77388222c40e comment: #filterToSearchRefsTo:instVars:classVars:globals:access: Claus Gittinger <cg@exept.de> parents: 10546 diff changeset	3887	"Modified: / 19-06-1997 / 18:27:57 / cg"
77388222c40e comment: #filterToSearchRefsTo:instVars:classVars:globals:access: Claus Gittinger <cg@exept.de> parents: 10546 diff changeset	3888	"Modified (format): / 25-11-2011 / 14:00:44 / cg"
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	3889	"Modified: / 06-09-2013 / 18:02:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3890	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	3891
2743 4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3892	findAnyResourceIn:aCollectionOfClasses
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3893	"return a collection of all methods in aCollectionOfClasses containing any resource."
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3894
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3895	^ self findMethodsIn:aCollectionOfClasses where:[:c :m :sel \| m hasResource ].
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3896
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3897	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3898	SystemBrowser findAnyResourceIn:(ApplicationModel withAllSubclasses)
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3899	"
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3900	!
4fa5e36bef74 code cleanup: moved iconMethods from BrowserView to SystemBrowser Claus Gittinger <cg@exept.de> parents: 2741 diff changeset	3901
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3902	findClassRefsTo:aString in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3903	"return all methods in aCollectionOfClasses where the classVar named
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3904	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3905	if modsOnly is true, browse only methods where the classvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3906
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3907	^ self findRefsTo:aString classVars:true in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3908	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3909
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3910	findClassRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3911	"return all methods in aCollectionOfClasses where the classVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3912	aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3913	if modsOnly is true, browse only methods where the classvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3914
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3915	^ self findRefsTo:aString classVars:true in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3916	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3917
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3918	findClassRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3919	"return all methods in aClass where the classVar named
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3920	aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3921	if modsOnly is true, browse only methods where the classvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3922
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3923	^ self findRefsTo:aString classVars:true in:(Array with:aClass) access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3924	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3925
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3926	findClassRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3927	"return all methods in aClass where the classVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3928	aString is referenced;
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3929	if modsOnly is true, browse only methods where the classvar is modified"
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3930
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3931	^ self findRefsTo:aString classVars:true in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3932	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	3933
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3934	findClassRefsTo:aString under:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3935	"return all methods in aClass and subclasses
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3936	where the classVar named aString is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3937	if modsOnly is true, browse only methods where the classvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3938
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3939	^ self findClassRefsTo:aString in:(aClass withAllSubclasses) access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3940	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	3941
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3942	findClassRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3943	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3944	where the classVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3945	if modsOnly is true, browse only methods where the classvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3946
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3947	^ self findClassRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3948
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3949	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	3950
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3951	findCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3952	"return a collection of all methods in aCollectionOfClasses
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3953	containing a matching piece of code.
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3954	This may be slow, since source-code has to be scanned."
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3955
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3956	\|searchBlock\|
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3957
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3958	searchBlock := self searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	3959	searchBlock isNil ifTrue:[ ^ nil].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3960	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3961
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3962	"Modified: / 02-05-2011 / 13:25:15 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3963	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	3964
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3965	findCode:aCodeString inMethods:aCollectionOfMethods isMethod:isMethod
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3966	"return a collection of all methods in aCollectionOfMethods
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3967	containing a matching piece of code."
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3968
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3969	\|searchBlock\|
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3970
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3971	searchBlock := self searchBlockForCode:aCodeString in:(aCollectionOfMethods collect:[:each \| each mclass]) isMethod:isMethod.
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3972	searchBlock isNil ifTrue:[ ^ nil].
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3973	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3974
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	3975	"Modified: / 02-05-2011 / 13:25:39 / sr"
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3976	!
6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	3977
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3978	findExceptionHandlersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3979	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3980	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3981	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3982
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3983	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3984
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3985	"Modified: / 11-05-2010 / 16:18:55 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3986	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3987
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3988	findExceptionHandlersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3989	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3990	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3991	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3992
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3993	^ self findUsingParseTreeSearcher:(ParseTreeSearcher handlesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3994
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3995	"Created: / 11-05-2010 / 16:20:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3996	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3997
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3998	findExceptionRaisersIn:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	3999	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4000	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4001	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4002
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4003	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4004
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4005	"Modified: / 11-05-2010 / 16:18:48 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4006	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4007
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4008	findExceptionRaisersInMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4009	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4010	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4011	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4012
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4013	^ self findUsingParseTreeSearcher:(ParseTreeSearcher raisesException) inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4014
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4015	"Created: / 11-05-2010 / 16:20:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4016	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4017
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4018	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4019	"return a collection of all help-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4020	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4021	This may be slow, since source-code has to be scanned."
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4022
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4023	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4024	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4025	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4026	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4027	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4028	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4029
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4030	findHelpSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4031	"return a collection of all help-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4032	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4033	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4034
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4035	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4036	findSpecMethodsFor:#help
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4037	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4038	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4039	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4040	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4041	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4042
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4043	findImplementors:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4044	"search for all implementors of aSelector in
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4045	the classes contained in aCollectionOfClasses and its metaclasses.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4046	Return a collection of methods"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4047
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4048	\|lcSelector list compare testST testJava srchBlockST srchBlockJava\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4049
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4050	list := IdentitySet new.
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4051	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4052
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4053	doMatch ifTrue:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4054	compare := [:sel :search \| sel match:search].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4055	] ifFalse:[
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4056	compare := [:sel :search \| sel = search].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4057	].
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4058
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4059	ignoreCase == true ifTrue:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4060	lcSelector := aSelectorMatchString asLowercase.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4061
7847 bc2f06886dd6 * empty log message * Claus Gittinger <cg@exept.de> parents: 7827 diff changeset	4062	testST := [:aSelector :aMethod \| (compare value:lcSelector value:(aMethod name ? '') asLowercase) ].
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4063	testJava := [:aSelector :aMethod \| (compare value:aSelector value:aMethod name asLowercase) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4064	] ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4065	testST := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aSelector) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4066	testJava := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aMethod name) ].
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4067	].
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4068
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4069	srchBlockST := [:sel :mthd \| (testST value:sel value:mthd) ifTrue:[ list add:mthd]].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4070	srchBlockJava := [:sel :mthd \| (testJava value:sel value:mthd) ifTrue:[ list add:mthd]].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4071
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4072	aCollectionOfClasses do:[:aClass \|
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4073	\|srchBlock\|
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4074
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4075	aClass isObsolete ifFalse:[
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4076	srchBlock := aClass isJavaClass
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4077	ifTrue:[ srchBlockJava ]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4078	ifFalse:[ srchBlockST ].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4079
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4080	aClass methodDictionary keysAndValuesDo:srchBlock.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4081	aClass isMeta ifFalse:[
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4082	aClass class methodDictionary keysAndValuesDo:srchBlock
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4083	]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4084	]
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4085	].
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4086
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4087	^ list
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4088
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4089	"
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4090	SystemBrowser
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4091	findImplementorsOf:#+
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4092	in: { Number . Float . SmallInteger }
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4093	ignoreCase: false
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4094	"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4095
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4096	"Modified (format): / 22-03-2012 / 07:28:50 / cg"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4097	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4098
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4099	findImplementors:aSelectorMatchString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4100	"search for all implementors of aSelector in
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4101	the classes contained in aCollectionOfClasses and its metaclasses.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4102	Return a collection of methods"
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4103
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4104	\|list compare testST testJava lcSelector\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4105
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4106	list := IdentitySet new.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4107	aSelectorMatchString size == 0 ifTrue:[ ^ list ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4108
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4109	doMatch ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4110	compare := [:sel :search \| sel match:search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4111	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4112	compare := [:sel :search \| sel = search].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4113	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4114
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4115	ignoreCase == true ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4116	lcSelector := aSelectorMatchString asLowercase.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4117
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4118	testST := [:aSelector :aMethod \| (compare value:lcSelector value:aMethod name asLowercase) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4119	testJava := [:aSelector :aMethod \| (compare value:aSelector value:aMethod name asLowercase) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4120	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4121	testST := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aSelector) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4122	testJava := [:aSelector :aMethod \| (compare value:aSelectorMatchString value:aMethod name) ].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4123	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4124
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4125	aCollectionOfMethods do:[:eachMethod \|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4126	\|cls sel testBlock\|
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4127
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4128	cls := eachMethod mclass.
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	4129	(cls isNil or:[cls isObsolete]) ifFalse:[
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4130	cls isJavaClass ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4131	testBlock := testJava
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4132	] ifFalse:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4133	testBlock := testST
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4134	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4135	sel := eachMethod selector.
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4136	(testBlock value:sel value:eachMethod) ifTrue:[
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4137	list add:eachMethod
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4138	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4139	]
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4140	].
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4141
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4142	^ list
7066 43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	4143
43640ba63db6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6955 diff changeset	4144	"Modified: / 29-08-2006 / 14:33:42 / cg"
6776 5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4145	!
5f5fd533b1f4 implementors of from implementors of-list Claus Gittinger <cg@exept.de> parents: 6705 diff changeset	4146
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4147	findImplementorsMatching:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4148	"search for all implementors of aSelector in
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4149	the classes contained in aCollectionOfClasses and its metaclasses.
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4150	Return a collection of methods"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4151
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4152	^ self
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4153	findImplementors:aSelectorMatchString
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4154	in:aCollectionOfClasses
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4155	ignoreCase:ignoreCase
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4156	match:true
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4157
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4158	"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4159	SystemBrowser
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4160	findImplementorsOf:#+
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4161	in:{ Number . Float . SmallInteger }
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4162	"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4163
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	4164	"Modified (comment): / 22-03-2012 / 07:20:42 / cg"
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4165	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4166
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4167	findImplementorsMatchingAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4168	"search for all implementors of any in aCollectionOfSelectors in
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4169	the classes contained in aCollectionOfClasses and its metaclasses.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4170	Return a collection of methods.
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4171	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4172
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4173	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4174	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4175	self findImplementorsMatching:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4176	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4177	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4178	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4179
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4180	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4181	"/
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4182	"/ implementors := IdentitySet new.
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4183	"/ aCollectionOfSelectors do:[:eachSelector \|
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4184	"/ implementors addAll:(self findImplementorsMatching:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4185	"/ ].
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4186	"/ ^ implementors
6051 adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4187
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4188	"
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4189	self
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4190	findImplementorsMatchingAny:#( 'at:' 'size')
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4191	in:(Smalltalk allClasses)
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4192	ignoreCase:true
adc2da07dfe8 * empty log message * Claus Gittinger <cg@exept.de> parents: 5997 diff changeset	4193	"
3675 5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4194	!
5208ac7b25a3 * empty log message * Claus Gittinger <cg@exept.de> parents: 3666 diff changeset	4195
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4196	findImplementorsOf:aSelectorMatchString in:aCollectionOfClasses ignoreCase:ignoreCase
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4197	"search for all implementors of aSelector in
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4198	the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4199	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4200
6480 a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4201	^ self
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4202	findImplementors:aSelectorMatchString
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4203	in:aCollectionOfClasses
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4204	ignoreCase:ignoreCase
a84b7a241f0a * empty log message * Claus Gittinger <cg@exept.de> parents: 6476 diff changeset	4205	match:false
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4206
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4207	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4208	SystemBrowser findImplementorsOf:#+
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4209	in:(Array with:Number
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4210	with:Float
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4211	with:SmallInteger)
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4212	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4213	!
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4214
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4215	findImplementorsOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4216	"search for all implementors of any in aCollectionOfSelectors in
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4217	the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4218	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4219	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4220
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4221	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4222	collectAll:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4223	self findImplementorsOf:eachSelector
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4224	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4225	ignoreCase:ignoreCase.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4226	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4227
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4228	"/ \|implementors\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4229	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4230	"/ implementors := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4231	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4232	"/ implementors addAll:(self findImplementorsOf:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase).
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4233	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4234	"/ ^ implementors
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4235	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4236
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4237	findInstRefsTo:aString in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4238	"return all methods in aCollectionOfClasses where the instVar named
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4239	aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4240	if modsOnly is true, browse only methods where the classvar is modified"
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4241
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4242	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4243	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4244
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4245	findInstRefsTo:aString in:aCollectionOfClasses modificationsOnly:modsOnly
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4246	"return all methods in aCollectionOfClasses where the instVar named
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4247	aString is referenced; if modsOnly is true, browse only methods where the
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4248	instvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4249
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4250	^ self findRefsTo:aString classVars:false in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4251	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4252
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4253	findInstRefsTo:aString inClass:aClass access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4254	"return all methods in aClass where the instVar named
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4255	aString is referenced; if modsOnly is true, browse only methods where the
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4256	instvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4257
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4258	^ self findRefsTo:aString classVars:false in:(Array with:aClass) access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4259	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4260
2728 5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4261	findInstRefsTo:aString inClass:aClass modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4262	"return all methods in aClass where the instVar named
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4263	aString is referenced; if modsOnly is true, browse only methods where the
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4264	instvar is modified"
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4265
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4266	^ self findRefsTo:aString classVars:false in:(Array with:aClass) modificationsOnly:modsOnly
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4267	!
5ba2a9de7472 * empty log message * Claus Gittinger <cg@exept.de> parents: 2692 diff changeset	4268
2741 aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4269	findInstRefsTo:aString under:aClass access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4270	"return all methods in aClass and subclasses
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4271	where the classVar named aString is referenced;
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4272	if modsOnly is true, browse only methods where the classvar is modified"
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4273
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4274	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) access:accessType
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4275	!
aedd23d595cd * empty log message * Claus Gittinger <cg@exept.de> parents: 2736 diff changeset	4276
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4277	findInstRefsTo:aString under:aClass modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4278	"return all methods in aClass and subclasses
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4279	where the instVar named aString is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4280	if modsOnly is true, browse only methods where the instvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4281
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4282	^ self findInstRefsTo:aString in:(aClass withAllSubclasses) modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4283	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4284
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4285	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4286	"return a collection of all menu-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4287	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4288	This may be slow, since source-code has to be scanned."
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4289
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4290	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4291	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4292	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4293	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4294	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4295	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4296
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4297	findMenuSpecMethodsWithString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4298	"return a collection of all menu-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4299	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4300	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4301
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4302	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4303	findSpecMethodsFor:#menu
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4304	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4305	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4306	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4307	match:doMatch
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4308	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4309
11934 ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4310	findPoolVarRefsTo:aString inClass:aClass access:accessType
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4311	"return all methods in aClass where the pool variable named aString is referenced;
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4312	if modsOnly is true, browse only methods where the classvar is modified"
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4313
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4314	\|filter\|
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4315
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4316	filter := self
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4317	filterToSearchRefsTo:aString
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4318	instVars:false classVars:false globals:false poolVars:true
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4319	access:accessType.
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4320
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4321	^ self findMethodsIn:(Array with:aClass) inst:true class:true where:filter.
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4322	!
ffb94d7169cc pool variable search Claus Gittinger <cg@exept.de> parents: 11638 diff changeset	4323
2736 5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4324	findRefsTo:varName classVars:classVars in:aCollectionOfClasses access:accessType
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4325	"return a list of all methods in aCollectionOfClasses where the instVar/classVar named
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4326	varName is referenced;
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4327	if modsOnly is true, browse only methods where the instvar is modified"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4328
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4329	\|filter\|
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4330
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4331	filter := self filterToSearchRefsTo:varName classVars:classVars access:accessType.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4332	^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4333
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4334	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4335	self
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4336	findRefsTo:'x'
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4337	classVars:false
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4338	in:(Array with:Point)
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4339	modificationsOnly:true
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4340	"
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4341	!
5b585170e14a added search to find readers of an isntVar Claus Gittinger <cg@exept.de> parents: 2729 diff changeset	4342
2677 a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4343	findRefsTo:varName classVars:classVars in:aCollectionOfClasses modificationsOnly:modsOnly
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4344	"return a list of all methods in aCollectionOfClasses where the instVar/classVar named
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4345	varName is referenced;
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4346	if modsOnly is true, browse only methods where the instvar is modified"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4347
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4348	\|filter\|
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4349
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4350	filter := self filterToSearchRefsTo:varName classVars:classVars modificationsOnly:modsOnly.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4351	^ self findMethodsIn:aCollectionOfClasses inst:true class:classVars where:filter.
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4352
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4353	"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4354	self
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4355	findRefsTo:'x'
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4356	classVars:false
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4357	in:(Array with:Point)
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4358	modificationsOnly:true
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4359	"
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4360	!
a5ef0e288aae search protocol enhanced Claus Gittinger <cg@exept.de> parents: 2675 diff changeset	4361
2692 652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4362	findResource:aResourceSymbolOrCollectionOfSymbols in:aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4363	"return a collection of all methods in aCollectionOfClasses
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4364	containing a resource."
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4365
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4366	\|searchBlock\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4367
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4368	aResourceSymbolOrCollectionOfSymbols isSymbol ifTrue:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4369	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4370	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4371	and:[resources includesKey:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4372	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4373	] ifFalse:[
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4374	searchBlock := [:c :m :sel \| \|resources\|
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4375	(resources := m resources) size > 0
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4376	and:[resources keys includesAny:aResourceSymbolOrCollectionOfSymbols]
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4377	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4378	].
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4379
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4380	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4381
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4382	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4383	SystemBrowser findResource:#image in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4384	SystemBrowser findResource:#menu in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4385	SystemBrowser findResource:#(menu programMenu) in:(ApplicationModel withAllSubclasses)
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4386	"
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4387	!
652bbda35217 checkin from browser Claus Gittinger <cg@exept.de> parents: 2677 diff changeset	4388
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4389	findResource:aStringOrEmpty match:doMatch ignoreCase:ignoreCase in:aCollectionOfClasses
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4390	"return a collection of all methods in aCollectionOfClasses containing a matching resource."
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4391
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4392	\|matchCheck lcSearchString\|
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4393
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4394	aStringOrEmpty isEmptyOrNil ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4395	matchCheck := [:aResourceName \| true ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4396	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4397	doMatch ifTrue:[
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	4398	matchCheck := [:aResourceName \| aStringOrEmpty match:aResourceName caseSensitive:ignoreCase not]
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4399	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4400	ignoreCase ifTrue:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4401	lcSearchString := aStringOrEmpty asLowercase.
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4402	matchCheck := [:aResourceName \| aResourceName asLowercase = lcSearchString]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4403	] ifFalse:[
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4404	matchCheck := [:aResourceName \| aResourceName = aStringOrEmpty ]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4405	]
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4406	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4407	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4408
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4409	^ self
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4410	findMethodsIn:aCollectionOfClasses
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4411	where:[:c :m :sel \|
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4412	m hasResource
12073 d63b17e5c9c8 class: SystemBrowser Stefan Vogel <sv@exept.de> parents: 12056 diff changeset	4413	and:[m resources notNil and:[m resources keys contains:matchCheck]]
10188 95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4414	].
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4415
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4416	"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4417	SystemBrowser findResource:'debug' match:true ignoreCase:true in:(GenericException withAllSubclasses)
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4418	"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4419
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4420	"Created: / 06-07-2011 / 12:14:24 / cg"
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4421	!
95e82ec734ff added: #findResource:match:ignoreCase:in: Claus Gittinger <cg@exept.de> parents: 10173 diff changeset	4422
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4423	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4424	"search for all senders of aSelector in
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4425	the classes contained in aCollectionOfClasses and its metaclasses.
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4426	Return a collection of methods"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4427
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4428	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:true
2642 cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4429
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4430	"
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4431	SystemBrowser findSendersOf:#+
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4432	in:(Array with:Number
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4433	with:Float
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4434	with:SmallInteger)
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4435	ignoreCase:false
cab6366238a4 * empty log message * Claus Gittinger <cg@exept.de> parents: 2631 diff changeset	4436	"
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4437	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4438
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4439	findSendersOf:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4440	"search for all senders of aSelector in
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4441	the classes contained in aCollectionOfClasses and its metaclasses.
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4442	Return a collection of methods"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4443
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4444	^ self allCallsOn:aSelectorString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4445
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4446	"
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4447	SystemBrowser findSendersOf:#+
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4448	in:(Array with:Number
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4449	with:Float
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4450	with:SmallInteger)
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4451	ignoreCase:false
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4452	"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4453	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4454
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4455	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4456	"search for all senders of aSelector in aCollectionOfMethods.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4457	Return a collection of methods"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4458
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4459	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4460
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4461	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase.
9313 44795fcbf414 changed: #findSendersOf:inMethods:ignoreCase: Claus Gittinger <cg@exept.de> parents: 9312 diff changeset	4462	searchBlock isNil ifTrue:[^ #() ].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4463	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4464	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4465
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4466	findSendersOf:aSelectorString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4467	"search for all senders of aSelector in aCollectionOfMethods.
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4468	Return a collection of methods"
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4469
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4470	\|searchBlock\|
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4471
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4472	searchBlock := self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch.
9312 71f84182390a changed: #findSendersOf:inMethods:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 9189 diff changeset	4473	searchBlock isNil ifTrue:[^ #() ].
4350 0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4474	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4475	!
0283d657411b * empty log message * Claus Gittinger <cg@exept.de> parents: 4341 diff changeset	4476
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4477	findSendersOfAny:aCollectionOfSelectors in:aCollectionOfClasses ignoreCase:ignoreCase
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4478	"search for all senders of any selector in aCollectionOfSelectors in
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4479	the classes contained in aCollectionOfClasses and its metaclasses.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4480	Return a collection of methods.
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4481	CAVEAT: searches multiple times (could be tuned alot if heavily used)"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4482
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4483	^ aCollectionOfSelectors
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4484	collectAll:[:eachSelector \|
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	4485	(self allCallsOn:eachSelector
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4486	in:aCollectionOfClasses
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4487	ignoreCase:ignoreCase
6184 bcb22487bc67 senders of any - duplicates Claus Gittinger <cg@exept.de> parents: 6134 diff changeset	4488	match:false) asSet.
6052 e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4489	].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4490
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4491	"/ \|allSenders\|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4492	"/
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4493	"/ allSenders := IdentitySet new.
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4494	"/ aCollectionOfSelectors do:[:eachSelector \|
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4495	"/ allSenders addAll:(self allCallsOn:eachSelector in:aCollectionOfClasses ignoreCase:ignoreCase match:true)
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4496	"/ ].
e9e1f68e0b2e * empty log message * Claus Gittinger <cg@exept.de> parents: 6051 diff changeset	4497	"/ ^ allSenders
2811 85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4498
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4499	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4500	SystemBrowser findSendersOfAny:#(#'+' #'-')
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4501	in:(Array with:Number
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4502	with:Float
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4503	with:SmallInteger)
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4504	ignoreCase:false
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4505	"
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4506	!
85f8454fbd26 * empty log message * Claus Gittinger <cg@exept.de> parents: 2770 diff changeset	4507
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4508	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4509	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4510	containing a string in their source.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4511	This may be slow, since source-code has to be scanned."
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4512
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4513	self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4514	findSpecMethodsFor:specSymbol
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4515	withString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4516	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4517	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4518	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4519	!
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4520
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4521	findSpecMethodsFor:specSymbol withString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4522	"return a collection of all specSymbol-spec methods in aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4523	containing a string in their source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4524	This may be slow, since source-code has to be scanned."
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4525
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4526	\|searchBlock innerSearchBlock\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4527
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4528	innerSearchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4529
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4530	searchBlock := [:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4531	\|resources\|
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4532
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4533	((resources := m resources) size > 0
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4534	and:[resources includesKey:specSymbol]) ifTrue:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4535	innerSearchBlock value:c value:m value:sel
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4536	]
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4537	].
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4538
3314 adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4539	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4540	!
adb48690e31d more searches Claus Gittinger <cg@exept.de> parents: 3244 diff changeset	4541
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4542	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4543	"return a collection of all methods in aCollectionOfClasses
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4544	containing a string in their source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	4545	This may be slow, since source-code has to be scanned."
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4546
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4547	^ self
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4548	findString:aString
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4549	in:aCollectionOfClasses
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4550	ignoreCase:ignoreCase
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4551	match:true
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4552
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4553	"
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	4554	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4555	"
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4556	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4557
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4558	findString:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4559	"return a collection of all methods in aCollectionOfClasses
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4560	containing a string in their source.
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4561	This may be slow, since source-code has to be scanned."
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	4562
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4563	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4564
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4565	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4566	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4567
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4568	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4569	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4570	"
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4571	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4572
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4573	findString:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
5243 6b84674b60f4 +findCode:inMethods: Claus Gittinger <cg@exept.de> parents: 5226 diff changeset	4574	"return a collection of all methods in aCollectionOfClasses
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4575	containing a string in their source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4576	This may be slow, since source-code has to be scanned."
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4577
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4578	\|searchBlock\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4579
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4580	searchBlock := self searchBlockForString:aString ignoreCase:ignoreCase match:doMatch.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4581	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4582	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4583
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4584	findStringLiteral:aString in:aCollectionOfClasses ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4585	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4586	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4587
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4588	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4589
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4590	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4591	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4592
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4593	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4594	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4595	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4596	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4597
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4598	findStringLiteral:aString inMethods:aCollectionOfMethods ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4599	"return a collection of all methods in aCollectionOfClasses
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4600	containing a string in any of their string-literals."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4601
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4602	\|searchBlock\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4603
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4604	searchBlock := self searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4605	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4606	!
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	4607
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4608	findUsingParseTreeSearcher:searcher in:aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4609	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4610	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4611	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4612
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4613	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4614
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4615	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4616	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4617	^ self findMethodsIn:aCollectionOfClasses where:searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4618
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4619	"Created: / 11-05-2010 / 16:18:36 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4620	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4621
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4622	findUsingParseTreeSearcher:searcher inMethods:aCollectionOfMethods
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4623	"return a collection of all methods in aCollectionOfClasses
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4624	containing an exception raiser.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4625	This may be slow, since source-code has to be scanned."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4626
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4627	\|searchBlock\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4628
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4629	searchBlock := self searchBlockForParseTreeSearcher:searcher isMethod:false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4630	searchBlock isNil ifTrue:[ ^ nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4631	^ aCollectionOfMethods select:[:m \| searchBlock value:m mclass value:m value:m selector].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4632
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4633	"Created: / 11-05-2010 / 16:20:12 / cg"
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4634	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4635
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4636	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4637	^ self searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:true
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4638	!
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4639
edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4640	searchBlockForAllCallsOn:aSelectorString ignoreCase:ignoreCase match:doMatch
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4641	\|sel searchBlock lcString quickMatch\|
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4642
10416 82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	4643	((doMatch
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4644	and:[(aSelectorString ~= '*')
10416 82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	4645	and:[aSelectorString includesMatchCharacters]])
82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	4646	or:[ignoreCase]) ifTrue:[
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4647	"/ a matchString or ignoreCase - need string matching procedure
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4648
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4649	ignoreCase ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4650	lcString := aSelectorString asLowercase.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4651	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4652	lcString := aSelectorString.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4653	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4654
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4655	quickMatch := aSelectorString.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4656	(quickMatch startsWith:'*') ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4657	quickMatch := quickMatch copyFrom:2
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4658	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4659	(quickMatch endsWith:'*') ifTrue:[
12713 7cccc4a7733c Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	4660	quickMatch := quickMatch copyButLast:1
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4661	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4662	(quickMatch includes:$:) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4663	quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4664	].
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4665
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4666	(ignoreCase not and:[quickMatch includesMatchCharacters not]) ifTrue:[
12785 99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4667	searchBlock := [:class :methodArg :s \|
99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4668	\|method src inLiterals\|
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4669
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4670	inLiterals := false.
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	4671	method := methodArg originalMethodIfWrapped.
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4672	method isLazyMethod ifTrue:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4673	src := method source.
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4674	(src notNil and:[src includesString:quickMatch]) ifTrue:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4675	method makeRealMethod.
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4676	inLiterals := (method
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4677	literalsDetect:[:aLiteral\|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4678	(aLiteral isMemberOf:Symbol)
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4679	and:[(lcString includesString:quickMatch)
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4680	and:[(lcString match:aLiteral)]]]
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4681	ifNone:nil) notNil
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4682	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4683	] ifFalse:[
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4684	inLiterals := (method
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4685	literalsDetect:[:aLiteral\|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4686	(aLiteral isMemberOf:Symbol)
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4687	and:[(lcString includesString:quickMatch)
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4688	and:[(lcString match:aLiteral)]]]
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4689	ifNone:nil) notNil
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4690	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4691	inLiterals
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	4692	and:[ method messagesSent
06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	4693	contains:[:anySelector \| aSelectorString match:anySelector caseSensitive:ignoreCase not] ]
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4694	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4695	] ifFalse:[
12785 99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4696	searchBlock := [:class :methodArg :s \|
99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4697	\|method src inLiterals\|
99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4698
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	4699	method := methodArg originalMethodIfWrapped.
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4700	"/ expensive search
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4701	inLiterals := false.
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4702	method isLazyMethod ifTrue:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4703	src := method source.
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4704	(src notNil and:[src includesMatchString:aSelectorString]) ifTrue:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4705	method makeRealMethod.
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4706	inLiterals := (method
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4707	literalsDetect:[:aLiteral\|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4708	(aLiteral isMemberOf:Symbol)
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4709	and:[(ignoreCase and:[lcString match:aLiteral asLowercase])
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4710	or:[ignoreCase not and:[lcString match:aLiteral]]]]
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4711	ifNone:nil) notNil
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4712	]
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4713	] ifFalse:[
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4714	inLiterals := (method literalsDetect:[:aLiteral\|
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4715	(aLiteral isMemberOf:Symbol)
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4716	and:[(ignoreCase and:[lcString match:aLiteral asLowercase])
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4717	or:[ignoreCase not and:[lcString match:aLiteral]]]]
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4718	ifNone:nil) notNil
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4719	].
b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4720	inLiterals
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	4721	and:[ method messagesSent
06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	4722	contains:[:anySelector \| aSelectorString match:anySelector caseSensitive:ignoreCase not] ]
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4723	].
8685 b39dc53c40ae dont be too lazy in senders-search (do not return all accesses to Claus Gittinger <cg@exept.de> parents: 8678 diff changeset	4724	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4725	] ifFalse:[
4270 edcb3dfb262d senders of refactored Claus Gittinger <cg@exept.de> parents: 4235 diff changeset	4726	(doMatch and:[aSelectorString = '*']) ifTrue:[
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4727	searchBlock := [:class :method :s \| true].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4728	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4729	"/ no matchString - can do it much faster
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4730
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4731	sel := aSelectorString asSymbolIfInterned.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4732	sel isNil ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4733	^ nil "/ none
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4734	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4735
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4736	quickMatch := sel.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4737	(quickMatch includes:$:) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4738	quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4739	].
12785 99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4740	searchBlock := [:class :methodArg :s \|
99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4741	\|method src\|
99a40df6afb8 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12747 diff changeset	4742
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	4743	method := methodArg originalMethodIfWrapped.
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4744	method isLazyMethod ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4745	src := method source.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4746	(src notNil and:[src includesString:quickMatch]) ifTrue:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4747	method makeRealMethod.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4748	method sends:sel.
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4749	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4750	false
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4751	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4752	] ifFalse:[
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4753	method sends:sel
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4754	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4755	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4756	]
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4757	].
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4758	^ searchBlock
10416 82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	4759
82d17ccb68ad changed: #searchBlockForAllCallsOn:ignoreCase:match: Claus Gittinger <cg@exept.de> parents: 10386 diff changeset	4760	"Modified: / 28-07-2011 / 10:52:51 / cg"
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4761	!
bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	4762
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4763	searchBlockForCode:aCodeString in:aCollectionOfClasses isMethod:isMethod
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4764	"return a block to search for a piece of code.
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4765	intelligent search: because parsing and the parseTree-match is a relatively
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4766	expensive operation, we try hard to reduce the amount of searched methods by:
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4767	- extracting sent messages from the pattern, and limiting the search to
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4768	methods which also send all those messages,
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4769	- extracting accessed globals from the pattern, and limiting the search to
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4770	methods which also refer to those globals"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4771
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4772	\|errAction searchTree searcher globalVariablesUsed usedSymbols usedStrings
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4773	sentMessages searchBlock foundMatch numMethodArgs methodSelector nameSpacesForGlobals\|
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4774
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4775	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4776	"/rule := ParseTreeLintRule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4777	"/ createParseTreeRule: (Array with: aCodeString)
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4778	"/ method: isMethod
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4779	"/ name: 'Search for: ' , aCodeString.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4780	"/self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4781	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4782	"/ searchBlock := [:c :m :sel \|
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4783	"/ rslt := SmalllintChecker
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4784	"/ runRule:rule
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4785	"/ onEnvironment: (ClassEnvironment onEnvironment:(BrowserEnvironment new) classes:(Array with:c)).
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4786	"/
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4787	"/ self halt.
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4788	"/ ].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4789	"/^ searchBlock.
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4790
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4791	errAction := [:str :pos \|
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4792	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4793	^ nil
35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4794	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4795
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4796	isMethod ifTrue:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4797	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4798	parseRewriteMethod:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4799	onError: errAction.
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4800	numMethodArgs := searchTree arguments size.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4801	methodSelector := searchTree selector.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4802	] ifFalse:[
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4803	searchTree := RBParser
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4804	parseRewriteExpression:aCodeString
5226 35a9709e73ee code search Claus Gittinger <cg@exept.de> parents: 5135 diff changeset	4805	onError: errAction.
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4806	].
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4807
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4808	"/ extract messages sent by the pattern
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4809	Error handle:[:ex \|
12837 80c40ce2cd56 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12831 diff changeset	4810	self halt:'check this, please'.
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4811	] do:[
6549 cd47faed29f6 * empty log message * Claus Gittinger <cg@exept.de> parents: 6546 diff changeset	4812	sentMessages := searchTree sentMessages.
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4813	].
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4814
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4815	nameSpacesForGlobals := Set with:Smalltalk.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4816	aCollectionOfClasses do:[:eachClass \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4817	nameSpacesForGlobals add:eachClass topNameSpace
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4818	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4819
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4820	"/ extract globals used by the pattern
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4821	globalVariablesUsed := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4822	searchTree referencedVariables do:[:node \|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4823	\|nm ns alternatives\|
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4824
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4825	node isPatternNode ifFalse:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4826	nm := node name.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4827	ns := nameSpacesForGlobals detect:[:ns \| ns includesKey: nm asSymbol] ifNone:nil.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4828	ns notNil ifTrue:[
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4829	alternatives := OrderedCollection new.
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4830	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4831	('Smalltalk::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: ('Smalltalk::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4832	(ns name,'::',nm) asSymbolIfInterned notNil ifTrue:[ alternatives add: (ns name,'::',nm) asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4833	nm asSymbolIfInterned notNil ifTrue:[ alternatives add: nm asSymbol ].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4834	globalVariablesUsed add:alternatives
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4835	].
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4836	]
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4837	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4838
10546 174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4839	"/ sorry:
174df6f8a170 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 10416 diff changeset	4840	"/ cannot use literals to speedup the search, because stc does not store
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4841	"/ constants in the literal-array. However, we can do a string search on
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4842	"/ them, to avoid parsing.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4843	usedSymbols := searchTree usedSymbols.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4844	usedStrings := searchTree usedLiterals select:[:lit \| lit isString].
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4845
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4846	searcher := ParseTreeSearcher new.
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4847	isMethod ifTrue:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4848	searcher
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4849	matchesMethod:aCodeString
5256 c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4850	do:[:aNode :answer \| foundMatch := true].
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4851	] ifFalse:[
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4852	searcher
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4853	matchesTree:searchTree
c37bc91f2460 better none-found behavior for unary messages Claus Gittinger <cg@exept.de> parents: 5254 diff changeset	4854	do:[:aNode :answer \| foundMatch := true].
6303 47c12063b000 Fix BC-Compile error Stefan Vogel <sv@exept.de> parents: 6184 diff changeset	4855	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4856
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4857	searchBlock := [:c :m :sel \|
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4858	\|isSTCCompiled allSelectorsInLiteralArray allMessagesSent
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4859	allGlobalsReferenced allUsedSymbolsInLiteralArray allStringsInLiteralArray
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4860	allSent src rslt parseTree
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4861	literalsInMethod\|
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4862
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4863	foundMatch := false.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4864
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4865	"/ can speedup the search, by filtering for number of message-args first...
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4866	(isMethod not
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4867	or:[ numMethodArgs isNil
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4868	or:[ numMethodArgs == m numArgs ]]) ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4869	m isLazyMethod ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4870	src := m source.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4871	src notNil ifTrue:[
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4872	m makeRealMethod.
67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4873	].
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4874	].
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4875	"/ can speedup the search, by filtering for sent messages...
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4876	literalsInMethod := m literals.
0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4877	allSelectorsInLiteralArray := sentMessages isEmptyOrNil or:[ literalsInMethod includesAll:sentMessages ].
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4878	allSelectorsInLiteralArray ifTrue:[
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4879	"/ and used symbols/globals first...
9544 0947c3513df7 changed: #searchBlockForCode:isMethod: Claus Gittinger <cg@exept.de> parents: 9483 diff changeset	4880	allUsedSymbolsInLiteralArray := usedSymbols isEmptyOrNil or:[ literalsInMethod includesAll:usedSymbols ].
8281 67f0cd20adf0 method-code search tuned: filter by number of methodArgs, if known. Claus Gittinger <cg@exept.de> parents: 8158 diff changeset	4881	allUsedSymbolsInLiteralArray ifTrue:[
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4882	"/ not true, but I am lazy: if ANY string is in match, ANY string must be in method
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4883	"/ that does not work for stc compiled code, because it does not put strings into the literal array
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4884	isSTCCompiled := m byteCode isNil.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4885	isSTCCompiled ifTrue:[
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4886	allStringsInLiteralArray := true. "/ stc-compiled: don't know
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4887	] ifFalse:[
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4888	allStringsInLiteralArray := usedStrings isEmptyOrNil
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4889	or:[ literalsInMethod includesAll:usedStrings "literalsInMethod contains:[:lit \| lit isString]" ].
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4890	].
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4891	allStringsInLiteralArray ifTrue:[
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4892	allGlobalsReferenced := globalVariablesUsed conform:[:varNames \| varNames contains:[:varName \| m referencesGlobal:varName]].
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4893	allGlobalsReferenced ifTrue:[
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4894	allMessagesSent := sentMessages isEmptyOrNil or:[ m messages includesAll:sentMessages ].
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4895	allMessagesSent ifTrue:[
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4896	allSent := sentMessages conform:[:sel \| (m sends:sel)].
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4897	allSent ifTrue:[
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4898	src := m source.
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4899	src isNil ifTrue:[
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4900	('Browser [info]: no source for ' , m printString) infoPrintCR.
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4901	] ifFalse:[
12056 28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4902	isSTCCompiled ifTrue:[
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4903	usedStrings notEmptyOrNil ifTrue:[
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4904	"/ now that we have the source, scan the source for the literal strings,
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4905	"/ before doing a slow parse
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4906	allStringsInLiteralArray := usedStrings conform:[:eachString \| src includesString:eachString].
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4907	]
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4908	].
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4909	allStringsInLiteralArray ifTrue:[
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4910	"/ the rest is done by the slower RB-match process...
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4911	parseTree := RBParser
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4912	parseSearchMethod:src
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4913	onError: [:str :pos \|
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4914	"/ self halt.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4915	Transcript show:'Error during search in '; showCR:m.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4916	Transcript showCR:str.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4917	Transcript showCR:pos.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4918	nil].
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4919
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4920	parseTree notNil ifTrue:[
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4921	searcher executeTree:parseTree.
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4922	"/ notice: searcher sets foundMatch !!
28e46bad9ca9 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12040 diff changeset	4923	].
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4924	].
344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4925	]
6552 343882b29fec code search bug - leftover foundMatch flag (must be cleared) Claus Gittinger <cg@exept.de> parents: 6549 diff changeset	4926	]
6368 ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4927	]
ef36274cbbf1 faster code-search Claus Gittinger <cg@exept.de> parents: 6353 diff changeset	4928	]
5251 847d633792ce tuned code search if global vars are involved Claus Gittinger <cg@exept.de> parents: 5243 diff changeset	4929	]
5135 d844ec803124 improved code search Claus Gittinger <cg@exept.de> parents: 5112 diff changeset	4930	]
6581 ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4931	]
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4932	].
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4933	foundMatch.
ae69dc905971 * empty log message * Claus Gittinger <cg@exept.de> parents: 6560 diff changeset	4934	].
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4935	^ searchBlock.
7395 4aa4c6b9a161 * empty log message * Claus Gittinger <cg@exept.de> parents: 7361 diff changeset	4936
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4937	"Created: / 02-05-2011 / 13:25:01 / sr"
11638 344d7d06f1d2 changed: #searchBlockForCode:in:isMethod: Claus Gittinger <cg@exept.de> parents: 11506 diff changeset	4938	"Modified: / 20-07-2012 / 19:07:36 / cg"
9879 5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4939	!
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4940
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4941	searchBlockForCode:aCodeString isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4942	"return a block to search for a piece of code (intelligent search)."
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4943
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4944	^ self searchBlockForCode:aCodeString in:#() isMethod:isMethod
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4945
5109d9da29eb added: #searchBlockForCode:in:isMethod: sr parents: 9685 diff changeset	4946	"Modified: / 02-05-2011 / 13:26:18 / sr"
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4947	!
242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	4948
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4949	searchBlockForParseTreeSearcher:searcher isMethod:isMethod
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4950	"return a block to search for a piece of code (intelligent search)."
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4951
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4952	\|errAction searchBlock foundMatch\|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4953
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4954	errAction := [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4955	Dialog warn:'Error during parse: ' , str , ' (position ' , pos printString , ')'.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4956	^ nil
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4957	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4958
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4959	searchBlock := [:c :m :sel \|
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4960	\|src parseTree\|
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4961
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4962	foundMatch := false.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4963
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4964	m isLazyMethod ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4965	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4966	src notNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4967	m makeRealMethod.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4968	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4969	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4970
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4971	src := m source.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4972	src isNil ifTrue:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4973	('Browser [info]: no source for ' , m printString) infoPrintCR.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4974	] ifFalse:[
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4975	parseTree := RBParser
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4976	parseSearchMethod:src
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4977	onError: [:str :pos \|
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4978	Transcript show:'Error in '; showCR:m.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4979	Transcript showCR:str.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4980	Transcript showCR:pos.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4981	nil].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4982
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4983	parseTree notNil ifTrue:[
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4984	foundMatch := searcher executeTree:parseTree initialAnswer:false.
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4985	]
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4986	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4987	foundMatch.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4988	].
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4989
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4990	^ searchBlock.
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4991
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4992	"Created: / 11-05-2010 / 16:14:25 / cg"
9483 eead021c9729 changed: #searchBlockForParseTreeSearcher:isMethod: Claus Gittinger <cg@exept.de> parents: 9482 diff changeset	4993	"Modified: / 11-05-2010 / 22:05:09 / cg"
9482 542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4994	!
542a208d6273 added:7 methods Claus Gittinger <cg@exept.de> parents: 9334 diff changeset	4995
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4996	searchBlockForReferendsOf:aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4997	"return a block which searches for all methods which reference a global named aGlobalName,
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4998	which may be a matchpattern"
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	4999
12844 2a189ba77e75 Fix stc compiler warnings Stefan Vogel <sv@exept.de> parents: 12837 diff changeset	5000	\|globalsPlainName idx sym1 sym2\|
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5001
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5002	globalsPlainName := aGlobalName.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5003	(idx := globalsPlainName lastIndexOf:$:) ~~ 0 ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5004	globalsPlainName := globalsPlainName copyFrom:idx+1.
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5005	(globalsPlainName size == 0 or:[globalsPlainName = '*']) ifTrue:[
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5006	globalsPlainName := aGlobalName
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5007	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5008	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5009
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5010	"/ matchingGlobalNames := OrderedCollection new.
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5011
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5012	aGlobalName includesMatchCharacters ifFalse:[
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5013	sym1 := aGlobalName asSymbolIfInterned.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5014	sym2 := globalsPlainName asSymbolIfInterned.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5015	(sym1 isNil and:[ sym2 isNil ]) ifTrue:[
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5016	^ [:cls :mthd :sel \| false ].
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5017	].
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5018	"/ if any is nil, search for the same
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5019	sym1 := sym1 ? sym2.
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5020	sym2 := sym2 ? sym1.
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5021
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5022	^ [:cls :mthd :sel \|
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5023	\|mSource ok m usedGlobals\|
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5024
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5025	ok := false.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5026	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5027	mthd isLazyMethod ifTrue:[
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5028	mSource := mthd source.
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5029	(mSource notNil) ifTrue:[
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5030	(mSource includesString:(sym2)) ifTrue:[
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5031	usedGlobals := mthd usedGlobals.
8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5032	(usedGlobals includes:sym1) ifTrue:[
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5033	ok := true
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5034	] ifFalse:[
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5035	(sym1 ~= sym2 and:[usedGlobals includes:sym2]) ifTrue:[
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5036	ok := true
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5037	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5038	]
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5039	]
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5040	]
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5041	] ifFalse:[
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	5042	m := mthd originalMethodIfWrapped.
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5043	((m refersToLiteral:sym1) or:[ sym1 ~= sym2 and:[m refersToLiteral:sym2] ]) ifTrue:[
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5044	usedGlobals := m usedGlobals.
11964 8670bf08f225 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 11941 diff changeset	5045	ok := (usedGlobals includes:sym1) or:[ sym1 ~= sym2 and:[usedGlobals includes:sym2] ]
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5046	].
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5047	].
105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5048	ok
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5049	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5050	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5051
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5052	^ [:cls :mthd :sel \|
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5053	\|mSource usedGlobals global m\|
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5054
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5055	"/ kludge: Lazy methods do not include symbols in the literal array - sigh
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5056	mthd isLazyMethod ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5057	mSource := mthd source.
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5058	mSource notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5059	usedGlobals := mthd usedGlobals
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5060	]
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5061	] ifFalse:[
13071 33d05d455513 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13046 diff changeset	5062	m := mthd originalMethodIfWrapped.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5063	(m literals contains:[:lit \| (aGlobalName match:lit) or:[globalsPlainName match:lit]]) ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5064	usedGlobals := m usedGlobals
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5065	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5066	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5067	usedGlobals notNil ifTrue:[
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5068	global := usedGlobals detect:[:lit \| aGlobalName match:lit] ifNone:nil.
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5069	global isNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5070	global := usedGlobals detect:[:lit \| globalsPlainName match:lit] ifNone:nil.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5071	].
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5072	"/ global notNil ifTrue:[
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5073	"/ matchingGlobalNames add:global.
e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5074	"/ ]
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5075	].
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5076	global notNil
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5077	].
9660 e8b452501452 changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 9578 diff changeset	5078
10386 105f6c60ce2d changed: #searchBlockForReferendsOf: Claus Gittinger <cg@exept.de> parents: 10346 diff changeset	5079	"Modified: / 24-07-2011 / 09:50:30 / cg"
9002 885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5080	!
885404958f53 code cleanup Claus Gittinger <cg@exept.de> parents: 8894 diff changeset	5081
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5082	searchBlockForString:aString ignoreCase:ignoreCase match:doMatch
5094 242cf19c25ce code search Claus Gittinger <cg@exept.de> parents: 5090 diff changeset	5083	"return a block to search for a string."
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5084
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5085	\|searchBlock s\|
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5086
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5087	(doMatch and:[ aString includesMatchCharacters ]) ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5088	s := '' , aString , ''.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5089	"a matchString"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5090	searchBlock := [:c :m :sel \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5091	\|src\|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5092	src := m source.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5093	src isNil ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5094	('Browser [info]: no source for ' , m printString) infoPrintCR.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5095	false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5096	] ifFalse:[
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	5097	s match:src caseSensitive:ignoreCase not
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5098	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5099	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5100	] ifFalse:[
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5101	searchBlock :=
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5102	[:c :m :sel \|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5103	\|src\|
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5104
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5105	src := m source.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5106	src isNil ifTrue:[
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5107	('Browser [info]: no source for ' , m printString) infoPrintCR.
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5108	false
9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5109	] ifFalse:[
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	5110	(src findString:aString caseSensitive:ignoreCase not) ~~ 0
8129 9bb5ca89393a find code cleanup Claus Gittinger <cg@exept.de> parents: 8047 diff changeset	5111	]
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5112	]
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5113	].
4235 bba308f409dd images & another special case startup Claus Gittinger <cg@exept.de> parents: 4222 diff changeset	5114	^ searchBlock.
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5115
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5116	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5117	SystemBrowser findString:'should' in:(Array with:Object) ignoreCase:false
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5118	"
4152 92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5119	!
92e3975f1904 allow for non-matching search (searching for impl. of '') Claus Gittinger <cg@exept.de>* parents: 4150 diff changeset	5120
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5121	searchBlockForStringLiteral:aString ignoreCase:ignoreCase match:doMatch
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5122	"return a block to search for a string-literal."
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5123
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5124	\|searchBlock s\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5125
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5126	(doMatch and:[ aString includesMatchCharacters]) ifTrue:[
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5127	s := '' , aString , ''.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5128	"a matchString"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5129	searchBlock := [:c :m :sel \|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5130	\|lits\|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5131	lits := m literals ? #().
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5132	lits contains:[:lit \|
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5133	lit isString
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5134	and:[lit isSymbol not
13438 06f6d5fc73ef class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 13365 diff changeset	5135	and:[s match:lit caseSensitive:ignoreCase not]]
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5136	]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5137	]
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5138	] ifFalse:[
5891 2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5139	ignoreCase ifTrue:[
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5140	s := aString asLowercase.
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5141	searchBlock := [:c :m :sel \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5142	\|lits\|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5143	lits := m literals ? #().
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5144	lits contains:[:lit \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5145	lit isString
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5146	and:[lit isSymbol not
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5147	and:[s = lit asLowercase]]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5148	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5149	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5150	] ifFalse:[
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5151	searchBlock := [:c :m :sel \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5152	\|lits\|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5153	lits := m literals ? #().
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5154	lits contains:[:lit \|
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5155	lit isString
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5156	and:[lit isSymbol not
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5157	and:[s = lit]]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5158	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5159	]
2a0c77668f34 findString caseless fixed Claus Gittinger <cg@exept.de> parents: 5877 diff changeset	5160	].
5877 c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5161	].
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5162	^ searchBlock.
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5163
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5164	"
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5165	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5166	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:true match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5167	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:true
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5168	SystemBrowser findStringLiteral:'error' in:(Array with:Object) ignoreCase:false match:false
c11a6d244c6a string literal search Claus Gittinger <cg@exept.de> parents: 5833 diff changeset	5169	"
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5170	!
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5171
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5172	searchBlockForSymbol:aSymbol
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	5173	"return a matchblock to search for all methods referencing aSymbol.
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	5174	false if no such symbol exists"
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5175
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5176	(aSymbol includesMatchCharacters) ifTrue:[
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5177	"a matchString"
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5178	^ [:c :m :s \|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5179	(m literalsDetect:[:aLiteral\|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5180	(aLiteral isMemberOf:Symbol)
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5181	and:[aSymbol match:aLiteral]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5182	]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5183	ifNone:nil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5184	) notNil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5185	].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5186	] ifFalse:[
12866 dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	5187	aSymbol asSymbolIfInterned isNil ifTrue:[
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	5188	^ false
dfc55f180f52 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12844 diff changeset	5189	].
11452 09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5190	^ [:c :m :s \|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5191	(m literalsDetect:[:aLiteral\|
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5192	(aSymbol == aLiteral)
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5193	]
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5194	ifNone:nil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5195	) notNil
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5196	].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5197	].
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5198
09f7f34c2d10 code cleanup Claus Gittinger <cg@exept.de> parents: 11291 diff changeset	5199	"Created: / 22-03-2012 / 06:56:51 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5200	! !
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5201
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	5202	!SystemBrowser class methodsFor:'startup'!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5203
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5204	browseAllSelect:aBlock
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5205	"launch a browser for all methods where aBlock returns true.
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5206	The block is called with 3 arguments, class, method and selector."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5207
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5208	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5209	browseMethodsWhere:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5210	title:'selected messages'
36 ccde5a941840 * empty log message * claus parents: diff changeset	5211
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5212	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5213	SystemBrowser browseAllSelect:[:aClass :aMethod :selector \| selector numArgs == 3]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5214	"
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5215
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5216	"Modified: 24.1.1997 / 19:45:05 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5217	!
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	5218
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5219	browseClass:aClass
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	5220	"launch a browser for aClass.
de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	5221	Notice: better go via Smalltalk browseClass:, which honors the tool-preferences"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5222
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5223	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5224	newWithLabel:aClass name
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5225	setupSelector:#setupForClass:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5226	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5227
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5228	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5229	SystemBrowser browseClass:Object
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5230	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5231
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5232	"Modified: 24.1.1997 / 19:45:16 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5233	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5234
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5235	browseClass:aClass methodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5236	"launch a browser for all methods under aCategory in aClass"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5237
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5238	^ self newWithLabel:(aClass name , ' ' , aCategory)
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5239	setupBlock:[:browser \| browser setupForClass:aClass methodCategory:aCategory]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5240
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5241	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5242	SystemBrowser browseClass:String methodCategory:'copying'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5243	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5244
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5245	"Modified: 24.1.1997 / 19:45:23 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5246	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5247
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5248	browseClass:aClass selector:selector
4490 de7216d4a28a * empty log message * Claus Gittinger <cg@exept.de> parents: 4350 diff changeset	5249	"launch a browser for the method at selector in aClass."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5250
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5251	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5252	newWithLabel:(aClass name , ' ' , selector , ' ' , selector)
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5253	setupBlock:[:newBrowser \| newBrowser setupForClass:aClass selector:selector]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5254
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5255	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5256	SystemBrowser browseClass:Object selector:#printString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5257	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5258	!
ccde5a941840 * empty log message * claus parents: diff changeset	5259
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5260	browseClassCategory:aClassCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5261	"launch a browser for all classes under aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5262
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5263	^ self
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5264	newWithLabel:aClassCategory
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5265	setupSelector:#setupForClassCategory:
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5266	arg:aClassCategory
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5267
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5268	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5269	SystemBrowser browseClassCategory:'Kernel-Objects'
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5270	"
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5271
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5272	"Modified: 24.1.1997 / 19:45:32 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5273	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5274
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5275	browseClassHierarchy:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5276	"launch a browser for aClass and all its superclasses.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5277	this is different from the fullProtocol browser."
36 ccde5a941840 * empty log message * claus parents: diff changeset	5278
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5279	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5280	newWithLabel:(aClass name , '-' , 'hierarchy')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5281	setupSelector:#setupForClassHierarchy:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5282	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5283
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5284	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5285	SystemBrowser browseClassHierarchy:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5286	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5287	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5288
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5289	browseClasses:aList label:title
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5290	"launch a browser for all classes in aList"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5291
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5292	^ self
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5293	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5294	setupBlock:[:b \| b setupForClassList:aList sort:true]
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5295
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5296	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5297	SystemBrowser browseClasses:(Array with:Object
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5298	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5299	title:'two classes'
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5300	"
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5301
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5302	"Modified: 28.5.1996 / 13:52:25 / cg"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5303	!
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5304
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5305	browseClasses:aList label:title sort:doSort
576 62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5306	"launch a browser for all classes in aList"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5307
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5308	^ self
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5309	newWithLabel:title
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5310	setupBlock:[:b \| b setupForClassList:aList sort:doSort]
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5311
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5312	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5313	SystemBrowser browseClasses:(Array with:Object
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5314	with:Float)
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5315	title:'two classes'
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5316	"
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5317
62dc6c67d71c show subclasses hierarchical (spawn subclasses) Claus Gittinger <cg@exept.de> parents: 573 diff changeset	5318	"Created: 28.5.1996 / 13:52:09 / cg"
52 7b48409ae088 * empty log message * claus parents: 49 diff changeset	5319	!
7b48409ae088 * empty log message * claus parents: 49 diff changeset	5320
8702 93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5321	browseClasses:aList title:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5322	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5323	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5324
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5325	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5326	^ self browseClasses:aList label:title
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5327	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5328
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5329	browseClasses:aList title:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5330	<resource: #obsolete>
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5331	"launch a browser for all classes in aList"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5332
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5333	self obsoleteMethodWarning.
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5334	^ self browseClasses:aList label:title sort:doSort
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5335
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5336	"Created: 28.5.1996 / 13:52:09 / cg"
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5337	!
93616c89ade0 * empty log message * Claus Gittinger <cg@exept.de> parents: 8688 diff changeset	5338
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5339	browseFullClassProtocol:aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5340	"launch a browser for aClasses full protocol.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5341	This is different from hierarchy browsing."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5342
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5343	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5344	newWithLabel:(aClass name , '-' , 'full protocol')
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5345	setupSelector:#setupForFullClassProtocol:
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5346	arg:aClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5347
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5348	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5349	SystemBrowser browseFullClassProtocol:Number
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5350	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5351	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5352
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5353	browseFullClasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5354	"launch a browser showing all methods at once"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5355
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5356	^ self
4158 d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5357	newWithLabel:'Full Class Browser'
d7286d54de21 * empty log message * Claus Gittinger <cg@exept.de> parents: 4152 diff changeset	5358	setupBlock:[:newBrowser \| newBrowser setupForFullClass]
36 ccde5a941840 * empty log message * claus parents: diff changeset	5359
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5360	"SystemBrowser browseFullClasses"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5361	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5362
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5363	browseInstMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5364	"launch a browser for all instance methods in aClass and all subclasses
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5365	where aBlock evaluates to true"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5366
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5367	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5368	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5369	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5370	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5371	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5372	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5373
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5374	"Modified: 24.1.1997 / 19:44:45 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5375	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5376
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5377	browseInstMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5378	"launch a browser for all instance methods of all classes in
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5379	aCollectionOfClasses where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5380
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5381	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5382	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5383	inst:true class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5384	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5385
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5386	"Modified: 24.1.1997 / 19:43:41 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5387	!
36 ccde5a941840 * empty log message * claus parents: diff changeset	5388
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5389	browseInstMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5390	"launch a browser for all instance methods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5391	where aBlock evaluates to true"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5392
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5393	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5394	browseMethodsIn:(Array with:aClass)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5395	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5396	class:false
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5397	where:aBlock title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5398
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5399	"Modified: 24.1.1997 / 19:43:50 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5400	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5401
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5402	browseMethodCategory:aCategory
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5403	"launch a browser for all methods where category = aCategory"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5404
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5405	\|searchBlock\|
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5406
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5407	aCategory includesMatchCharacters ifTrue:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5408	searchBlock := [:c :m :s \| aCategory match:m category].
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5409	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5410	searchBlock := [:c :m :s \| m category = aCategory]
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5411	].
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5412
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5413	^ self browseMethodsWhere:searchBlock title:('all methods with category of ' , aCategory)
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5414
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5415	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5416	SystemBrowser browseMethodCategory:'printing & storing'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5417	SystemBrowser browseMethodCategory:'print*'
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5418	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5419	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5420
3666 f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5421	browseMethods:aListOfMethods
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5422	"launch a multi-method browser."
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5423
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5424	^ self browseMethods:aListOfMethods title:'some methods'
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5425
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5426	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5427	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5428	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5429	with:(OrderedCollection compiledMethodAt:#at:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5430
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5431	self
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5432	browseMethods:(Array with:(Array compiledMethodAt:#at:)
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5433	with:(Array compiledMethodAt:#at:put:))
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5434	"
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5435	!
f7b25e677c23 * empty log message * Claus Gittinger <cg@exept.de> parents: 3663 diff changeset	5436
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5437	browseMethods:aList title:aString
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5438	"launch a browser for an explicit list of class/selectors.
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5439	Each entry in the list can be either a method, or a string
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5440	consisting of the classes name and the selector, separated by spaces.
634 24a678f81829 Change the name of a classes Metaclass from e.g. "SmallIntegerclass" to Stefan Vogel <sv@exept.de> parents: 620 diff changeset	5441	For class methods, the string ' class' must be appended to the classname."
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5442
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5443	^ self
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5444	browseMethods:aList
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5445	title:aString
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5446	sort:true
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5447
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5448
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5449	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5450	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5451	browseMethods:#('Object printOn:' 'Collection add:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5452	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5453
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5454	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5455	browseMethods:#('Behavior new:' 'Setclass new:')
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5456	title:'some new: methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5457
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5458	SystemBrowser
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5459	browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5460	with:(Collection compiledMethodAt:#add:)
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5461	with:(Object class compiledMethodAt:#initialize))
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5462	title:'some methods'
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5463
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5464	"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5465
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5466	"Modified: 1.11.1996 / 16:30:17 / cg"
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5467	!
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5468
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5469	browseMethods:aList title:aString sort:doSort
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5470	"launch a browser for an explicit list of class/selectors.
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5471	Each entry in the list can be either a method, or a string
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5472	consisting of the classes name and the selector, separated by spaces.
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5473	For class methods, the string ' class' must be appended to the classname."
0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5474
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5475	\|l\|
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5476
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5477	(aList size == 0) ifTrue:[
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5478	self showNoneFound:aString.
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5479	^ nil
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5480	].
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5481	l := aList asOrderedCollection.
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5482	l := l collect:[:entry \|
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5483	\|who cls clsName\|
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5484
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5485	entry isString ifTrue:[
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5486	entry
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5487	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5488	cls := entry mclass.
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5489	cls isNil ifTrue:[
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5490	'??? unbound'
5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5491	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5492	cls isJavaClass ifTrue:[
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5493	clsName := 'JAVA::' , cls fullName
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5494	] ifFalse:[
2822 8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5495	clsName := cls name
8127e7726fdd changes for environment browsing Claus Gittinger <cg@exept.de> parents: 2818 diff changeset	5496	].
7915 56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5497	(cls selectorAtMethod:entry) isNil ifTrue:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5498	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5499	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5500	, '???'
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5501	] ifFalse:[
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5502	clsName
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5503	, ' '
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5504	, (entry printStringForBrowserWithSelector:(cls selectorAtMethod:entry) inClass:cls)
56a43b103eaa refactoring Claus Gittinger <cg@exept.de> parents: 7914 diff changeset	5505	]
1031 5d77c99b877e dont crash when unbound methods are passed ca parents: 1018 diff changeset	5506	]
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5507	]
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5508	].
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5509
1919 0652e55065f9 added sort option to #browserMethods: Claus Gittinger <cg@exept.de> parents: 1703 diff changeset	5510	doSort ifTrue:[l sort].
1937 fc541342f2db more support for java code (implementors) Claus Gittinger <cg@exept.de> parents: 1931 diff changeset	5511
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5512	^ self
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5513	newWithLabel:aString
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5514	setupSelector:#setupForList:
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5515	arg:l
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5516
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5517	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5518	SystemBrowser
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5519	browseMethods:#('Object printOn:' 'Collection add:')
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5520	title:'some methods'
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5521
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5522	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5523	browseMethods:#('Behavior new:' 'Setclass new:')
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5524	title:'some new: methods'
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5525
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5526	SystemBrowser
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5527	browseMethods:(Array with:(Object compiledMethodAt:#printOn:)
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5528	with:(Collection compiledMethodAt:#add:)
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5529	with:(Object class compiledMethodAt:#initialize))
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5530	title:'some methods'
062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5531
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5532	"
279 062022b53f22 allow browseMethods to be passed a collection of methodObjects (in addition to strings) Claus Gittinger <cg@exept.de> parents: 270 diff changeset	5533
7711 7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	5534	"Modified: / 17-06-1996 / 17:07:46 / stefan"
7e8881bccf72 * empty log message * Claus Gittinger <cg@exept.de> parents: 7524 diff changeset	5535	"Modified: / 05-03-2007 / 16:25:25 / cg"
2826 9d7f11697806 * empty log message * Claus Gittinger <cg@exept.de> parents: 2824 diff changeset	5536	!
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5537
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5538	browseMethodsFrom:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5539	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5540	and all its subclasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5541	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5542
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5543	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5544	browseMethodsIn:(aClass withAllSubclasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5545	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5546	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5547
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5548	"Modified: 24.1.1997 / 19:44:00 / cg"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5549	!
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5550
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5551	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5552	"launch a browser for all instance- (if wantInst is true) and/or
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5553	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5554	where aBlock evaluates to true.
270 f97a37f5df7a checkin from browser Claus Gittinger <cg@exept.de> parents: 256 diff changeset	5555	The block is called with 3 arguments, class, method and selector."
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5556
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5557	\|list\|
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5558
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5559	"
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5560	since this may take a long time, lower my priority ...
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5561	"
2295 4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5562	Processor activeProcess
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5563	withPriority:Processor activePriority-1 to:Processor activePriority
4e05198e7dd8 execute BG tasks at a prio range, to ensure progress. Claus Gittinger <cg@exept.de> parents: 2208 diff changeset	5564	do:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5565	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5566	].
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5567	^ self browseMethods:list title:title
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5568	!
2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5569
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5570	browseMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5571	"launch a browser for all instance- (if wantInst is true) and/or
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5572	classmethods (if wantClass is true) from classes in aCollectionOfClasses,
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5573	where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5574	The block is called with 3 arguments, class, method and selector."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5575
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5576	\|list\|
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5577
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5578	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5579	since this may take a long time, lower my priority ...
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5580	"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5581	Processor activeProcess
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5582	withPriority:Processor activePriority-1 to:Processor activePriority
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5583	do:[
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5584	list := self findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5585	list size == 0 ifTrue:[warnBlock value].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5586	].
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5587	^ self browseMethods:list title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5588	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5589
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5590	browseMethodsIn:aCollectionOfClasses where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5591	"launch a browser for all instance- and classmethods from
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5592	all classes in aCollectionOfClasses where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5593	The block is called with 3 arguments, class, method and seelctor."
53 2fc78a0165e7 * empty log message * claus parents: 52 diff changeset	5594
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5595	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5596	browseMethodsIn:aCollectionOfClasses
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5597	inst:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5598	class:true
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5599	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5600	title:title
75 f6310cbc93b6 * empty log message * claus parents: 72 diff changeset	5601
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5602	"Modified: 24.1.1997 / 19:44:17 / cg"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5603	!
ccde5a941840 * empty log message * claus parents: diff changeset	5604
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5605	browseMethodsIn:aCollectionOfClasses where:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5606	"launch a browser for all instance- and classmethods from
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5607	all classes in aCollectionOfClasses where aBlock evaluates to true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5608	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5609
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5610	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5611	browseMethodsIn:aCollectionOfClasses
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5612	inst:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5613	class:true
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5614	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5615	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5616	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5617
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5618	"Modified: 24.1.1997 / 19:44:17 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5619	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5620
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5621	browseMethodsOf:aClass where:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5622	"launch a browser for all instance- and classmethods in aClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5623	where aBlock evaluates to true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5624	The block is called with 3 arguments, class, method and seelctor."
93 dda97353e775 . claus parents: 90 diff changeset	5625
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5626	^ self browseMethodsIn:(Array with:aClass) where:aBlock title:title
93 dda97353e775 . claus parents: 90 diff changeset	5627	!
dda97353e775 . claus parents: 90 diff changeset	5628
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5629	browseMethodsWhere:aBlock title:title
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5630	"launch a browser for all methods where aBlock returns true.
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5631	The block is called with 3 arguments, class, method and seelctor."
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5632
996 ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5633	^ self
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5634	browseMethodsIn:(Smalltalk allClasses)
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5635	where:aBlock
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5636	title:title
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5637
ed470d0b6029 more generic browseAll protocol; Claus Gittinger <cg@exept.de> parents: 929 diff changeset	5638	"Modified: 24.1.1997 / 19:44:30 / cg"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5639	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5640
3780 39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5641	browseMethodsWhere:aBlock title:title ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5642	"launch a browser for all methods where aBlock returns true.
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5643	The block is called with 3 arguments, class, method and seelctor."
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5644
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5645	^ self
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5646	browseMethodsIn:(Smalltalk allClasses)
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5647	where:aBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5648	title:title
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5649	ifNone:warnBlock
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5650
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5651	"Modified: 24.1.1997 / 19:44:30 / cg"
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5652	!
39191b8024e4 dont open empty list browsers penk parents: 3679 diff changeset	5653
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5654	findMethodsIn:aCollectionOfClasses inst:wantInst class:wantClass where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5655	"return all instance- (if wantInst is true) and/or classmethods (if wantClass is true)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5656	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5657
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5658	\|list checkedClasses checkBlock nClasses nClassesDone\|
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5659
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5660	checkedClasses := IdentitySet new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5661	list := OrderedCollection new.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5662
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5663	checkBlock := [:cls \|
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5664	(checkedClasses includes:cls) ifFalse:[
8554 441ea25ad1fd Do not complain about obsolete classes which are unloaded when searching Stefan Vogel <sv@exept.de> parents: 8505 diff changeset	5665	(cls isObsolete and:[cls isLoaded]) ifTrue:[
2882 2a12342fef79 * empty log message * Claus Gittinger <cg@exept.de> parents: 2880 diff changeset	5666	Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5667	] ifFalse:[
11941 55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5668	aBlock numArgs == 1 ifTrue:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5669	cls methodDictionary keysAndValuesDo:[:sel :method \|
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5670	(aBlock value:method) ifTrue:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5671	list add:method "/ (cls name , ' ' , sel)
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5672	]
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5673	].
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5674	] ifFalse:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5675	cls methodDictionary keysAndValuesDo:[:sel :method \|
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5676	(aBlock value:cls value:method value:sel) ifTrue:[
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5677	list add:method "/ (cls name , ' ' , sel)
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5678	]
55fec250ed02 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11934 diff changeset	5679	].
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5680	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5681	checkedClasses add:cls.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5682	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5683	]
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5684	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5685
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5686	nClasses := aCollectionOfClasses size.
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5687	nClassesDone := 0.
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5688
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5689	aCollectionOfClasses do:[:aClass \|
3008 1a45c272b13f * empty log message * Claus Gittinger <cg@exept.de> parents: 2901 diff changeset	5690	(aClass notNil and:[aClass isObsolete not]) ifTrue:[
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5691	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5692	output disabled - it slows down things too much (when searching for
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5693	implementors or senders)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5694	"
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5695	wantInst ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5696	"/ Transcript show:'searching '; show:aClass name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5697	checkBlock value:aClass
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5698	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5699	wantClass ifTrue:[
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5700	"/ Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5701	checkBlock value:(aClass class)
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5702	].
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5703	nClassesDone > 5 ifTrue:[
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5704	"/ Processor yield
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5705	ProgressNotification progressPercentage:(nClassesDone / nClasses)*100.
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5706	].
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5707	].
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5708	nClassesDone := nClassesDone + 1.
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5709	].
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5710	^ list
11506 bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5711
bc0fc32fd733 changed: #findMethodsIn:inst:class:where: Claus Gittinger <cg@exept.de> parents: 11452 diff changeset	5712	"Modified: / 15-05-2012 / 10:36:44 / cg"
2675 9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5713	!
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5714
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5715	findMethodsIn:aCollectionOfClasses where:aBlock
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5716	"return all instance- and classmethods
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5717	from classes in aCollectionOfClasses, where aBlock evaluates to true."
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5718
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5719	^ self
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5720	findMethodsIn:aCollectionOfClasses
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5721	inst:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5722	class:true
9a1138c3fe76 * empty log message * Claus Gittinger <cg@exept.de> parents: 2655 diff changeset	5723	where:aBlock
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5724	! !
93 dda97353e775 . claus parents: 90 diff changeset	5725
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	5726	!SystemBrowser class methodsFor:'startup with query'!
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5727
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5728	askThenBrowseClass
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5729	self getClassThenPerform:#browseClass:
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5730
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5731	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5732	SystemBrowser askThenBrowseClass
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5733	Tools::NewSystemBrowser askThenBrowseClass
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5734	"
93 dda97353e775 . claus parents: 90 diff changeset	5735	!
dda97353e775 . claus parents: 90 diff changeset	5736
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5737	askThenBrowseClassHierarchy
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5738	self getClassThenPerform:#browseClassHierarchy:
36 ccde5a941840 * empty log message * claus parents: diff changeset	5739
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5740	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5741	SystemBrowser askThenBrowseClassHierarchy
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5742	Tools::NewSystemBrowser askThenBrowseClassHierarchy
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5743	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5744	!
ccde5a941840 * empty log message * claus parents: diff changeset	5745
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5746	askThenBrowseFullClassProtocol
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5747	self getClassThenPerform:#browseFullClassProtocol:
36 ccde5a941840 * empty log message * claus parents: diff changeset	5748
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5749	"
de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	5750	SystemBrowser askThenBrowseFullClassProtocol
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5751	Tools::NewSystemBrowser askThenBrowseFullClassProtocol
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5752	"
36 ccde5a941840 * empty log message * claus parents: diff changeset	5753	! !
ccde5a941840 * empty log message * claus parents: diff changeset	5754
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5755	!SystemBrowser class methodsFor:'utilities'!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	5756
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5757	askForClass
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5758	^ self askForClassWithFilter:nil
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5759
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5760	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5761	Tools::NewSystemBrowser askForClass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5762	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5763	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5764
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5765	askForClassName
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5766	^ self askForClassNameWithFilter:nil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5767
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5768	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5769	Tools::NewSystemBrowser askForClassName
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5770	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5771	!
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5772
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5773	askForClassNameWithFilter:filterOrNil
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5774	self
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5775	askForClassToSearch:nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5776	single:true
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5777	msgTail:''
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5778	resources:(self classResources)
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5779	filter:filterOrNil
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5780	forBrowser:nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5781	thenDo:[:className :single :doWhat \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5782	^ className
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5783	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5784	^ nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5785
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5786	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5787	Tools::NewSystemBrowser askForClassName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5788	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5789	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5790
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5791	askForClassToSearch:doWhatByDefault single:singleClass msgTail:msgTail resources:resourcesOrNil filter:filterOrNil forBrowser:aBrowserOrNil thenDo:aBlock
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5792	"utility common code for both opening a new browser on a class and
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5793	to search for a class in an existing browser.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5794	If singleClass is true, a single class will be asked for and browsed,
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5795	otherwise, a match pattern is allowed and a multi-class browser is opened.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5796	Moved from instance protocol for better reusability."
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5797
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5798	\|box boxLabel title okText className canFind doWhat classNameHolder updateList
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5799	allClasses classNamesInChangeSet
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5800	allNames allFullNames initialShortNames initialFullNames
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5801	colorizedFullNames colorizedShortNames
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5802	resources check showingWhatLabel showFullNameHolder genShortNameListEntry\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5803
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5804	resources := resourcesOrNil ? self classResources.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5805	showFullNameHolder := (LastClassSearchBoxShowedFullName ? false) asValue.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5806
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5807	doWhat := doWhatByDefault.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5808	canFind := false.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5809
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5810	title := ''.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5811	boxLabel := (resources string:'Select a class').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5812	okText := 'OK'.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5813
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5814	genShortNameListEntry :=
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5815	[:cls \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5816	\|ns\|
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5817
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5818	cls isNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5819	nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5820	] ifFalse:[
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5821	(filterOrNil notNil and:[ (filterOrNil value:cls) not]) ifTrue:[
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5822	nil
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5823	] ifFalse:[
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5824	ns := cls topNameSpace name.
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5825	ns = 'Smalltalk'
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5826	ifTrue:[ ns := '' ]
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5827	ifFalse:[ns := ' (in ',ns,')'].
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5828	cls nameWithoutNameSpacePrefix,ns
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5829	]
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5830	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5831	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5832
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5833	classNamesInChangeSet := ChangeSet current changedClasses
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5834	select: (filterOrNil ? [:cls \| true])
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5835	thenCollect:[:each \| each theNonMetaclass name].
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5836
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5837	initialFullNames := self visitedClassNamesHistory.
13035 7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5838	(filterOrNil notNil) ifTrue:[
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5839	initialFullNames := initialFullNames select:[:nm \| filterOrNil value:(Smalltalk at:nm)].
7139f82575c0 class: NewLauncher Claus Gittinger <cg@exept.de> parents: 13032 diff changeset	5840	].
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5841	initialShortNames := initialFullNames collect:[:nm \| genShortNameListEntry value:(Smalltalk at:nm)] thenSelect:[:nm \| nm notNil].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5842
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5843	colorizedFullNames := initialFullNames collect:[:clsName \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5844	(classNamesInChangeSet includes:clsName) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5845	clsName asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5846	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5847	clsName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5848	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5849	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5850
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5851	colorizedShortNames := initialShortNames with:initialFullNames collect:[:shortName :clsName \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5852	(classNamesInChangeSet includes:clsName) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5853	shortName asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5854	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5855	shortName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5856	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5857	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5858
13046 f3c72a68d92a title of class search box Claus Gittinger <cg@exept.de> parents: 13037 diff changeset	5859	title := (resources string:title) , msgTail , '.\' , (resources string:'(TAB to complete; matchPattern allowed - "*" for all):').
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5860
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5861	box := self
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5862	enterBoxForClassWithCodeSelectionTitle:title withCRs
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5863	withList:(showFullNameHolder value ifTrue:[colorizedFullNames] ifFalse:[colorizedShortNames])
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5864	okText:okText
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5865	forBrowser:nil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5866
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5867	box label:boxLabel.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5868
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5869	allClasses := Smalltalk allClasses copyAsOrderedCollection.
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5870	filterOrNil notNil ifTrue:[
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5871	allClasses := allClasses select: filterOrNil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5872	].
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5873
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5874	allNames := (allClasses
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5875	collect:[:cls \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5876	\|ns nm\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5877
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5878	ns := cls topNameSpace name.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5879	ns = 'Smalltalk'
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5880	ifTrue:[ ns := '' ]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5881	ifFalse:[ns := ' (in ',ns,')'].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5882	cls isNameSpace ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5883	nm := cls nameWithoutNameSpacePrefix,ns,' (Namespace)'
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5884	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5885	nm := cls nameWithoutNameSpacePrefix,ns
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5886	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5887	(classNamesInChangeSet includes:cls name) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5888	nm asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5889	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5890	nm
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5891	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5892	]) sortWith:allClasses; yourself.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5893
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5894	allFullNames := (allClasses
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5895	collect:[:cls \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5896	\|nm\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5897
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5898	nm := cls name.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5899	(classNamesInChangeSet includes:cls name) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5900	nm asText emphasisAllAdd:(UserPreferences current emphasisForChangedCode)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5901	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5902	nm
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5903	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5904	]) sortWith:allClasses; yourself.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5905
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5906	updateList := [
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5907	\|nameToSearch list namesStarting namesIncluding lcName nameList\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5908
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5909	(nameToSearch := classNameHolder value withoutSeparators) isEmpty ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5910	showingWhatLabel label:(resources string:'Recently visited:').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5911	list := (showFullNameHolder value ifTrue:[colorizedFullNames] ifFalse:[colorizedShortNames]).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5912	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5913	showingWhatLabel label:(resources string:'Matching classes:').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5914	nameList := showFullNameHolder value
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5915	ifTrue:[ allFullNames ]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5916	ifFalse:[ allNames ].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5917
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5918	lcName := nameToSearch asLowercase.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5919	(lcName includesString:'::') ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5920	list := OrderedCollection new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5921	allClasses doWithIndex:[:cls :idx \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5922	\|isIncluded\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5923
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5924	(nameToSearch includesMatchCharacters) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5925	isIncluded := (lcName match:cls name asLowercase)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5926	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5927	isIncluded := (cls name includesString:lcName caseSensitive:false)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5928	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5929	isIncluded ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5930	list add:(nameList at:idx)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5931	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5932	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5933	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5934	(nameToSearch includesMatchCharacters) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5935	list := nameList select:[:nm \| lcName match:nm asLowercase]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5936	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5937	namesIncluding := nameList
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5938	select:[:nm \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5939	"/ nm asLowercase startsWith:lcName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5940	nm asLowercase includesString:lcName caseSensitive:false
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5941	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5942	namesStarting := namesIncluding select:[:nm \| nm asLowercase startsWith:lcName].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5943	list := namesStarting , {nil} , (namesIncluding \ namesStarting).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5944	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5945	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5946	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5947	box listView
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5948	list:list;
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5949	scrollToLine:((list findFirst:[:line \| (line ? '') startsWith:lcName]) max:1)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5950	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5951
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5952	classNameHolder := '' asValue.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5953	box enterField
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5954	model:classNameHolder;
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5955	immediateAccept:true.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5956	classNameHolder onChangeEvaluate:updateList.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5957
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5958	box entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5959	box action:[:aString \| className := aString].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5960
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5961	box panelView
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5962	addSubView:(showingWhatLabel := (Label label:(resources string:'Recently visited:')) adjust:#left) before:nil;
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5963	addSubView:(check := CheckBox label:(resources string:'Show Full Name (do not strip off Namespace)') model:showFullNameHolder) before:nil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5964	showFullNameHolder onChangeEvaluate:updateList.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5965	box enterField origin:(0 @ check corner y).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5966	box listView origin:(0 @ check corner y).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5967
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5968	box extent:(400 @ 350).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5969	box open.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5970
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5971	className isEmptyOrNil ifTrue:[^ nil "cancel"].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5972
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5973	LastClassSearchBoxShowedFullName := showFullNameHolder value.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5974
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5975	(className endsWith:$) ) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5976	(className indexOfSubCollection:'(in ') == 0 ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5977	"/ a namespace
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5978	className := (className copyTo:(className indexOfSubCollection:'(Name')-1) withoutSeparators
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5979	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5980	className := ((className copyFrom:(className indexOfSubCollection:'(in ')+4)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5981	copyButLast:1)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5982	, '::' , className asCollectionOfWords first
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5983	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5984	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5985
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5986	aBlock notNil ifTrue:[aBlock value:className optionalArgument:singleClass and:doWhat].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5987	^ className
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5988
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5989	"Modified: / 23-07-2012 / 11:00:22 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5990	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	5991
13032 b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5992	askForClassWithFilter:filterOrNil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5993	\|className\|
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5994
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5995	className := self askForClassNameWithFilter:filterOrNil.
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5996	className notEmptyOrNil ifTrue:[
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5997	^ Smalltalk classNamed:className
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5998	].
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	5999	^ nil
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6000
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6001	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6002	Tools::NewSystemBrowser askForClass
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6003	"
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6004	!
b0fd7b57ace5 +askForClassWithFilter: Claus Gittinger <cg@exept.de> parents: 13028 diff changeset	6005
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6006	classWithNameSimilarTo:className
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6007	"helper for class-name entry; finds a class by name tolerant w.r.t. case"
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6008
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6009	\|allMatchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6010
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6011	allMatchingClasses := self classesWithNameSimilarTo:className.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6012	^ allMatchingClasses firstIfEmpty:nil
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6013	!
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6014
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6015	classesWithNameSimilarTo:className
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6016	"helper for class-name entry; finds a class by name tolerant w.r.t. case"
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6017
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6018	^ self classesWithNameSimilarTo:className from:nil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6019
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6020	"Modified: / 22-08-2006 / 13:22:41 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6021	!
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6022
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6023	classesWithNameSimilarTo:className from:aNameSpaceOrNil
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6024	"helper for class-name entry; finds classes with a name similar to the argument, className"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6025
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6026	\|nm lcName class allClasses triedDetectors triedMatchers allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6027	prefNameSpaceOrNil prefLcNameSpace\|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6028
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6029	prefNameSpaceOrNil := (aNameSpaceOrNil == Smalltalk) ifTrue:[ nil ] ifFalse:[aNameSpaceOrNil].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6030
12747 b59676921d61 refactored Claus Gittinger <cg@exept.de> parents: 12729 diff changeset	6031	nm := className withoutPrefix:'Smalltalk::'.
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6032
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6033	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6034	class := prefNameSpaceOrNil at:nm asSymbol.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6035	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6036	prefLcNameSpace := prefNameSpaceOrNil name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6037	].
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6038	class := Smalltalk at:nm asSymbol.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6039	class isBehavior ifTrue:[^ Array with:class]. "/ a direct hit
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6040
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6041	lcName := className asLowercase.
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6042
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6043	allClasses := Smalltalk allClasses.
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6044
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6045	triedDetectors := OrderedCollection new.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6046	triedDetectors add:[:cls \| cls name asLowercase = lcName].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6047
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6048	triedDetectors do:[:eachTry \|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6049	\|class\|
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6050
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6051	class := allClasses detect:eachTry ifNone:nil.
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6052	class notNil ifTrue:[^ Array with:class].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6053	].
024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6054
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6055	triedMatchers := OrderedCollection new.
5018 2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	6056	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase = lcName].
2fe02eac49c5 better classesWithNameSimilarTo Claus Gittinger <cg@exept.de> parents: 4924 diff changeset	6057	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase = lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6058
4806 439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6059	triedMatchers add:[:cls \| cls name asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6060	triedMatchers add:[:cls \| cls nameWithoutNameSpacePrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6061	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase startsWith:lcName].
439bed9def3a code cleanup Claus Gittinger <cg@exept.de> parents: 4526 diff changeset	6062	triedMatchers add:[:cls \| cls nameWithoutPrefix asLowercase includesString:lcName].
6134 024fd528782a * empty log message * Stefan Vogel <sv@exept.de> parents: 6115 diff changeset	6063	triedMatchers add:[:cls \| cls name asLowercase includesString:lcName].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6064
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6065	allMatchingClasses := IdentitySet new.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6066	triedMatchers do:[:eachTry \|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6067	\|matchingClasses\|
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6068
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6069	matchingClasses := allClasses select:eachTry.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6070	"/ matchingClasses size == 1 ifTrue:[^ matchingClasses].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6071	allMatchingClasses addAll:matchingClasses.
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6072	].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6073	allMatchingClasses isEmpty ifTrue:[^ #()].
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6074
0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6075	allMatchingClasses := allMatchingClasses asOrderedCollection.
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6076	allMatchingClasses
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6077	sort:[:a :b \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6078	\|lcNameA lcNameB da db distA distB \|
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6079
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6080	lcNameA := a name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6081	lcNameB := b name asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6082	prefNameSpaceOrNil notNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6083	a nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6084	lcNameA := a nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6085	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6086	b nameSpace == prefNameSpaceOrNil ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6087	lcNameB := b nameWithoutNameSpacePrefix asLowercase.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6088	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6089	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6090
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6091	distA := da := lcName levenshteinTo:lcNameA.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6092	distB := db := lcName levenshteinTo:lcNameB.
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6093	"prefer prefixes (i.e. classes whose name starts with what we search for)"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6094
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6095	(lcNameA startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6096	distB := distB * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6097	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6098	(lcNameB startsWith:lcName) ifTrue:[
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6099	distA := distA * 2
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6100	].
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6101	distA < distB
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6102	].
4924 0d39bbc7203e better search-class heuristics Claus Gittinger <cg@exept.de> parents: 4921 diff changeset	6103	^ allMatchingClasses.
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	6104
1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	6105	"
6678 aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	6106	self classesWithNameSimilarTo:'NewSystemBrowser'
aa5572677e17 * empty log message * Claus Gittinger <cg@exept.de> parents: 6640 diff changeset	6107	self classesWithNameSimilarTo:'Moose::MSEAbstractOperator'
6546 1b809ef4658b comment Stefan Vogel <sv@exept.de> parents: 6480 diff changeset	6108	"
6944 1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6109
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6110	"Created: / 22-08-2006 / 13:22:48 / cg"
1cf67ff2795d * empty log message * Claus Gittinger <cg@exept.de> parents: 6925 diff changeset	6111	"Modified: / 22-08-2006 / 14:53:38 / cg"
3833 89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6112	!
89b8454a783d refactored Claus Gittinger <cg@exept.de> parents: 3813 diff changeset	6113
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6114	enterBoxForClassWithCodeSelectionTitle:title withList:listOrNil okText:okText forBrowser:aBrowserOrNil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6115	"convenient method: setup an enterBox with initial text taken
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6116	from the codeviews selection."
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6117
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6118	\|sel box initialText superclass currentClass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6119	methods someMethod offeredClass anyClose closeName s usedGlobals list\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6120
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6121	list := listOrNil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6122
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6123	aBrowserOrNil notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6124	currentClass := aBrowserOrNil theSingleSelectedClass.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6125
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6126	sel := aBrowserOrNil selectionInCodeView.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6127	sel notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6128	aBrowserOrNil selectedNamespacesValue doWithExit:[:eachNs :exit \|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6129	s := eachNs , '::' , sel asSymbol.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6130	(s knownAsSymbol
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6131	and:[(Smalltalk at:s asSymbol) isBehavior]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6132	"/ a private class of current ...
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6133	sel := eachNs , '::' , sel asSymbol.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6134	exit value:nil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6135	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6136	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6137	(sel knownAsSymbol and:[currentClass notNil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6138	and:[(currentClass theNonMetaclass privateClassesAt:sel asSymbol) notNil]]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6139	"/ a private class of current ...
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6140	sel := (currentClass theNonMetaclass privateClassesAt:sel asSymbol) name
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6141	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6142	(sel knownAsSymbol and:[(Smalltalk at:sel asSymbol) isBehavior]) ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6143	"/ ignore it, if there is no class-name which comes close.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6144	anyClose := false.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6145	Smalltalk keysAndValuesDo:[:aGlobalName :aGlobal\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6146	aGlobal isBehavior ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6147	aGlobal isMeta ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6148	aGlobal name == aGlobalName ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6149	((aGlobalName startsWith:sel)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6150	or:[(sel startsWith:aGlobalName)]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6151	closeName isNil ifTrue:[closeName := aGlobalName].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6152	anyClose := true.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6153	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6154	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6155	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6156	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6157	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6158	anyClose ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6159	sel := nil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6160	] ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6161	sel := closeName
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6162	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6163	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6164	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6165	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6166
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6167	sel notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6168	initialText := sel asString withoutSeparators
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6169	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6170	aBrowserOrNil codeAspect == SyntaxHighlighter codeAspectMethod ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6171	methods := aBrowserOrNil selectedMethodsValue.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6172	methods size > 0 ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6173	someMethod := methods first.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6174	usedGlobals := someMethod usedGlobals collect:[:eachVar \| eachVar asSymbol].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6175	usedGlobals := usedGlobals select:[:eachVar \| (Smalltalk at:eachVar) isBehavior].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6176	usedGlobals size > 0 ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6177	list := list reject:[:each \| usedGlobals includes:each ].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6178	list := usedGlobals asOrderedCollection sort , list.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6179	offeredClass := Smalltalk at:usedGlobals first
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6180	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6181	offeredClass := someMethod mclass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6182	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6183	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6184	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6185	(aBrowserOrNil navigationState isVersionDiffBrowser
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6186	or:[aBrowserOrNil navigationState isClassDocumentationBrowser]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6187	offeredClass := currentClass.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6188	(offeredClass notNil and:[offeredClass isPrivate]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6189	offeredClass := offeredClass owningClass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6190	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6191	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6192	(currentClass notNil
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6193	and:[(superclass := currentClass superclass) notNil]) ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6194	offeredClass := superclass
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6195	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6196	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6197	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6198	offeredClass notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6199	initialText := offeredClass theNonMetaclass name
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6200	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6201	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6202	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6203
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6204	box := self
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6205	enterBoxTitle:(self classResources string:title)
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6206	withList:list
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6207	okText:(self classResources string:okText).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6208
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6209	initialText notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6210	box initialText:initialText
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6211	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6212	^ box
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6213
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6214	"Created: / 13-02-2000 / 20:56:18 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6215	"Modified: / 27-07-2012 / 22:18:34 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6216	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6217
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6218	enterBoxTitle:title withList:aListOrNil okText:okText
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6219	"convenient method: setup enterBox"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6220
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6221	\|box rsrcs\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6222
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6223	aListOrNil notNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6224	box := ListSelectionBox new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6225	"/ box := EnterBoxWithList new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6226	box list:aListOrNil.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6227	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6228	box := EnterBox new.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6229	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6230	rsrcs := self classResources.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6231	box title:(rsrcs string:title) okText:(rsrcs string:okText).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6232	^ box
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6233
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6234	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6235	self enterBoxTitle:'bla' withList:#('a' 'b' 'c') okText:'gaga'
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6236	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6237
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6238	"Created: / 13.2.2000 / 20:53:53 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6239	"Modified: / 1.3.2000 / 11:15:09 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6240	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6241
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6242	extractClassAndSelectorFrom:aString into:aBlock
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6243	"given a string which can be either 'class>>sel' or
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6244	'class sel', extract className and selector, and call aBlock with
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6245	the result.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6246	Useful to open browser on a method as selected in some documentation."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6247
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6248	\|sel clsName isMeta sep s\|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6249
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6250	sel := aString.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6251	sel notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6252	sel := sel asString withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6253	('>>' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6254	sep := $>
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6255	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6256	('* *' match:sel) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6257	sep := Character space
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6258	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6259	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6260	sep notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6261	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6262	extract class/sel from selection
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6263	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6264	s := ReadStream on:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6265	clsName := s upTo:sep.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6266	[s peek == sep] whileTrue:[s next].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6267	sel := s upToEnd.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6268
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6269	(clsName endsWith:' class') ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6270	isMeta := true.
12713 7cccc4a7733c Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	6271	clsName := clsName copyButLast:6 "copyTo:(clsName size - 5)"
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6272	] ifFalse:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6273	isMeta := false
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6274	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6275	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6276	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6277	aBlock value:clsName value:sel value:isMeta
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6278
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6279	"Modified: / 17.6.1996 / 16:52:14 / stefan"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6280	"Created: / 6.2.2000 / 00:51:51 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6281	"Modified: / 6.2.2000 / 00:56:43 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6282	!
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6283
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6284	extractSelectorFrom:aString
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6285	"given an arbitrary string, try to extract a useful selector.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6286	Useful to open browser on a selected code fragment."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6287
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6288	\|s sel sel2 t\|
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6289
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6290	aString isNil ifTrue:[^ nil].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6291
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6292	s := aString asString string.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6293	s := s withoutSeparators.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6294	sel := s.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6295
6705 b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	6296	((sel endsWith:$:)
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	6297	and:[sel knownAsSymbol]) ifTrue:[
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	6298	^ sel asSymbol
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	6299	].
b78bea6fd220 * empty log message * Claus Gittinger <cg@exept.de> parents: 6678 diff changeset	6300
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6301	t := Parser selectorInExpression:sel.
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6302	t notNil ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6303	sel := t
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6304	].
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6305	(sel = s or:[sel isNil or:[t == #>>]]) ifTrue:[
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6306	"oops - thats probably not what we want here ..."
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6307	self extractClassAndSelectorFrom:s into:[:c :s :m \|
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6308	sel := s
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6309	]
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6310	].
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6311
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6312	sel asSymbolIfInterned isNil ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6313	(sel startsWith:'#') ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6314	sel2 := sel copyFrom:2.
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6315	((sel2 startsWith:'''') and:[(sel2 endsWith:'''')]) ifTrue:[
12713 7cccc4a7733c Changed usage of deprecated #copyWithoutLast: to #copyButLast: Stefan Vogel <sv@exept.de> parents: 12631 diff changeset	6316	sel2 := (sel2 copyFrom:2) copyButLast:1
8047 8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6317	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6318	sel2 asSymbolIfInterned notNil ifTrue:[
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6319	^ sel2
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6320	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6321	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6322	].
8bc319ff9ba7 better title in implementorsOfAny Claus Gittinger <cg@exept.de> parents: 7998 diff changeset	6323
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6324	^ sel
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6325
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6326	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6327	self extractSelectorFrom:'at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6328	self extractSelectorFrom:'#at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6329	self extractSelectorFrom:'at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6330	self extractSelectorFrom:'self at:something put:someValue'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6331	self extractSelectorFrom:'(self at:something put:someValue)'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6332	self extractSelectorFrom:'[self at:something put:someValue] value'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6333	self extractSelectorFrom:'Array>>at:put:'
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6334	"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6335
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6336	"Created: / 6.2.2000 / 00:49:44 / cg"
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6337	"Modified: / 6.2.2000 / 00:57:08 / cg"
6560 80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6338	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6339
13028 fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6340	getClassThenPerform:aSelector
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6341	\|classNameEntered classEntered enterBox resources\|
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6342
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6343	"/ new Code:
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6344	classNameEntered := self askForClassName.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6345
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6346	"/ old Code:
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6347	"/ resources := self classResources.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6348	"/
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6349	"/ enterBox := EnterBox title:(self classResources stringWithCRs:'Browse which class:').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6350	"/ enterBox okText:(resources string:'Browse').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6351	"/ enterBox entryCompletionBlock:(DoWhatIMeanSupport classNameEntryCompletionBlock).
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6352	"/ enterBox action:[:className \| classNameEntered := className].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6353	"/ enterBox showAtPointer.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6354	"/
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6355	classNameEntered notEmptyOrNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6356	classEntered := Smalltalk classNamed:classNameEntered.
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6357	classEntered isNil ifTrue:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6358	self warn:(resources string:'No such class').
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6359	] ifFalse:[
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6360	self perform:aSelector with:classEntered
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6361	]
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6362	].
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6363
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6364	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6365	SystemBrowser getClassThenPerform:#browseClass:
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6366	"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6367
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6368	"Modified: / 10-08-2006 / 12:54:20 / cg"
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6369	!
fa823a68acdf class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12954 diff changeset	6370
6560 80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6371	resourceEditorClassFor:aResource
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6372	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6373	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6374
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6375	(aResource == #canvas) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6376	^ UIPainter
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6377	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6378	(aResource == #menu) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6379	^ MenuEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6380	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6381	((aResource == #image) or:[aResource == #fileImage]) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6382	^ ImageEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6383	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6384	(aResource == #help) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6385	^ UIHelpTool
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6386	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6387	(aResource == #tableColumns) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6388	^ DataSetBuilder
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6389	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6390	(aResource == #tabList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6391	^ TabListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6392	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6393	(aResource == #hierarchicalList) ifTrue:[
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6394	^ HierarchicalListEditor
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6395	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6396	^ nil
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6397	!
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6398
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6399	resourceEditorClassForResources:resources
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6400	"resources are from a methods resource-info;
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6401	return an appropriate editor class."
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6402
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6403	resources keysDo:[:eachResource \|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6404	\|editor\|
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6405
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6406	editor := self resourceEditorClassFor:eachResource.
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6407	editor notNil ifTrue:[ ^ editor].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6408	].
80370d5aa971 share code between old and new browser Claus Gittinger <cg@exept.de> parents: 6552 diff changeset	6409	^ nil
2813 ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6410	! !
ebef400fdd3b code reuse Claus Gittinger <cg@exept.de> parents: 2811 diff changeset	6411
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6412	!SystemBrowser::BrowserHistoryEntry methodsFor:'accessing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6413
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6414	className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6415	"return the value of the instance variable 'className' (automatically generated)"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6416
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6417	^ className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6418	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6419
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6420	className:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6421	"set the value of the instance variable 'className' (automatically generated)"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6422
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6423	className := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6424	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6425
3151 910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6426	className:classNameArg meta:metaArg selector:selectorArg
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6427	className := classNameArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6428	meta := metaArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6429	selector := selectorArg.
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6430	!
910fd5bcfb6e checkin from browser Claus Gittinger <cg@exept.de> parents: 3131 diff changeset	6431
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6432	icon
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6433
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6434	^nil
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6435
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6436	"Created: / 05-05-2011 / 23:57:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6437	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6438
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6439	label
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6440
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6441	^self displayString
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6442
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6443	"Created: / 05-05-2011 / 23:57:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6444	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6445
3131 883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6446	meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6447	"return the value of the instance variable 'meta' (automatically generated)"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6448
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6449	^ meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6450	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6451
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6452	meta:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6453	"set the value of the instance variable 'meta' (automatically generated)"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6454
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6455	meta := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6456	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6457
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6458	selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6459	"return the value of the instance variable 'selector' (automatically generated)"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6460
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6461	^ selector
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6462	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6463
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6464	selector:something
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6465	"set the value of the instance variable 'selector' (automatically generated)"
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6466
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6467	selector := something.
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6468	!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6469
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6470	theClass
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6471	^ Smalltalk at:className asSymbol
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6472	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6473
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6474	!SystemBrowser::BrowserHistoryEntry methodsFor:'comparing'!
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6475
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6476	= anEntry
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6477	^ className = anEntry className
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6478	and:[meta = anEntry meta
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6479	and:[selector = anEntry selector]]
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6480	! !
883d7b34bb86 history stuff refactored (common between old and new browser) Claus Gittinger <cg@exept.de> parents: 3125 diff changeset	6481
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6482	!SystemBrowser::BrowserHistoryEntry methodsFor:'displaying'!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6483
13319 93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6484	displayOn:aGCOrStream
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6485
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6486	"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6487	"/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6488	(aGCOrStream isStream) ifFalse:[
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6489	^ super displayOn:aGCOrStream
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6490	].
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6491
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6492	className printOn:aGCOrStream.
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6493	meta ifTrue:[
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6494	aGCOrStream
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6495	emphasis:#bold;
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6496	nextPutAll:' class';
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6497	emphasis:nil.
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6498	].
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6499	selector notNil ifTrue:[
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6500	aGCOrStream
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6501	nextPutAll:' >> ';
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6502	nextPutAll:selector.
93eadba89fa6 Refactor to implement #displayOn:aGcOrStream instead of #displayString Stefan Vogel <sv@exept.de> parents: 13128 diff changeset	6503	].
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6504
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6505	"Created: / 15-04-2010 / 13:47:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6506	"Modified: / 03-07-2011 / 13:44:32 / cg"
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6507	! !
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6508
820 2a412afad51d fixed autoSearch, when searching for a private-classes name Claus Gittinger <cg@exept.de> parents: 742 diff changeset	6509	!SystemBrowser class methodsFor:'documentation'!
93 dda97353e775 . claus parents: 90 diff changeset	6510
12822 cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	6511	version
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	6512	^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.335 2013-09-06 18:39:31 vrany Exp $'
12822 cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	6513	!
cda365756f93 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12785 diff changeset	6514
8851 287f3e03a645 changed: #iconForClass: Claus Gittinger <cg@exept.de> parents: 8759 diff changeset	6515	version_CVS
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	6516	^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.335 2013-09-06 18:39:31 vrany Exp $'
10048 9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6517	!
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6518
9e92f3285051 changed: #instVarOverlayXmlSpec Claus Gittinger <cg@exept.de> parents: 9879 diff changeset	6519	version_SVN
13525 a8195f61d4f2 Fixes required by Java class browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 13438 diff changeset	6520	^ '$Id: SystemBrowser.st,v 1.335 2013-09-06 18:39:31 vrany Exp $'
36 ccde5a941840 * empty log message * claus parents: diff changeset	6521	! !
4112 ed7af6707ad7 emphasisForChangedCode tm parents: 3834 diff changeset	6522
12475 469fd10da830 class: SystemBrowser Claus Gittinger <cg@exept.de> parents: 12073 diff changeset	6523
203 de8d39d459fd checkin from browser Claus Gittinger <cg@exept.de> parents: 194 diff changeset	6524	SystemBrowser initialize!

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 06 Sep 2013 20:39:31 +0200
changeset 13525	a8195f61d4f2
parent 13438	06f6d5fc73ef
child 13552	cc3d76d48ddc
permissions	-rw-r--r--